10 PROCfload1:MODE7:VDU23;8202;0;0;0;23,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("FX15,1"):OSCLI("DIR T"):PROCtitle:PROCinfo:PROCmenu:END 20 DEFPROCtitle:OSCLI("FX21,0"):VDU132,157,141:PRINT"Sharps accountant…byƒa.s.shakoor ";CHR$(156):VDU132,157,141:PRINT")hAreS ACC0UnTAnT…byƒA.S.ShAk00r ";CHR$(156):PRINTTAB(0,22);:VDU132,157,141:PRINT"Sharps accountant…byƒa.s.shakoor ";CHR$(156) 30 VDU132,157,141:PRINT")hAreS ACC0UnTAnT…byƒA.S.ShAk00r ";CHR$(156):VDU 28,0,21,39,2:ENDPROC 40 DEFPROCinfo:vb=9:DF=0:max=300:check=0:DIM name$(max),bht(max),value(max),date$(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":NEXT:numques=1:fil$="‡disc":ENDPROC 50 IF 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):PRINTTAB(5);:VDU132,157,141:PRINT"‡1ƒcreATe†new ShAre(S) ";CHR$(156) 90 PRINTTAB(5);:VDU132,157,141:PRINT"‡2†changp…market valup ";CHR$(156):PRINTTAB(5);:VDU132,157,141:PRINT"‡2†chAnge‡mArkeT VAlUe ";CHR$(156) 100 PRINTTAB(5);:VDU132,157,141:PRINT"‡3†changpdatp ";CHR$(156):PRINTTAB(5);:VDU132,157,141:PRINT"‡3†chAngeƒcATe ";CHR$(156) 110 PRINTTAB(5);:VDU132,157,141:PRINT"‡4†calculatp‚pricp ";CHR$(156):PRINTTAB(5);:VDU132,157,141:PRINT"‡4†cAlcUlATe‡prIce ";CHR$(156) 120 PRINTTAB(5);:VDU132,157,141:PRINT"‡5†sharps inƒmpmory ";CHR$(156):PRINTTAB(5);:VDU132,157,141:PRINT"‡5†ShAreS InMeM0rY ";CHR$(156) 130 PRINTTAB(5);:VDU132,157,141:PRINT"‡6…savp†filp onto";fil$" ";CHR$(156):PRINTTAB(5);:VDU132,157,141:PRINT"‡6ƒSAVe†fIle 0nT0";fil$" ";CHR$(156) 140 PRINTTAB(5);:VDU132,157,141:PRINT"‡7‚load†filp from";fil$" ";CHR$(156):PRINTTAB(5);:VDU132,157,141:PRINT"‡7l0Ad†fIle fr0M";fil$" ";CHR$(156) 150 PRINTTAB(5);:VDU132,157,141:PRINT"‡8ƒnpxt pagp ";CHR$(156):PRINTTAB(5);:VDU132,157,141:PRINT"‡8ƒneXT pAge ";CHR$(156) 160 PRINTCHR$(148);STRING$(37,"`") 170 A$=GET$ 180 IF A$="1" OR A$="!" PROCadd ELSE IF A$="2" OR A$=CHR$(34):PROCwarn:PROCm("MARKET") ELSE IF A$="3" OR A$="#" PROCwarn:PROCm("DATE") ELSE IF A$="4" OR A$="$" PROCcal ELSE IF A$="5" OR A$="%" PROCwarn:PROCshow 190 IF A$="8" OR A$="(" GOTO 210 ELSE IF A$="6" OR A$="&" PROCwarn:CLS:PROCsave1 ELSE IF A$="7" OR A$="'" CLS:PROCload1 200 GOTO 70 210 CLS 220 PRINTTAB(0,0);CHR$(148);STRING$(37,"p") 230 PRINTTAB(5);:VDU132,157,141:PRINT"‡Aƒ'*'†Commands ";CHR$(156):PRINTTAB(5);:VDU132,157,141:PRINT"‡Aƒ'*'C0MMANcS ";CHR$(156) 240 PRINTTAB(5);:VDU132,157,141:PRINT"‡Bƒprintout†of sharps ";CHR$(156):PRINTTAB(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):PRINTTAB(5);:VDU132,157,141:PRINT"‡C‡View†cATA 0n ShAreS ";CHR$(156) 260 PRINTTAB(5);:VDU132,157,141:PRINT"‡Ddataƒin…graphƒform ";CHR$(156):PRINTTAB(5);:VDU132,157,141:PRINT"‡D…cATAƒingrAphƒf0rM ";CHR$(156) 270 PRINTTAB(5);:VDU132,157,141:PRINT"‡Ecurrencyƒmarket ";CHR$(156):PRINTTAB(5);:VDU132,157,141:PRINT"‡Eƒcurrency mArket ";CHR$(156) 280 PRINTTAB(5);:VDU132,157,141:PRINT"‡Fƒnpxt pagp ";CHR$(156):PRINTTAB(5);:VDU132,157,141:PRINT"‡FƒneXT pAge ";CHR$(156) 290 PRINTCHR$(148);STRING$(37,"`") 300 A$=GET$ 310 IF A$="B" OR A$="b" PROCwarn:PROCout ELSE IF A$="A" OR A$="a" PROCoscli ELSE IF A$="C" OR A$="c" PROCwarn:PROCview ELSE IF A$="D" OR A$="d" PROCwarn:PROCgraph 320 IF A$="E" OR A$="e" PROCcur(2) ELSE IF A$="F" OR A$="f" CLS:GOTO 70 330 GOTO 300:ENDPROC 340 DEFPROCline(l):PRINTCHR$(l+144);STRING$(37,","):ENDPROC 350 DEFPROCadd:CLS:check=1:s1=0 360 VDU132,157:PRINT"‡SHARE NUMBER";numques" ";CHR$(156) 370 PRINTTAB(0,2)"NAME OFƒSHARE :‡"; 380 INPUT""name$(numques) 390 IF name$(numques)="0" OR name$(numques)="" CLS:GOTO360 400 PRINTTAB(0,4)"MARKET VALUE":PRINT"†(IN PENCE) ƒ:‡"; 410 INPUT""value(numques) 420 IF value(numques)=0 PRINTTAB(18,5)" ":GOTO400 430 PRINT'"NUMBER OFƒUNITS :‡"; 440 INPUT""number(numques) 450 IF value(numques)=0 PRINTTAB(18,8)" ":GOTO430 460 PRINT 470 PRINT"†PRICE BOUGHT AT ‡: "; 480 INPUT""bht(numques) 490 IF bht(numques)=0 VDU11:PRINTTAB(18)" ":VDU11:GOTO470 500 PRINTTAB(0,11)"†DATEWHEN SHARES WERE BOUGHT....":PROCline(5) 510 INPUT"…DAY :‡"DAY$(numques):INPUT"…MONTH :‡"MONTH$(numques):INPUT"…YEAR :‡"YEAR(numques):PROCline(5) 520 PRINT"‚DO YOU WISH TO RETURN TO THE MAIN":PRINT"‚MENU ?":GT$=GET$ 530 IF GT$="Y" OR GT$="y" numques=numques+1:CLS:PROCmenu 540 IF numques=max CLS:PROCmenu 550 CLS:numques=numques+1:GOTO360 560 ENDPROC 570 DEFPROCm(ZM$):CLS 580 IF check=0 GOTO170:ENDPROC 590 PROCline(5) 600 PRINTTAB(0,2)"WHICHƒSHAREDO YOU WISH TO CHANGE ?" 610 PRINTTAB(0,4)"†DO YOU KNOW THE NAME ?ƒ(Y/N) ":GT$=GET$ 620 IF GT$="Y" OR GT$="y" GOTO 670 630 PRINTTAB(0,6)"†DO YOU KNOW THEƒSHARE'S†MARKET" 640 PRINT"†VALUE ?‚(Y/N) ":GT$=GET$ 650 IF GT$="Y" OR GT$="y" GOTO 680 660 PROCmenu 670 PROCline(5):INPUT"…NAME OFƒSHARE:‡"name1$:PROCline(5):PRINT"SEARCHING THROUGH RECORDS.PLEASE WAIT":PROCline(5):GOTO700 680 PROCline(6):INPUT'"…WHAT IS THEƒSHARE'S…VALUE:‡"nm:CLS:PROCline(2):PRINT"SEARCHING THROUGH RECORDS.PLEASE WAIT":PROCline(2):PROCsearch1(nm) 690 ENDPROC 700 FOR T=1 TO numques:IF name1$=name$(T):PRINT'"‚FOUND SHARE.PRESS ANY KEY.":GT$=GET$:vb=1:PROCprint(T):ENDPROC 710 NEXT:IF vb=1 VDU26:CLS:PROCtitle:PROCmenu:ENDPROC 720 PRINT'"‚SORRY,";name1$;" IS UNAVAILABLE":PRINT'"ƒPRESS ANY KEY":GT$=GET$:CLS:PROCmenu:ENDPROC 730 DEFPROCprint(T):vb=1:CLS:PROCline(5):PRINT"NAME‡ : ";CHR$(132);CHR$(157)"‡"name$(T)" ";CHR$(156)'"SHARE No. ‡:‡";CHR$(132);CHR$(157)"‡";T;" ";CHR$(156):PROCline(5) 740 PRINT"ƒNUMBER OF SHARES :";CHR$(132);CHR$(157)"‡";number(T);TAB(36);CHR$(156):PRINT"ƒORIGINAL MARKET VALUE :";CHR$(132);CHR$(157)"‡";bht(T);"‡(p)";TAB(36);CHR$(156) 750 PRINT"TOTAL PRICE :";CHR$(132);CHR$(157)"‡`";number(T)*(bht(T)/100);TAB(36);CHR$(156):PROCline(5) 760 PRINT" 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):PROCline(5) 770 ov=(number(T)*(value(T)/100))-(number(T)*(bht(T)/100)):IF ov<0 nq$="LOSS" ELSE IF ov>0 nq$="GAIN" ELSE IF ov=0 nq$="NO CHANGE" 780 PRINT"‚GAIN/LOSS/NO CHANGE‡ :";CHR$(132);CHR$(157)"‡";nq$;TAB(37);CHR$(156):IF nq$="GAIN" nq$="+":GOTO800 790 nq$="" 800 PRINTTAB(24);CHR$(132);CHR$(157)"‡(`";nq$;INT(ov)")";TAB(37);CHR$(156) 810 PROCline(5):PRINT"‚DAY :";:VDU132,157:PRINT"‡";DAY$(T);TAB(25);CHR$(156) 820 PRINT"‚MONTH :";:VDU132,157:PRINT"‡";MONTH$(T);TAB(25);CHR$(156):PRINT"‚YEAR :";:VDU132,157:PRINT"‡";YEAR(T);TAB(25);CHR$(156):PROCline(3) 830 IF DF=1 PRINT"ƒPRESS ANY KEY TO CONTINUE":vb=1:GT$=GET$:ENDPROC 840 PROCalter(T,ZM$):NEXT:CLS:PROCmenu 850 ENDPROC 860 DEFPROCcal:CLS:PRINT':VDU132,157,141:PRINT"‡CALCULATING VALUE OF SHARES ";CHR$(156);:PRINT:VDU132,157,141:PRINT"‡CALCULATING VALUE OF SHARES ";CHR$(156):PRINT:PROCline(6):PRINT"…MARKET 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 WISH 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$="DATE" PROCdate:ENDPROC 910 IF GT$="Y" OR GT$="y" GOTO 930 920 IF GT$="N" OR GT$="n" ENDPROC 930 PRINT"ƒOLD MARKET PRICE :‡";value(T):INPUT"ƒNEW MARKET PRICE :‡"value(T):VDU11,11:PRINTSTRING$(39," "):PRINT"‚PRESS ANY KEY TO CONTINUE ":GT$=GET$:CLS:ENDPROC 940 DEFPROCshow:PROCsort:IF check=0:CLS:PROCmenu 950 PROCwait:FOR T=1 TO numques:PROCsort:NEXT:CLS 960 PRINT"‚NAME ƒ MARKET†BOUGHT…No.of":PRINT" ƒVALUE †AT …SHARES" 970 PROCline(5):FOR T=1 TO numques-1:IF T MOD 15=0 PROCline(5):PRINT"ƒPRESS ANY KEY TO SEE THE NEXT PAGE":GT$=GET$:CLS:PRINT"‚NAME ƒ MARKET†BOUGHT…No.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 numques-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$ 1050 IF cmd$="currency" OR cmd$="CURRENCY" PROCc2 ELSE IF cmd$="TAPE" OR cmd$="tape" fil$="‡tape" ELSE IF cmd$="DISC" OR cmd$="disc" fil$="‡disc" 1060 IF cmd$="sort" OR cmd$="SORT" PROCsort: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$="show" OR cmd$="SHOW" PROChelp 1080 OSCLI(cmd$):GOTO1040:ENDPROC 1090 DEFPROChelp:PROCline(6):PRINT" *RETURN,*BASIC,*SHOW,*SORT,*TAPE,":PRINT"‡*DISC,*CURRENCY":PROCline(6):PRINT"…+ ALL THE NORMAL SYSTEM COMMANDS.":GOTO1040:ENDPROC 1100 DEFPROCwarn:CLS:IF numques>2 ENDPROC 1110 PROCline(7):VDU132,157:PRINT"‚YOU NEED AT LEASTƒ2 PIECES OF DATA ";CHR$(156):VDU132,157:PRINT"‚IN THE COMPUTER'S MEMORY ";CHR$(156):PROCline(7):GT$=GET$:CLS:PROCmenu:ENDPROC 1120 DEFPROCstore:PROCshow10:PRINT'"…WHICH SLOT DO YOU WISH TO STORE YOUR":INPUT"…VALUE IN ?"st:VDU11,11:PRINT"‡UNDER WHAT NAME DO YOU WISH THE ":INPUT"‡VALUE TO BE UNDER ?"kl$(st):J(st)=tp:PROCshow10:ENDPROC 1130 DEFPROCshow10:CLS:VDU129,157:PRINT"‡NUMBER†NAMEƒ VALUE ";CHR$(156):FORY=1 TO 15:PRINT" ƒ ";Y;TAB(9)"";kl$(Y);TAB(27)"‚`";J(Y):NEXT:ENDPROC 1140 DEFPROCdate:PRINT"†DO YOU WISH TO ALTER THE DATE TO THIS"'"†RECORDƒ(Y/N) ?";:GT$=GET$:IF GT$="Y" OR GT$="y" GOTO 1160 1150 IF GT$="N" OR GT$="n" ENDPROC 1160 CLS:PROCline(1):PRINT"‡OLD DATE":PROCline(1) 1170 PRINT"ƒDAY :‡";DAY$(T)'"ƒMONTH :‡";MONTH$(T)'"ƒYEAR :‡";YEAR(T):PROCline(1):PRINT"†NEW‡DATE":PROCline(1):INPUT"ƒDAY :‡"DAY$(T):INPUT"ƒMONTH :‡"MONTH$(T):INPUT"ƒYEAR :‡"YEAR(T):CLS:ENDPROC 1180 DEFPROCout:CLS:PRINTTAB(10);CHR$(132);CHR$(157);CHR$(141)"‡PLEASE WAIT ";CHR$(156):PRINTTAB(10);CHR$(132);CHR$(157);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 1190 PRINTTAB(0)"NAME OF";TAB(18)"| NO.OF";TAB(28)"| MARKET";TAB(37)"| BOUGHT";TAB(50)"| PRESENT";TAB(61)"| ORIGINAL";TAB(73)"| DATE";TAB(92)"|" 1200 PRINTTAB(0)"SHARE";TAB(18)"| SHARES";TAB(28)"| VALUE";TAB(37)"| AT..";TAB(50)"| VALUE";TAB(61)"| VALUE";TAB(73)"|";TAB(92)"|" 1210 PROCdit:FOR T=1 TO numques-1:IF T MOD 19=0 VDU3,26:CLS:PROCtitle:PROCnext 1220 total=number(T)*(value(T)/100):total2=number(T)*(bht(T)/100) 1230 PRINTTAB(0);name$(T);TAB(18)"| x ";number(T);TAB(28)"| ";value(T)"p";TAB(37)"| ";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)"| ";MONTH$(T)",";YEAR(T);TAB(92)"|" 1250 PROCdit:NEXT:VDU3,26:CLS:PROCtitle:ENDPROC 1260 DEFPROCdit:PRINTSTRING$(92,"-"):ENDPROC 1270 DEFPROCnext:IF T MOD 19=0 VDU3,26:CLS:PROCtitle:PRINT"†PRESS ANY KEY TO CONTINUE":GT$=GET$:CLS:PRINTTAB(10);CHR$(132);CHR$(157);CHR$(141)"‡PLEASE WAIT ";CHR$(156):PRINTTAB(10);CHR$(132);CHR$(157);CHR$(141)"‡PLEASE WAIT ";CHR$(156) 1280 VDU28,0,24,39,6,2:PRINTTAB(0)"NAME OF";TAB(18)"| NO.OF";TAB(28)"| MARKET";TAB(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)"| VALUE";TAB(73)"|";TAB(92)"|":ENDPROC 1300 DEFPROCsave1:CLS:PRINTTAB(8);:VDU132,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$ 1320 CH%=OPENOUT(F$) 1330 FOR I=1 TO numques 1340 PRINT#CH%,name$(I),bht(I),value(I),date$(I),DAY$(I),MONTH$(I),YEAR(I),number(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:PROCtitle:PROCmenu:ENDPROC 1380 DEFPROCload1:CLS:PRINTTAB(8);:VDU132,157,141:PRINT"‡loading option ";CHR$(156):PRINTTAB(8);:VDU132,157,141:PRINT"‡loading option ";CHR$(156) 1390 VDU28,0,24,39,7:PROCline(5):INPUT"ƒNAME OF FILE‡:"F$ 1400 CH%=OPENIN(F$) 1410 FOR I=1 TO numques 1420 INPUT#CH%,name$(I),bht(I),value(I),date$(I),DAY$(I),MONTH$(I),YEAR(I),number(I):NEXT 1430 FOR I=1 TO 15:INPUT#CH%,J(I),kl$(I):NEXT 1440 INPUT#CH%,fil$,check 1450 CLOSE#0:CLS:PRINT"‚THE FILEƒ";F$;"‚HAS BEEN LOADED":GT$=GET$:VDU26:CLS:PROCtitle:PROCmenu:ENDPROC 1460 DEFPROCview:FOR L=1 TO numques-1:DF=1:PROCprint(L):NEXT:DF=0:CLS:PROCmenu:ENDPROC 1470 DEFPROCgraph:VDU26:T=1 1480 CLS:b=bht(T)/100:n=value(T)/100:b1=b:n1=n 1490 IF b>1000 QT=2000 ELSE QT=1000 1500 PRINT"ƒNAME OF SHARE‡:";:VDU132,157:PRINT"‡";name$(T) 1510 PRINT':TB=12 1520 FOR M=1 TO QT/100:PRINTTAB(TB)"•5‡":NEXT 1530 GH=3 1540 PRINTTAB(0,8)"`":PRINT"POUNDS" 1550 IF QT=1000 PROCp1 ELSE IF QT=2000 PROCp2 1560 FOR Q=QT TO 0 STEP -200:PRINTTAB(TB,GH)"•u";STRING$(25,"p"):PRINTTAB(TB-4,GH);INT(Q)"•":GH=GH+2:NEXT 1570 IF b<=1000 L=13 ELSE IF b>1000 L=23 1580 IF b>2000 b1=2000 1590 GH=3:FOR Q=b1 TO 0 STEP-100:PRINTTAB(TB+2,L)"‘˙˙˙˙˙˙˙˙˙•":L=L-1:NEXT 1600 IF b<=1000 L=13 ELSE IF b>1000 L=23 1610 IF n>2000 n1=2000 1620 FOR Q=n1 TO 0 STEP-100:PRINTTAB((TB*2)+2,L)"’˙˙˙˙˙˙˙˙˙•":L=L-1:NEXT 1630 IF T=numques-1 GT$=GET$:CLS:PROCtitle:PROCmenu:ENDPROC 1640 GT$=GET$:CLS:T=T+1:GOTO 1480:ENDPROC 1650 DEFPROCp1:PRINTTAB(0,15)"‘˙˙˙‡:†ORIGINAL VALUE OF SHAREƒ(`";b")":PRINT'"’˙˙˙‡:†LATEST VALUEƒ(`";n")":ENDPROC 1660 DEFPROCp2:PRINTTAB(0,1)"‘˙˙˙‡:†ORIGINAL VALUE OF SHAREƒ`";b:PRINT"’˙˙˙‡:†LATEST VALUEƒ`";n:ENDPROC 1670 DEFPROCcur(MR):VDU26 1680 CLS:PRINTTAB(8);:VDU132,157,141:PRINT"‡currency to $ ";CHR$(156):PRINTTAB(8);:VDU132,157,141:PRINT"‡currency to $ ";CHR$(156) 1690 PROCline(1):PRINT"NAMEƒ";TAB(10)"x : $";TAB(19)"NAMEƒ";TAB(30)"x : $":PROCline(1):FOR X=1 TO 30 STEP 2:PRINT"…";TR$(X)"‡";TAB(10);PR(X);TAB(19)"…";TR$(X+1)"‡";TAB(30);PR(X+1):NEXT 1700 IF MR<>2 GOTO 1730 1710 PROCline(1):PRINT"ƒNOTE : THESE VALUES ARE ALWAYS"'"ƒCHANGING,SO IT IS POSSIBLE TO ALTER"'"ƒTHEM,BY USING…OPTION‡A":GT$=GET$ 1720 IF MR=2 CLS:PROCtitle:PROCmenu:ENDPROC 1730 PROCline(1):PRINT"‚TYPE IN THE APPROPRIATE 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:ENDPROC 1770 JA=JA+1:GOTO 1750 1780 CLS:PROCline(2):PRINT"NAME‡:";:VDU132,157:PRINT"‡";cv$;" ";CHR$(156):PROCline(2):PRINT"†OLDƒVALUE : ";PR(JA):PROCline(2):INPUT"…NEWƒVALUE :ˆ"PR(JA) 1790 PROCwait:PROCsave10:PRINT'"ƒTHE NEW DATA HAS BEEN SAVED UNDER"'"ƒTHE FILENAMEL.DATA":GT$=GET$:VDU26:CLS:PROCtitle:PROCmenu:ENDPROC 1800 DEFPROCfload1:DIM TR$(30),PR(30):A=OPENIN("L.DATA"):FOR T=1 TO 30:INPUT#A,TR$(T),PR(T):NEXT:CLOSE#0:ENDPROC 1810 DEFPROCsave10:A=OPENOUT("L.DATA"):FOR T=1 TO 30:PRINT#A,TR$(T),PR(T):NEXT:CLOSE#0:ENDPROC 1820 DEFPROCc2:CLS:PROCcur(1):ENDPROC 1830 DEFPROCwait:CLS:PRINTTAB(8,12);CHR$(132);CHR$(157);CHR$(141)"‡PLEASE WAIT ";CHR$(156):PRINTTAB(8,13);CHR$(132);CHR$(157);CHR$(141)"‡PLEASE WAIT ";CHR$(156):ENDPROC 1840 DEFPROCsearch1(nm):FOR HA=1 TO numques-1:IF value(HA)=nm:PRINT'"‚FOUND SHARE.PRESS ANY KEY.":GT$=GET$:PROCprint(HA):ENDPROC 1850 NEXT:IF vb<>1 PRINT'"‚SORRY,NONE OF THE SHARES HAVE A VALUE"'"‚OFƒ";nm:GT$=GET$:CLS:PROCmenu:ENDPROC 1860 ENDPROC