Bu sayfadaki yazılar
Sayfanın metni
Sayfa 7
PRİNT#4 NTH4 , POSİTİON INPUTAH8,DNE IF THEN PRİNTH4,Pa$ 788 FOR TO POSİTİON IF OR * IF AND THEN AND THEN OR THEN J5J*1 IF THEN * ; GOSUB RINTH4 CLOSE &:PAUSE 1:GOSUB SE 15:PRİNT#4:CLOSE 4:60T0 620 REM IF THEN CENTRE SE 2:60T0 7aa CENTRE ATCA,12)PES:FOR TO RN-İ: TO 5 PRİNTH4,NNSCI,J):GOSUB 795:NEKT :PR CLOSE 15:PRİNT#4:CLOSE REM kkk PRİNTH4:CLOSE 4:CLOSE LOOP RLOCMOB GET C$:1F THEN CLOSE 8:CLOSE 4:6G0TO GZ20:ELSE:R ETURN REM REM REM . PRİNT "<CLR>":CENTRE L IF THEN CENTRE SE PRİNT TA IF THEN PRİNT ICİ N 198,1:POK E
UNTIİL "<DOLUN>HEPSİ BU KA DAR.":POKE 198,1İ:POKE 19 8,8 CALL MATNLOOP REM REM *4#YENİ DOSYA REM PRİNT "<CLR>":CENTRE D
OSYA ACMA”"SINY CENTRE ACILIYOR...": OPEN FOR TO 8 , LL, 4) COLOUR I,G:CENTRE NO CENTRE ADI: RE STATUS: PRIİINT#8,2:CLOSE 8SiPAUSE İ:NEXT CLOSE 15:CALL
IF "KAYIT ETTIİGİNİZ ADRESLER SAVE EDİL CENTRE EDEYİM MI? <(E/ GET C$t:1F. C$z""GOTO C$z "E" THEN DISK "I":CENTRE GOR USMEK 10:END REM PROC LOAD REM PRİNT D2$;:FETCH ><LEFT >" IF RNsAGOT0O 968 FOR TO O)):1F :GOT 0 8968 FOR TO PzliP$z"M":60T0O 1048 ÖPEN 15,8,15:0PEN POSİTİON IF FOR TO DN-İ:EXEC IF <>AGOTO 990:ELSE:NEKT :GOT0 FOR Isi TO POSİTİC N 1048 CENTRE ISTEDİGİNİZ KAYIT BULUNAMADI! " CENTRE KAYIT ARAYACA KMISINIZ? <EZH)” CLOSE 15:ENO PROC REM PROC SAVE REM IF DFGOTO POSITION POSİTİON FOR TO N PROC
END PROC REM PROC DATA SHEET REM I-8 TO "BS" 1-3 THEN PLSzPLS4*"<
Klavyeyle gezinmek için ← ve → tuşları.
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