Bu sayfadaki yazılar
Sayfanın metni
Sayfa 22
Disket kullananlar için, basic ile yazılmış olup uygulamada birçok kolaylık sağlar. Her işlemden sonra program ana menüye dönmeden evvel OK veya hata mesajı verir. Gerekli açıklamalar programın içindedir.
Klavyeyle gezinmek için ← ve → tuşları.
Sayfa 23
IF THEN ili IF THEN 114 FOR Ts1 TO :PRİNT 2$8/22$ FOR TO 28251NEXT 20 GOSUB S3L1NPUT DI SKET DASzLEFT$<CDAS,16) INPUT " DİSKET IF THEN PRİNT OTO 36 PRİNT "<DOLN) MİSİNİZ? (CE ZAT" GET ASLIF THEN 48 İF THEN RUN IF THEN 48 GOSUB Gİ 57 PRİNT 531GOSUR 7 1
OPEN TO 4:!GET #3 #3,J$,F$ ) FOR Tsi TO 286tGET W3,ASIPRINT EXT GET FOR Ts1 TO W3,ASIPRINT AS) IF STs64 THEN CLOSE 31GOSÜUB 611GOTO 57 r IF A$z"" THEN PRİNT NEXT :6GOTO 48 ÖPEN THEN 56 IF STz-188 THEN PRİNT <C-3)00,DEVICE NOT PRESENT,08,80<C€4 7>"160TO 55 PRİNT & 31,19tEND RETURN PRİNT <Cs6>M « MENÜYE DONUS .
GET OStİF D$z"" THEN 58 IF THEN 58 RUN 15 ,A$,B$,C$,D$ PRİNT CLOSE 151RETURN GOÖSUB "<CLR>"TINPUT "<DOLİN SİLİNECEK DOSYA SAYISI IF D>S THEN PRİNT B4 Tsi TO D PRINT “* "TPLIİNPUT "<LEFT).DOSYA "JA s<(T) "NEXT GOSUB 1088 *GOTO 57 OPEN 15,8,15,"1O"1RETURN | PRİNT 53280 PRİNT CHR$<C14)1PRİINT )<D OLİN><C s8 >< 13SPACE YAÇIKLAMA"IPRINT * PRINT "<2SPACE YBU PROGRAM İLE DİSKE TLERİNİZİ FORMAT-" PRINT .EORMAT,DISKET 1 DISKSURU-" PRİNT "CUNUN KULLANABİLECEGİ HALE G ETİRMEKTİR." PRİNT DİSKET BASLIĞINI,YANI * PRİNT "DİSKET ADINI VE 10 NO.SUNU D EGİSTİREBİ-" PRINT "LIRSINIZ." PRİNT PROGRAMLARINI
; ZIN ADINI DEGİS-" <asa> 00081 PRINT DEFADA AZAMI 5 PROGRAMI" <187)> PRİNT "DIİSKETTEN SİLEBİLİRSİNİZ." <a95)> 60083 PRINT VAR OLAN Bİ R PROGRAMI BASKA" 00084 PRINT "BIR ISİM ALTINDA YENİDEN KAY DA ALABILIR" <151> 00085 PRINT 4 PROGRAMI T EK BIR ISIM" <161> 00086 PRINT "ALTINDA ." 600887 "<2SPACE CALISMADAN SONRA NORMAL" <ı7a> 00088 PRINT "VEYA HATA MESAJINI BELİRTECE KTIR." <158) PRINT KALAN ACIKLAMA, PROGRAMIN ICINDE" <008) PRİNT "MEVCUT BULUNMAKTADIR."
PRİNT ." ii <130)> PRINT PRİNT "<DOLN)< 15SPACE <
INPUT " TOPLU DOSYA ADICESPACE TD $ <194)> GOSUB
UB 57 <eaı> GOSUB " <DOWN)> YENİ DOSYA ADI INPUT " ESKİ DOSYA ADİ "YES <121> GOSUB B 61:60TO 57 GOSUB "<CLR>"1GOSUB 7İ <Bae > OPEN FOR 1-0 TO 1İSİGET NEXT !GET W5,FS,F$ Tal TO " 175) PRİNT "<Cs7) DİSKET ADİL <ası> ÖPEN UTW3,15S$1CLOSE 3IPRİNT FOR TO BO)1NEXT "<DOLN)<CE7 > DİSKET OPEN <a26> IF THEN 1825 <a06> PRİNT " 1821 ") <885> "| StGOSUB 57