ΑΑΑΧ! Ίσα που δεν πρόλαβα! Τέλος πάντων, μόλις έφτιαξα κάτι στα γρήγορα σε Windows XP:
cls
cursor false,0:color 0,6
a$ = 'I ' + chr(3) + ' PIXEL':x=0:y=0:dx=1:dy=1:l=len(a$)
print a$
repaint 2,0,1,1,6,4
while 1
move x,y,l,1,x+dx,y+dy
x=x+dx:y=y+dy
if x+l=80 or x=0 dx=dx*-1
if y=24 or y=0...