Sayfa 11

Close 1 End Proc Rem Rem Procedure LD_UNKNOWN.

Cls Print "Isim ? Input NAME$ Open In 1,NAME$ For I=0 To N_NODES-l

Input #l,SMPLR(UNKNOWN,I) Next I Close 1 End Proc Rem Rem Procedure SV_UNKNOWN

Cls Print "Isim ? Input NAME$ Open Out 1,NAME$ For I=0 To N_NODES-l

Print #1,SMPLR(N,I) Next I Close 1 End Proc Rem Rem Procedure GT_SMPLRS

Cls Print" Ornek numarasi Max ",N_SMPLRS Input S If((S>0) and(S<=N_SMPLRS))

INP_SAMPLE[S-1] Else

ILLEGAL End If End Proc Rem Rem Procedure INP_SAMPLE[S]

Cls Locate 0,22 Print "Ornek verilerini gir " Reserve Zone 64 Ink 0 For 1=0 To 7

For F=0 To 7 Set Zone I+8*F+1 ,I*20,F*20 To(I+1 )*20,(F+1 )*20 Box I*20,F*20To(I+l)*20,(F+l)*20 Next F Next I Do

Flash Off Curs Off T=Zone(X Screen(X Mouse),Y Screen(Y Mouse)) R=Int((T-l)/8) C=T-8*R-1 If(Mouse Key>0 and T<>0) Then SETPIX[S,R,C] If(Mouse Key>0 and T=0) Then Exit Loop End Proc Rem Rem Procedure SETPIX[S,R,C] If Mouse Key=l Ink 2 iiDc SMPLR(S,R*CLMNS+C)= 1 End If If Mouse Key=2

Ink 1

SMPLR(S,R*CLMNS+C)=0 End If X=X Screen(X Mouse) Y=Y Screen(Y Mouse) Paint X,Y,0 End Proc Rem Rem Procedure PRT_SMPLRS

Cls Print" Ornek numarasini ver Max ",N_SMPLRS Input S If((S>0) and(S<=N_SMPLRS))

SHW_SMPLR[S-1] Else

ILLEGAL End If End Proc Rem Rem Procedure SHW_SMPLR[S]

Cls Locate 0,22 Print "Ornek ",S+1 InkO For I=0 To 7

For F=0 To 7 Set Zone I+8*F+l,I*20,F*20To(I+l)*20,(F+l)*20 Box I*20,F*20To(I+l)*20,(F+l)*20 Next F Next I Rem

For R=0 To 7

For C=0 To 7

PRTPIX[S,R,C] Next C NextR Wait Key End Proc Rem Rem Procedure PRTPIX[S,R,C] If SMPLR(S,R*CLMNS+C)=1 Then Ink 2 IfSMPLR(S,R*CLMNS+C)=0 Then Ink 1 X=C*20+10 Y=R*20+10 Paint X,Y,0 End Proc Rem Rem Procedure SHWJJNKNOWN

SHW_SMPLR[UNKNOWN] End Proc Rem Rem Procedure SET_WEIGHTS

Cls