10*KEY0 11|MSHAKOOR HOUSE|MHAZELBROUC
K GARDENS|MHAINAULT,ILFORD|MESSEX|MENGLA
ND|MIG6 2XN|MABDUS SATTAR|MSHAKOOR|M27/3
/74|MM|M081-500 8333
20MODE7: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 :/3
/74
30DEFPROCmenu:VDU26:CLS:OSCLI"FX15,0"
:*FX21,0
40PROCtitle:ch=0::IFH=50 H=51
50PRINTTAB(0,0);:VDU132,157,141:PRINT
" 1 ";CHR$(156)"creste dsts":VDU132,15
7,141:PRINT" 1 ";CHR$(156)"CreAte dAtA
":VDU132,157,141:PRINT" 2 ";CHR$(156)"
chsnge first nsme(s)":VDU132,157,141:PRI
NT" 2 ";CHR$(156)"ChAnge first nAMe(s)
"
60VDU132,157,141:PRINT" 3 ";CHR$(15
6)"chsnge surnsme":VDU132,157,141:PRINT"
3 ";CHR$(156)"ChAnge surnAMe":VDU132,
157,141:PRINT" 4 ";CHR$(156)"chsnge ds
te of birth":VDU132,157,141:PRINT" 4 "
;CHR$(156)"ChAnge dAte Of birth"
70VDU132,157,141:PRINT" 5 ";CHR$(15
6)"chsnge sex":VDU132,157,141:PRINT" 5
";CHR$(156)"ChAnge sex":VDU132,157,141:
PRINT" 6 ";CHR$(156)"chsnge telephone
number":VDU132,157,141:PRINT" 6 ";CHR$
(156)"ChAnge telephOne nUMber"
80VDU132,157,141:PRINT" 7 ";CHR$(15
6)"look st dsts":VDU132,157,141:PRINT" 7
";CHR$(156)"lOOk At dAtA":VDU132,157,
141:PRINT" 8 ";CHR$(156)"ssve dsts":VD
U132,157,141:PRINT" 8 ";CHR$(156)"sAVe
dAtA":VDU132,157,141:PRINT" 9 ";CHR$(
156)"losd dsts":VDU132,157,141:PRINT" 9
";CHR$(156)"lOAd dAtA"
90VDU132,157,141:PRINT" A ";CHR$(15
6)"next page":VDU132,157,141:PRINT" A
";CHR$(156)"next page"
100A$=GET$:IF A$="1" OR A$="!" PROCcre
ate ELSE IF A$="9" OR A$=")" PROCload EL
SE IF A$="A" OR A$="a" CLS:GOTO 150 ELSE
IF A$="*" OR A$=":" PROCsystem ELSE IF
A$<>"" AND check1=0 GOTO50
110 IF A$="2" OR A$=CHR$(34) PROCname
ELSE IF A$="3" OR A$="#" PROCsurname ELS
E IF A$="4" OR A$="$" PROCdob ELSE IF A$
="5" OR A$="%" PROCsex ELSE IF A$="6" OR
A$="&" PROCtel
120IF A$="7" OR A$="'" PROClook ELSE I
F A$="8" OR A$="(" PROCsave
130IF A$="8" OR A$="(" PROCsave
140GOTO100:ENDPROC
150VDU132,157,141:PRINT" B ";CHR$(15
6)"ststus":VDU132,157,141:PRINT" B ";C
HR$(156)"stAtus" :VDU132,157,141:PRINT"
C ";CHR$(156)"chsnge house nsme":VDU13
2,157,141:PRINT" C ";CHR$(156)"ChAnge
hOUse nAMe"
160VDU132,157,141:PRINT" D ";CHR$(15
6)"chsnge house number":VDU132,157,141:P
RINT" D ";CHR$(156)"ChAnge hOUse nUMbe
r":VDU132,157,141:PRINT" E ";CHR$(156)
"chsnge street nsme":VDU132,157,141:PRIN
T" E ";CHR$(156)"ChAnge street nAMe"
170VDU132,157,141:PRINT" F ";CHR$(15
6)"chsnge town nsme":VDU132,157,141:PRIN
T" F ";CHR$(156)"ChAnge tOwn nAMe":VDU
132,157,141:PRINT" G ";CHR$(156)"chsng
e county":VDU132,157,141:PRINT" G ";CH
R$(156)"ChAnge COUnty"
180VDU132,157,141:PRINT" H ";CHR$(15
6)"chsnge country":VDU132,157,141:PRINT"
H ";CHR$(156)"ChAnge COUntry":VDU132,
157,141:PRINT" I ";CHR$(156)"chsnge po
st code":VDU132,157,141:PRINT" I ";CHR
$(156)"ChAnge pOst COde"
190VDU132,157,141:PRINT" J ";CHR$(15
6)"first psge":VDU132,157,141:PRINT" J
";CHR$(156)"first pAge"
200 A$=GET$:IF A$="B" OR A$="b" PROCst
atus ELSE IF A$="j" OR A$="J" CLS:GOTO50
210 IFA$="*" OR A$=":" PROCsystem
220IFcheck1=0 GOTO200
230IFA$="C" OR A$="c" PROChname ELSE I
F A$="D" OR A$="d" PROChousenm ELSE IF A
$="E" OR A$="e" PROCstreet ELSE IF A$="F
" OR A$="f" PROCtown ELSE IF A$="G" OR A
$="g" PROCcounty
240IF A$="h" OR A$="H" PROCcountry ELS
E IF A$="i" OR A$="I" PROCpcode
250 GOTO 200
260DEFPROCinfo:PROCvar:printer=0:filen
ame$="NO FILENAME":max=50:max1=50:H=1:DI
M p%256,hn$(max1),surnm$(max1),cn$(max1)
,pc$(max1),nm(max1),st$(max1),town$(max1
),country$(max1),name$(max1),DOB$(max1),
SEX$(max1),TEL$(max1):check=0:check1=0:E
NDPROC
270DEFPROCcreate: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
280VDU132,157,141:PRINT" creste new sd
dress ";CHR$(156):VDU132,157,141:PRINT
" creAte new Address ";CHR$(156):VDU28
,0,24,39,7
290PRINTTAB(10);:VDU132,157:PRINT" ADD
RESS No.";H''" ADDRESS"'"
300INPUTLINE" HOUSE NUMBER: "nm(H):IF
nm(H)=0 AND nm(H)=VAL(CHR$(13)) VDU11:GO
TO 300
310INPUTLINE" HOUSE NAME : "hn$(H):IF
hn$(H)="" VDU11:GOTO 310
320 hn$(H)=FNcap(hn$(H))
330INPUTLINE" STREET NAME : "st$(H):IF
st$(H)="" VDU11:GOTO330
340 st$(H)=FNcap(st$(H))
350INPUTLINE" TOWN NAME : "town$(H):
IF town$(H)="" VDU11:GOTO350
360town$(H)=FNcap(town$(H))
370INPUTLINE" COUNTY : "cn$(H):IF
cn$(H)="" VDU11:GOTO370
380cn$(H)=FNcap(cn$(H))
390INPUTLINE" COUNTRY : "country$(
H):IF country$(H)="" VDU11:GOTO 390
400country$(H)=FNcap(country$(H))
410INPUTLINE" POST CODE : "pc$(H):IF
pc$(H)="" VDU11:GOTO 410
420pc$(H)=FNcap(pc$(H)):PRINT'" NAME"'
"
430INPUTLINE" FIRST NAME(s) : "name$(H
):IF name$(H)="" VDU11:GOTO430
440name$(H)=FNcap(name$(H))
450INPUTLINE" SURNAME : "surnm$(
H):IF surnm$(H)="" VDU11:GOTO450
460surnm$(H)=FNcap(surnm$(H))
470INPUTLINE" DATE OF BIRTH : "DOB$(
H):IF DOB$(H)=""VDU11:GOTO470
480DOB$(H)=FNcap(DOB$(H))
490INPUTLINE" SEX (M/F) : "SEX$(
H):IF SEX$(H)="" VDU11:GOTO 490
500SEX$(H)=FNcap(SEX$(H)):IF SEX$(H)="
M" OR SEX$(H)="m" SEX$(H)="MALE" ELSE IF
SEX$(H)="F" OR SEX$(H)="f" SEX$(H)="FEM
ALE"
510 INPUTLINE" TELEPHONE No. : "TEL$
(H):IF TEL$(H)="" VDU11:GOTO 510
520 PROCline2(7):PRINT" PRESS R TO RET
URN TO THE MENU OR "'" PRESS ANY KEY TO
CARRY ON...":G$=GET$ : IF H=max CLS:PROC
menu:ENDPROC
530 H=H+1:IF G$="R" OR G$="r" CLS:PROC
menu:ENDPROC
540 CLS:GOTO 290:ENDPROC
550DEFPROClook:CLS:Z=1:VDU132,157,141:
PRINT" looking st dsts ";CHR$(156):VDU
132,157,141:PRINT" lOOkiNg At dAtA ";C
HR$(156):VDU28,0,24,39,5
560 PROCfoundit(Z):OSCLI"FX21,0":PRINT
" FOR MAIN MENU PRESS R OR PRESS ANY"'"
KEY TO CONTINUE":GT$=GET$:IF GT$="R" OR
GT$="r" OR Z=H-1 VDU26:CLS:PROCmenu:ENDP
ROC
570Z=Z+1:CLS:GOTO560
580DEFPROCline:PRINT"
,,,,,,,,,,,,,,,,,,,,,,":ENDPROC
590DEFPROCname:CLS:VDU132,157,141:PRIN
T" chsnge first name(s) ";CHR$(156):VD
U132,157,141:PRINT" ChAnge first name(s)
";CHR$(156):PROCask:PRINT" OLD FIRST
NAME(s) : ";name$(number):INPUT" NEW FIR
ST NAME(s) : "name$(number): name$(numbe
r)=FNcap(name$(number)):VDU26:CLS:PROCme
nu:ENDPROC
600DEFPROCdob:CLS:VDU132,157,141:PRINT
" sesrching for dste of birth ";CHR$(1
56):VDU132,157,141:PRINT" SeArching for
date of birth ";CHR$(156):PROCask:PRIN
T" OLD DATE OF BIRTH : ";DOB$(number):IN
PUT" NEW DATE OF BIRTH : "DOB$(number):D
OB$(number)=FNcap(DOB$(number)):VDU26:CL
S:PROCmenu:ENDPROC
610DEFPROCsex:CLS:VDU132,157,141:PRINT
" chsnging sex ";CHR$(156):VDU132,157,
141:PRINT" ChANgiNg sex ";CHR$(156):PR
OCask:PRINT" OLD SEX : ";SEX$(number):IN
PUT" NEW SEX : "SEX$(number):SEX$(number
)=FNcal(SEX$(number)):VDU26:CLS:PROCmenu
:ENDPROC
620DEFPROCtel:CLS :VDU132,157,141:PRI
NT" chsnge telephone number ";CHR$(156
):VDU132,157,141:PRINT" ChANge telephONe
NuMber ";CHR$(156):PROCask:PRINT" OLD
TELEPHONE No.: ";TEL$(number):INPUT" NE
W TELEPHONE No.: "TEL$(number):VDU26:CLS
:PROCmenu:ENDPROC
630 DEFPROCfoundit(T):CLS :PRINTTAB(15
);CHR$(132);CHR$(157)" ADDRESS FILE : ";
T" ";CHR$(156) :PROCline:PRINT" HOUSE
NUMBER ";nm(T)'" HOUSE NAME ";hn$(T)'" S
TREET NUMBER ";st$(T)'" TOWN NAME ";town
$(T)'" COUNTY ";cn$(T)'" COUNTRY ";count
ry$(T)'" POST CODE ";pc$(T):PROCline
640PRINT" FIRST NAME(s) ";name$(T)'" S
URNAME ";surnm$(T)'" DATE OF BIRTH ";DOB
$(T)'" SEX (MALE = M FEMALE = F) ";SEX$
(T)'" TELEPHONE No. ";TEL$(T):PROCline:E
NDPROC
650DEFPROCsave:CLS
660PRINT" UNDER WHAT FILENAME SHOULD T
HE DATA"'" BE STORED UNDER ?":PROCline:I
NPUT" >>> "filename$ :IF LEN(filename$)
>7 PROCline:PRINT" NAME OF FILE IS TOO L
ONG !!":PROCline:GT$=GET$:CLS:GOTO 660
670 CH%=OPENOUT(filename$): FOR T=1 TO
max: PRINT#CH%,nm(T),st$(T),town$(T),co
untry$(T),name$(T),DOB$(T),SEX$(T),TEL$(
T),surnm$(T),hn$(T),pc$(T),cn$(T):NEXT:
PRINT#CH%,check,check1,filename$,max1,ma
x,H,printer:CLOSE#0
680PROCline:PRINT" THE FILE ";filename
$;" HAS BEEN SAVED":PROCline:GT$=GET$:VD
U26:CLS:PROCmenu:ENDPROC
690DEFPROCload:CLS:VDU132,157,141:PRIN
T" loading option ";CHR$(156):VDU132,1
57,141:PRINT" lOAdiNg OptiON ";CHR$(15
6):VDU28,0,24,39,6
700PROCline:PRINT" UNDER WHAT FILENAME
IS THE DATA"'" SAVED UNDER ?":PROCline:
INPUT" >>> "filename$ :IF LEN(filename
$)>7 PROCline:PRINT" NAME OF FILE IS TOO
LONG !!":PROCline:GT$=GET$:CLS:GOTO 700
710 CH%=OPENIN(filename$) : FOR T=1 T
O max: INPUT#CH%,nm(T),st$(T),town$(T),c
ountry$(T),name$(T),DOB$(T),SEX$(T),TEL$
(T),surnm$(T),hn$(T),pc$(T),cn$(T): NEXT
: INPUT#CH%,check,check1,filename$,max1,
max,H,printer:CLOSE#0
720PROCline:PRINT" THE FILE ";filename
$;" HAS BEEN LOADED":PROCline:GT$=GET$:V
DU26:CLS:PROCmenu:ENDPROC
730DEFPROCline2(X):PRINTCHR$(144+X)",,
,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,":END
PROC
740DEFPROCstatus:CLS
750PROCtime:PRINT"
//////////////////":VDU132,157:PRINT" NO
.OF ADDRESSES CREATED : ";H-1;TAB(36);CH
R$(156) :PRINT"
/////////////":VDU132,157:PRINT" MAXIMUM
NUMBER OF ADDRESSES : ";max;TAB(36);CHR
$(156)
760PRINT"
/////////":VDU132,157:PRINT" FILENAME IN
MEMORY : ";filename$;TAB(36);CHR$(156):
PRINT"
////":VDU132,157:PRINT" ON MENU PRESS *
TO ENTER OPERATING";TAB(36);CHR$(156):VD
U132,157:PRINT" SYSTEM";TAB(36);CHR$(156
)
770PRINT"
/////////":VDU132,157:PRINT" *TELEPHONE
: PRINTS OUT ALL ";TAB(36);CHR$(156):VDU
132,157:PRINT" TELEPHONE No
.'s ";TAB(36);CHR$(156):PRINT"
////////////////////////////":VDU132,157
:PRINT" *PRINT : SENDS DATA TO PRINTER";
TAB(36);CHR$(156)
780VDU132,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)
790PRINT"
/////////":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):IFch=1 GT$=GET$:VD
U26:CLS:PROCtitle:ENDPROC
800GT$=INKEY$(1):IFGT$<>"" VDU26:CLS:P
ROCmenu:ENDPROC ELSE GOTO750
810DEFPROCsystem:CLS:VDU129,157:PRINT"
TYPE *HELP FOR INFORMATION";TAB(36);CHR
$(156):VDU28,0,23,39,7
820INPUT"*"cmd$:IF cmd$="RETURN" OR cm
d$="return" VDU26:CLS:PROCmenu:ENDPROC E
LSE IF cmd$="TELEPHONE" OR cmd$="telepho
ne"PROCtel2 ELSE IF cmd$="help" OR cmd$=
"HELP" PROChelp ELSE IF cmd$="status" OR
cmd$="STATUS" ch=1:PROCstatus:GOTO820
830IF cmd$="PON" OR cmd$="pon" printer
=1:PRINT" PRINTER CONNECTED":GOTO820 ELS
E IF cmd$="POFF" OR cmd$="poff" printer=
0:PRINT" PRINTER OFF":GOTO820
840IF cmd$="BYE" OR cmd$="bye" PROCbye
ELSE IF cmd$="TIME" OR cmd$="time" CLS:
PROCwait ELSE IF cmd$="print" OR cmd$="P
RINT" PROCprint:GOTO820
850IF cmd$="MAX" OR cmd$="max" PROCmax
:GOTO820 ELSE IF cmd$="CLR" OR cmd$="clr
" PROCclear:GOTO820 ELSE IF cmd$="LABEL"
OR cmd$="label" PROClabel
860ONERRORPRINT"BAD COMMAND.PLEASE TRY
AGAIN.":GOTO820
870OSCLI(cmd$) : GOTO 820:ENDPROC
880DEFPROChelp:PROCline2(1):PRINT" *RE
TURN,*TELEPHONE,*STATUS,*PRINT"'" *PON,*
POFF,*TIME,*BYE,*MAX,*CLR"'" *LABEL":PRO
Cline2(1):ENDPROC
890DEFPROCtel2:VDU26:CLS:PROCtitle:J=1
:VDU14:IFname$(1)="" PROCline2(5):PRINT"
SORRY,THERE IS NO DATA.":PROCline2(5):G
T$=GET$:VDU26:CLS:PROCmenu:ENDPROC
900PRINT" NAME TELEPHONE N
UMBER":PROCline2(2)
910PRINTTAB(0)" ";name$(J);TAB(18);TEL
$(J): IF J MOD 15=0 PROCline2(2):PRINT"
PRESS ANY KEY TO CONTINUE":J=J+1:GT$=GET
$:CLS:GOTO 900
920 IF J=H PROCline2(2):PRINT" PRESS A
NY KEY TO CONTINUE":GT$=GET$:VDU26:CLS:P
ROCmenu::ENDPROC
930J=J+1:GOTO910:ENDPROC
940DEFPROCtitle: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
950DEFPROCvar:SEC=(TIME DIV 100)MOD 60
:MIN=(TIME DIV 6000)MOD 60:HR=(TIME DIV
360000)MOD 24:ENDPROC
960DEFPROCprint:CLS:IF printer=0 CLS:P
RINT"PRINTER CONNECTION OFF":ENDPROC
970IFname$(1)="" PROCline2(5):PRINT" S
ORRY,THERE IS NO DATA TO PRINT.":PROClin
e2(5):GT$=GET$:VDU26:CLS:PROCmenu:ENDPRO
C
980CLS:PRINTTAB(0,3)"PRINTING ALL DATA
.. >":vb=1:VDU2,1,27,1,120,1,0,1,27,1,77
,1,27,1,69,1,27,1,87,1,1:PRINTSTRING$(39
,"-")
990PRINT"FIRST NAME(s) : "name$(vb)'"S
URNAME : "surnm$(vb)'"SEX
: ";SEX$(vb)'"DATE/BIRTH : ";DOB$(v
b)'"TELEPHONE No. : ";TEL$(vb)''"ADDRESS
"'"HOUSE NAME : ";hn$(vb)'"HOUSE NUMB
ER : ";nm(vb)
1000PRINT"STREET : ";st$(vb)'"TO
WN : ";town$(vb)'"COUNTY
: ";cn$(vb)'"COUNTRY : ";country$
(vb)'"POST CODE : ";pc$(vb):PRINTSTR
ING$(39,"-"): IF vb=H-1 VDU3:PRINT" FIN
ISHED SENDING DATA TO PRINTER..":GT$=GET
$:VDU26:CLS:PROCmenu:ENDPROC
1010vb=vb+1:GOTO 990
1020DEFPROCtime: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
1030DEFPROCwait
1040PROCtime:LA$=INKEY$(1):IF LA$<>"" C
LS:GOTO820:ENDPROC ELSE GOTO 1040:ENDPRO
C
1050DEFPROCbye:CLS:PRINT" THANK YOU FOR
USING ADDRESS BOOK,"'" CREATED BY A.SAT
TAR.SHAKOOR":OSCLI("BASIC"):END:ENDPROC
1060DEFPROCmax:VDU26:CLS:PROCtitle
1070VDU132,157:PRINT" MAXIMUM NUMBER OF
DATA FILES IN";TAB(36);CHR$(156):VDU132
,157:PRINT" CURRENT file is ";max;TAB(36
);CHR$(156) :PROCline2(4):VDU132,157:P
RINT" MAXIMUM NUMBER OF DATA FILES";TAB(
36);CHR$(156):VDU132,157:PRINT" ALLOWED
is ";max1;TAB(36);CHR$(156)
1080PROCline2(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:IF
max2>max1 OR max2<=0 CLS:GOTO1070
1090max=max2:PROCline2(4):VDU132,157:PR
INT" PRESS ANY KEY TO CONTINUE":GT$=GET$
:VDU26:CLS:PROCmenu:ENDPROC
1100DEFPROCclear:PROCline2(4):VDU132,15
7:PRINT" DO YOU WISH TO DELETE ALL THE D
ATA ";CHR$(156):VDU132,157:PRINT" IN THE
COMPUTER'S MEMORY (Y/N) ?";TAB(36);CHR$
(156):PROCline2(4):VDU8:GT$=GET$
1110IF GT$="Y" OR GT$="y" check1=0:H=1:
PRINT:PROCline2(4):VDU132,157:PRINT" PLE
ASE WAIT...";TAB(36);CHR$(156):PROCdelet
e:PROCline2(4):VDU132,157:PRINT" FINISHE
D DELETING.PRESS ANY KEY";TAB(36);CHR$(1
56):GT$=GET$
1120VDU26:CLS:PROCmenu:ENDPROC
1130DEFPROCdelete:FOR I=1 TO max1:nm(I)
=0:st$(I)="":town$(I)="":country$(I)="":
name$(I)="":DOB$(I)="":SEX$(I)="":TEL$(I
)="":NEXT:ENDPROC
1140DEFPROCsurname:CLS:VDU132,157,141:P
RINT" chsnge surnsme ";CHR$(156):VDU13
2,157,141:PRINT" ChAnge sUrnAMe ";CHR$
(156):PROCask:PRINT" OLD SURNAME : ";sur
nm$(number):INPUT" NEW SURNAME : "surnm$
(number):surnm$(number)=FNcap(surnm$(num
ber)):VDU26:CLS:PROCmenu:ENDPROC
1150DEFPROChousenm:CLS:VDU132,157,141:P
RINT" chsnge house number ";CHR$(156):
VDU132,157,141:PRINT" ChAnge hOUse nUMbe
r ";CHR$(156):PROCask:PRINT" OLD HOUSE
NUMBER : ";nm(number):INPUT" NEW HOUSE
NUMBER : "nm(number):VDU26:CLS:PROCmenu:
ENDPROC
1160DEFPROChname:CLS:VDU132,157,141:PRI
NT" chsnge house nsme ";CHR$(156):VDU1
32,157,141:PRINT" ChAnge hOUse nAMe ";
CHR$(156):PROCask:PRINT" OLD HOUSE NAME
: ";hn$(number):INPUT" NEW HOUSE NAME :
"hn$(number):hn$(number)=FNcap(hn$(numbe
r)):VDU26:CLS:PROCmenu:ENDPROC
1170DEFPROCask:VDU28,0,24,39,6:PRINT" W
HICH ADDRESS FILE DO YOU WISH TO "'"
££££££££££££££££££££££££££££££"'" CHANGE
?"'" INPUT "number:IF num
ber<=0 OR number>H-1 VDU26:CLS:PROCtitle
:PROCask:ENDPROC
1180PROCfoundit(number):ENDPROC
1190DEFPROCstreet:CLS:VDU132,157,141:PR
INT" chsnge street name ";CHR$(156):VD
U132,157,141:PRINT" ChAnge street name
";CHR$(156):PROCask:PRINT" OLD STREET N
AME : ";st$(number):INPUT" NEW STREET NA
ME : "st$(number):st$(number)=FNcap(st$(
number)):VDU26:CLS:PROCmenu:ENDPROC
1200DEFPROCtown:CLS:VDU132,157,141:PRIN
T" chsnge town ";CHR$(156):VDU132,157,
141:PRINT" ChAnge tOwn ";CHR$(156):PRO
Cask:PRINT" OLD TOWN NAME : ";town$(numb
er):INPUT" NEW TOWN NAME : "town$(number
):town$(number)=FNcap(town$(number)):VDU
26:CLS:PROCmenu:ENDPROC
1210DEFPROCcounty:CLS:VDU132,157,141:PR
INT" chsnge county ";CHR$(156):VDU132,
157,141:PRINT" ChAnge COUnty ";CHR$(15
6):PROCask:PRINT" OLD COUNTY : ";cn$(num
ber):INPUT" NEW COUNTY : "cn$(number):cn
$(number)=FNcap(cn$(number)):VDU26:CLS:P
ROCmenu:ENDPROC
1220DEFPROCcountry:CLS:VDU132,157,141:P
RINT" chsnge country ";CHR$(156):VDU13
2,157,141:PRINT" ChAnge COUntry ";CHR$
(156):PROCask:PRINT" OLD COUNTRY : ";cou
ntry$(number):INPUT" NEW COUNTRY : "coun
try$(number):country$(number)=FNcap(coun
try$(number)):VDU26:CLS:PROCmenu:ENDPROC
1230DEFPROCcountry:CLS:VDU132,157,141:P
RINT" chsnge post code ";CHR$(156):VDU
132,157,141:PRINT" ChAnge pOst COde ";
CHR$(156):PROCask:PRINT" OLD POST CODE :
";pc$(number):INPUT" NEW POST CODE : "p
c$(number):pc$(number)=FNcap(pc$(number)
):VDU26:CLS:PROCmenu:ENDPROC
1240DEF FNcap($p%):LOCAL A%,B%,L%,Z%:A%
=ASC"a":Z%=ASC"z":FOR L%=0 TO LEN$p%-1:B
%=p%?L%:IF B%>=A% IF B%<=Z% p%?L%=B%AND&
5F
1250NEXT:=$p%
1260DEFPROClabel:CLS:IF printer=0 CLS:P
RINT"PRINTER CONNECTION OFF":ENDPROC
1270IFname$(1)="" PROCline2(5):PRINT" S
ORRY,THERE IS NO DATA TO PRINT.":PROClin
e2(5):GT$=GET$:VDU26:CLS:PROCmenu:ENDPRO
C
1280CLS:PRINTTAB(0,3)"PRINTING ALL DATA
IN FORM OF LABELS >":vb=1:VDU2,1,27,1,1
20,1,0,1,27,1,77,1,27,1,69,1,27,1,87,1,1
:PRINTSTRING$(39,"-")
1290 PRINTname$(vb)" ";surnm$(vb)'nm(vb
)" ";st$(vb)'town$(vb)" ";cn$(vb)'countr
y$(vb)'pc$(vb):IF vb=H-1 VDU3:PRINT" FI
NISHED SENDING DATA TO PRINTER..":GT$=GE
T$:VDU26:CLS:PROCmenu:ENDPROC