Sayfa 30

PROGRAM 3

10 SCNCLR 20 PRİNT "SECİMİNİZİ YAPIN" 3a PRİNT 40 CHAR,5,5," (11 DISKET KATALOGU" 59 CHAR,5,7," (21 PROGRAM YÜKLEME" 55 CHAR,5,9," (31 DISKET ISLEMLERİ" 60 CHAR,5,11," 141 PROGRAMI BITIR" 70 GET KEY A$: ASVALCAS) 80 ON A sa GoT0 7a 108 SCNCLR 118 DİRECTORY 120 CHAR,5,20,"DEVAM ICIN BIR TUSA BASIN" 1380 GET KEY A$: GOTO 18 8080 SCNCLR 210 INPUT "PROGRAM 1S$ 220 LORD 15$,8,1 300 SCNCLR

PROGRAM 4

10 REM 8 EKSTRA FONKSİYON TUSU 20 FOR I-5i2e Tü Sisa READ A