24 lines
654 B
QBasic
24 lines
654 B
QBasic
border INK_BLACK
|
|
color INK_WHITE + PAPER_BLACK
|
|
clrscr
|
|
locate 4 2 print chr &h87, chr &h85, chr &h87, chr &h85, chr &h87, chr &h85, chr &h87, chr &h81
|
|
locate 4 3 print chr &h85, chr &h85, chr &h85, chr &h85, chr &h85, chr &h85, chr &h85, chr &h84
|
|
locate 4 4 print chr &h87, chr &h81, chr &h8D, chr &h85, chr &h85, chr &h85, chr &h8D, chr &h85
|
|
locate 3 8 print "PRESS SPACE"
|
|
updatescr
|
|
x = 8
|
|
dx = 1
|
|
setsprite 0 &HF9 INK_RED
|
|
peiv:
|
|
putsprite 0 x 10
|
|
updatescr
|
|
x = x + dx
|
|
if x = 8 or x = 128 then dx = -dx end
|
|
if anykey then goto continuar end
|
|
goto peiv
|
|
continuar:
|
|
clrscr
|
|
locate 0 0 print "Ok"
|
|
updatescr
|
|
ttt:
|
|
goto ttt |