10 *KEY0 11|MSHAKOOR HOUSE|MHAZELBROUCK GARDENS|MHAINAULT,ILFORD|MESSEX|MENGLAND|MIG6 2XN|MABDUS SATTAR|MSHAKOOR|M27/3/74|MM|M081-500 8333
   20 MODE7: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;23;11,9,0;0;0;:PROCinfo:PROCmenu:END  :/3/74
   30 DEFPROCmenu:VDU26:CLS:OSCLI"FX15,0":*FX21,0
   40 PROCtitle:ch=0::IFH=50 H=51
   50 PRINTTAB(0,0);:VDU132,157,141:PRINT"‡1   ";CHR$(156)"creste dsts":VDU132,157,141:PRINT"‡1   ";CHR$(156)"CreAte dAtA":VDU132,157,141:PRINT"‡2   ";CHR$(156)"chsnge first nsme(s)":VDU132,157,141:PRINT"‡2   ";CHR$(156)"ChAnge first nAMe(s)"
   60 VDU132,157,141:PRINT"‡3   ";CHR$(156)"chsnge surnsme":VDU132,157,141:PRINT"‡3   ";CHR$(156)"ChAnge surnAMe":VDU132,157,141:PRINT"‡4   ";CHR$(156)"chsnge dste of birth":VDU132,157,141:PRINT"‡4   ";CHR$(156)"ChAnge dAte Of birth" 
   70 VDU132,157,141:PRINT"‡5   ";CHR$(156)"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"
   80 VDU132,157,141:PRINT"‡7   ";CHR$(156)"look st dsts":VDU132,157,141:PRINT"‡7   ";CHR$(156)"lOOk At dAtA":VDU132,157,141:PRINT"‡8   ";CHR$(156)"ssve dsts":VDU132,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"
   90 VDU132,157,141:PRINT"‡A   ";CHR$(156)"next page":VDU132,157,141:PRINT"‡A   ";CHR$(156)"next page"
  100 A$=GET$:IF A$="1" OR A$="!" PROCcreate ELSE IF A$="9" OR A$=")" PROCload ELSE 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 ELSE IF A$="4" OR A$="$" PROCdob ELSE IF A$="5" OR A$="%" PROCsex ELSE IF A$="6" OR A$="&" PROCtel 
  120 IF A$="7" OR A$="'" PROClook ELSE IF A$="8" OR A$="(" PROCsave
  130 IF A$="8" OR A$="(" PROCsave
  140 GOTO100:ENDPROC
  150 VDU132,157,141:PRINT"‡B   ";CHR$(156)"ststus":VDU132,157,141:PRINT"‡B   ";CHR$(156)"stAtus" :VDU132,157,141:PRINT"‡C   ";CHR$(156)"chsnge house nsme":VDU132,157,141:PRINT"‡C   ";CHR$(156)"ChAnge hOUse nAMe"
  160 VDU132,157,141:PRINT"‡D   ";CHR$(156)"chsnge house number":VDU132,157,141:PRINT"‡D   ";CHR$(156)"ChAnge hOUse nUMber":VDU132,157,141:PRINT"‡E   ";CHR$(156)"chsnge street nsme":VDU132,157,141:PRINT"‡E   ";CHR$(156)"ChAnge street nAMe"
  170 VDU132,157,141:PRINT"‡F   ";CHR$(156)"chsnge town nsme":VDU132,157,141:PRINT"‡F   ";CHR$(156)"ChAnge tOwn nAMe":VDU132,157,141:PRINT"‡G   ";CHR$(156)"chsnge county":VDU132,157,141:PRINT"‡G   ";CHR$(156)"ChAnge COUnty"
  180 VDU132,157,141:PRINT"‡H   ";CHR$(156)"chsnge country":VDU132,157,141:PRINT"‡H   ";CHR$(156)"ChAnge COUntry":VDU132,157,141:PRINT"‡I   ";CHR$(156)"chsnge post code":VDU132,157,141:PRINT"‡I   ";CHR$(156)"ChAnge pOst COde"  
  190 VDU132,157,141:PRINT"‡J   ";CHR$(156)"first psge":VDU132,157,141:PRINT"‡J   ";CHR$(156)"first pAge"
  200  A$=GET$:IF A$="B" OR A$="b" PROCstatus ELSE IF A$="j" OR A$="J" CLS:GOTO50
  210  IFA$="*" OR A$=":" PROCsystem
  220 IFcheck1=0 GOTO200  
  230 IFA$="C" OR A$="c" PROChname ELSE IF 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
  240 IF A$="h" OR A$="H" PROCcountry ELSE IF A$="i" OR A$="I" PROCpcode
  250  GOTO 200
  260 DEFPROCinfo:PROCvar:printer=0:filename$="NO FILENAME":max=50:max1=50:H=1:DIM 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:ENDPROC
  270 DEFPROCcreate:check1=1:CLS:IF H>=max PRINTTAB(0,3);:VDU132,157:PRINT"ƒSORRY,SAVE THE CURRENT DATA AND":VDU132,157:PRINT"ƒWIPE THE MEMORY":GT$=GET$:VDU26:CLS:PROCmenu:ENDPROC
  280 VDU132,157,141:PRINT"ƒcreste new sddress   ";CHR$(156):VDU132,157,141:PRINT"†creAte new Address   ";CHR$(156):VDU28,0,24,39,7 
  290 PRINTTAB(10);:VDU132,157:PRINT"ƒADDRESS No.";H''"�ADDRESS"'"•```````"
  300 INPUTLINE"‚HOUSE NUMBER:‡"nm(H):IF nm(H)=0 AND nm(H)=VAL(CHR$(13)) VDU11:GOTO 300
  310 INPUTLINE"†HOUSE NAME  :‡"hn$(H):IF hn$(H)="" VDU11:GOTO 310 
  320  hn$(H)=FNcap(hn$(H))
  330 INPUTLINE"ƒSTREET NAME :‡"st$(H):IF st$(H)="" VDU11:GOTO330
  340  st$(H)=FNcap(st$(H))
  350 INPUTLINE"�TOWN NAME   :‡"town$(H):IF town$(H)="" VDU11:GOTO350 
  360 town$(H)=FNcap(town$(H))
  370 INPUTLINE"‚COUNTY      :‡"cn$(H):IF cn$(H)="" VDU11:GOTO370 
  380 cn$(H)=FNcap(cn$(H))
  390 INPUTLINE"†COUNTRY     :‡"country$(H):IF country$(H)="" VDU11:GOTO 390
  400 country$(H)=FNcap(country$(H))
  410 INPUTLINE"ƒPOST CODE   :‡"pc$(H):IF pc$(H)="" VDU11:GOTO 410
  420 pc$(H)=FNcap(pc$(H)):PRINT'"ƒNAME"'"•````"
  430 INPUTLINE"‡FIRST NAME(s) : "name$(H):IF name$(H)="" VDU11:GOTO430
  440 name$(H)=FNcap(name$(H))
  450 INPUTLINE"�SURNAME       : "surnm$(H):IF surnm$(H)="" VDU11:GOTO450
  460 surnm$(H)=FNcap(surnm$(H))
  470 INPUTLINE"†DATE OF BIRTH   :‡"DOB$(H):IF DOB$(H)=""VDU11:GOTO470
  480 DOB$(H)=FNcap(DOB$(H))
  490 INPUTLINE"„SEX (M/F)       :‡"SEX$(H):IF SEX$(H)="" VDU11:GOTO 490  
  500 SEX$(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)="FEMALE"
  510  INPUTLINE"‚TELEPHONE No.   :‡"TEL$(H):IF TEL$(H)="" VDU11:GOTO 510
  520  PROCline2(7):PRINT"†PRESS�R†TO RETURN TO THE MENU OR "'"†PRESS ANY KEY TO CARRY ON...":G$=GET$ : IF H=max CLS:PROCmenu:ENDPROC
  530  H=H+1:IF G$="R" OR G$="r" CLS:PROCmenu:ENDPROC 
  540  CLS:GOTO 290:ENDPROC
  550 DEFPROClook:CLS:Z=1:VDU132,157,141:PRINT"ƒlooking st dsts   ";CHR$(156):VDU132,157,141:PRINT"†lOOkiNg At dAtA   ";CHR$(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:ENDPROC
  570 Z=Z+1:CLS:GOTO560
  580 DEFPROCline:PRINT"’,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,":ENDPROC
  590 DEFPROCname:CLS:VDU132,157,141:PRINT"ƒchsnge first name(s)   ";CHR$(156):VDU132,157,141:PRINT"†ChAnge first name(s)   ";CHR$(156):PROCask:PRINT"�OLD FIRST NAME(s) :‡";name$(number):INPUT"…NEW FIRST NAME(s) :‡"name$(number): name$(number)=FNcap(name$(number)):VDU26:CLS:PROCmenu:ENDPROC 
  600 DEFPROCdob:CLS:VDU132,157,141:PRINT"ƒsesrching for dste of birth   ";CHR$(156):VDU132,157,141:PRINT"†SeArching for date of birth   ";CHR$(156):PROCask:PRINT"�OLD DATE OF BIRTH :‡";DOB$(number):INPUT"…NEW DATE OF BIRTH :‡"DOB$(number):DOB$(number)=FNcap(DOB$(number)):VDU26:CLS:PROCmenu:ENDPROC
  610 DEFPROCsex:CLS:VDU132,157,141:PRINT"ƒchsnging sex   ";CHR$(156):VDU132,157,141:PRINT"†ChANgiNg sex   ";CHR$(156):PROCask:PRINT"ƒOLD SEX :‡";SEX$(number):INPUT"†NEW SEX :‡"SEX$(number):SEX$(number)=FNcal(SEX$(number)):VDU26:CLS:PROCmenu:ENDPROC
  620 DEFPROCtel:CLS  :VDU132,157,141:PRINT"ƒchsnge telephone number   ";CHR$(156):VDU132,157,141:PRINT"†ChANge telephONe NuMber   ";CHR$(156):PROCask:PRINT"‚OLD TELEPHONE No.:‡";TEL$(number):INPUT"…NEW 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)'"�STREET NUMBER‡";st$(T)'"�TOWN NAME‡";town$(T)'"�COUNTY‡";cn$(T)'"�COUNTRY‡";country$(T)'"�POST CODE‡";pc$(T):PROCline
  640 PRINT"…FIRST NAME(s)‡";name$(T)'"…SURNAME‡";surnm$(T)'"…DATE OF BIRTH‡";DOB$(T)'"…SEX (MALE = M  FEMALE = F)‡";SEX$(T)'"…TELEPHONE No.‡";TEL$(T):PROCline:ENDPROC
  650 DEFPROCsave:CLS
  660 PRINT"†UNDER WHAT FILENAME SHOULD THE DATA"'"†BE STORED UNDER ?":PROCline:INPUT"…>>>‡"filename$  :IF LEN(filename$)>7 PROCline:PRINT"†NAME OF FILE IS TOO LONG !!":PROCline:GT$=GET$:CLS:GOTO 660 
  670  CH%=OPENOUT(filename$): FOR T=1 TO max: PRINT#CH%,nm(T),st$(T),town$(T),country$(T),name$(T),DOB$(T),SEX$(T),TEL$(T),surnm$(T),hn$(T),pc$(T),cn$(T):NEXT: PRINT#CH%,check,check1,filename$,max1,max,H,printer:CLOSE#0
  680 PROCline:PRINT"ƒTHE FILE�";filename$;"ƒHAS BEEN SAVED":PROCline:GT$=GET$:VDU26:CLS:PROCmenu:ENDPROC   
  690 DEFPROCload:CLS:VDU132,157,141:PRINT"ƒloading option   ";CHR$(156):VDU132,157,141:PRINT"†lOAdiNg OptiON   ";CHR$(156):VDU28,0,24,39,6  
  700 PROCline: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 TO max: INPUT#CH%,nm(T),st$(T),town$(T),country$(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
  720 PROCline:PRINT"ƒTHE FILE�";filename$;"ƒHAS BEEN LOADED":PROCline:GT$=GET$:VDU26:CLS:PROCmenu:ENDPROC  
  730 DEFPROCline2(X):PRINTCHR$(144+X)",,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,":ENDPROC  
  740 DEFPROCstatus:CLS
  750 PROCtime:PRINT"”/////////////////////////////////////":VDU132,157:PRINT"‡NO.OF ADDRESSES CREATED :ƒ";H-1;TAB(36);CHR$(156) :PRINT"”/////////////////////////////////////":VDU132,157:PRINT"‡MAXIMUM NUMBER OF ADDRESSES :ƒ";max;TAB(36);CHR$(156)
  760 PRINT"”/////////////////////////////////////":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):VDU132,157:PRINT"�SYSTEM";TAB(36);CHR$(156)  
  770 PRINT"”/////////////////////////////////////":VDU132,157:PRINT"‡*TELEPHONE :ƒPRINTS OUT ALL ";TAB(36);CHR$(156):VDU132,157:PRINT"‡            ƒTELEPHONE No.'s ";TAB(36);CHR$(156):PRINT"”/////////////////////////////////////":VDU132,157:PRINT"‡*PRINTƒ: SENDS DATA TO PRINTER";TAB(36);CHR$(156)
  780 VDU132,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)  
  790 PRINT"”/////////////////////////////////////":VDU132,157:PRINT"‡*CLRƒ: CLEAR ALL DATA";TAB(36);CHR$(156):VDU132,157:PRINT"‡*MAXƒ: CHANGE NUMBER OF DATA FILES";TAB(36);CHR$(156):IFch=1 GT$=GET$:VDU26:CLS:PROCtitle:ENDPROC
  800 GT$=INKEY$(1):IFGT$<>"" VDU26:CLS:PROCmenu:ENDPROC ELSE GOTO750
  810 DEFPROCsystem:CLS:VDU129,157:PRINT"‡TYPEˆ*HELP‰FOR INFORMATION";TAB(36);CHR$(156):VDU28,0,23,39,7
  820 INPUT"*"cmd$:IF cmd$="RETURN" OR cmd$="return" VDU26:CLS:PROCmenu:ENDPROC ELSE IF cmd$="TELEPHONE" OR cmd$="telephone"PROCtel2 ELSE IF cmd$="help" OR cmd$="HELP" PROChelp ELSE IF cmd$="status" OR cmd$="STATUS" ch=1:PROCstatus:GOTO820
  830 IF cmd$="PON" OR cmd$="pon" printer=1:PRINT"‡PRINTER CONNECTED":GOTO820 ELSE IF cmd$="POFF" OR cmd$="poff" printer=0:PRINT"‡PRINTER OFF":GOTO820  
  840 IF cmd$="BYE" OR cmd$="bye" PROCbye ELSE IF cmd$="TIME" OR cmd$="time" CLS:PROCwait ELSE IF cmd$="print" OR cmd$="PRINT" PROCprint:GOTO820   
  850 IF cmd$="MAX" OR cmd$="max" PROCmax:GOTO820 ELSE IF cmd$="CLR" OR cmd$="clr" PROCclear:GOTO820 ELSE IF cmd$="LABEL" OR cmd$="label" PROClabel
  860 ONERRORPRINT"BAD COMMAND.PLEASE TRY AGAIN.":GOTO820   
  870 OSCLI(cmd$) : GOTO 820:ENDPROC
  880 DEFPROChelp:PROCline2(1):PRINT"‡*RETURN,*TELEPHONE,*STATUS,*PRINT"'"‡*PON,*POFF,*TIME,*BYE,*MAX,*CLR"'"‡*LABEL":PROCline2(1):ENDPROC
  890 DEFPROCtel2:VDU26:CLS:PROCtitle:J=1:VDU14:IFname$(1)="" PROCline2(5):PRINT"ƒSORRY,THERE IS NO DATA.":PROCline2(5):GT$=GET$:VDU26:CLS:PROCmenu:ENDPROC 
  900 PRINT"ƒNAME…            TELEPHONE NUMBER":PROCline2(2)
  910 PRINTTAB(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 ANY KEY TO CONTINUE":GT$=GET$:VDU26:CLS:PROCmenu::ENDPROC
  930 J=J+1:GOTO910:ENDPROC
  940 DEFPROCtitle:VDU132,157,141:PRINT"�address book‚by†s.s.shskoor‡'91   ";CHR$(156);:PRINT::VDU132,157,141:PRINT"‡ADDrESS BOOKƒby…A.S.ShAkOOr‡'91   ";CHR$(156):PRINT"‘   ``````````````````````````````````":VDU28,0,24,39,3:ENDPROC 
  950 DEFPROCvar:SEC=(TIME DIV 100)MOD 60:MIN=(TIME DIV 6000)MOD 60:HR=(TIME DIV 360000)MOD 24:ENDPROC
  960 DEFPROCprint:CLS:IF printer=0 CLS:PRINT"PRINTER CONNECTION OFF":ENDPROC
  970 IFname$(1)="" PROCline2(5):PRINT"ƒSORRY,THERE IS NO DATA TO PRINT.":PROCline2(5):GT$=GET$:VDU26:CLS:PROCmenu:ENDPROC
  980 CLS: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,"-") 
  990 PRINT"FIRST NAME(s) : "name$(vb)'"SURNAME       : "surnm$(vb)'"SEX           : ";SEX$(vb)'"DATE/BIRTH    : ";DOB$(vb)'"TELEPHONE No. : ";TEL$(vb)''"ADDRESS"'"HOUSE NAME    : ";hn$(vb)'"HOUSE NUMBER  : ";nm(vb)
 1000 PRINT"STREET        : ";st$(vb)'"TOWN          : ";town$(vb)'"COUNTY        : ";cn$(vb)'"COUNTRY       : ";country$(vb)'"POST CODE     : ";pc$(vb):PRINTSTRING$(39,"-"): IF vb=H-1  VDU3:PRINT"‡FINISHED SENDING DATA TO PRINTER..":GT$=GET$:VDU26:CLS:PROCmenu:ENDPROC
 1010 vb=vb+1:GOTO 990
 1020 DEFPROCtime:PROCvar:PRINTTAB(0,0)"”ppppppppppppppppppppppppppppppppppppp":VDU129,157:PRINT"ƒADDRESS BOOK‡has been running for";TAB(36);CHR$(156):VDU129,157:PRINT"†";HR;"ƒHOURS†";MIN;"ƒMINUTES†";SEC;"ƒSECONDS";TAB(36);CHR$(156):ENDPROC
 1030 DEFPROCwait
 1040 PROCtime:LA$=INKEY$(1):IF LA$<>"" CLS:GOTO820:ENDPROC ELSE GOTO 1040:ENDPROC
 1050 DEFPROCbye:CLS:PRINT"‡THANK YOU FOR USINGƒADDRESS BOOK,"'"‡CREATED BY†A.SATTAR.SHAKOOR":OSCLI("BASIC"):END:ENDPROC
 1060 DEFPROCmax:VDU26:CLS:PROCtitle
 1070 VDU132,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:PRINT"ƒMAXIMUM NUMBER OF DATA FILES";TAB(36);CHR$(156):VDU132,157:PRINT"ƒALLOWED is ";max1;TAB(36);CHR$(156) 
 1080 PROCline2(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
 1090 max=max2:PROCline2(4):VDU132,157:PRINT"�PRESS ANY KEY TO CONTINUE":GT$=GET$:VDU26:CLS:PROCmenu:ENDPROC 
 1100 DEFPROCclear:PROCline2(4):VDU132,157:PRINT"‡DO YOU WISH TO DELETE ALL THE DATA ";CHR$(156):VDU132,157:PRINT"‡IN THE COMPUTER'S MEMORY (Y/N) ?";TAB(36);CHR$(156):PROCline2(4):VDU8:GT$=GET$
 1110 IF GT$="Y" OR GT$="y" check1=0:H=1:PRINT:PROCline2(4):VDU132,157:PRINT"ƒPLEASE WAIT...";TAB(36);CHR$(156):PROCdelete:PROCline2(4):VDU132,157:PRINT"†FINISHED DELETING.PRESS ANY KEY";TAB(36);CHR$(156):GT$=GET$
 1120 VDU26:CLS:PROCmenu:ENDPROC
 1130 DEFPROCdelete:FOR I=1 TO max1:nm(I)=0:st$(I)="":town$(I)="":country$(I)="":name$(I)="":DOB$(I)="":SEX$(I)="":TEL$(I)="":NEXT:ENDPROC
 1140 DEFPROCsurname:CLS:VDU132,157,141:PRINT"ƒchsnge surnsme   ";CHR$(156):VDU132,157,141:PRINT"†ChAnge sUrnAMe   ";CHR$(156):PROCask:PRINT"�OLD SURNAME :‡";surnm$(number):INPUT"…NEW SURNAME :‡"surnm$(number):surnm$(number)=FNcap(surnm$(number)):VDU26:CLS:PROCmenu:ENDPROC
 1150 DEFPROChousenm:CLS:VDU132,157,141:PRINT"ƒchsnge house number   ";CHR$(156):VDU132,157,141:PRINT"†ChAnge hOUse nUMber   ";CHR$(156):PROCask:PRINT"�OLD HOUSE NUMBER :‡";nm(number):INPUT"…NEW HOUSE NUMBER :‡"nm(number):VDU26:CLS:PROCmenu:ENDPROC 
 1160 DEFPROChname:CLS:VDU132,157,141:PRINT"ƒchsnge house nsme   ";CHR$(156):VDU132,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$(number)):VDU26:CLS:PROCmenu:ENDPROC
 1170 DEFPROCask:VDU28,0,24,39,6:PRINT"�WHICH ADDRESS FILE DO YOU WISH TO "'"”`````````````````````````````````"'"�CHANGE ?"'"”````````":INPUT">>>‡"number:IF number<=0 OR number>H-1 VDU26:CLS:PROCtitle:PROCask:ENDPROC
 1180 PROCfoundit(number):ENDPROC
 1190 DEFPROCstreet:CLS:VDU132,157,141:PRINT"ƒchsnge street name   ";CHR$(156):VDU132,157,141:PRINT"†ChAnge street name   ";CHR$(156):PROCask:PRINT"�OLD STREET NAME :‡";st$(number):INPUT"…NEW STREET NAME :‡"st$(number):st$(number)=FNcap(st$(number)):VDU26:CLS:PROCmenu:ENDPROC
 1200 DEFPROCtown:CLS:VDU132,157,141:PRINT"ƒchsnge town   ";CHR$(156):VDU132,157,141:PRINT"†ChAnge tOwn   ";CHR$(156):PROCask:PRINT"�OLD TOWN NAME :‡";town$(number):INPUT"…NEW TOWN NAME :‡"town$(number):town$(number)=FNcap(town$(number)):VDU26:CLS:PROCmenu:ENDPROC
 1210 DEFPROCcounty:CLS:VDU132,157,141:PRINT"ƒchsnge county   ";CHR$(156):VDU132,157,141:PRINT"†ChAnge COUnty   ";CHR$(156):PROCask:PRINT"�OLD COUNTY :‡";cn$(number):INPUT"…NEW COUNTY :‡"cn$(number):cn$(number)=FNcap(cn$(number)):VDU26:CLS:PROCmenu:ENDPROC
 1220 DEFPROCcountry:CLS:VDU132,157,141:PRINT"ƒchsnge country   ";CHR$(156):VDU132,157,141:PRINT"†ChAnge COUntry   ";CHR$(156):PROCask:PRINT"�OLD COUNTRY :‡";country$(number):INPUT"…NEW COUNTRY :‡"country$(number):country$(number)=FNcap(country$(number)):VDU26:CLS:PROCmenu:ENDPROC
 1230 DEFPROCcountry:CLS:VDU132,157,141:PRINT"ƒchsnge post code   ";CHR$(156):VDU132,157,141:PRINT"†ChAnge pOst COde   ";CHR$(156):PROCask:PRINT"�OLD POST CODE :‡";pc$(number):INPUT"…NEW POST CODE :‡"pc$(number):pc$(number)=FNcap(pc$(number)):VDU26:CLS:PROCmenu:ENDPROC
 1240 DEF 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
 1250 NEXT:=$p%
 1260 DEFPROClabel:CLS:IF printer=0 CLS:PRINT"PRINTER CONNECTION OFF":ENDPROC
 1270 IFname$(1)="" PROCline2(5):PRINT"ƒSORRY,THERE IS NO DATA TO PRINT.":PROCline2(5):GT$=GET$:VDU26:CLS:PROCmenu:ENDPROC
 1280 CLS:PRINTTAB(0,3)"PRINTING ALL DATA IN FORM OF LABELSˆ>":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,"-")
 1290  PRINTname$(vb)" ";surnm$(vb)'nm(vb)" ";st$(vb)'town$(vb)" ";cn$(vb)'country$(vb)'pc$(vb):IF vb=H-1  VDU3:PRINT"‡FINISHED SENDING DATA TO PRINTER..":GT$=GET$:VDU26:CLS:PROCmenu:ENDPROC