BÜYÜTEÇ VİNYET

BÜYÜTEÇ VİNYET

*Bazılarınız disket sürücülerinin kafalarını temizlemek için satılan temizleme disketlerini kullanırlar. Fakat bunun için X-Copy de gerekli olacağından sırf temizleme için bu programı almanız gerekecektir. Temizleme disketi ile tam verim almak için disket takılı iken kafaların da hareket etmesi gerekir. Aşağıdaki program bu işi sizin için halledecektir.

PRINT "Lütfen sol mouse tuşuna bası- 
nız."
WHILE MOUSE(0)=0 : WEND 
led=12570880& 
POKEled,127 
POKEled,119 
POKEled+512,0 
FORsan=1 TO 10 
LOCATE 2,1 : PRINT "Süre (sn.): ";san 
t=INT(TIMER) 
döngü: 
IF INT(TIMER)=t THEN döngü 
NEXT san 
POKEled+512,255 
Temizleme disketini taktıktan sonra sol 
tuşa basarsanız kafa ve disket 10 saniye 
boyunca hareket edeceklerdir. Bu da kafa- 
ların temizlenmesi için yeterli bir süre.