*********************' * *? * ARIZA DOSYASI *I( * *^2 * ESER CEKER *h< * *F * (C) 1989 G.MAGOSA *P * *Z *********************d:n"":"SIFREN IZI GIRIN LUTFEN :";:S$:K$:S$K$1300 x"SIFRE YANLIS !... PROGRAMI SILIYORUM !!!":G12000:G:64767K U500:W$(3,U):""s "YENI DOSYA": " VEYA": " ESKI DOSYA":: A$:A$""170 A$"Y"A$"E"130 A$"Y"N0 A$"E"950 NRN1:DR0= "":" KOMUT MENUSU"::z " 1- EKLE"::" 2- SIL": " 3- CIKIS"::" 4- ARA":: " SECIMINIZ !";:JJ JJ290,380,1080,540 JJ1JJ4250 2202 """: EKLEME ALTPROGRAMIK ,"KAYIT NO";NR::w 6"MARKASI:";:MA$::"MODELI :";:MO$: @"ARIZASI:";:AR$::"NEDENI :";:NE$:: J"VERILER TAMAM MI [E/H]";A$:A$"E"350 TXXNR:1230:NRNR1 ^1210 hA$"D"290 r+ |"": SILME ALT PROGRAMIi "SILINECEK ARIZA:";S1$::"S.ARIZANIN NEDENI:";S2$:w I1NR1 W$(2,I)S1$W$(3,I)S2$510 "" " BU KAYIT SILINECEK" 900::"CINSI :";CI$ :"MARKASI :";W$(0,I)::"MODELI :";W$(1,I)H :"ARIZASI :";W$(2,I)::"NEDENI :";W$(3,I)g :"EMIN MISINIZ [E/H]";A$w A$"H"510 A$"E"420 Q13:W$(Q,I)"**SILINDI**":Q:DRDR1 I 1210:A$"D"380   ARAMA &53281,15:53280,2:""=0"";7)"NE TUR ARAMA YAPILACAK !":"";16)"MENU":^:"";:T136:"";:T:""D"1TUM DOSYA LISTELEME":"2MARKAYA GORE LISTELEME"N"3MARKA VE MODELE GORE LISTE":"4PROGRAM CIKISI"X"":T19:"B";38)"B":T4b"";:T136:"";:T:""pl"SECIMINIZ:";L:L640,680,680,630:550v"":"";16)"BITTI !"::"":HH0Z1NR1:820:ZHH0"BU CINS CIHAZ KAYITLARDA YOK!"7901"MARKASINI VERINIZ:";MR$:L3740:HH0QZ1NR1:W$(0,Z)MR$710Z820aZHH0"BU MARKA CIHAZ KAYITLI DEGIL!"790"MODELINI VERINIZ:";MD$:HH0Z1NR1:W$(0,Z)MR$W$(1,Z)MD$770820 Z; HH0"BOYLE BIR CIHAZ KAYITLI DEGIL!"`:"BASKA [E/H]";Q1$s Q1$"E"220*HH0:5504"":HHHH1:900>"";35)"";HH:"MARKASI:":"";10)"";W$(0,Z)H"CINSI:":"";8)"";CI$:"MODELI:":"";9)"";W$(1,Z)JR""16)"ARIZASI":"";W$(2,Z)\""16)"NEDENI":"";W$(3,Z)f"DEVAM ICIN BOSLUK TUSUNA BASINIZ!"p197,64,64:BB$:BB$(32)880zCC253280,8:53281,9:CI$"B/W TV"3CC353280,6:53281,6:CI$"COLOR TV"[CC453280,2:53281,2:CI$"VIDEO"ao ""}"":CC0:"DOSYA ADI:";FT$:1250CC0"BU ISIMDE STANDART DOSYANIZ YOK!..":CC5CC,8,CC,"0:"FT$",S,R":CC,N9(CC2N0)(CC3N0)(CC4N0)"INDEKS HATALI!":1300:960kCC5N01300:"OZEL DOSYA DA YOK!..":960:"BULUNAN DOSYA : ";FT$:"OKUNAN :";N;" KAYIT"GS11500:GSI1NCC,W$(0,I):CC,W$(1,I):CC,W$(2,I):CC,W$(3,I)$I .CC:28"":CC0: CIKIS VE SAVE ALTYORDAMImB"DOSYA SAKLANACAK MI [E/H]";A$:A$"H"A$"E"1080LA$"H":"":"B I T T I ":V:"DOSYA ADI:";FT$:1250`CC0CC5jCC,8,CC,"@0:"FT$",S,W"$t:"KAYDEDILEN ";NR1DR;" CIHAZ":CC,NR1DR2~I1NR1NW$(0,I)"**SILINDI**"CC,W$(0,I):CC,W$(1,I):CC,W$(2,I):CC,W$(3,I)ICC"DOSYANIZ ";FT$;" ADI ILE SAKLANDI":GE11000:GE: DEVAM ALTPROGRAMI:"DEVAM VEYA MENU";A$: KAYIT'A HAZIRLIKWW$(0,XX)MA$:W$(1,XX)MO$:W$(2,XX)AR$:W$(3,XX)NE$:p DOSYANIN SECILMESI(FT$,3)"B/W"CC2(FT$,5)"COLOR"CC3(FT$,5)"VIDEO"CC4  INITIALIZE ALTPROGRAMICC:15,8,15:15,"I":15:CC0: