Sayfa 29

Screen N-1 Screen To Front N-1 Exit End If Put Cblock 4114,0,0 Del Cblock 4114 Exit End If If and Y<16

"hangi rengin seçildiğini "kontrol eder

Locate 3, Print "Renk-";RENK$; Print Space$(2-Len(RENK$))

"seçilen rengin ikonlarını çizer

WSHUMRENKOU 32

6*WO3) L-W(3)*256)/16 15-W(4))*841 6*W(4)

15-W(5))*841 : For A-0 To 2 K-l10*A452

W(A43)-Y(A) Cls FER,K,W(A) To K45,W(A)4-8 Cls CR,K,W(A43) To Next End If and N<12 and Y<16

VERI

"ikonlar yardımıyla renk "ayarlanmasını sağlar. eski ikonları silerek, “yeni yerlerine çizer.

: : If

R>256*Z

End If

Cls FR,X,K To X45,K4-8 Cls CR,X,W To X45,W-4-8

Ci 'olour RENK,A End If RENK$-RENK $4-Space$(9-

Print Loop

Locate XX,YY End Proc

kak

AMOS (C) 1990 Europress Software, Ltd.

SÜRPRİZ PROGRAM

ak ak ak ak

Set Buffer 15 Dim X(55,7,7)

HARFLER ACILIS

Paper 0 : Pen 31 Print At(0,14)4" Adınız Nedir..:" HARF GIRISI17,14,17,4

Procedure VERİ For LIK-0 To 15 Read X,Y,M,B$ mod 4,0) Next Read X,Y,M,E$ PRG|Y,X,M,E$,0,0,31)

Wait Key Shift Up 2,1,30,1 Wait Key

Data 0,12,1 Data "HAYRETTİN YILDIZ" Data 1,11,1 Data "MURAT YILDIZGÖRER" Data 2,13,1 Data " SUCKLINGS" Data 3,13, a MILK"

Mil BOYS"

ata '"MILK CHILDS"

Data "MILK CHILDREN" Data 9,15,2 Data "MILK MANS" Data 12,16,3 Data "MILK MEN" Data 13,11,3 Data "WHICHEVER SUCK- LING" Data 14,2,3 Data "THEİR MOUTH 1S TO SMEELİNG THE MİLK." Data 15,9,3 Data "HE'S GREENHORK

JUST A

UCKLNG LAMBS" Data 19,12,4 Data "FOSTER HERS" Data 20,15,4 Data "FOSTER SON" Data 21,5,4 Data HIS BETWEEN

BROT

End Proc

Procedure ACILIS Screen Open 0,320,256,32,Lowres Hide : Curs Off : Flash Off : Cls 0 For A-0 To Screen Colour-1 Read C : Colour A,C Next Wait Vbl Data 0,$F00,$F30,$F60,$F90,$ECO Data

End Proc

Procedure HARFLER Shared X() Screen Open 0,32,32,2. Screen Hide Cls 0 : Paper 0 Curs Off: Ink 1

,Lowres

Home : Print For X—0 To 7 For Y-z0 To 7 X(A,Y,X)-Point(X,Y) Next Next Next End Proc

Procedure CIZIM|XE,YE,B$,CM,R,ER, RENK| Shared X(),K,X,Y $4"OÖPORSŞTUÜVWXYZ" ' 0123456789" D-YE*84-Y