Sabtu, 04 Februari 2012

Program Kotak Berjalan


Script nya :

Cls
Color 11
For i = 1 to 79
    Locate 1, i : Print chr$(196)
    Delay (0.03)
next i

Locate 1 , 79 : Print chr$(191)

For i = 1 to 24
    Locate i, 79 : Print chr$(179)
    Delay (0.03)
Next i

Locate 24, 79 : Print chr$(217)

For i = 78 to 1 step -1
    Locate 24, i : Print chr$(196)
    Delay (0.03)
Next i

Locate 24, 1 : Print chr$(192)

For i = 23 to 1 step -1
    Locate i, 1 : Print chr$(179)
    Delay (0.03)
Next i

Locate 1, 1 : Print chr$(218)
End
Load disqus comments

0 blogger-facebook