Sayfa 27

PROGRAM ADI : TELSİRA

EFON REHBERİ<ASPACE > &

REM A REM BUL. ENT UNAL<ESPACE> * REM REM

5.7.87 IZMIR<4SPACE>* REM > REM IC KK KK Kak akk ok akk akk POKE 53281,8:POKE TRL-6>":GOTO 482 >< RVSOFF>":GOSUB 5684 POKE 49209,193:POKE 53281,0:POKE 532 88,5:PRINT "<CTRL-E> PÖKE GÖSÜB 440:6GO0OSUB 456:PRIİNT "<RYSON>T ELEF 0 PRİNT 1 <RV SOÖFF GİRİSİ PRİNT "<2DOKN)<SRİGHT><RYSON)> 8 SOFF DÜZELTME PRİNT 3 SOFF ><4SPACE > İNCELEME PRİNT 4 SOFF ><4SPACE >SIRALAMA PRİNT 5 SOFF ><4SPACE OUTPUT PRİNT & SOFF ><4SPACE >DOSYALAMA-SON GOSUB 452:1F 56 IF T$-"2"GOTO 118 IF T$&z*3"GOTO 208 IF 312 IF T$-"5"GOTO 324 IF da 468 GOÖSÜB 456:PRINT "<2RİGHT><RYSON)B 1 LG IR ISI PRİNT 1 <RV SOFF 2 <RVSOFF ><2S PACE EKLEME” :PRİNT <RYSON> 3 <RVSOFF GOSUB 452:1F T$&z"2" THEN FOR 1 TO "<CLR>":60T0 78 IF 28 IF T$<>"1”GOTO 68 IF SA>AGOTO 56 GOÖSÜUB 440:PRINT "<CLR><4DOLİN)<3SPAC E>CİKİS İCİN İSİM YERİNE <RYSON>RTN

<RVSOFF > FOR TO 188 GOSUB 440:PRINT IS$CSA)-"" THEN A-1:GOSUB 56 GOSÜB 440:PRINT SAŞSINPUT . THEN PRİN T 74 GOSUB 440:PRINT SA::INPUT "EY ADRES II THEN PRİN T 76 GÖSÜUB 440:PRINT "İS ADRES I THEN SAYS" GOSUB 440:PRINT INPUT "EV THEN PRİN T Sü GOSUB 440:PRINT “15 THEN

, İF THE N PRİNT KISALT" 1:GOSUB 452 IF THEN PRİNT "<CLR> EV ADRESİNİ 458 IF LENCA2$C1))>44 THEN PRİNT "<CLR> IS ADRESİNİ KİSALT":PPs1:GOSUB 452 İF LENCTİSC1))>13 THEN PRİNT "<CLR) EV TEL'İ 452 İF LENCT2$C1))>13 THEN PRİNT "<CLR)> 18 TEL'İ KISALT":PPsi:GOSUB 452 İF THEN PPsa RETURN GOSUB 456:PRİNT A T UZ EL PRİNT 1 <RVSOFF SPACE>DİSKETİ <RVSOFF ><3SPAC E>HAFIZAYI. DÜZELTME PRİNT 3 SOFF "<2D 4 <RVSOFF ><3SPA 45211F TH

RESTORE:FOR TO S:READ A:POKE 63 #POKE 198,6:END PRİNT "<CLROLIİSTEYİ İNCELEYİN HATA NOSUNU TESBİT EDİP İ<RYSOFF >E BASIN":GOSUÜUB 452 FOR TO SA â PRİNT

“TA PRİNT "TABCİ7)S PRİNT "<DOWN>"İ"EV ADRESİ PRİNT ADRESİ | PRİNT "<DOWN>"İ”"EV TEL... PRİNT TEL... "TABCİ7)T PRİNT

"<EDOLİN>HATALI İSE RYSOFF 452 : IF T$<>"<Fİ>" THEN NEXT PRİNT “<HOME 7S INPUT PRİNT SO$CI) PRİNT ALSLCI) PRİNT PRİNT TİSCI) PRINT