| |
|
|
p.specht
|
WindowTitle "DAS IMPFDING"
WindowStyle 24
Window 0,0 - %maxx,%maxy
Font 2
randomize
var xm&=width(%Hwnd)
var ym&=height(%Hwnd)
Declare x&[10000],y&[10000]
Declare top&,bot&,x&,y&
top&=2
Repeat
x&=x&+3-6*rnd(2)
case x&>xm&:x&=1
case x&<1:x&=xm&-1
y&=y&+3-6*rnd(2)
case y&>ym&:y&=1
case y&<1:y&=ym&-1
x&[top&]=x&
y&[top&]=y&
inc top&
top&=top& mod 10000 + 1
bot&=top&-1
bot&=bot& mod 10000 + 1
usepen 0,2,8^8-top&*3'rgb(235,235,235)
rectangle x&[bot&]+2,(y&[bot&]+2) - (x&[bot&]-2),y&[bot&]-2
usepen 0,2,bot&*5'rgb(0,0,255)
rectangle x&+3,(y&+3) - (x&-3),y&-3
until 0
|
|
|
| XProfan 11Computer: Gerät, daß es in Mikrosekunden erlaubt, 50.000 Fehler zu machen, zB 'daß' statt 'das'... | 27.04.2021 ▲ |
|
|
|