Sayfa 102

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