10000!""d"HIS PROGRAM IS MADE FOR OMMODORE 64 ERSONAL OMPUTER."("ZGUR INCER"2""7Y11000:Y <A$(100),B$(100),C$(100),D$(100),E$(100),H$(100),N$(4000),M$(4000) c(142)8 d"":53281,6:53280,6g n"A N A M ENU" " 1.KITAP LISTESI " " 2.KITAP KIRASI " " 3.CIKIS " "SECIMINIZ :....";Q Q200,1000,50007 "KITAP LISTESI":53281,1[ "M E N U"{ "1.SINIFLANDIRMA" "2.KITAP-KAYIT" "3.KITAP-ARAMA" "4.ANA MENUYE DONUS" "SECIMINIZ :...";Q2 Q2251,391,400,100+ * SINIFLANDIRMA *C "SINIFLANDIRMA"g "DOSYA ISMINI GIRIN :";DO$ "";DO$;" ISIMLI DOSYA YARATILIYOR..." 3,8,3,DO$",S,W" "DOSYA YARATILDI..." "DEVAM EDECEKMISINIZ (E/H)";L$ L$"H"3:200 3:253!  * KAYIT *b "KITAP-KAYIT":"HANGI DOSYAYA KAYIT YAPACAKSINIZ";DO$ 3,8,3,DO$".S,A":7000 I110 "KITABIN ADI :";N$(I):3,N$(I) "YAZARI :";M$(I):3,M$(I) I 3 200  * ARAMA * "KITAP-ARAMA"; "HANGI DOSYADA ARAMA YAPACAKSINIZ";DO$X 3,8,3,DO$",S,R":7000d I120w 3,N$(I),M$(I) N$(I):"";M$(I) I "DEVAM ETMEK ISTERMISINIZ :..";L$ L$"E"455 3 200 ** KIRA **'"KITAP KIRASI":53281,2K"M E N U"h"1.KIRA-KAYIT""2.KIRALAR""3.KIRA LISTESI""4.KIRA SILME""5 ANA MENUYE DONUS""SECIMINIZ :...";Q4#$Q41100,2000,3000,3200,1008L"KIRA-KAYIT"L~"KAYIT NO :";Ic2,8,2,(I)",S,W""KITABIN ISMI ";A$:2,A$"YAZARI ";B$:2,B$"KIRALAYAN KISI ";C$:2,C$"KIRALAYANIN ADRESI :";D$:2,D$"KIRALAYANIN TEL. NO'SU :";E$:2,E$2"KIRALANIS TARIHI-SURESI :";H$:2,H$^"DEVAM ETMEK ISTIYORMUSUNUZ :...";L$yL$"E"II1:2:120021000 * KIRA OKUMA *"KIRA-OKUMA""1.SIRALI ARAMA""2.ISIM ILE ARAMA""SECIMINIZ :..";Q5- Q522500B4"KIRA-OKUMA"J9I1a>2,8,2,(I)",S,R"zH2,A$,B$,C$,D$,E$,H$M"KAYIT NO :";IR"KITABIN ISMI :";A$\"YAZARI :";B$f"KIRALAYAN KISI :";C$k"KIRALAYANIN ADRESI :";D$m"KIRALAYANIN TEL. NO'SU :";E$<n"KIRALANIS TARIHI-SURESI :";H$hp"DEVAM ETMEK ISTERMISINIZ :..";L$zL$"E"II1:2:211021000 * ISIMLI ARAMA * "KIRA-OKUMA" "ARANAN KITABIN KAYIT NO'SU :";I 2,8,2,(I)",S,R" 2,A$,B$,C$,D$,E$,H$3 "KITABIN ADI :";A$F "YAZARI :";B$a "KIRALAYAN KISI :";C$ "KIRALAYANIN ADRESI :";D$ "KIRALAYANIN TEL. NO'SU :";E$ "KIRALANIS TARIHI-SURESI :";H$ "DEVAM ETMEK ISTERMISINIZ :...";L$ L$"E"2:2510  2 1000' ** LISTE **J "KAC TANE KIRA KAYDI VAR :";UU I1U\ 2s 2,8,2,(I)",S,R"} 2,A$ I"-";A$ I "LISTENIN TEKRARI ICIN 'T',MENU ICIN 'M'";L$ L$"T"2:3020 L$"M"2:1000 2:1000 ** KIRA SILME **% "KIRA-SIL."p "SILINECEK KIRANIN (VEYA KITABIN) KAYIT NO'SUNU BILIYORMUSUN(E/H)";L$ L$"H"3250 3300 "SILINECEK KIRANIN KAYIT NO'SUNU MENUDEKI KIRA LISTESINDEN OGRENIN" 1000  "SILINECEK KIRANIN KAYIT NO'SUNU GIRIN :";K- "SILIYORUM..."L 15,8,15:15,"S:";(K):15w "BASKA SILINECEK KAYIT VARMI(E/H)";L$ L$"E"3200 100053281,7:"":"***OZGUR DINCER***""***(C) 1989 MACGAYVER SOFTWARE***"+"***ADRES:RAGIBBEY MAH. 219 SOKAK NO:3 45210/AKHISAR***"B"***TEL.:3910***"J:aX * HATA KONTROL *nb15,8,15l15,EN,EM$,ET,ESvEN62"BU ISIMDE BIR DOSYA YOK...":15:20015:'53281,14'(14):""$'X16.'""!8'X]B'"KITAP TAKIP VERSION DISK"cL'nV'X16`'""j'Xt'"RITTEN Y:ZGUR INCER"~'"(C)1989 Ҡ",'"BIR TUSA BASIN";X$A'X$:X$""10130I'20