Sayfa 9

PRİNT RARASI TEL. KODLARI" PRİNT PRİNT RES-TEL-NOTCARAMA >" GET THEN 40 D-VALCDDSILIF OR D>S THEN 48 POKE 53281,1:POKE 53280,1:PRINT "<C ON DGOTO PRİNT TABC5)"<CTRL-3)SORULACAK TARI HI "SEKLİND E VERİN 1* PRİNT >< CTRL-8>28-01-1988" PRİNT GİRECEGİNİZ T ARIKI TRS IF OR LENCTR&)C)10 THEN PRİN T 128 ) IF GNCİ OR AYCI OR AYDIR O THEN PRİNT 120 PRİNT YAZ ABILIRSINIZ. GET THEN 158 TF THEN 178 TF NSCUYSCHRSC20) THEN PRİNT > 158 PRİNT 145 PRİNT "<CTRL-4)<3SPACE ERİL ERDE HATA VAR MI? <EZH) GET EH$tİF EH$«"" THEN 18 1F THEN 108 SA" OPEN 5,6,6,7R$ FOR Isi TO NEXT İtCLOSE RUN PRİNT TARI HI GÜN-AY-YIL'IPRINT E VERİN 1* PRİNT 1 <RVSOFF >< CTRL-8)29-01-1988* PRİNT İSTEDİĞİNİZ T ARIKI GİRİN"TİNPUT > IF OR THEN PRİN T 3a0 ) IF GNCL OR OR AYCI OR O THEN PRİNT "<3UP)*160TO 320 OPEN 5,8,8,RR& | FOR Isi TO ÜİGET 1 CLOSE 5 PRİNT IHİNE ATT NOTUNUZ. FOR Izi TO IF 1<)848 AND AND A ND AND 1<)4208 THEN NEXT It 488 PRİNT "<CTRL-5)DIGER SAYFAYA GECMEK İCİN 'RETURN'" GET OR HHSOCHRSCİ3) THEN 458 PRİNT "<CLR> GET RUN *<CLR)<CTRL-3)YO RE İSMİNİ GİRİN" KDSEİF THEN IF THEN GSz1 IF THEN RUN FOR Isi TO 874:READ

IF OR THEN PRİNT 558 NEXT 11G0TO 508 GET THEN 550 IF THEN NEXT Iİ SOYADI. CTRL-4>"J*.SAHIS ICINCDOWN>" FOR Isi TO 31PRİNT UT GİF TH EN 740 NEXT I IF THEN OPEN 6,8,6,*0:TELEFON,S PRİNTHE,J FOR Isi TO İŞCİ, 1 CLOSE PRİNT SOYADI. 1 PRİNT

İNİZ “İSİM VE SOYADI" İNPUT THEN 810 IF THEN RUN OPEN FOR Izi TO THEN 865 NEXT THEN CLOSE Bt 810 CLOSE BEPRİNT AD THEN 808 FOR TO H GET Y&z** THEN 888 60TO 810 FOR TO JEPRİNT OR TO L-1> #NEXKT İN > GET S$:1F THEN 826 NEXT H:6GOTO 818 DATA 1*, "ADIYAMAN", "8781", DATA AKCAABAT" , "041" , "AKCAKOCA", "4614" DATA , "AKSARAY" ,"48