Sayfa 30

INPUT "KIRALANIS THEN 108 a INPUT "KIRALAYANIN ADILSSPACE THEN 1890

INPUT "KIRALANIS THEN 1188 :PRİNT :PRİNT “YENİ KİRALAMACE/KI" GET THEN 1318 AND ASCI"H" THEN 1318 IF THEN 7E PRİNT "<HOMESKİRA KAYDI SILI NECEK KITABIN KODU":KE IF OR THEN 1350 PRİNT

PRİNT KODDA BİR KAYIT YOK! 1448 IF THEN PRİNT ZATEN KIRAYA VERİL 1446 PRİNT "KIRALAYANIN AD B&C1,7) PRINT "SİLMEK ICİN '5' MENÜYE DONUS ICİN 'M'" GET AS:IF AS-"" THEN 1498 IF AND ASLIM" THEN 1402 IF THEN 78 PRİNT “YENİ KİRA KAYIT SİLMECEZHİ" GET THEN 1458 IF AND THEN 1458 IF THEN 78 1358 PRİNT "<HOMEİSİLİNECEK KAYDI N IF OR THEN 1500 PRİNT "ARIYORUM..." Hz0 THEN 1535 FOR TO IF THEN 1540 NEKT PRİNT "<RVYSONSBU KODDA BİR KAYIT PRİNT "SİLMEK İCİN '5S' MENÜYE DON Us ICIN GET THEN 1558

IF ASCI“E" AND THEN THEN FOR Mz TO Ss NEXT Mf

PRİNT :PRİNT 3:PRİNT "YENİ SİLMECE/Hİ" GET A$:IF THEN 1818 IF AND THEN 1818 IF THEN 7E GOTO 1506 PRİNT

IF THEN NEXT II FOR TO NEXT MM