Basic256 Programme Pingpong
Quellcode
Basiswissen
Das untenstehende Programm kann direkt in Basic256 ausgeführt werden.
Quellcode
graphsize 400,400
fastgraphics
xball=0
yball=200
yschlaeger=200
xrichtung=1
yrichtung=1
do
xball=xball+xrichtung
yball=yball+yrichtung
if xball>399 or xball<1 then xrichtung=xrichtung*(-1)
if yball>399 or yball<1 then yrichtung=yrichtung*(-1)
a=key
if a=75 then colour black
clg
colour green
line 380,yschlaeger,380,yschlaeger + 40
colour blue
circle xball,yball,2
refresh
until key =83