10PROCfload1:MODE7:VDU23;8202;0;0;0;2
3,1,0;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;:OSCLI("FX
15,1"):OSCLI("DIR T"):PROCtitle:PROCinfo
:PROCmenu:END
20DEFPROCtitle:OSCLI("FX21,0"):VDU132
,157,141:PRINT" Sharps accountant by a.s
.shakoor ";CHR$(156):VDU132,157,141:PRI
NT" )hAreS ACC0UnTAnT by A.S.ShAk00r ";
CHR$(156):PRINTTAB(0,22);:VDU132,157,141
:PRINT" Sharps accountant by a.s.shakoor
";CHR$(156)
30VDU132,157,141:PRINT" )hAreS ACC0Un
TAnT by A.S.ShAk00r ";CHR$(156):VDU 28,
0,21,39,2:ENDPROC
40DEFPROCinfo:vb=9:DF=0:max=300:check
=0:DIM name$(max),bht(max),value(max),da
te$(max),DAY$(max),MONTH$(max),YEAR(max)
,number(max),J(15),kl$(15),r$(1),v(1),n(
1):FORM=1TO15:J(M)=0:kl$(M)="NO NAME":NE
XT:numques=1:fil$=" disc":ENDPROC
50IF bht(numques)=0 PRINTTAB(18,8)"
":GOTO470
60 DEFPROCmenu:CLS
70 PRINTTAB(0,1);CHR$(148);STRING$(37
,"p")
80 PRINTTAB(5);:VDU132,157,141:PRINT"
1 crpatp npw sharp(s) ";CHR$(156):PRINT
TAB(5);:VDU132,157,141:PRINT" 1 creATe n
ew ShAre(S) ";CHR$(156)
90PRINTTAB(5);:VDU132,157,141:PRINT"
2 changp market valup ";CHR$(156):PRINTT
AB(5);:VDU132,157,141:PRINT" 2 chAnge mA
rkeT VAlUe ";CHR$(156)
100PRINTTAB(5);:VDU132,157,141:PRINT"
3 changp datp ";CHR$(156):PRINTT
AB(5);:VDU132,157,141:PRINT" 3 chAnge cA
Te ";CHR$(156)
110 PRINTTAB(5);:VDU132,157,141:PRINT
" 4 calculatp pricp ";CHR$(156):PRIN
TTAB(5);:VDU132,157,141:PRINT" 4 cAlcUlA
Te prIce ";CHR$(156)
120 PRINTTAB(5);:VDU132,157,141:PRINT"
5 sharps in mpmory ";CHR$(156):PRINT
TAB(5);:VDU132,157,141:PRINT" 5 ShAreS I
n MeM0rY ";CHR$(156)
130PRINTTAB(5);:VDU132,157,141:PRINT"
6 savp filp onto";fil$" ";CHR$(156):PRIN
TTAB(5);:VDU132,157,141:PRINT" 6 SAVe fI
le 0nT0";fil$" ";CHR$(156)
140 PRINTTAB(5);:VDU132,157,141:PRINT"
7 load filp from";fil$" ";CHR$(156):PRI
NTTAB(5);:VDU132,157,141:PRINT" 7 l0Ad f
Ile fr0M";fil$" ";CHR$(156)
150 PRINTTAB(5);:VDU132,157,141:PRINT"
8 npxt pagp ";CHR$(156):PRINT
TAB(5);:VDU132,157,141:PRINT" 8 neXT pAg
e ";CHR$(156)
160PRINTCHR$(148);STRING$(37,"£")
170 A$=GET$
180IF A$="1" OR A$="!" PROCadd ELSE IF
A$="2" OR A$=CHR$(34):PROCwarn:PROCm("M
ARKET") ELSE IF A$="3" OR A$="#" PROCwar
n:PROCm("DATE") ELSE IF A$="4" OR A$="$"
PROCcal ELSE IF A$="5" OR A$="%" PROCwa
rn:PROCshow
190IF A$="8" OR A$="(" GOTO 210 ELSE I
F A$="6" OR A$="&" PROCwarn:CLS:PROCsave
1 ELSE IF A$="7" OR A$="'" CLS:PROCload1
200GOTO 70
210CLS
220PRINTTAB(0,0);CHR$(148);STRING$(37,
"p")
230PRINTTAB(5);:VDU132,157,141:PRINT"
A '*' Commands ";CHR$(156):PRINTT
AB(5);:VDU132,157,141:PRINT" A '*' C0MMA
NcS ";CHR$(156)
240PRINTTAB(5);:VDU132,157,141:PRINT"
B printout of sharps ";CHR$(156):PRINTT
AB(5);:VDU132,157,141:PRINT" B prInT0UT
0f ShAreS ";CHR$(156)
250 PRINTTAB(5);:VDU132,157,141:PRINT"
C vipw data on sharps ";CHR$(156):PRINT
TAB(5);:VDU132,157,141:PRINT" C View cAT
A 0n ShAreS ";CHR$(156)
260 PRINTTAB(5);:VDU132,157,141:PRINT"
D data in graph form ";CHR$(156):PRINT
TAB(5);:VDU132,157,141:PRINT" D cATA in
grAph f0rM ";CHR$(156)
270PRINTTAB(5);:VDU132,157,141:PRINT"
E currency market ";CHR$(156):PRINTT
AB(5);:VDU132,157,141:PRINT" E currency
mArket ";CHR$(156)
280PRINTTAB(5);:VDU132,157,141:PRINT"
F npxt pagp ";CHR$(156):PRINTT
AB(5);:VDU132,157,141:PRINT" F neXT pAge
";CHR$(156)
290PRINTCHR$(148);STRING$(37,"£")
300A$=GET$
310IF A$="B" OR A$="b" PROCwarn:PROCou
t ELSE IF A$="A" OR A$="a" PROCoscli ELS
E IF A$="C" OR A$="c" PROCwarn:PROCview
ELSE IF A$="D" OR A$="d" PROCwarn:PROCgr
aph
320IF A$="E" OR A$="e" PROCcur(2) ELSE
IF A$="F" OR A$="f" CLS:GOTO 70
330GOTO 300:ENDPROC
340DEFPROCline(l):PRINTCHR$(l+144);STR
ING$(37,","):ENDPROC
350DEFPROCadd:CLS:check=1:s1=0
360 VDU132,157:PRINT" SHARE NUMBER ";n
umques" ";CHR$(156)
370PRINTTAB(0,2)" NAME OF SHARE : ";
380INPUT""name$(numques)
390 IF name$(numques)="0" OR name$(num
ques)="" CLS:GOTO360
400 PRINTTAB(0,4)" MARKET VALUE":PRINT
" (IN PENCE) : ";
410INPUT""value(numques)
420 IF value(numques)=0 PRINTTAB(18,5)
" ":GOTO400
430PRINT'" NUMBER OF UNITS : ";
440INPUT""number(numques)
450IF value(numques)=0 PRINTTAB(18,8)"
":GOTO430
460PRINT
470PRINT" PRICE BOUGHT AT : ";
480INPUT""bht(numques)
490IF bht(numques)=0 VDU11:PRINTTAB(18
)" ":VDU11:GOTO470
500PRINTTAB(0,11)" DATE WHEN SHARES WE
RE BOUGHT....":PROCline(5)
510INPUT" DAY : "DAY$(numques):INP
UT" MONTH : "MONTH$(numques):INPUT" YE
AR : "YEAR(numques):PROCline(5)
520 PRINT" DO YOU WISH TO RETURN TO TH
E MAIN":PRINT" MENU ?":GT$=GET$
530 IF GT$="Y" OR GT$="y" numques=numq
ues+1:CLS:PROCmenu
540IF numques=max CLS:PROCmenu
550CLS:numques=numques+1:GOTO360
560ENDPROC
570DEFPROCm(ZM$):CLS
580IF check=0 GOTO170:ENDPROC
590PROCline(5)
600PRINTTAB(0,2)" WHICH SHARE DO YOU W
ISH TO CHANGE ?"
610PRINTTAB(0,4)" DO YOU KNOW THE NAME
? (Y/N) ":GT$=GET$
620IF GT$="Y" OR GT$="y" GOTO 670
630 PRINTTAB(0,6)" DO YOU KNOW THE SHA
RE'S MARKET"
640PRINT" VALUE ? (Y/N) ":GT$=GET$
650IF GT$="Y" OR GT$="y" GOTO 680
660PROCmenu
670 PROCline(5):INPUT" NAME OF SHARE:
"name1$:PROCline(5):PRINT" SEARCHING THR
OUGH RECORDS.PLEASE WAIT":PROCline(5):GO
TO700
680 PROCline(6):INPUT'" WHAT IS THE SH
ARE'S VALUE: "nm:CLS:PROCline(2):PRINT"
SEARCHING THROUGH RECORDS.PLEASE WAIT":P
ROCline(2):PROCsearch1(nm)
690ENDPROC
700FOR T=1 TO numques:IF name1$=name$(
T):PRINT'" FOUND SHARE.PRESS ANY KEY.":G
T$=GET$:vb=1:PROCprint(T):ENDPROC
710 NEXT:IF vb=1 VDU26:CLS:PROCtitle:P
ROCmenu:ENDPROC
720 PRINT'" SORRY,";name1$;" IS UNAVAI
LABLE":PRINT'" PRESS ANY KEY":GT$=GET$:C
LS:PROCmenu:ENDPROC
730DEFPROCprint(T):vb=1:CLS:PROCline(5
):PRINT" NAME : ";CHR$(132);CHR$(1
57)" "name$(T)" ";CHR$(156)'" SHARE No
. : ";CHR$(132);CHR$(157)" ";T;" ";CH
R$(156):PROCline(5)
740PRINT" NUMBER OF SHARES :";CHR
$(132);CHR$(157)" ";number(T);TAB(36);CH
R$(156):PRINT" ORIGINAL MARKET VALUE :";
CHR$(132);CHR$(157)" ";bht(T);" (p)";TAB
(36);CHR$(156)
750PRINT" TOTAL PRICE :";CHR
$(132);CHR$(157)" £";number(T)*(bht(T)/1
00);TAB(36);CHR$(156):PROCline(5)
760PRINT" LATEST MARKET VALUE :";CHR
$(132);CHR$(157)" ";value(T);" (p)";TAB(
36);CHR$(156):PRINT" TOTAL PRICE
:";CHR$(132);CHR$(157)" £";number(T)*
(value(T)/100);TAB(36);CHR$(156):PROClin
e(5)
770 ov=(number(T)*(value(T)/100))-(num
ber(T)*(bht(T)/100)):IF ov<0 nq$="LOSS"
ELSE IF ov>0 nq$="GAIN" ELSE IF ov=0 nq$
="NO CHANGE"
780PRINT" GAIN/LOSS/NO CHANGE :";CHR
$(132);CHR$(157)" ";nq$;TAB(37);CHR$(156
):IF nq$="GAIN" nq$="+":GOTO800
790 nq$=""
800PRINTTAB(24);CHR$(132);CHR$(157)" (
£";nq$;INT(ov)")";TAB(37);CHR$(156)
810 PROCline(5):PRINT" DAY :";:VDU13
2,157:PRINT" ";DAY$(T);TAB(25);CHR$(156)
820PRINT" MONTH :";:VDU132,157:PRINT"
";MONTH$(T);TAB(25);CHR$(156):PRINT" YEA
R :";:VDU132,157:PRINT" ";YEAR(T);TAB(2
5);CHR$(156):PROCline(3)
830IF DF=1 PRINT" PRESS ANY KEY TO CON
TINUE":vb=1:GT$=GET$:ENDPROC
840 PROCalter(T,ZM$):NEXT:CLS:PROCmenu
850 ENDPROC
860DEFPROCcal:CLS:PRINT':VDU132,157,14
1:PRINT" CALCULATING VALUE OF SHARES
";CHR$(156);:PRINT:VDU132,157,141:PRI
NT" CALCULATING VALUE OF SHARES ";
CHR$(156):PRINT:PROCline(6):PRINT" MARKE
T VALUE (eg 234)":INPUT" (IN PENCE)
: "mv
870 PROCline(6):INPUT" NUMBER OF UNITS
: "ns:tp=(mv/100)*ns:PROCline(6):PRINT"
TOTAL PRICE is £";tp:PRINT'" DO YOU WIS
H TO STORE THIS VALUE (Y/N)";:GT$=GET$
880 IF GT$="Y" OR GT$="y" PROCstore
890 PRINT'" PRESS ANY KEY TO RETURN TO
THE MENU";:GT$=GET$:CLS:ENDPROC
900 DEFPROCalter(T,ZM$):vb=1:IF ZM$="D
ATE" PROCdate:ENDPROC
910 IF GT$="Y" OR GT$="y" GOTO 930
920 IF GT$="N" OR GT$="n" ENDPROC
930PRINT" OLD MARKET PRICE : ";value(T
):INPUT" NEW MARKET PRICE : "value(T):VD
U11,11:PRINTSTRING$(39," "):PRINT" PRESS
ANY KEY TO CONTINUE ":GT$=G
ET$:CLS:ENDPROC
940 DEFPROCshow:PROCsort:IF check=0:CL
S:PROCmenu
950PROCwait:FOR T=1 TO numques:PROCsor
t:NEXT:CLS
960 PRINT" NAME MARKET BOU
GHT No.of":PRINT" VALUE
AT SHARES"
970 PROCline(5):FOR T=1 TO numques-1:I
F T MOD 15=0 PROCline(5):PRINT" PRESS AN
Y KEY TO SEE THE NEXT PAGE":GT$=GET$:CLS
:PRINT" NAME MARKET BOUGHT N
o.of":PRINT" VALUE AT
SHARES":PROCline(5)
980 PRINT" ";name$(T);TAB(18)" ";value
(T);TAB(24)" ";bht(T);TAB(31)" ";number(
T)
990 NEXT:PROCline(5):PRINT" PRESS ANY
KEY TO CONTINUE":GT$=GET$:CLS:ENDPROC
1000 DEFPROCsort:s1=1:FOR X=1 TO numque
s-2
1010 IF name$(X)>name$(X+1) r$(1)=name$
(X):v(1)=value(X):n(1)=number(X):name$(X
)=name$(X+1):value(X)=value(X+1):number(
X)=number(X+1):name$(X+1)=r$(1):value(X+
1)=v(1):number(X+1)=n(1)
1020 NEXT:ENDPROC
1030 DEFPROCoscli:CLS:PROCline(2):PRINT
" TYPE *SHOW FOR INFORMATION":PROCline(2
)
1040 INPUT'"*"cmd$
1050IF cmd$="currency" OR cmd$="CURRENC
Y" PROCc2 ELSE IF cmd$="TAPE" OR cmd$="t
ape" fil$=" tape" ELSE IF cmd$="DISC" OR
cmd$="disc" fil$=" disc"
1060 IF cmd$="sort" OR cmd$="SORT" PROC
sort:PRINT" THE SHARES HAVE BEEN SORTED
INTO ":PRINT" ALPHABETICAL ORDER.":GOTO
1040
1070 IF cmd$="return" OR cmd$="RETURN"
CLS:PROCmenu ELSE IF cmd$="basic" OR cmd
$="BASIC" OSCLI("BASIC") ELSE IF cmd$="s
how" OR cmd$="SHOW" PROChelp
1080 OSCLI(cmd$):GOTO1040:ENDPROC
1090 DEFPROChelp:PROCline(6):PRINT" *RE
TURN,*BASIC,*SHOW,*SORT,*TAPE,":PRINT" *
DISC,*CURRENCY":PROCline(6):PRINT" + ALL
THE NORMAL SYSTEM COMMANDS.":GOTO1040:E
NDPROC
1100DEFPROCwarn:CLS:IF numques>2 ENDPRO
C
1110PROCline(7):VDU132,157:PRINT" YOU N
EED AT LEAST 2 PIECES OF DATA ";CHR$(156
):VDU132,157:PRINT" IN THE COMPUTER'S ME
MORY ";CHR$(156):PROCline(7):G
T$=GET$:CLS:PROCmenu:ENDPROC
1120DEFPROCstore:PROCshow10:PRINT'" WHI
CH SLOT DO YOU WISH TO STORE YOUR":INPUT
" VALUE IN ?"st:VDU11,11:PRINT" UNDER WH
AT NAME DO YOU WISH THE ":INPUT" VALUE T
O BE UNDER ?"kl$(st):J(st)=tp:PROCshow10
:ENDPROC
1130DEFPROCshow10:CLS:VDU129,157:PRINT"
NUMBER NAME VALUE ";CH
R$(156):FORY=1 TO 15:PRINT" ";Y;TAB(
9)" ";kl$(Y);TAB(27)" £";J(Y):NEXT:ENDPR
OC
1140DEFPROCdate:PRINT" DO YOU WISH TO A
LTER THE DATE TO THIS"'" RECORD (Y/N) ?"
;:GT$=GET$:IF GT$="Y" OR GT$="y" GOTO 11
60
1150 IF GT$="N" OR GT$="n" ENDPROC
1160CLS:PROCline(1):PRINT" OLD DATE":PR
OCline(1)
1170PRINT" DAY : ";DAY$(T)'" MONTH
: ";MONTH$(T)'" YEAR : ";YEAR(T)
:PROCline(1):PRINT" NEW DATE":PROCline(1
):INPUT" DAY : "DAY$(T):INPUT" MONT
H : "MONTH$(T):INPUT" YEAR : "YEA
R(T):CLS:ENDPROC
1180DEFPROCout:CLS:PRINTTAB(10);CHR$(13
2);CHR$(157);CHR$(141)" PLEASE WAIT ";
CHR$(156):PRINTTAB(10);CHR$(132);CHR$(15
7);CHR$(141)" PLEASE WAIT ";CHR$(156):
VDU28,0,24,39,6,2,1,27,1,120,1,1,1,27,1,
77,1,27,1,69
1190PRINTTAB(0)"NAME OF";TAB(18)"| NO.O
F";TAB(28)"| MARKET";TAB(37)"| BOUGHT";T
AB(50)"| PRESENT";TAB(61)"| ORIGINAL";TA
B(73)"| DATE";TAB(92)"|"
1200 PRINTTAB(0)"SHARE";TAB(18)"| SHARE
S";TAB(28)"| VALUE";TAB(37)"| AT..";TAB(
50)"| VALUE";TAB(61)"| VALUE";TAB(73)"|"
;TAB(92)"|"
1210PROCdit:FOR T=1 TO numques-1:IF T M
OD 19=0 VDU3,26:CLS:PROCtitle:PROCnext
1220 total=number(T)*(value(T)/100):tot
al2=number(T)*(bht(T)/100)
1230 PRINTTAB(0);name$(T);TAB(18)"| x "
;number(T);TAB(28)"| ";value(T)"p";TAB(3
7)"| ";bht(T)"p";TAB(50)"| £";total;TAB(
61)"| £";total2;TAB(73)"| ";DAY$(T);TAB(
92)"|"
1240 PRINTTAB(18)"|";TAB(28)"|";TAB(37)
"|";TAB(50)"|";TAB(61)"|";TAB(73)"| ";MO
NTH$(T)",";YEAR(T);TAB(92)"|"
1250 PROCdit:NEXT:VDU3,26:CLS:PROCtitle
:ENDPROC
1260 DEFPROCdit:PRINTSTRING$(92,"-"):EN
DPROC
1270 DEFPROCnext:IF T MOD 19=0 VDU3,26:
CLS:PROCtitle:PRINT" PRESS ANY KEY TO CO
NTINUE":GT$=GET$:CLS:PRINTTAB(10);CHR$(1
32);CHR$(157);CHR$(141)" PLEASE WAIT "
;CHR$(156):PRINTTAB(10);CHR$(132);CHR$(1
57);CHR$(141)" PLEASE WAIT ";CHR$(156)
1280VDU28,0,24,39,6,2:PRINTTAB(0)"NAME
OF";TAB(18)"| NO.OF";TAB(28)"| MARKET";T
AB(37)"| BOUGHT";TAB(50)"| PRESENT";TAB(
61)"| ORIGINAL";TAB(73)"| DATE";TAB(92)"
|":PRINTTAB(0)"SHARE";TAB(18)"| SHARES";
TAB(28)"| VALUE";TAB(37)"| AT..";
1290 PRINTTAB(50)"| VALUE";TAB(61)"| VA
LUE";TAB(73)"|";TAB(92)"|":ENDPROC
1300 DEFPROCsave1:CLS:PRINTTAB(8);:VDU1
32,157,141:PRINT" saving option ";CHR$
(156):PRINTTAB(8);:VDU132,157,141:PRINT"
saving option ";CHR$(156)
1310 VDU28,0,24,39,7:PROCline(5):INPUT"
NAME OF FILE :"F$
1320CH%=OPENOUT(F$)
1330FOR I=1 TO numques
1340PRINT#CH%,name$(I),bht(I),value(I),
date$(I),DAY$(I),MONTH$(I),YEAR(I),numbe
r(I):NEXT
1350 FOR I=1 TO 15:PRINT#CH%,J(I),kl$(I
):NEXT
1360 PRINT#CH%,fil$,check
1370 CLOSE#0:CLS:PRINT" THE FILE ";F$;"
HAS BEEN SAVED":GT$=GET$:VDU26:CLS:PROC
title:PROCmenu:ENDPROC
1380DEFPROCload1:CLS:PRINTTAB(8);:VDU13
2,157,141:PRINT" loading option ";CHR$
(156):PRINTTAB(8);:VDU132,157,141:PRINT"
loading option ";CHR$(156)
1390VDU28,0,24,39,7:PROCline(5):INPUT"
NAME OF FILE :"F$
1400CH%=OPENIN(F$)
1410FOR I=1 TO numques
1420INPUT#CH%,name$(I),bht(I),value(I),
date$(I),DAY$(I),MONTH$(I),YEAR(I),numbe
r(I):NEXT
1430FOR I=1 TO 15:INPUT#CH%,J(I),kl$(I)
:NEXT
1440INPUT#CH%,fil$,check
1450CLOSE#0:CLS:PRINT" THE FILE ";F$;"
HAS BEEN LOADED":GT$=GET$:VDU26:CLS:PROC
title:PROCmenu:ENDPROC
1460DEFPROCview:FOR L=1 TO numques-1:DF
=1:PROCprint(L):NEXT:DF=0:CLS:PROCmenu:E
NDPROC
1470DEFPROCgraph:VDU26:T=1
1480 CLS:b=bht(T)/100:n=value(T)/100:b1
=b:n1=n
1490IF b>1000 QT=2000 ELSE QT=1000
1500 PRINT" NAME OF SHARE :";:VDU132,15
7:PRINT" ";name$(T)
1510PRINT':TB=12
1520 FOR M=1 TO QT/100:PRINTTAB(TB)"
":NEXT
1530 GH=3
1540 PRINTTAB(0,8)"£":PRINT"POUNDS"
1550 IF QT=1000 PROCp1 ELSE IF QT=2000
PROCp2
1560FOR Q=QT TO 0 STEP -200:PRINTTAB(TB
,GH)" STRINGPRINTTABTBG
H);INT(Q)" GHGHNEXT
1570 IF b<=1000 L=13 ELSE IF b>1000 L=2
3
1580 IF b>2000 b1=2000
1590 GH=3:FOR Q=b1 TO 0 STEP-100:PRINTT
AB(TB+2,L)" LLNEXT
1600 IF b<=1000 L=13 ELSE IF b>1000 L=2
3
1610 IF n>2000 n1=2000
1620 FOR Q=n1 TO 0 STEP-100:PRINTTAB((T
B*2)+2,L)" LLNEXT
1630 IF T=numques-1 GT$=GET$:CLS:PROCti
tle:PROCmenu:ENDPROC
1640 GT$=GET$:CLS:T=T+1:GOTO 1480:ENDPR
OC
1650DEFPROCp1:PRINTTAB(0,15)" : ORI
GINAL VALUE OF SHARE (£";b")":PRINT'"
¶ : LATEST VALUE (£";n")":ENDPROC
1660DEFPROCp2:PRINTTAB(0,1)" : ORIG
INAL VALUE OF SHARE £";b:PRINT" : LA
TEST VALUE £";n:ENDPROC
1670DEFPROCcur(MR):VDU26
1680CLS:PRINTTAB(8);:VDU132,157,141:PRI
NT" currency to $ ";CHR$(156):PRINTTAB
(8);:VDU132,157,141:PRINT" currency to $
";CHR$(156)
1690PROCline(1):PRINT" NAME ";TAB(10)"x
: $ ";TAB(19)"NAME ";TAB(30)"x : $":PRO
Cline(1):FOR X=1 TO 30 STEP 2:PRINT" ";T
R$(X)" ";TAB(10);PR(X);TAB(19)" ";TR$(X+
1)" ";TAB(30);PR(X+1):NEXT
1700IF MR<>2 GOTO 1730
1710PROCline(1):PRINT" NOTE : THESE VAL
UES ARE ALWAYS"'" CHANGING,SO IT IS POSS
IBLE TO ALTER"'" THEM,BY USING OPTION A"
:GT$=GET$
1720IF MR=2 CLS:PROCtitle:PROCmenu:ENDP
ROC
1730PROCline(1):PRINT" TYPE IN THE APPR
OPRIATE TITLE (eg HK$)":INPUT" TO CHANGE
THE VALUE :"cv$:JA=1
1740 IF cv$="" OR cv$="0" CLS:PROCtitle
:PROCmenu:ENDPROC
1750 IF TR$(JA)=cv$ THEN GOTO 1780
1760 IF JA=30 CLS:PROCtitle:PROCmenu:EN
DPROC
1770 JA=JA+1:GOTO 1750
1780CLS:PROCline(2):PRINT" NAME :";:VDU
132,157:PRINT" ";cv$;" ";CHR$(156):PRO
Cline(2):PRINT" OLD VALUE : ";PR(JA):PRO
Cline(2):INPUT" NEW VALUE : "PR(JA)
1790PROCwait:PROCsave10:PRINT'" THE NEW
DATA HAS BEEN SAVED UNDER"'" THE FILENA
ME L.DATA":GT$=GET$:VDU26:CLS:PROCtitle:
PROCmenu:ENDPROC
1800DEFPROCfload1:DIM TR$(30),PR(30):A=
OPENIN("L.DATA"):FOR T=1 TO 30:INPUT#A,T
R$(T),PR(T):NEXT:CLOSE#0:ENDPROC
1810DEFPROCsave10:A=OPENOUT("L.DATA"):F
OR T=1 TO 30:PRINT#A,TR$(T),PR(T):NEXT:C
LOSE#0:ENDPROC
1820DEFPROCc2:CLS:PROCcur(1):ENDPROC
1830DEFPROCwait:CLS:PRINTTAB(8,12);CHR$
(132);CHR$(157);CHR$(141)" PLEASE WAIT
";CHR$(156):PRINTTAB(8,13);CHR$(132);CH
R$(157);CHR$(141)" PLEASE WAIT ";CHR$(
156):ENDPROC
1840DEFPROCsearch1(nm):FOR HA=1 TO numq
ues-1:IF value(HA)=nm:PRINT'" FOUND SHAR
E.PRESS ANY KEY.":GT$=GET$:PROCprint(HA)
:ENDPROC
1850 NEXT:IF vb<>1 PRINT'" SORRY,NONE O
F THE SHARES HAVE A VALUE"'" OF ";nm:GT$
=GET$:CLS:PROCmenu:ENDPROC
1860 ENDPROC