PRINT:PRINT
PRINT SPC(32);"R E N K L E R "
PRINT
PRINT SPC(39);"Amiga Dunyasi"
PRINT
PRINT SPC(35);"SAYI 4"
PRINT
PRINT SPC(31);"Mouse Tusuna Basin"
WHILE B=0: B= MOUSE(O): WEND
WHILE B<>O:B= MOUSE(O): WEND
DEFINT a-z
DIMreg!(15)
SCREEN 1,320,200,4,1: WINDOW 2, "RENKLER", (0,0)-(310,186), 0,1
WINDOW OUTPUT 2
PALETTE 0 ,0/15,1 15.1 15 : PALETTE 1,0/15,1/15,1/15
FOR P = 0 TO 15: reg!(P) = P/15 : NEXT : z = 0 : RANDOMIZE TIMER
Loop:
CLS
COLOR 0,0:PAINT (160,100)
xo=160:yo=99
ra!=RND*3.1416*.01
LINE(x,y)-(x1,y1)„bf
ELSEIF z>5 THEN
y1=90*SIN(rari!)+96 : x1=150*COS(l!)+160
AREA(3l0-xl.l86-y1): AREA(x1,y1): AREA(x,y): AREAFILL
ELSE
AREA(160, 99): AREA(xo, yo): AREA(x, y): AREAFILL: xo = x: yo = y
END IF
B= MOUSE(O)
IF B <> 0 OR INKEYSo - THEN WINDOW CLOSE 2: SCREEN CLOSE 1: END
COL=(COL+1)MOD13
FOR P=2 TO 15: PALETTE (P+COL)MOD 13+2,reg!(z),reg!(P),reg!(P): NEXT
COLOR COL+2
NEXT
z = RND*15
GOTO Loop