21 lines
328 B
QBasic
21 lines
328 B
QBasic
locate 2 1
|
|
print "HOLA JAILERS"
|
|
border 5
|
|
spr = 250
|
|
setsprite 0 spr 0
|
|
x = 0
|
|
dx = 1
|
|
count = 5
|
|
peiv:
|
|
putsprite 0 x 60
|
|
updatescr
|
|
x = x + dx
|
|
if x = 128 then dx = -1 end
|
|
if x = 8 then dx = 1 end
|
|
dec count
|
|
if count = 0 then
|
|
count = 5
|
|
if spr = 250 then spr = 251 else spr = 250 end
|
|
setsprite 0 spr 1
|
|
end
|
|
goto peiv |