10MODE7:TIME=0:VDU23;8202;0;0;0;23;8,
144,0;0;0;23;9,9,0;0;0;29;10,&69,0;0;0;2
3;11,9,0;0;0;:PROCinfo:PROCmenu:END
20DEFPROCmenu:VDU26:CLS:OSCLI"FX15,0"
:*FX21,0
30PROCtitle:ch=0:
40IFH=50 H=51
50PRINTTAB(0,0);
60VDU132,157,141:PRINT" 1 ";CHR$(15
6)"creste dsts":VDU132,157,141:PRINT" 1
";CHR$(156)"CreAte dAtA"
70VDU132,157,141:PRINT" 2 ";CHR$(15
6)"sesrch for dsts by nsme":VDU132,157,1
41:PRINT" 2 ";CHR$(156)"seArCh fOr dAt
A by nAme"
80VDU132,157,141:PRINT" 3 ";CHR$(15
6)"sesrch for sddress":VDU132,157,141:PR
INT" 3 ";CHR$(156)"seArCh fOr Address"
90VDU132,157,141:PRINT" 4 ";CHR$(15
6)"sesrch for dste of birth":VDU132,157,
141:PRINT" 4 ";CHR$(156)"seArCh fOr dA
te Of birth"
100VDU132,157,141:PRINT" 5 ";CHR$(15
6)"chsnge sex":VDU132,157,141:PRINT" 5
";CHR$(156)"ChAnge sex"
110VDU132,157,141:PRINT" 6 ";CHR$(15
6)"chsnge telephone number":VDU132,157,1
41:PRINT" 6 ";CHR$(156)"ChAnge telephO
ne nUMber"
120VDU132,157,141:PRINT" 7 ";CHR$(15
6)"look st dsts":VDU132,157,141:PRINT" 7
";CHR$(156)"lOOk At dAtA"
130VDU132,157,141:PRINT" 8 ";CHR$(15
6)"ssve dsts":VDU132,157,141:PRINT" 8
";CHR$(156)"sAVe dAtA"
140VDU132,157,141:PRINT" 9 ";CHR$(15
6)"losd dsts":VDU132,157,141:PRINT" 9
";CHR$(156)"lOAd dAtA"
150VDU132,157,141:PRINT" A ";CHR$(15
6)"ststus":VDU132,157,141:PRINT" A ";C
HR$(156)"stAtus"
160A$=INKEY$(1)
170IF A$="1" OR A$="!" PROCcreate ELSE
IF A$="9" OR A$=")" PROCload ELSE IF A$
="A" OR A$="a" PROCstatus ELSE IF A$="*"
OR A$=":" PROCsystem ELSE IF A$<>"" AND
check1=0 GOTO50
180 IF A$="2" OR A$=CHR$(34) PROCname
ELSE IF A$="3" OR A$="#" PROCaddress ELS
E IF A$="4" OR A$="$" PROCdob ELSE IF A$
="5" OR A$="%" PROCsex ELSE IF A$="6" OR
A$="&" PROCtel
190IF A$="7" OR A$="'" PROClook ELSE I
F A$="8" OR A$="(" PROCsave
200IF A$="8" OR A$="(" PROCsave
210GOTO50:ENDPROC
220DEFPROCinfo:PROCvar:printer=0:filen
ame$="NO FILENAME":max=50:max1=300:H=1:D
IM nm(max1),st$(max1),town$(max1),countr
y$(max1),name$(max1),DOB$(max1),SEX$(max
1),TEL$(max1):check=0:check1=0:ENDPROC
230DEFPROCcreate:check1=1:CLS:IF H>=ma
x PRINTTAB(0,3);:VDU132,157:PRINT" SORRY
,SAVE THE CURRENT DATA AND":VDU132,157:P
RINT" WIPE THE MEMORY":GT$=GET$:VDU26:CL
S:PROCmenu:ENDPROC
240VDU132,157,141:PRINT" creste new sd
dress ";CHR$(156):VDU132,157,141:PRINT
" creAte new Address ";CHR$(156):VDU28
,0,24,39,7
250PRINTTAB(10);:VDU132,157:PRINT" ADD
RESS No.";H''" ADDRESS"'"
260INPUTLINE" HOUSE NUMBER : "nm(H)
:IF nm(H)=0 AND nm(H)=VAL(CHR$(13)) VDU1
1:GOTO 260
270INPUTLINE" STREET NAME : "st$(H
):IF st$(H)="" VDU11:GOTO270
280PRINT" TOWN NAME":INPUTLINE" (INCLU
DE COUNTY): "town$(H):IF town$(H)="" VDU
11:VDU11:GOTO280
290INPUTLINE" COUNTRY : "count
ry$(H):IF country$(H)="" VDU11:GOTO 290
300PRINT'" NAME"'"
310INPUTLINE" NAME OF OCCUPIER: "name$
(H):IF name$(H)="" VDU11:GOTO310
320INPUTLINE" DATE OF BIRTH : "DOB$(
H):IF DOB$(H)=""VDU11:GOTO320
330INPUTLINE" SEX (M/F) : "SEX$(
H):IF SEX$(H)="" VDU11:GOTO 330
340IF SEX$(H)="M" OR SEX$(H)="m" SEX$(
H)="MALE" ELSE IF SEX$(H)="F" OR SEX$(H)
="f" SEX$(H)="FEMALE"
350 INPUTLINE" TELEPHONE No. : "TEL$
(H):IF TEL$(H)="" VDU11:GOTO 350
360 PROCline2(7):PRINT" PRESS R TO RET
URN TO THE MENU OR "'" PRESS ANY KEY TO
CARRY ON...":G$=GET$
370 IF H=max CLS:PROCmenu:ENDPROC
380 H=H+1:IF G$="R" OR G$="r" CLS:PROC
menu:ENDPROC
390 CLS:GOTO 250:ENDPROC
400DEFPROClook:CLS:Z=1
410VDU132,157,141:PRINT" looking st ds
ts ";CHR$(156):VDU132,157,141:PRINT" l
OOkiNg At dAtA ";CHR$(156):VDU28,0,24,
39,5
420 PROCfoundit(Z):PRINT" FOR MAIN MEN
U PRESS R OR PRESS ANY":PRINT" KEY TO CO
NTINUE";:GT$=GET$
430IF GT$="R" OR GT$="r" OR Z=H-1 VDU2
6:CLS:PROCmenu:ENDPROC
440Z=Z+1:CLS:GOTO420
450DEFPROCline:PRINT"
,,,,,,,,,,,,,,,,,,,,,,":ENDPROC
460DEFPROCname:CLS
470VDU132,157,141:PRINT" sesrching for
file ";CHR$(156):VDU132,157,141:PRINT
" SeArching for file ";CHR$(156):VDU28
,0,24,39,6
480PRINT" NAME (SEARCHING FOR) : ";:IN
PUT""name1$
490 T=1
500 IF name$(T)=name1$ check=1:PROCfou
ndit(T):PROCnameit
510 IF T=H GOTO 530
520 T=T+1:GOTO500
530PROCline:PRINT" CAN'T FIND IT..SORR
Y!!":PROCline:GT$=GET$:VDU26:CLS:PROCmen
u:ENDPROC
540DEFPROCaddress:CLS
550VDU132,157,141:PRINT" sesrching for
sddress ";CHR$(156):VDU132,157,141:PR
INT" SeArching for Address ";CHR$(156)
:VDU28,0,24,39,6
560PRINT" WHICH ADDRESS FILE DO YOU WI
SH TO ":PRINT"
££££££££"'" CHANGE ?"'" INPUT
>>> "number
570IF number>H-1 CLS:GOTO 560
580CLS:PRINT'" ADDRESS"'"
590INPUTLINE" HOUSE NUMBER : "nm(nu
mber):INPUTLINE" STREET NAME : "st$(
number):INPUTLINE" TOWN NAME : "to
wn$(number):INPUTLINE" COUNTRY :
"country$(number):VDU26:CLS:PROCmenu:EN
DPROC
600DEFPROCdob:CLS
610VDU132,157,141:PRINT" sesrching for
dste of birth ";CHR$(156):VDU132,1S7,
141:PRINT" SeArching for date of birth
";CHR$(156):VDU28,0,24,39,6
620PRINT" WHICH ADDRESS FILE DO YOU WI
SH TO ":PRINT"
££££££££"'" CHANGE ?"'" INPUT
>>> "number
630IF number>H-1 CLS:GOTO 620
640CLS:PRINT'" OLD DATE OF BIRTH : ";D
OB$(number):PROCline:PRINT" NEW DATE OF
BIRTH : ";:INPUT""DOB$(number)
650VDU26:CLS:PROCmenu:ENDPROC
660DEFPROCsex:CLS
670VDU132,157,141:PRINT" chsnging sex
";CHR$(156):VDU132,157,141:PRINT" ChAN
giNg sex ";CHR$(156):VDU28,0,24,39,6
680PRINT" WHICH ADDRESS FILE DO YOU WI
SH TO ":PRINT"
££££££££"'" CHANGE ?"'" INPUT
>>> "number
690IF number>H-1 CLS:GOTO 680
700CLS:PRINT'" OLD SEX : ";SEX$(number
):PROCline:PRINT" NEW SEX : ";:INPUT""SE
X$(number):VDU26:CLS:PROCmenu:ENDPROC
710DEFPROCtel:CLS
720VDU132,157,141:PRINT" chsnge teleph
one number ";CHR$(156):VDU132,157,141:
PRINT" ChANge telephONe NuMber ";CHR$(
156):VDU28,0,24,39,6
730PRINT" WHICH ADDRESS FILE DO YOU WI
SH TO ":PRINT"
££££££££"'" CHANGE ?"'" INPUT
>>> "number
740IF number>H-1 CLS:GOTO 730
750CLS:PRINT'" OLD TELEPHONE No.: ";TE
L$(number):PROCline:PRINT" NEW TELEPHONE
No.: ";:INPUT""TEL$(number):VDU26:CLS:P
ROCmenu:ENDPROC
760 DEFPROCfoundit(T):CLS
770IF check=1 PRINT" FOUND ";name$(T):
GOTO790
780PRINTTAB(10);CHR$(132);CHR$(157)" A
DDRESS FILE : ";T
790PRINT" HOUSE NUMBER ";nm(T):PROClin
e:PRINT" STREET NUMBER ";st$(T):PROCline
:PRINT" TOWN NAME ";town$(T):PROCline:PR
INT" COUNTRY ";country$(T):PROCline
800PRINT" OCCUPIER'S NAME ";name$(T):P
ROCline:PRINT" DATE OF BIRTH ";DOB$(T):P
ROCline:PRINT" SEX (MALE = M FEMALE = F
) ";SEX$(T):PROCline:PRINT" TELEPHONE No
. ";TEL$(T):PROCline:ENDPROC
810DEFPROCsave:CLS
820PRINT" UNDER WHAT FILENAME SHOULD T
HE DATA"'" BE STORED UNDER ?":PROCline:I
NPUT" >>> "filename$
830IF LEN(filename$)>7 PROCline:PRINT"
NAME OF FILE IS TOO LONG !!":PROCline:G
T$=GET$:CLS:GOTO 820
840 CH%=OPENOUT(filename$)
850 FOR T=1 TO max
860 PRINT#CH%,nm(T),st$(T),town$(T),co
untry$(T),name$(T),DOB$(T),SEX$(T),TEL$(
T)
870NEXT
880 PRINT#CH%,check,check1,filename$,m
ax1,max,H,printer
890CLOSE#0
900PROCline:PRINT" THE FILE ";filename
$;" HAS BEEN SAVED":PROCline:GT$=GET$:VD
U26:CLS:PROCmenu:ENDPROC
910DEFPROCload:CLS
920VDU132,157,141:PRINT" loading optio
n ";CHR$(156):VDU132,157,141:PRINT" lO
AdiNg OptiON ";CHR$(156):VDU28,0,24,39
,6
930PROCline:PRINT" UNDER WHAT FILENAME
IS THE DATA"'" SAVED UNDER ?":PROCline:
INPUT" >>> "filename$
940IF LEN(filename$)>7 PROCline:PRINT"
NAME OF FILE IS TOO LONG !!":PROCline:G
T$=GET$:CLS:GOTO 930
950 CH%=OPENIN(filename$)
960 FOR T=1 TO max
970INPUT#CH%,nm(T),st$(T),town$(T),cou
ntry$(T),name$(T),DOB$(T),SEX$(T),TEL$(T
)
980 NEXT
990 INPUT#CH%,check,check1,filename$,m
ax1,max,H,printer
1000CLOSE#0
1010PROCline:PRINT" THE FILE ";filename
$;" HAS BEEN LOADED":PROCline:GT$=GET$:V
DU26:CLS:PROCmenu:ENDPROC
1020DEFPROCline2(X):PRINTCHR$(144+X)",,
,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,":END
PROC
1030DEFPROCnameit:PROCline:INPUTLINE" E
NTER NEW NAME :"name$(T):VDU26:CLS:PROCm
enu:ENDPROC
1040DEFPROCstatus:CLS
1050PROCtime
1060PRINT"
/////////":VDU132,157:PRINT" NO.OF ADDRE
SSES CREATED : ";H-1;TAB(36);CHR$(156)
1070PRINT"
/////////":VDU132,157:PRINT" MAXIMUM NUM
BER OF ADDRESSES : ";max;TAB(36);CHR$(15
6)
1080PRINT"
/////////":VDU132,157:PRINT" FILENAME IN
MEMORY : ";filename$;TAB(36);CHR$(156)
1090PRINT"
/////////":VDU132,157:PRINT" ON MENU PRE
SS * TO ENTER OPERATING";TAB(36);CHR$(15
6):VDU132,157:PRINT" SYSTEM";TAB(36);CHR
$(156)
1100PRINT"
/////////":VDU132,157:PRINT" *TELEPHONE
: PRINTS OUT ALL ";TAB(36);CHR$(156):VDU
132,157:PRINT" TELEPHONE No
.'s ";TAB(36);CHR$(156)
1110PRINT"
/////////":VDU132,157:PRINT" *PRINT : SE
NDS DATA TO PRINTER";TAB(36);CHR$(156)
1120VDU132,157:IF printer=0 PRINTTAB(9)
" PRINTER IS OFF";TAB(36);CHR$(156) ELSE
IF printer=1 PRINTTAB(9)" PRINTER IS ON
";TAB(36);CHR$(156)
1130PRINT"
/////////":VDU132,157:PRINT" *CLR : CLEA
R ALL DATA";TAB(36);CHR$(156):VDU132,157
:PRINT" *MAX : CHANGE NUMBER OF DATA FIL
ES";TAB(36);CHR$(156)
1140IFch=1 GT$=GET$:VDU26:CLS:PROCtitle
:ENDPROC
1150GT$=INKEY$(1)
1160IFGT$<>"" VDU26:CLS:PROCmenu:ENDPRO
C ELSE GOTO1050
1170DEFPROCsystem:CLS
1180VDU129,157:PRINT" TYPE *HELP FOR IN
FORMATION";TAB(36);CHR$(156)
1190VDU28,0,23,39,7
1200INPUT"*"cmd$
1210IF cmd$="RETURN" OR cmd$="return" V
DU26:CLS:PROCmenu:ENDPROC ELSE IF cmd$="
TELEPHONE" OR cmd$="telephone"PROCtel2 E
LSE IF cmd$="help" OR cmd$="HELP" PROChe
lp ELSE IF cmd$="status" OR cmd$="STATUS
" ch=1:PROCstatus:GOTO1200
1220IF cmd$="PON" OR cmd$="pon" printer
=1:PRINT" PRINTER CONNECTED":GOTO1200 EL
SE IF cmd$="POFF" OR cmd$="poff" printer
=0:PRINT" PRINTER OFF":GOTO1200
1230IF cmd$="BYE" OR cmd$="bye" PROCbye
ELSE IF cmd$="TIME" OR cmd$="time" CLS:
PROCwait ELSE IF cmd$="print" OR cmd$="P
RINT" PROCprint:GOTO1200
1240IF cmd$="MAX" OR cmd$="max" PROCmax
:GOTO1200 ELSE IF cmd$="CLR" OR cmd$="cl
r" PROCclear:GOTO1200
1250ONERRORPRINT"BAD COMMAND.PLEASE TRY
AGAIN.":GOTO1200
1260OSCLI(cmd$)
1270 GOTO 1200:ENDPROC
1280DEFPROChelp:PROCline2(1):PRINT" *RE
TURN,*TELEPHONE,*STATUS,*PRINT":PRINT" *
PON,*POFF,*TIME,*BYE,*MAX,*CLR":PROCline
2(1):ENDPROC
1290DEFPROCtel2:VDU26:CLS:PROCtitle:J=1
:VDU14
1300IFname$(1)="" PROCline2(5):PRINT" S
ORRY,THERE IS NO DATA.":PROCline2(5):GT$
=GET$:VDU26:CLS:PROCmenu:ENDPROC
1310PRINT" NAME TELEPHONE N
UMBER":PROCline2(2)
1320PRINTTAB(0)" ";name$(J);TAB(18);TEL
$(J)
1330 IF J MOD 15=0 PROCline2(2):PRINT"
PRESS ANY KEY TO CONTINUE":J=J+1:GT$=GET
$:CLS:GOTO 1310
1340 IF J=H PROCline2(2):PRINT" PRESS A
NY KEY TO CONTINUE":GT$=GET$:VDU26:CLS:P
ROCmenu::ENDPROC
1350J=J+1:GOTO1320:ENDPROC
1360DEFPROCtitle:VDU132,157,141:PRINT"
address book by s.s.shskoor '91 ";CHR$
(156);:PRINT::VDU132,157,141:PRINT" ADDr
ESS BOOK by A.S.ShAkOOr '91 ";CHR$(156
):PRINT"
££££££":VDU28,0,24,39,3:ENDPROC
1370DEFPROCvar:SEC=(TIME DIV 100)MOD 60
:MIN=(TIME DIV 6000)MOD 60:HR=(TIME DIV
360000)MOD 24:ENDPROC
1380DEFPROCprint:CLS:IF printer=0 CLS:P
RINT"PRINTER CONNECTION OFF":ENDPROC
1390CLS:PRINTTAB(0,3)"PRINTING ALL DATA
.. >":vb=1
1400VDU2,1,27,1,120,1,0,1,27,1,77,1,27,
1,69,1,27,1,87,1,1
1410PRINTSTRING$(39,"-")
1420PRINT"NAME : "name$(vb)'"SEX..";SEX
$(vb)'"DATE/BIRTH : ";DOB$(vb)'"TELEPHON
E No. : ";TEL$(vb)''"ADDRESS"'"HOUSE NUM
BER : ";nm(vb)'"STREET : ";st$(vb)'"TOWN
: ";town$(vb)'"COUNTRY : ";country$(vb)
:PRINTSTRING$(39,"-")
1430 IF vb=H VDU3:PRINT" FINISHED SENDI
NG DATA TO PRINTER..":GT$=GET$:VDU26:CLS
:PROCmenu:ENDPROC
1440DEFPROCtime:PROCvar:PRINTTAB(0,0)"
ppppppppppppppppppppppppppppppppppppp":V
DU129,157:PRINT" ADDRESS BOOK has been r
unning for";TAB(36);CHR$(156):VDU129,157
:PRINT" ";HR;" HOURS ";MIN;" MINUTES ";S
EC;" SECONDS";TAB(36);CHR$(156):ENDPROC
1450DEFPROCwait
1460PROCtime:LA$=INKEY$(1):IF LA$<>"" C
LS:GOTO1200:ENDPROC ELSE GOTO 1460:ENDPR
OC
1470DEFPROCbye:CLS:PRINT" THANK YOU FOR
USING ADDRESS BOOK,"'" CREATED BY A.SAT
TAR.SHAKOOR":OSCLI("BASIC"):END:ENDPROC
1480DEFPROCmax:VDU26:CLS:PROCtitle
1490VDU132,157:PRINT" MAXIMUM NUMBER OF
DATA FILES IN";TAB(36);CHR$(156):VDU132
,157:PRINT" CURRENT file is ";max;TAB(36
);CHR$(156)
1500PROCline2(4):VDU132,157:PRINT" MAXI
MUM NUMBER OF DATA FILES";TAB(36);CHR$(1
56):VDU132,157:PRINT" ALLOWED is ";max1;
TAB(36);CHR$(156)
1510PROCline2(4):VDU132,157:PRINT" NEW
NUMBER OF DATA FILES :";TAB(36);CHR$(156
):VDU8,8,8,8,8,8,8,8,8,8:INPUT""max2
1520IF max2>max1 OR max2<=0 CLS:GOTO149
0
1530max=max2:PROCline2(4):VDU132,157:PR
INT" PRESS ANY KEY TO CONTINUE":GT$=GET$
:VDU26:CLS:PROCmenu:ENDPROC
1540DEFPROCclear:PROCline2(4):VDU132,15
7:PRINT" DO YOU WISH TO DELETE ALL THE D
ATA ";TAB(36);CHR$(156):VDU132,157:PRINT
" IN THE COMPUTER'S MEMORY (Y/N) ?";TAB(
36);CHR$(156):VDU8:GT$=GET$
1550IF GT$="Y" OR GT$="y" PRINT:PROClin
e2(4):VDU132,157:PRINT" PLEASE WAIT...";
TAB(36);CHR$(156):PROCdelete:PROCline2(4
):VDU132,157:PRINT" FINISHED DELETING.PR
ESS ANY KEY";TAB(36);CHR$(156):check1=0:
GT$=GET$:VDU26:CLS:PROCmenu:ENDPROC
1560VDU26:CLS:PROCmenu:ENDPROC
1570DEFPROCdelete:FOR I=1 TO 300:nm(I)=
0:st$(I)="":town$(I)="":country$(I)="":n
ame$(I)="":DOB$(I)="":SEX$(I)="":TEL$(I)
="":NEXT:ENDPROC