Sayfa 27

OPEN 2,8, 15: INPUT#2,A:CLOSE 2 IF Az&3 THEN PRİNT "<CLR>BU IİSİMDE BIR DOSYA ZATEN VAR!":FOR T-i TO 20 O0:NEXT T:GOTO 20 PRİNT "<CLR>İ-EN FAZLA 15 KARAKTER"

PRINT "2-HER GIİRİSTEN SONRA <RVSON> RETURN<RVSOFF>" PRINT "<DOWN>DOSYA 2 0-041 INPUT ) INPUT INPUT

"<DOWN>TARIH<L4SPACE> : "5 TRHS (0 3 MSFS( "<DOWN>PIİST<SSPACE>:

INPUT INPUT ) INPUT ) INPUT ) INPUT INPUT "<DOWN>NOT<&SPACE> : (0) PRINT "<DOWN><CTRL—1>D<CTRL-2>EVAM< <CTRL-1>C<CTRL-2>1KIS" GET THEN 420

"<DOWN> ZAMAN<LASPACE> 3 "ş ZMNS (0 "<DOWN>SONUC<LASPACE> : "5 SNCS

"<DOWN>BANYAN<LISPACE> 3 "3 GNY$ (

" PRINT#1,MSFS(1)4" * PRINT#1,PST$(1)4" * PRINT#İ,KL$(1)4" * * PRINT#L,ZMNS(1)4" * “ PRINT#1,GNY$(1)4" “ PRINT#L,NTS(1)4" " NEXT I CLOSE 1 60TO 20 REM ESKİ DOSYAYA EKLEME PRINT "<CLR>DOSYA ISMINI YAZIN.ANCA

K DOSYA ISMI 15 PRINT “<DOWN>KARAKTERDEN UZUN OLMAM ALIDIR.ISIMI YAZ-" PRINT "<DOWN>DIKTAN SONRA <RVSON>RE TURN<RVSOFF> TUSUNA BASIN. ..<DOWN>"

INPUT AD$ OPEN 5,8,8:CLOSE 5 IF ST<O THEN PRİNT "<CLR>DIKKAT!'!SUR UCUYU ACMAYI UNUTMUSSUNUZ. BU" IF THEN PRİNT “<DOWN>SEKİLDE CALISAMAM." IF ST<0 THEN PRİNT ACINIZ...":FOR T-i TO 3000:NEXT T:6 OTO 20 “<CLR>İ-EN FAZLA 15 KARAKTER"

PRINT "2-HER GİRİSTEN SONRA <RVSON> RETURN<RVSOFF>" PRINT “"<DOWN>DOSYA : INPUT ) INPUT INPUT

"<DOWN>KILO<SSPACE> : (0) “<DOWN> JOKEY<ASPACE> 3 "5 JKYS (A

INPUT INPUT ) INPUT ) INPUT

01110 PRINT "<DOWN>GECMİS OLSUN...."

PRINT#L,NTS(1)4" “ NEXT CLOSE 1 20 REM DOSYA SİLME #844

PRINT "<CLR>DOSYA ISMINI YAZIN.ANCA K DOSYA ISMI 15 " PRINT "<DOWN>KARAKTERDEN UZUN OLMAM ALIDIR.ISIMI

"<DOWN>DİKTAN SONRA <RVSON>RE

INPUT AD$ ÖPEN 5,8,8:CLOSE 5 IF THEN PRİNT UCUYU ACMAYI UNUTMUSSUNUZ.BU" IF ST<O THEN PRİNT “<DOWN>SEKİLDE C ALISAMAM.LUÜTFEN ACINIZ.":FOR TO 3000:NEXT T:60TO 20

ÖPEN 4 “"<CLR>"ŞAD$;" DOSYA SI LINDI."

FOR Ts1 2000:NEXT :GOTO 20 REM BILGI GÖRME PRINT “<CLR>DOSYA ISMINI YAZIN.ANCA K DOSYA ISMI 15 “ "<DOWN>KARAKTERDEN UZUN OLMAM ALIDIR.ISIMI YAZ-" PRİNT “<DOWN>DIKTAN SONRA <RVSON>RE TURN<RVSOFF> TUSUNA

INPUT AD$ OPEN 5,8,8:CLOSE 5 IF THEN PRİNT UCUYU ACMAYI UNUTMUSSUNUZ.BU" IF THEN PRİNT “<DOWN>SEKİLDE C ALISAMAM.LUTFEN ACINIZ.":FOR T-i TO T:6G0TO 20 OPEN A-041 INPUT#7,TRHS (0) IF TRHS(0)-"" INPUT#7,MSFS (0) (0) INPUT#7,JKYS (6) INPUT#7, ZMNS (0) INFUT#7,SNCS (0) INPUT#7,GNYS (0) INPUT#Z,NTS (0) 6GOTO 1220 CLOSE 7 FOR Tsi TO PRİNT "<CLR>DOSYA ADI PRİNT “<DOWN>TARIH<SSPACE): v PRINT >