Das deutsche QBasic- und FreeBASIC-Forum

[programmer404]

https://filehorst.de/d/dnImCIiE


SHELL "cycles 30001"
SCREEN 13

FOR x = 1 TO 319 STEP 1
FOR r = 1 TO 239
IF r > 239 THEN r = 0
g = 131 + 130 * (SIN(r / (r / 12 + (x / 180) * SIN(x / 19))))
f3 = 131 + 30 * (SIN(r * g))
y = g + f3
c = y
PSET (x, r), c
IF INKEY$ = CHR$(27) THEN GOTO 100
NEXT r, x

100 SLEEP 60
DEF SEG = &HA000
BSAVE "Vorhang.pic", 0, 16000