Sayfa 9

RETURN PRİNT ATC1,S)BSIPRINT

102 IF Oks, THEN PRİNT

PRİNT AT(1,5)"<CTRL -3) İNDEX KAYIT EDİLMEMİSİ..<CTRL-2 2:60T0 188 FR<. THEN IF FR<S OR MR2499 THEN o 113 PRINT HAFIZA YOKİ<CTRL-A)"1GOSUB 189 TO 18 & TEP PRİNT İsi TO 2>"1NEXT PRİNT VE SOYADI FETCH ”<HOME>. ",2O,ALSIIF THEN İLME. MOS THEN IF AND THEN 1823 IF AND THEN 123 IF THEN 117 117 PRİNT DOSY ADA 118 FOR IsMR TO STEP : MSs. THEN 80 ÖPEN 5,8,5,“YF*/INDEK 141 CLOSE NiGOTO 128 MT-MT* PRİNT ATCİ,S)PLS”<CTRL-3)TELEFON NU MAPASI VE ADRESİ GİRİNİZ<CTRL-E)”

10 İZSIPRİNT VE SOY ADI PRİNT ETCH "<HOME). T HEN 109:ELSE:GOTO 508 THEN RETURN IF IF AND AİSCINE<LM) AND THEN IF THEN iRETURN IF THEN 502 502 FLe4 HEN SO9tELSE:GOTO PRİNT KI SININ KAYDI 8 :6GOTO 509 GOSUB 15,8,1510PEN 5,8,5,"Y F*/DATAF İLE" 148 INPU , GOSUB 141CLÜSE Si€LOSE T