栄光のPC-8001 Ver 1.4 Copyright 1979 (C) by (ry

726 ：ナイコンさん：2016/02/13(土) 13:52:06.10 .net

10 cls
20 y=10
30 x=0
40 ti$=""
50 for x=1 to 30
60 locate x,y : print " H"
70 ti$=time$
80 if time$=ti$ then goto 80
90 next x
100 print "end"
110 end