Sayfa 6

ASLAIIFOR Isi TO 4 CENTRE 15:60TO 277 CENTRE KOMUTU VERİN :DISK K$:GOT0 269 POKE 198,1:POKE TO 2639

CALL REM REM **ADRES REM PRİNT

IF RNs31 THEN CENTRE ADA YER 8:CALL MAT NLOOP

IF THEN THEN PRİNT CENTRE DEVAMLESPACE><M) MENU"

GET C$:1F C$<>"C" AND AND C $<>"M"GOTO 345:ELSE:RİNERN-CCS< IF C$z"M" THEN CALL MATNLOOP GOTO 238 REM REM **ADRES A REM PRİNT "<CLR>":CENTRE

ARAMA" INY LORD IF UNTIL

IF C$z"E"GOTO 270:ELSE:CALL MATNLO Or PRINT DATA SH

CENTRE. PRİNT<ESPACE><M > MENU" GET C$:1F

AND C$<>"M"GOTO 4 THEN HROCPY

CALL MATNLOOP REM REM REM "<CLR>”:CENTRE

IF C$: UNTIİL â50:ELSE:CALL MARİINLÜ Op PRİNT "<HOME><2DONN>":EXEC DATA SH EET

AT<LENCOFSCİ))4*2,V Iz6 CENTRE MENU"

C$z”"E"GOTO MATNLOOP FOR: Isi

REM REM **VERİ REM S$-" "<CLR>":CENTRE

VERİ SAKLAMA"SINY A,A,dA,İ IF RNzO THEN CENTRE SE SiCALL MATİNLOOP OPEN ATLA, 1) IF THEN CLOSE 8,8,8, NS: IF A>28 THEN CEMNTRE H ATASI! KAYIT YAPILAMADI." RCOMP :CENTRE KE 198,1:POKE Bad FOR TO EXEC€- SAVE

CLOSE 8:CLOSE 15:CALL MATNLOOP REM REM REM PRİNT

R":INV A,0,40,1 DOSYANIN YAZDIRILMASI":N $(3)-"TELEFON FIHRISTI HAZIRLAMA" " DOSYALARIN YAZDIRILMAS SCREEN OPEN 4,4:0PEN 15,8,15:0N JGOT0O 668, 655,740,785,793 REM xxx CENTRE 6 85 REM PRİNT DOSYAYI FETCH FOR TO Z:OPEN POSİTİON IF DNz2 THEN TO 730:ELSE:FOR TO

POSİTİON T I:PRİNTH4:NEXT MX CLOSE 1:NEXT J:CLOSE 4:60T0O 620 REM xxx : CENTRE PEN