Bu sayfadaki yazılar
Sayfanın metni
Sayfa 103
LABO OLABİLME
DRANK
GLİK!
O ELİNDEKİYLE BURADAN GEÇİŞ / || SP KÜÇÜK OLABİLİR. DEĞİL Mİ.. KARANLIK
BÜYÜDÜ O... HER GÜN, YENİ BİR YAŞAM SAVAŞIDIR. BURAYA...
SLINK
SÖYLENECEK. BASKA NE VE, KONUŞMA - İİ NIN NE YARARI VAR ARTIK... Vaz sani YENİN AYRI EZİR ÖNENİ)|
DEYAS
YÜRÜYOR
Klavyeyle gezinmek için ← ve → tuşları.
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