Bu sayfadaki yazılar
Sayfanın metni
Sayfa 11
ALtADRES BEHER İKİSİ G$tUNTİL A“ AND AND THEN 308 9 IF G$z*7T"” THEN 3815tELSECİF G THEN GOSÜB 38 3016 GOSUB 5,8,5,”Y F*/DATAF 14 SECLOSE i 5 PRİNT ATCI,BIPLS”"<CTRL-3)> BASKA KAY IT EPEAT!GET IF G$-"H” THEN THEN öz
PRİNT AT * ",15,AZSIRETURN PRİNT AT * <HOME RETURN ATCİ,G)BSEPRİNT KAYITLAR SİLİNECEK | ebe PRİNT TRL-3)EMİN MİSİNİZ? THEN IF Ja2ğ THEN 35062 GOSUB SÖSOPEN 5,8,5,"Y F*/INDEK 14 YAVUZ SE 5,8,5,”"YF*/INDEK 1” İ4:CLOSE 15 GOSUB BSOEPRİNT ATLİ <CTRL-2)1<CTRL
2" FOR RNz1 TO 140 * GOSÜR 14:NEXT SiCLOSE
IF THEN 1828 108 IF AND THEN & IF THEN 3-1 THEN IF C2>15 THEN Cas, COLOUR Ci,C2:GOTO IF Cizi5 THEN COLOUR Ci,C2:60TO Sada | KAYIT PRİNT ATC1,9)"<CTR L>3)>SILINMIS KAYIT ÖPEN 15 SPRİNT A,A$
Klavyeyle gezinmek için ← ve → tuşları.
Sayfa 10
O INT ATCI,12)B$ PRİNT AT(13,8B)ALSIPRINT ATC13, AT(13,10)A3$ PRİNT KAYI T ARANACAK MI? (EZH)İ<CTRL-2)” REPEAT!GET ” THEN 508 IF THEN 100 REPEAT:GET G$tUNTİL Göze” #1RETURN DATA "AD DATA GİRİSİ",”KIİSİSEL "ÖZEL ADLAR." DATA *BUTUN KAYIT.”,”KAYIT SILME.", "KAYIT DEGİS.”,”"B.KAYITL.SIL” DATA "INDEX KAYIT.”",”DISK DRIVE..", ner a” SPRİNT ARAL IGİ GİRİNİZ...” PRİNT "<H OME).- THEN 108 IF THEN IF THEN 1071 THEN 1050 ENCALS)-Z) IF ,LENCAZS)) THEN A 1057 İF AZSIRISKTECNELMR) THEN 1059 IF Afis-1 OR THEN AlsA2 THEN 105 a
IF THEN GOSUB 15,8,15t0PEN 5,8,5,”Y YeSEFOR İsAi TO 14 PRİNT NT INPUTUS
PRINT AT<1, IF THEN 999: GOSUB 181Y-5 NEKT SCLÖSE 15:CLOSE 5 PRINT AT(3,4)” BILGİ ARANACAK MI?... <CTRL-2>” GE T G$LUNTIL IF G$-”E” THEN THEN 1067 1) THEN 10658 Als1:GOSUB 1859 C$-1 IF R> THEN 1058 10901AL-ANGOTO 10598 PRINT AT(1,4)B$:60T0 1850 İF THEN Asi TO T HEN RETURN IF AND THEN AsA *12RETURN IF AND THEN RET tAz-İtRETURN IF THEN FOR Asi TO MREIF
THEN RETURN TE 1) AND THEN IF CE<LEFTSENSCA), 1) AND THEN Izi TO MRİİF THEN 1İ501:ELSE:GOTO 1502 PRİNT PRİNT AT(3,4)” <CTRL-3>DOSYA SONU < 198 GOSUB 15,8,1510PEN 5,8,5."Y FOR Isi TO MREİF THEN 2002:ELSE:GOTO 2003 24160SUB FOR TO ATCİ,Y*I-İ)SKECİ YENEXT AT(13,YİNSCIDİRNENCI) 14 T AT(13,YIA 3$ : PRİNT AT(3,4)" <CTRL-3)DOSYA SONU < GE T 108 PRİNT TRL-3) KAYIT SIİLMEK ICİN AD VE SOYA pnp" PRİNT ÖME). 2” THEN asda 1F THEN 100 FLs. THEN SE:PRİNT KISININ KAYDI GOSUB 25006 GOSUB 15,8,1510PEN 5,8,5,”Y 14 152MREM R-İSFOR TO NEXT BAS KA KAYIT SİLİNECEK G$tUNTİL ” THEN ” THEN 2508 12:60TO 2500 PRİNT DEGİSİKLİĞİ İCİN AD VE PRİNT T HEN S5ö2 IF FLs, THEN İSTENEN KISININ KAYDI YOK 12160TO GOSUB 15,8,15:0PEN 5,8,5,"Y F*/DATAF İLE” 141 INPU TUS, CLOSE 15:PRİNT INT PRİNT ATCI,1 ATLI, PRİNT ATC1,S)PL&”<CTRL-3) HANBISI D