Home » CEEFAX disks » telesoftware7.adl » 27-05-88/ENTRY
27-05-88/ENTRY
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » CEEFAX disks » telesoftware7.adl |
| Filename: | 27-05-88/ENTRY |
| Read OK: | ✔ |
| File size: | 32E6 bytes |
| Load address: | FFFF1A00 |
| Exec address: | FFFF802B |
File contents
10REM PORTFOLIO - ENTRY
20REM (C) Jon Leighton May 1988
30:
40*FX229,1
50DIM m$(23),s$(23),p$(23),n%(1),day$(4)
60DIM omax%(20),omin%(20),year%(3)
70ON ERROR GOTO 90
80GOTO 170
90REPORT
100PRINT"ERR=";ERR;" ERL=";ERL
110ON ERROROFF
120IF ERR=197 PRINT''"Drive ";FNdrive;" does not exist":PROCkey:*DR.0
130IF ERR=198 PRINT''"Insert a new formatted disc and":PROCkey:PROCopen2
140IF ERR=199 PRINT''"Disc unformatted or not in drive":PROCkey:*DR.0
150RUN
160REM Set up variables
170day$(0)="Monday ":day$(1)="Tuesday ":day$(2)="Wednesday":day$(3)="Thursday ":day$(4)="Friday "
180wx%=1
190wy%=1
200len%=0
210max%=0
220n%(0)=7
230n%(1)=4
240S%=FALSE: REM S%=FALSE if no share names entered
250P%=FALSE: REM P%=FALSE if no price entered
260firstptr%=158: REM pointer to first data point
270minrecord%=251: REM pointer to first data point
280firstrecord%=minrecord%
290DAYPTR%=164: REM pointer to current day (Monday = 1, etc.)
300firstmin%=171: REM positn of first share min price used for scaling
310discptr%=0
320DAY=1
330K%=FALSE
340endofile%=FALSE
350b$=" "
360t$=b$
370p$="Portfolio"
380PROCgetyear
390IF Q%<0 OR Q%>3 GOTO 440
400year$=STR$(year%(Q%))
410IF Q%=0 ndata%=1 ELSE ndata%=20
420len%=0
430IF T% AND Q%>=0 AND Q%<5 PROCcheck_and_open_file
440MODE 4
450REPEAT
460m$(0)="Data Entry"
470m$(2)="Share name entry/edit"
480m$(3)="Share price entry/edit"
490m$(4)="Scale"
500m$(5)="Main menu"
510max%=5
520Z%=FALSE
530IF T% AND Q%>=0 AND Q%<4 m$(0)=m$(0)+" "+p$+":-"+STR$(Q%):m$(1)="" ELSE m$(1)=p$+" NOT OPEN":m$(2)="RETURN TO":m$(3)="MAIN MENU":max%=3:Z%=TRUE
540IF T% AND Q%=0 THEN m$(0)="Data Entry Index":m$(1)=""
550choice=FNmenu
560IF Z% choice=5
570IF choice=2 W%=0:PROCedit
580IF choice=3 W%=1:PROCedit
590IF choice=4 PROCscale
600IF choice=5 CLOSE#0:PROCchain("MAIN")
610UNTIL FALSE
620END
630:
640DEFPROCchain(A$)
650PROCsystem
660CHAIN A$
670ENDPROC
680:
690DEF FNmenu
700LOCAL loop%,len%:len%=0
710FOR loop%=0 TO max%
720IF LEN(m$(loop%))>len% THEN len%=LEN(m$(loop%))
730NEXT
740VDU 23,1,0;0;0;0;
750*FX 4,1
760PROCopenw(wx%,wy%,len%,max%+1)
770menuptr%=2
780IF Z% menuptr%=3
790REPEAT
800PRINTTAB(0,0);
810FOR loop%=0 TO max%
820IF loop%=menuptr% OR loop%=0 COLOUR 0:COLOUR 129 ELSE COLOUR 1:COLOUR 128
830PRINTm$(loop%);STRING$(len%-LEN(m$(loop%))," ");
840NEXT
850COLOUR 1:COLOUR 128
860*FX21,0
870KEY%=GET
880IF Z% GOTO 910
890IF KEY%=139 menuptr%=menuptr%-1:IF menuptr%=1:menuptr%=max%
900IF KEY%=138 menuptr%=menuptr%+1:IF menuptr%>max% menuptr%=2
910UNTIL KEY%=13 OR KEY%=27
920*FX4,0
930PROCclosew(wx%,wy%,len%,max%+1)
940=menuptr%
950:
960DEF PROCclosew(x,y,len%,ht)
970VDU 26
980GCOL 0,0
990PROCopenw(x,y,len%,ht)
1000CLS
1010VDU 26
1020GCOL 0,1
1030ENDPROC
1040:
1050DEF PROCopenw(x,y,len%,ht)
1060VDU 28,x,y+ht,x+len%-1,y
1070PROCrect(x*32-8,1016-(y+ht)*32,len%*32+12,ht*32+12,0)
1080PROCrect(x*32+16,1000-(y+ht)*32-8,len%*32+16,16,1)
1090PROCrect((x+len%)*32+16,1000-(y+ht)*32,16,ht*32+8,1)
1100ENDPROC
1110:
1120DEF PROCrect(x,y,l,w,f)
1130MOVE x,y
1140DRAW x+l,y
1150IF f=0 DRAW x+l,y+w ELSE PLOT 85,x,y+w
1160IF f=0 DRAW x,y+w ELSE PLOT 85,x+l,y+w
1170MOVE x,y+w
1180IF f=0 DRAW x,y ELSE MOVE x,y
1190ENDPROC
1200:
1210DEF PROCedit
1220max%=ndata%+3
1230m$(max%)=""
1240exit%=ndata%+2
1250IF W%=0 PROCsetupname ELSE PROCsetupprice:IF S%=FALSE CLS:ENDPROC
1260LOCAL loop%,len%:len%=0
1270FOR loop%=0 TO max%
1280IF LEN(m$(loop%))>len% THEN len%=LEN(m$(loop%))
1290NEXT
1300VDU 23,1,0;0;0;0;
1310*FX 4,1
1320PROCopenw(wx%,wy%,len%,max%+2)
1330menuptr%=2
1340REPEAT
1350NEWDATE%=FALSE
1360PRINTTAB(0,0);
1370FOR loop%=0 TO max%
1380IF loop%=menuptr% OR loop%=0 COLOUR 0:COLOUR 129 ELSE COLOUR 1:COLOUR 128
1390PRINTm$(loop%);STRING$(len%-LEN(m$(loop%))," ");
1400IF loop%=0 PRINT
1410NEXT
1420COLOUR 1:COLOUR 128
1430*FX21,0
1440KEY%=GET
1450IF KEY%=139 menuptr%=menuptr%-1:IF menuptr%=1:menuptr%=exit%
1460IF KEY%=138 menuptr%=menuptr%+1:IF menuptr%>exit% menuptr%=2
1470IF W%=1 AND (KEY%=&88 OR KEY%=&89):NEWDATE%=TRUE
1480IF KEY%>31 AND KEY%<128 AND menuptr%<>exit% PROCinput
1490UNTIL (menuptr%=exit% AND KEY%=13) OR NEWDATE%
1500IF W%=0 THEN PTR#A%=0:FOR ptr%=2TOndata%+1:FOR I%=1TO7:BPUT#A%,ASC(MID$(m$(ptr%),I%,1)):NEXT:NEXT
1510IF W%=1 THEN PRINTTAB(W%*12,ndata%+4)"WAIT ":PROCupdaterecord
1520endofile%=FALSE
1530IF W%=1 AND NEWDATE% THEN PROCchangedate:IF NEWDATE%=FALSE GOTO 1220
1540IF endofile% year$=STR$(OLDY):PROCcheck_and_open_file:GOTO 1220
1550PROCdumpptrs
1560IF W%=1 AND NEWDATE% THEN PROCsetupprice:GOTO 1330
1570IF W%=1 AND (KEY%=&88 OR KEY%=&89) GOTO 1330
1580*FX4,0
1590PROCclosew(wx%,wy%,len%,max%+2)
1600PROCloadnames_prices
1610ENDPROC
1620:
1630DEFPROCdumpptrs
1640ON ERROR GOTO 90
1650PTR#A%=firstptr%
1660BPUT#A%,firstrecord% DIV 256
1670BPUT#A%,firstrecord% MOD 256
1680BPUT#A%,D
1690BPUT#A%,M
1700BPUT#A%,(Y DIV 256)
1710BPUT#A%,(Y MOD 256)
1720BPUT#A%,DAY
1730BPUT#A%,(discptr% DIV 256)
1740BPUT#A%,(discptr% MOD 256)
1750BPUT#A%,d
1760BPUT#A%,m
1770BPUT#A%,(y DIV 256)
1780BPUT#A%,(y MOD 256)
1790ON ERROR OFF
1800ENDPROC
1810:
1820DEFPROCinput
1830K%=FALSE
1840IF W%=1 AND (KEY%<48 OR KEY%>57) VDU7:ENDPROC
1850IF KEY%<>127 t$=CHR$(KEY%)
1860PRINTTAB(W%*12,ndata%+4)t$;
1870IF W%=0 m$(menuptr%)=""
1880N%=1
1890REPEAT
1900KEY%=GET
1910IF KEY%=139 OR KEY%=138 OR KEY%=13 OR KEY%=&88 OR KEY%=&89 K%=TRUE
1920IF KEY%=&88 OR KEY%=&89 NEWDATE%=TRUE
1930IF K% OR KEY%=127 GOTO 1950
1940IF W%=1 AND (KEY%<48 OR KEY%>57) VDU7:GOTO 1900
1950ptr%=menuptr%
1960IF KEY%=139 menuptr%=menuptr%-1:IF menuptr%=1:menuptr%=exit%
1970IF KEY%=138 menuptr%=menuptr%+1:IF menuptr%>exit% menuptr%=2
1980IF K% GOTO 2070
1990IF KEY%=127 N%=N%-1
2000IF KEY%=127 AND N%<1:N%=0:t$="":GOTO 2040
2010IF KEY%=127 t$=LEFT$(t$,N%):GOTO 2040
2020t$=t$+CHR$(KEY%)
2030N%=N%+1
2040IF W%=0 c$=b$ ELSE c$=" "
2050PRINTTAB(W%*12,ndata%+4)c$;
2060PRINTTAB(W%*12,ndata%+4)t$;
2070UNTIL N%>=n%(W%) OR K%
2080IF KEY%=13 OR N%=n%(W%) menuptr%=menuptr%+1:IF menuptr%=exit% menuptr%=2
2090IF W%=1 AND LEN(m$(ptr%))>9:m$(ptr%)=LEFT$(m$(ptr%),9)
2100IF W%=1 AND LEN(m$(ptr%))<9:REPEAT:m$(ptr%)=m$(ptr%)+" ":UNTIL LEN(m$(ptr%))=9
2110IF W%=1 AND LEN(t$)<4:REPEAT:t$=" "+t$:UNTIL LEN(t$)=4
2120IF W%=0 AND LEN(t$)<7:REPEAT:t$=t$+" ":UNTIL LEN(t$)=7
2130m$(ptr%)=m$(ptr%)+t$
2140ENDPROC
2150:
2160DEFPROCblankshare
2170FOR I%=2TOndata%+1
2180s$(I%)=b$
2190NEXT
2200ENDPROC
2210:
2220DEFPROCinsertshare
2230FOR I%=2TOndata%+1
2240m$(I%)=s$(I%)
2250NEXT
2260S%=TRUE
2270ENDPROC
2280:
2290DEFPROCblankprice
2300FOR I%=2TOndata%+1
2310p$(I%)=" "
2320NEXT
2330ENDPROC
2340:
2350DEFPROCinsertprice
2360ON ERROR GOTO 90
2370PTR#A%=DAYPTR%
2380DAY=BGET#A%
2390discptr%=(BGET#A%)*256+BGET#A%
2400PTR#A%=discptr%
2410FOR I%=2TOndata%+1
2420G%=BGET#A%
2430O%=BGET#A%
2440a$=STR$(G% DIV 10)
2450b$=STR$(G% MOD 10)
2460c$=STR$(O% DIV 10)
2470d$=STR$(O% MOD 10)
2480IF a$="0" a$=" " ELSE GOTO 2520
2490IF b$="0" b$=" " ELSE GOTO 2520
2500IF c$="0" c$=" " ELSE GOTO 2520
2510IF d$="0" d$=" "
2520p$(I%)=a$+b$+c$+d$
2530m$(I%)=s$(I%)+" "+p$(I%)
2540NEXT
2550P%=TRUE
2560ON ERROR OFF
2570ENDPROC
2580:
2590DEFPROCsetupname
2600m$(0)="Enter share"
2610IF T% AND Q%>0 AND Q%<5 m$(1)=p$+":- "+STR$(Q%) ELSE m$(1)=p$+" NOT OPEN"
2620IF T% AND Q%=0 m$(0)="Enter index":m$(1)="Index"
2630IF S%=FALSE PROCblankshare
2640m$(ndata%+2)=" End entry"
2650PROCinsertshare
2660ENDPROC
2670:
2680DEFPROCsetupprice
2690IF S%=FALSE PRINTTAB(0,10)"Return to set up names";:PRINTTAB(0,12)"Press any KEY to continue";:KEY%=GET:ENDPROC
2700IF T% AND Q%=0 m$(0)="Enter index" ELSE m$(0)=" Enter prices "+p$+":- "+STR$(Q%)
2710IF D<10 a$=" "+STR$(D) ELSE a$=STR$(D)
2720IF M<10 b$=" "+STR$(M) ELSE b$=STR$(M)
2730IF (Y MOD 100)<10 c$=" "+STR$(Y MOD 100) ELSE c$=STR$(Y MOD 100)
2740m$(1)=day$(DAY-1)+" "+a$+"/"+b$+"/"+c$+" Close"
2750IF P%=FALSE PROCblankprice
2760m$(ndata%+2)=" End entry"
2770PROCinsertprice
2780ENDPROC
2790:
2800DEFPROCloadnames_prices
2810FOR I%=2TOndata%+1
2820s$(I%)=LEFT$(m$(I%),7)
2830IF W%=0 GOTO 2850
2840p$(I%)=RIGHT$(m$(I%),4)
2850NEXT
2860S%=TRUE
2870P%=TRUE
2880ENDPROC
2890:
2900DEFPROCchangedate
2910IF KEY%=&88 C%=-1
2920IF KEY%=&89 C%=1
2930IF C%<0 AND discptr%=firstrecord%:PROCprevious:ENDPROC
2940discptr%=discptr%+(C%*ndata%*2)
2950PROCadjustdate
2960IF endofile% AND C%>0 C%=-1:GOTO 2940
2970ENDPROC
2980:
2990DEFPROCprevious
3000ON ERROR GOTO 90
3010FOUND%=FALSE
3020B%=OPENIN(STR$(Y-1)+STR$(Q%))
3030CLOSE#B%
3040IF B%=0 PROCnotfound(Y-1):IF NOT FOUND% NEWDATE%=FALSE:ENDPROC
3050Y=Y-1
3060year$=STR$(Y)
3070PROCcheck_and_open_file
3080ON ERROR OFF
3090ENDPROC
3100:
3110DEFPROCnotfound(F%)
3120ON ERROR GOTO 90
3130IF Q%=0 f$="Index data" ELSE f$=p$+" "+STR$(Q%)
3140PROCclosew(wx%,wy%,len%,max%+2)
3150REPEAT
3160PRINTTAB(0,5)f$;" for ";F%;" not on this disc:-"
3170REPEAT
3180PRINTTAB(2,8)"A) (A)bandon"''TAB(2)"C) (C)atalogue disc"''TAB(2)"D) (D)rive change (currently Drive ";FNdrive;")"''TAB(2)"G) (G)o on"''TAB(2)"S) (S)tart a new file"''TAB(2)"Choose A,C,D,G or S"
3190REPEAT
3200*FX21,0
3210KEY%=GET AND &DF
3220UNTIL KEY%=65 OR KEY%=67 OR KEY%=68 OR KEY%=71 OR KEY%=83
3230IF KEY%=67 THEN CLS:*.
3240IF KEY%=68 PRINT'TAB(10)"Enter drive no.";:REPEAT:KEY%=GET-48:UNTILKEY%>-1 AND KEY%<4:PRINT;" ";KEY%:$&C10="DR."+STR$(KEY%):X%=&10:Y%=&C:CALL&FFF7:PRINT''TAB(10)"Drive ";KEY%;" selected"
3250IF KEY%=65 OR KEY%=71 OR KEY%=83 GOTO 3290
3260PRINT''TAB(5)"Press any key to continue"
3270*FX21,0
3280REPEATUNTILGET
3290CLS
3300UNTILKEY%=65 OR KEY%=71 OR KEY%=83
3310B%=OPENIN(STR$(F%)+STR$(Q%))
3320CLOSE#0
3330UNTILB%<>0 OR KEY%=65 OR KEY%=83
3340ON ERROR OFF
3350IF KEY%=65 PROCchain("MAIN")
3360IF KEY%=83 Y=F%:year$=STR$(Y):PROCopen:ENDPROC
3370IF B%=0 FOUND%=FALSE ELSE FOUND%=TRUE
3380PROCopenw(wx%,wy%,len%,max%+2)
3390ENDPROC
3400:
3410DEFPROCadjustdate
3420OLDY=Y
3430REPEAT
3440D=D+C%
3450REPEAT
3460IF FNvalidate=0 D=D+C%
3470IF D>31 D=1:M=M+1:IF M>12 M=1:Y=Y+1
3480IF D<1 D=31:M=M-1:IF M<1 M=12:Y=Y-1
3490UNTIL FNvalidate<>0
3500DAY=DAY+C%
3510IF DAY<1 DAY=7
3520IF DAY>7 DAY=1
3530UNTIL DAY<6
3540IF endofile% THEN ENDPROC
3550IF Y>OLDY endofile%=TRUE
3560ENDPROC
3570:
3580DEFFNvalidate:=D*M*(M<13)*(D<31+((M+(M>7))AND 1)+(M=2)*(2+((Y AND 3)=0)))
3590:
3600DEFPROCcheck_and_open_file
3610ON ERROR GOTO 90
3620FOUND%=FALSE
3630CLOSE#0
3640A%=OPENIN(year$+STR$(Q%))
3650IF A%=0 PROCnotfound(VAL(year$)):IF NOT FOUND% THEN ENDPROC
3660CLOSE#0
3670PROCgetyear
3680X%=OPENOUT("YEAR")
3690FOR I%=0TO3
3700IF I%<>Q% PRINT#X%,year%(I%) ELSE PRINT#X%,VAL(year$)
3710NEXT
3711PRINT#X%,L%,M%
3720CLOSE#0
3730A%=OPENUP(year$+STR$(Q%))
3740PTR#A%=0
3750FOR I%=2TOndata%+1
3760s$(I%)=""
3770FOR J%=1TO7
3780B%=BGET#A%
3790IF B%<32 OR B%>126 B%=32
3800s$(I%)=s$(I%)+CHR$(B%)
3810NEXT
3820NEXT
3830REM Get position of first record, current date and disc pointer
3840PTR#A%=firstptr%
3850firstrecord%=BGET#A%*256+BGET#A%
3860D=BGET#A%
3870M=BGET#A%
3880Y=(BGET#A%)*256+BGET#A%
3890DAY=BGET#A%
3900discptr%=(BGET#A%)*256+BGET#A%
3910d=BGET#A%
3920m=BGET#A%
3930y=(BGET#A%)*256+BGET#A%
3940S%=TRUE
3950ON ERROR OFF
3960ENDPROC
3970:
3980DEFPROCgetyear
3990PROCsystem
4000X%=OPENIN("YEAR")
4010IF X%=0 CLS:PRINTTAB(0,10)"File 'YEAR' does not exist."''"Go to MAIN panel."''"To return to MAIN":PROCkey:PROCchain("MAIN")
4020FOR I%=0TO3
4030INPUT#X%,year%(I%)
4040NEXT
4050IF EXT#X%>&14 INPUT#X%,L%,M% ELSE L%=30:M%=60
4060CLOSE#0
4070ENDPROC
4080:
4090DEFPROCerrordate
4100CLS
4110PRINTTAB(5,10)"Error in date."''"Press a KEY to re-enter"
4120I%=GET
4130CLS
4140ENDPROC
4150:
4160DEFPROCopen
4170ON ERROR GOTO 90
4180PROCclosew(wx%,wy%,len%,max%+2)
4190IF Q%=0 f$="Index file" ELSE f$=p$+" "+STR$(Q%)
4200PRINTTAB(0,3)f$+" for "+year$
4210PRINTTAB(0,5)"A new file will be opened if there is"'"enough space."''"Do you wish to start a new file? (Y/N)"
4220REPEAT
4230*FX21,0
4240A%=GET AND &DF
4250UNTIL A%=78 OR A%=89
4260IF A%=78 ENDPROC
4270REPEAT
4280REPEAT
4290PRINT''"Enter date from which file"''"is to start in the form DD/MM"''"where DD is the day of the month"''"and MM is the month of the year";:INPUTa$:a$=a$+"/"+year$
4300IF MID$(a$,3,1)<>"/" PROCerrordate:GOTO 4290
4310FOR I%=1TO10
4320IF I%=3 OR I%=6 GOTO 4340
4330IF MID$(a$,I%,1)<"0" OR MID$(a$,I%,1)>"9" PROCerrordate:I%=20
4340NEXT
4350UNTIL I%<19
4360D=VAL(MID$(a$,1,2))
4370M=VAL(MID$(a$,4,2))
4380Y=VAL(MID$(a$,7,4))
4390IF FNvalidate=0 PROCerrordate
4400UNTIL FNvalidate<>0
4410INPUT'"And enter day of week (Monday=1) "DAY
4420IF DAY>5 PRINT'"Weekends are not allowed !"'"The next Monday will be used and"'"the date will be adjusted.":C%=1:PROCadjustdate
4430CLS
4440PRINTTAB(5,5)"INITIALISING - Please wait"
4450IF Q%=0 s$(1)="FT 100 ":GOTO 4570
4460B%=OPENIN(STR$(Y-1)+STR$(Q%))
4470IF B%=0 GOTO 4570
4480REM Take a copy of sharenames for new file
4490FORI%=1TOndata%
4500s$(I%+1)=""
4510FORJ%=1TO7
4520s$(I%)=s$(I%)+CHR$(BGET#B%)
4530NEXT
4540NEXT
4550CLOSE#0
4560REM Send data to disc as outlined at start of prog.
4570PROCespace
4580PROCopen2
4590ON ERROR OFF
4600ENDPROC
4610:
4620DEFPROCopen2
4630ON ERROR GOTO 90
4640$&C01="SAVE "+year$+STR$(Q%)+" 2000 +"+STR$~D%
4650CALL&FFF7
4660A%=OPENOUT(year$+STR$(Q%))
4670FORI%=1TOndata%
4680FORJ%=1TO7
4690BPUT#A%,ASC(MID$(s$(I%),J%,1))
4700NEXT
4710NEXT
4720PTR#A%=firstptr%
4730BPUT#A%,firstrecord% DIV 256
4740BPUT#A%,firstrecord% MOD 256
4750BPUT#A%,D
4760BPUT#A%,M
4770BPUT#A%,(Y DIV 256)
4780BPUT#A%,(Y MOD 256)
4790BPUT#A%,DAY
4800BPUT#A%,minrecord% DIV 256
4810BPUT#A%,minrecord% MOD 256
4820BPUT#A%,D
4830BPUT#A%,M
4840BPUT#A%,(Y DIV 256)
4850BPUT#A%,(Y MOD 256)
4860FOR I%=1TOndata%
4870BPUT#A%,&FF
4880BPUT#A%,&FF
4890BPUT#A%,0
4900BPUT#A%,0
4910NEXT
4920PTR#A%=minrecord%
4930C%=1
4940V%=VPOS+1
4950PROCthold(0)
4960endofile%=FALSE
4970REPEAT
4980PROCadjustdate
4990IF endofile% GOTO 5040
5000FOR I%=1TOndata%*2
5010BPUT#A%,0
5020NEXT
5030PRINTTAB(5,V%)D;"/";M;"/";Y;" "
5040UNTIL endofile%
5050FOR I%=1TOndata%*2
5060BPUT#A%,0
5070NEXT
5080CLOSE#0
5090PROCthold(1)
5100REM Set current disc pointer to point at current data point ie first
5110discptr%=minrecord%
5120CLOSE#0
5130PROCcheck_and_open_file
5140CLS
5150ON ERROR OFF
5160ENDPROC
5170:
5180DEFPROCthold(B%)
5190IF B%=0:tempday=DAY:tempd=D:tempm=M:tempy=Y
5200IF B%=1 DAY=tempday:D=tempd:M=tempm:Y=tempy
5210ENDPROC
5220:
5230DEFPROCespace
5240ON ERROR GOTO 90
5250PROCthold(0)
5260C%=1
5270endofile%=FALSE
5280D%=0
5290REPEAT
5300PROCchangedate
5310D%=D%+1
5320UNTILendofile%
5330PROCthold(1)
5340D%=250+D%*ndata%*2
5350X%=1
5360Y%=&C
5370ON ERROR OFF
5380ENDPROC
5390:
5400DEFPROCkey
5410PRINT''"PRESS A KEY"
5420*FX21,0
5430K%=GET
5440ENDPROC
5450:
5460DEFPROCupdaterecord
5470ON ERROR GOTO 90
5480PTR#A%=discptr%
5490FOR ptr%=2TOndata%+1
5500p$(ptr%)=MID$(m$(ptr%),10,4)
5510p%=VAL(p$(ptr%))
5520BPUT#A%,p% DIV 100
5530BPUT#A%,p% MOD 100
5540NEXT
5550ON ERROR OFF
5560ENDPROC
5570:
5580DEFPROCscale
5590ON ERROR GOTO 90
5600LOCAL loop%,len%:len%=0
5610m$(4)="Scale WAIT:- Scaling"
5620FOR loop%=0 TO max%
5630IF LEN(m$(loop%))>len% THEN len%=LEN(m$(loop%))
5640NEXT
5650VDU 23,1,0;0;0;0;
5660*FX 4,1
5670PROCopenw(wx%,wy%,len%,max%+1)
5680menuptr%=4
5690PRINTTAB(0,0);
5700FOR loop%=0 TO max%
5710IF loop%=menuptr% OR loop%=0 COLOUR 0:COLOUR 129 ELSE COLOUR 1:COLOUR 128
5720PRINTm$(loop%);STRING$(len%-LEN(m$(loop%))," ");
5730NEXT
5740COLOUR 1:COLOUR 128
5750REM Update max, min values on disc
5760FOR I%=1TOndata%:omax%(I%)=0:omin%(I%)=&FFFF:NEXT
5770PTR#A%=minrecord%
5780REPEAT
5790FOR I%=1TOndata%
5800Z%=(BGET#A%)*100+BGET#A%
5810IF Z%=0 GOTO 5840
5820IF Z%>omax%(I%) omax%(I%)=Z%
5830IF Z%<omin%(I%) omin%(I%)=Z%
5840NEXT
5850IF PTR#A%>(EXT#A%)-ndata%*2 THEN PTR#A%=EXT#A%
5860UNTIL PTR#A%>discptr%
5870PTR#A%=firstmin%
5880FOR I%=1TOndata%
5890BPUT#A%,omin%(I%) DIV 256
5900BPUT#A%,omin%(I%) MOD 256
5910BPUT#A%,omax%(I%) DIV 256
5920BPUT#A%,omax%(I%) MOD 256
5930NEXT
5940*FX4,0
5950PROCclosew(wx%,wy%,len%,max%+1)
5960ON ERROR OFF
5970ENDPROC
5980:
5990DEFFNdrive
6000b%=&1600
6010X%=b% MOD 256
6020Y%=b% DIV 256
6030A%=6
6040FOR I%=0TO11
6050b%?I%=0
6060NEXT
6070b%?2=&16
6080b%?1=1
6090b%?12=1
6100CALL&FFD1
6110=?&1602-48
6120:
6130DEFPROCsystem
6140REPEAT
6150*FX21,0
6160A%=OPENIN("MAIN")
6170CLOSE#0
6180IF A%=0 CLS:PRINTTAB(0,10)"Insert System Disc in drive 0"''"and press any key to continue":REPEATUNTILGET
6190UNTIL A%<>0
6200ENDPROC
� PORTFOLIO - ENTRY
� (C) Jon Leighton May 1988
:
( *FX229,1
2(� m$(23),s$(23),p$(23),n%(1),day$(4)
<"� omax%(20),omin%(20),year%(3)
F� � � �DZ@
P
� �tj@
Z�
d�"ERR=";�;" ERL=";�
n� ��
x;� �=197 �''"Drive ";�drive;" does not exist":�key:*DR.0
�<� �=198 �''"Insert a new formatted disc and":�key:�open2
�<� �=199 �''"Disc unformatted or not in drive":�key:*DR.0
��
�� Set up variables
�gday$(0)="Monday ":day$(1)="Tuesday ":day$(2)="Wednesday":day$(3)="Thursday ":day$(4)="Friday "
� wx%=1
� wy%=1
�
len%=0
�
max%=0
� n%(0)=7
� n%(1)=4
�9S%=�: � S%=FALSE if no share names entered
�3P%=�: � P%=FALSE if no price entered
6firstptr%=158: � pointer to first data point
6minrecord%=251: � pointer to first data point
firstrecord%=minrecord%
"DDAYPTR%=164: � pointer to current day (Monday = 1, etc.)
,Kfirstmin%=171: � positn of first share min price used for scaling
6discptr%=0
@ DAY=1
JK%=�
Tendofile%=�
^b$=" "
h t$=b$
rp$="Portfolio"
| �getyear
�� Q%<0 � Q%>3 � �txA
�year$=�(year%(Q%))
� � Q%=0 ndata%=1 � ndata%=20
�
len%=0
�,� T% � Q%>=0 � Q%<5 �check_and_open_file
�� 4
��
�m$(0)="Data Entry"
�!m$(2)="Share name entry/edit"
�"m$(3)="Share price entry/edit"
�m$(4)="Scale"
�m$(5)="Main menu"
�
max%=5
Z%=�
�� T% � Q%>=0 � Q%<4 m$(0)=m$(0)+" "+p$+":-"+�(Q%):m$(1)="" � m$(1)=p$+" NOT OPEN":m$(2)="RETURN TO":m$(3)="MAIN MENU":max%=3:Z%=�
5� T% � Q%=0 � m$(0)="Data Entry Index":m$(1)=""
&choice=�menu
0� Z% choice=5
:� choice=2 W%=0:�edit
D� choice=3 W%=1:�edit
N� choice=4 �scale
X!� choice=5 �#0:�chain("MAIN")
b� �
l�
v:
���chain(A$)
� �system
�� A$
��
�:
� � �menu
�� loop%,len%:len%=0
�� loop%=0 � max%
�+� �(m$(loop%))>len% � len%=�(m$(loop%))
��
�� 23,1,0;0;0;0;
� *FX 4,1
� �openw(wx%,wy%,len%,max%+1)
menuptr%=2
� Z% menuptr%=3
�
�0,0);
*� loop%=0 � max%
44� loop%=menuptr% � loop%=0 � 0:� 129 � � 1:� 128
>'�m$(loop%);�len%-�(m$(loop%))," ");
H�
R
� 1:� 128
\ *FX21,0
f
KEY%=�
p� Z% � �tNC
z=� KEY%=139 menuptr%=menuptr%-1:� menuptr%=1:menuptr%=max%
�=� KEY%=138 menuptr%=menuptr%+1:� menuptr%>max% menuptr%=2
�� KEY%=13 � KEY%=27
�
*FX4,0
� �closew(wx%,wy%,len%,max%+1)
�
=menuptr%
�:
�� �closew(x,y,len%,ht)
�� 26
� � 0,0
��openw(x,y,len%,ht)
��
�� 26
� � 0,1
�
:
� �openw(x,y,len%,ht)
$� 28,x,y+ht,x+len%-1,y
.6�rect(x*32-8,1016-(y+ht)*32,len%*32+12,ht*32+12,0)
83�rect(x*32+16,1000-(y+ht)*32-8,len%*32+16,16,1)
B5�rect((x+len%)*32+16,1000-(y+ht)*32,16,ht*32+8,1)
L�
V:
`� �rect(x,y,l,w,f)
j � x,y
t � x+l,y
~ � f=0 � x+l,y+w � � 85,x,y+w
� � f=0 � x,y+w � � 85,x+l,y+w
� � x,y+w
�� f=0 � x,y � � x,y
��
�:
� � �edit
�max%=ndata%+3
�m$(max%)=""
�exit%=ndata%+2
�.� W%=0 �setupname � �setupprice:� S%=� �:�
�� loop%,len%:len%=0
�� loop%=0 � max%
+� �(m$(loop%))>len% � len%=�(m$(loop%))
�
� 23,1,0;0;0;0;
*FX 4,1
( �openw(wx%,wy%,len%,max%+2)
2menuptr%=2
<�
FNEWDATE%=�
P �0,0);
Z� loop%=0 � max%
d4� loop%=menuptr% � loop%=0 � 0:� 129 � � 1:� 128
n'�m$(loop%);�len%-�(m$(loop%))," ");
x� loop%=0 �
��
�
� 1:� 128
� *FX21,0
�
KEY%=�
�>� KEY%=139 menuptr%=menuptr%-1:� menuptr%=1:menuptr%=exit%
�>� KEY%=138 menuptr%=menuptr%+1:� menuptr%>exit% menuptr%=2
�-� W%=1 � (KEY%=&88 � KEY%=&89):NEWDATE%=�
�1� KEY%>31 � KEY%<128 � menuptr%<>exit% �input
�+� (menuptr%=exit% � KEY%=13) � NEWDATE%
�J� W%=0 � �#A%=0:� ptr%=2�ndata%+1:� I%=1�7:�#A%,�(�m$(ptr%),I%,1)):�:�
�4� W%=1 � �W%*12,ndata%+4)"WAIT ":�updaterecord
�endofile%=�
�7� W%=1 � NEWDATE% � �changedate:� NEWDATE%=� � �dDD
9� endofile% year$=�(OLDY):�check_and_open_file:� �dDD
�dumpptrs
*� W%=1 � NEWDATE% � �setupprice:� �TrE
")� W%=1 � (KEY%=&88 � KEY%=&89) � �TrE
,
*FX4,0
6 �closew(wx%,wy%,len%,max%+2)
@�loadnames_prices
J�
T:
^��dumpptrs
h� � � �DZ@
r�#A%=firstptr%
|�#A%,firstrecord% � 256
��#A%,firstrecord% � 256
�
�#A%,D
�
�#A%,M
��#A%,(Y � 256)
��#A%,(Y � 256)
� �#A%,DAY
��#A%,(discptr% � 256)
��#A%,(discptr% � 256)
�
�#A%,d
�
�#A%,m
��#A%,(y � 256)
��#A%,(y � 256)
� � � �
�
:
��input
&K%=�
0%� W%=1 � (KEY%<48 � KEY%>57) �7:�
:� KEY%<>127 t$=�(KEY%)
D�W%*12,ndata%+4)t$;
N� W%=0 m$(menuptr%)=""
XN%=1
b�
l
KEY%=�
v>� KEY%=139 � KEY%=138 � KEY%=13 � KEY%=&88 � KEY%=&89 K%=�
�$� KEY%=&88 � KEY%=&89 NEWDATE%=�
�� K% � KEY%=127 � �t^G
�*� W%=1 � (KEY%<48 � KEY%>57) �7:� �DlG
�ptr%=menuptr%
�>� KEY%=139 menuptr%=menuptr%-1:� menuptr%=1:menuptr%=exit%
�>� KEY%=138 menuptr%=menuptr%+1:� menuptr%>exit% menuptr%=2
�� K% � �TVH
�� KEY%=127 N%=N%-1
�'� KEY%=127 � N%<1:N%=0:t$="":� �dxG
� � KEY%=127 t$=�t$,N%):� �dxG
�t$=t$+�(KEY%)
� N%=N%+1
� � W%=0 c$=b$ � c$=" "
�W%*12,ndata%+4)c$;
�W%*12,ndata%+4)t$;
� N%>=n%(W%) � K%
I� KEY%=13 � N%=n%(W%) menuptr%=menuptr%+1:� menuptr%=exit% menuptr%=2
*0� W%=1 � �(m$(ptr%))>9:m$(ptr%)=�m$(ptr%),9)
4B� W%=1 � �(m$(ptr%))<9:�:m$(ptr%)=m$(ptr%)+" ":� �(m$(ptr%))=9
>*� W%=1 � �(t$)<4:�:t$=" "+t$:� �(t$)=4
H*� W%=0 � �(t$)<7:�:t$=t$+" ":� �(t$)=7
Rm$(ptr%)=m$(ptr%)+t$
\�
f:
p��blankshare
z� I%=2�ndata%+1
�
s$(I%)=b$
��
��
�:
���insertshare
�� I%=2�ndata%+1
�m$(I%)=s$(I%)
��
�S%=�
��
�:
���blankprice
�� I%=2�ndata%+1
p$(I%)=" "
�
�
$:
.��insertprice
8� � � �DZ@
B�#A%=DAYPTR%
L DAY=�#A%
V discptr%=(�#A%)*256+�#A%
`�#A%=discptr%
j� I%=2�ndata%+1
t G%=�#A%
~ O%=�#A%
�a$=�(G% � 10)
�b$=�(G% � 10)
�c$=�(O% � 10)
�d$=�(O% � 10)
� � a$="0" a$=" " � � �dXI
� � b$="0" b$=" " � � �dXI
� � c$="0" c$=" " � � �dXI
�� d$="0" d$=" "
�p$(I%)=a$+b$+c$+d$
� m$(I%)=s$(I%)+" "+p$(I%)
��
�P%=�
� � �
�
:
��setupname
(m$(0)="Enter share"
2B� T% � Q%>0 � Q%<5 m$(1)=p$+":- "+�(Q%) � m$(1)=p$+" NOT OPEN"
<1� T% � Q%=0 m$(0)="Enter index":m$(1)="Index"
F� S%=� �blankshare
P m$(ndata%+2)=" End entry"
Z�insertshare
d�
n:
x��setupprice
�X� S%=� �0,10)"Return to set up names";:�0,12)"Press any KEY to continue";:KEY%=�:�
�M� T% � Q%=0 m$(0)="Enter index" � m$(0)=" Enter prices "+p$+":- "+�(Q%)
� � D<10 a$=" "+�(D) � a$=�(D)
� � M<10 b$=" "+�(M) � b$=�(M)
�4� (Y � 100)<10 c$=" "+�(Y � 100) � c$=�(Y � 100)
�6m$(1)=day$(DAY-1)+" "+a$+"/"+b$+"/"+c$+" Close"
�� P%=� �blankprice
� m$(ndata%+2)=" End entry"
��insertprice
��
�:
���loadnames_prices
�� I%=2�ndata%+1
s$(I%)=�m$(I%),7)
� W%=0 � �TbK
p$(I%)=�m$(I%),4)
"�
,S%=�
6P%=�
@�
J:
T��changedate
^� KEY%=&88 C%=-1
h� KEY%=&89 C%=1
r.� C%<0 � discptr%=firstrecord%:�previous:�
|#discptr%=discptr%+(C%*ndata%*2)
��adjustdate
�#� endofile% � C%>0 C%=-1:� �D|K
��
�:
���previous
�� � � �DZ@
� FOUND%=�
�B%=�(�(Y-1)+�(Q%))
��#B%
�1� B%=0 �notfound(Y-1):� � FOUND% NEWDATE%=�:�
� Y=Y-1
�year$=�(Y)
��check_and_open_file
� � �
�
:
&��notfound(F%)
0� � � �DZ@
:,� Q%=0 f$="Index data" � f$=p$+" "+�(Q%)
D �closew(wx%,wy%,len%,max%+2)
N�
X-�0,5)f$;" for ";F%;" not on this disc:-"
b�
l��2,8)"A) (A)bandon"''�2)"C) (C)atalogue disc"''�2)"D) (D)rive change (currently Drive ";�drive;")"''�2)"G) (G)o on"''�2)"S) (S)tart a new file"''�2)"Choose A,C,D,G or S"
v�
� *FX21,0
�KEY%=� � &DF
�5� KEY%=65 � KEY%=67 � KEY%=68 � KEY%=71 � KEY%=83
�� KEY%=67 � �:*.
��� KEY%=68 �'�10)"Enter drive no.";:�:KEY%=�-48:�KEY%>-1 � KEY%<4:�;" ";KEY%:$&C10="DR."+�(KEY%):X%=&10:Y%=&C:�&FFF7:�''�10)"Drive ";KEY%;" selected"
�(� KEY%=65 � KEY%=71 � KEY%=83 � �dZL
�%�''�5)"Press any key to continue"
� *FX21,0
����
��
� �KEY%=65 � KEY%=71 � KEY%=83
�B%=�(�(F%)+�(Q%))
��#0
�B%<>0 � KEY%=65 � KEY%=83
� � �
� KEY%=65 �chain("MAIN")
%� KEY%=83 Y=F%:year$=�(Y):�open:�
* � B%=0 FOUND%=� � FOUND%=�
4 �openw(wx%,wy%,len%,max%+2)
>�
H:
R��adjustdate
\
OLDY=Y
f�
p
D=D+C%
z�
�� �validate=0 D=D+C%
�%� D>31 D=1:M=M+1:� M>12 M=1:Y=Y+1
�%� D<1 D=31:M=M-1:� M<1 M=12:Y=Y-1
�� �validate<>0
�DAY=DAY+C%
�� DAY<1 DAY=7
�� DAY>7 DAY=1
� � DAY<6
�� endofile% � �
�� Y>OLDY endofile%=�
��
�:
�Fݤvalidate:=D*M*(M<13)*(D<31+((M+(M>7))� 1)+(M=2)*(2+((Y � 3)=0)))
:
��check_and_open_file
� � � �DZ@
$ FOUND%=�
.�#0
8A%=�(year$+�(Q%))
B-� A%=0 �notfound(�(year$)):� � FOUND% � �
L�#0
V �getyear
`X%=�("YEAR")
j � I%=0�3
t+� I%<>Q% �#X%,year%(I%) � �#X%,�(year$)
~�
�#X%,L%,M%
��#0
�A%=�(year$+�(Q%))
�
�#A%=0
�� I%=2�ndata%+1
�
s$(I%)=""
� � J%=1�7
� B%=�#A%
�� B%<32 � B%>126 B%=32
�s$(I%)=s$(I%)+�(B%)
��
��
�A� Get position of first record, current date and disc pointer
�#A%=firstptr%
firstrecord%=�#A%*256+�#A%
D=�#A%
M=�#A%
(Y=(�#A%)*256+�#A%
2 DAY=�#A%
< discptr%=(�#A%)*256+�#A%
F
d=�#A%
P
m=�#A%
Zy=(�#A%)*256+�#A%
dS%=�
n � � �
x�
�:
�
��getyear
� �system
�X%=�("YEAR")
�o� X%=0 �:�0,10)"File 'YEAR' does not exist."''"Go to MAIN panel."''"To return to MAIN":�key:�chain("MAIN")
� � I%=0�3
��#X%,year%(I%)
��
�'� �#X%>&14 �#X%,L%,M% � L%=30:M%=60
��#0
��
�:
���errordate
�
6�5,10)"Error in date."''"Press a KEY to re-enter"
I%=�
"�
,�
6:
@
��open
J� � � �DZ@
T �closew(wx%,wy%,len%,max%+2)
^,� Q%=0 f$="Index file" � f$=p$+" "+�(Q%)
h�0,3)f$+" for "+year$
rk�0,5)"A new file will be opened if there is"'"enough space."''"Do you wish to start a new file? (Y/N)"
|�
� *FX21,0
�A%=� � &DF
�� A%=78 � A%=89
�
� A%=78 �
��
��
�''"Enter date from which file"''"is to start in the form DD/MM"''"where DD is the day of the month"''"and MM is the month of the year";:�a$:a$=a$+"/"+year$
�%� �a$,3,1)<>"/" �errordate:� �dBP
�
� I%=1�10
�� I%=3 � I%=6 � �dtP
�4� �a$,I%,1)<"0" � �a$,I%,1)>"9" �errordate:I%=20
��
� � I%<19
D=�(�a$,1,2))
M=�(�a$,4,2))
Y=�(�a$,7,4))
& � �validate=0 �errordate
0� �validate<>0
:,�'"And enter day of week (Monday=1) "DAY
D{� DAY>5 �'"Weekends are not allowed !"'"The next Monday will be used and"'"the date will be adjusted.":C%=1:�adjustdate
N�
X&�5,5)"INITIALISING - Please wait"
b!� Q%=0 s$(1)="FT 100 ":� �dZQ
lB%=�(�(Y-1)+�(Q%))
v� B%=0 � �dZQ
�,� Take a copy of sharenames for new file
��I%=1�ndata%
�s$(I%+1)=""
� �J%=1�7
�s$(I%)=s$(I%)+�(�#B%)
��
��
��#0
�5� Send data to disc as outlined at start of prog.
� �espace
�
�open2
� � � �
��
:
��open2
� � � �DZ@
,$&C01="SAVE "+year$+�(Q%)+" 2000 +"+�~D%
*
�&FFF7
4A%=�(year$+�(Q%))
>�I%=1�ndata%
H �J%=1�7
R�#A%,�(�s$(I%),J%,1))
\�
f�
p�#A%=firstptr%
z�#A%,firstrecord% � 256
��#A%,firstrecord% � 256
�
�#A%,D
�
�#A%,M
��#A%,(Y � 256)
��#A%,(Y � 256)
� �#A%,DAY
��#A%,minrecord% � 256
��#A%,minrecord% � 256
�
�#A%,D
�
�#A%,M
��#A%,(Y � 256)
��#A%,(Y � 256)
�� I%=1�ndata%
�#A%,&FF
�#A%,&FF
�#A%,0
$
�#A%,0
.�
8�#A%=minrecord%
BC%=1
L
V%=�+1
V
�thold(0)
`endofile%=�
j�
t�adjustdate
~� endofile% � �tpS
�� I%=1�ndata%*2
�
�#A%,0
��
� �5,V%)D;"/";M;"/";Y;" "
�� endofile%
�� I%=1�ndata%*2
�
�#A%,0
��
��#0
�
�thold(1)
�F� Set current disc pointer to point at current data point ie first
�discptr%=minrecord%
�#0
�check_and_open_file
�
� � �
(�
2:
<��thold(B%)
F.� B%=0:tempday=DAY:tempd=D:tempm=M:tempy=Y
P.� B%=1 DAY=tempday:D=tempd:M=tempm:Y=tempy
Z�
d:
n ��espace
x� � � �DZ@
�
�thold(0)
�C%=1
�endofile%=�
�D%=0
��
��changedate
� D%=D%+1
��endofile%
�
�thold(1)
�D%=250+D%*ndata%*2
�X%=1
� Y%=&C
� � � �
�
:
��key
"�''"PRESS A KEY"
, *FX21,0
6K%=�
@�
J:
T��updaterecord
^� � � �DZ@
h�#A%=discptr%
r� ptr%=2�ndata%+1
| p$(ptr%)=�m$(ptr%),10,4)
�p%=�(p$(ptr%))
��#A%,p% � 100
��#A%,p% � 100
��
� � � �
��
�:
� ��scale
�� � � �DZ@
�� loop%,len%:len%=0
�"m$(4)="Scale WAIT:- Scaling"
�� loop%=0 � max%
�+� �(m$(loop%))>len% � len%=�(m$(loop%))
�
� 23,1,0;0;0;0;
*FX 4,1
& �openw(wx%,wy%,len%,max%+1)
0menuptr%=4
: �0,0);
D� loop%=0 � max%
N4� loop%=menuptr% � loop%=0 � 0:� 129 � � 1:� 128
X'�m$(loop%);�len%-�(m$(loop%))," ");
b�
l
� 1:� 128
v$� Update max, min values on disc
�/� I%=1�ndata%:omax%(I%)=0:omin%(I%)=&FFFF:�
��#A%=minrecord%
��
�� I%=1�ndata%
�Z%=(�#A%)*100+�#A%
�� Z%=0 � �dPV
� � Z%>omax%(I%) omax%(I%)=Z%
� � Z%<omin%(I%) omin%(I%)=Z%
��
�&� �#A%>(�#A%)-ndata%*2 � �#A%=�#A%
�� �#A%>discptr%
��#A%=firstmin%
�� I%=1�ndata%
�#A%,omin%(I%) � 256
�#A%,omin%(I%) � 256
�#A%,omax%(I%) � 256
�#A%,omax%(I%) � 256
*�
4
*FX4,0
> �closew(wx%,wy%,len%,max%+1)
H � � �
R�
\:
f ݤdrive
p b%=&1600
zX%=b% � 256
�Y%=b% � 256
�A%=6
�
� I%=0�11
� b%?I%=0
��
� b%?2=&16
�
b%?1=1
� b%?12=1
�
�&FFD1
�=?&1602-48
�:
� ��system
��
*FX21,0
A%=�("MAIN")
�#0
$X� A%=0 �:�0,10)"Insert System Disc in drive 0"''"and press any key to continue":���
. � A%<>0
8�
� 00000000 0d 00 0a 17 f4 20 50 4f 52 54 46 4f 4c 49 4f 20 |..... PORTFOLIO |
00000010 2d 20 45 4e 54 52 59 0d 00 14 1f f4 20 28 43 29 |- ENTRY..... (C)|
00000020 20 4a 6f 6e 20 4c 65 69 67 68 74 6f 6e 20 4d 61 | Jon Leighton Ma|
00000030 79 20 31 39 38 38 0d 00 1e 05 3a 0d 00 28 0c 2a |y 1988....:..(.*|
00000040 46 58 32 32 39 2c 31 0d 00 32 28 de 20 6d 24 28 |FX229,1..2(. m$(|
00000050 32 33 29 2c 73 24 28 32 33 29 2c 70 24 28 32 33 |23),s$(23),p$(23|
00000060 29 2c 6e 25 28 31 29 2c 64 61 79 24 28 34 29 0d |),n%(1),day$(4).|
00000070 00 3c 22 de 20 6f 6d 61 78 25 28 32 30 29 2c 6f |.<". omax%(20),o|
00000080 6d 69 6e 25 28 32 30 29 2c 79 65 61 72 25 28 33 |min%(20),year%(3|
00000090 29 0d 00 46 0e ee 20 85 20 e5 20 8d 44 5a 40 0d |)..F.. . . .DZ@.|
000000a0 00 50 0a e5 20 8d 74 6a 40 0d 00 5a 05 f6 0d 00 |.P.. .tj@..Z....|
000000b0 64 17 f1 22 45 52 52 3d 22 3b 9f 3b 22 20 45 52 |d.."ERR=";.;" ER|
000000c0 4c 3d 22 3b 9e 0d 00 6e 08 ee 20 85 87 0d 00 78 |L=";...n.. ....x|
000000d0 3b e7 20 9f 3d 31 39 37 20 f1 27 27 22 44 72 69 |;. .=197 .''"Dri|
000000e0 76 65 20 22 3b a4 64 72 69 76 65 3b 22 20 64 6f |ve ";.drive;" do|
000000f0 65 73 20 6e 6f 74 20 65 78 69 73 74 22 3a f2 6b |es not exist":.k|
00000100 65 79 3a 2a 44 52 2e 30 0d 00 82 3c e7 20 9f 3d |ey:*DR.0...<. .=|
00000110 31 39 38 20 f1 27 27 22 49 6e 73 65 72 74 20 61 |198 .''"Insert a|
00000120 20 6e 65 77 20 66 6f 72 6d 61 74 74 65 64 20 64 | new formatted d|
00000130 69 73 63 20 61 6e 64 22 3a f2 6b 65 79 3a f2 6f |isc and":.key:.o|
00000140 70 65 6e 32 0d 00 8c 3c e7 20 9f 3d 31 39 39 20 |pen2...<. .=199 |
00000150 f1 27 27 22 44 69 73 63 20 75 6e 66 6f 72 6d 61 |.''"Disc unforma|
00000160 74 74 65 64 20 6f 72 20 6e 6f 74 20 69 6e 20 64 |tted or not in d|
00000170 72 69 76 65 22 3a f2 6b 65 79 3a 2a 44 52 2e 30 |rive":.key:*DR.0|
00000180 0d 00 96 05 f9 0d 00 a0 16 f4 20 53 65 74 20 75 |.......... Set u|
00000190 70 20 76 61 72 69 61 62 6c 65 73 0d 00 aa 67 64 |p variables...gd|
000001a0 61 79 24 28 30 29 3d 22 4d 6f 6e 64 61 79 20 20 |ay$(0)="Monday |
000001b0 20 22 3a 64 61 79 24 28 31 29 3d 22 54 75 65 73 | ":day$(1)="Tues|
000001c0 64 61 79 20 20 22 3a 64 61 79 24 28 32 29 3d 22 |day ":day$(2)="|
000001d0 57 65 64 6e 65 73 64 61 79 22 3a 64 61 79 24 28 |Wednesday":day$(|
000001e0 33 29 3d 22 54 68 75 72 73 64 61 79 20 22 3a 64 |3)="Thursday ":d|
000001f0 61 79 24 28 34 29 3d 22 46 72 69 64 61 79 20 20 |ay$(4)="Friday |
00000200 20 22 0d 00 b4 09 77 78 25 3d 31 0d 00 be 09 77 | "....wx%=1....w|
00000210 79 25 3d 31 0d 00 c8 0a 6c 65 6e 25 3d 30 0d 00 |y%=1....len%=0..|
00000220 d2 0a 6d 61 78 25 3d 30 0d 00 dc 0b 6e 25 28 30 |..max%=0....n%(0|
00000230 29 3d 37 0d 00 e6 0b 6e 25 28 31 29 3d 34 0d 00 |)=7....n%(1)=4..|
00000240 f0 39 53 25 3d a3 3a 20 20 20 20 20 20 20 20 20 |.9S%=.: |
00000250 20 20 20 f4 20 53 25 3d 46 41 4c 53 45 20 69 66 | . S%=FALSE if|
00000260 20 6e 6f 20 73 68 61 72 65 20 6e 61 6d 65 73 20 | no share names |
00000270 65 6e 74 65 72 65 64 0d 00 fa 33 50 25 3d a3 3a |entered...3P%=.:|
00000280 20 20 20 20 20 20 20 20 20 20 20 20 f4 20 50 25 | . P%|
00000290 3d 46 41 4c 53 45 20 69 66 20 6e 6f 20 70 72 69 |=FALSE if no pri|
000002a0 63 65 20 65 6e 74 65 72 65 64 0d 01 04 36 66 69 |ce entered...6fi|
000002b0 72 73 74 70 74 72 25 3d 31 35 38 3a 20 20 20 20 |rstptr%=158: |
000002c0 20 20 20 f4 20 70 6f 69 6e 74 65 72 20 74 6f 20 | . pointer to |
000002d0 66 69 72 73 74 20 64 61 74 61 20 70 6f 69 6e 74 |first data point|
000002e0 0d 01 0e 36 6d 69 6e 72 65 63 6f 72 64 25 3d 32 |...6minrecord%=2|
000002f0 35 31 3a 20 20 20 20 20 20 f4 20 70 6f 69 6e 74 |51: . point|
00000300 65 72 20 74 6f 20 66 69 72 73 74 20 64 61 74 61 |er to first data|
00000310 20 70 6f 69 6e 74 0d 01 18 1b 66 69 72 73 74 72 | point....firstr|
00000320 65 63 6f 72 64 25 3d 6d 69 6e 72 65 63 6f 72 64 |ecord%=minrecord|
00000330 25 0d 01 22 44 44 41 59 50 54 52 25 3d 31 36 34 |%.."DDAYPTR%=164|
00000340 3a 20 20 20 20 20 20 20 20 20 f4 20 70 6f 69 6e |: . poin|
00000350 74 65 72 20 74 6f 20 63 75 72 72 65 6e 74 20 64 |ter to current d|
00000360 61 79 20 28 4d 6f 6e 64 61 79 20 3d 20 31 2c 20 |ay (Monday = 1, |
00000370 65 74 63 2e 29 0d 01 2c 4b 66 69 72 73 74 6d 69 |etc.)..,Kfirstmi|
00000380 6e 25 3d 31 37 31 3a 20 20 20 20 20 20 20 f4 20 |n%=171: . |
00000390 70 6f 73 69 74 6e 20 6f 66 20 66 69 72 73 74 20 |positn of first |
000003a0 73 68 61 72 65 20 6d 69 6e 20 70 72 69 63 65 20 |share min price |
000003b0 75 73 65 64 20 66 6f 72 20 73 63 61 6c 69 6e 67 |used for scaling|
000003c0 0d 01 36 0e 64 69 73 63 70 74 72 25 3d 30 0d 01 |..6.discptr%=0..|
000003d0 40 09 44 41 59 3d 31 0d 01 4a 08 4b 25 3d a3 0d |@.DAY=1..J.K%=..|
000003e0 01 54 0f 65 6e 64 6f 66 69 6c 65 25 3d a3 0d 01 |.T.endofile%=...|
000003f0 5e 13 62 24 3d 22 20 20 20 20 20 20 20 20 20 20 |^.b$=" |
00000400 22 0d 01 68 09 74 24 3d 62 24 0d 01 72 12 70 24 |"..h.t$=b$..r.p$|
00000410 3d 22 50 6f 72 74 66 6f 6c 69 6f 22 0d 01 7c 0c |="Portfolio"..|.|
00000420 f2 67 65 74 79 65 61 72 0d 01 86 18 e7 20 51 25 |.getyear..... Q%|
00000430 3c 30 20 84 20 51 25 3e 33 20 e5 20 8d 74 78 41 |<0 . Q%>3 . .txA|
00000440 0d 01 90 16 79 65 61 72 24 3d c3 28 79 65 61 72 |....year$=.(year|
00000450 25 28 51 25 29 29 0d 01 9a 1f e7 20 51 25 3d 30 |%(Q%))..... Q%=0|
00000460 20 6e 64 61 74 61 25 3d 31 20 8b 20 6e 64 61 74 | ndata%=1 . ndat|
00000470 61 25 3d 32 30 0d 01 a4 0a 6c 65 6e 25 3d 30 0d |a%=20....len%=0.|
00000480 01 ae 2c e7 20 54 25 20 80 20 51 25 3e 3d 30 20 |..,. T% . Q%>=0 |
00000490 80 20 51 25 3c 35 20 f2 63 68 65 63 6b 5f 61 6e |. Q%<5 .check_an|
000004a0 64 5f 6f 70 65 6e 5f 66 69 6c 65 0d 01 b8 07 eb |d_open_file.....|
000004b0 20 34 0d 01 c2 05 f5 0d 01 cc 16 6d 24 28 30 29 | 4.........m$(0)|
000004c0 3d 22 44 61 74 61 20 45 6e 74 72 79 22 0d 01 d6 |="Data Entry"...|
000004d0 21 6d 24 28 32 29 3d 22 53 68 61 72 65 20 6e 61 |!m$(2)="Share na|
000004e0 6d 65 20 65 6e 74 72 79 2f 65 64 69 74 22 0d 01 |me entry/edit"..|
000004f0 e0 22 6d 24 28 33 29 3d 22 53 68 61 72 65 20 70 |."m$(3)="Share p|
00000500 72 69 63 65 20 65 6e 74 72 79 2f 65 64 69 74 22 |rice entry/edit"|
00000510 0d 01 ea 11 6d 24 28 34 29 3d 22 53 63 61 6c 65 |....m$(4)="Scale|
00000520 22 0d 01 f4 15 6d 24 28 35 29 3d 22 4d 61 69 6e |"....m$(5)="Main|
00000530 20 6d 65 6e 75 22 0d 01 fe 0a 6d 61 78 25 3d 35 | menu"....max%=5|
00000540 0d 02 08 08 5a 25 3d a3 0d 02 12 85 e7 20 54 25 |....Z%=...... T%|
00000550 20 80 20 51 25 3e 3d 30 20 80 20 51 25 3c 34 20 | . Q%>=0 . Q%<4 |
00000560 6d 24 28 30 29 3d 6d 24 28 30 29 2b 22 20 22 2b |m$(0)=m$(0)+" "+|
00000570 70 24 2b 22 3a 2d 22 2b c3 28 51 25 29 3a 6d 24 |p$+":-"+.(Q%):m$|
00000580 28 31 29 3d 22 22 20 8b 20 6d 24 28 31 29 3d 70 |(1)="" . m$(1)=p|
00000590 24 2b 22 20 4e 4f 54 20 4f 50 45 4e 22 3a 6d 24 |$+" NOT OPEN":m$|
000005a0 28 32 29 3d 22 52 45 54 55 52 4e 20 54 4f 22 3a |(2)="RETURN TO":|
000005b0 6d 24 28 33 29 3d 22 4d 41 49 4e 20 4d 45 4e 55 |m$(3)="MAIN MENU|
000005c0 22 3a 6d 61 78 25 3d 33 3a 5a 25 3d b9 0d 02 1c |":max%=3:Z%=....|
000005d0 35 e7 20 54 25 20 80 20 51 25 3d 30 20 8c 20 6d |5. T% . Q%=0 . m|
000005e0 24 28 30 29 3d 22 44 61 74 61 20 45 6e 74 72 79 |$(0)="Data Entry|
000005f0 20 20 20 49 6e 64 65 78 22 3a 6d 24 28 31 29 3d | Index":m$(1)=|
00000600 22 22 0d 02 26 10 63 68 6f 69 63 65 3d a4 6d 65 |""..&.choice=.me|
00000610 6e 75 0d 02 30 11 e7 20 5a 25 20 63 68 6f 69 63 |nu..0.. Z% choic|
00000620 65 3d 35 0d 02 3a 19 e7 20 63 68 6f 69 63 65 3d |e=5..:.. choice=|
00000630 32 20 57 25 3d 30 3a f2 65 64 69 74 0d 02 44 19 |2 W%=0:.edit..D.|
00000640 e7 20 63 68 6f 69 63 65 3d 33 20 57 25 3d 31 3a |. choice=3 W%=1:|
00000650 f2 65 64 69 74 0d 02 4e 15 e7 20 63 68 6f 69 63 |.edit..N.. choic|
00000660 65 3d 34 20 f2 73 63 61 6c 65 0d 02 58 21 e7 20 |e=4 .scale..X!. |
00000670 63 68 6f 69 63 65 3d 35 20 d9 23 30 3a f2 63 68 |choice=5 .#0:.ch|
00000680 61 69 6e 28 22 4d 41 49 4e 22 29 0d 02 62 07 fd |ain("MAIN")..b..|
00000690 20 a3 0d 02 6c 05 e0 0d 02 76 05 3a 0d 02 80 0f | ...l....v.:....|
000006a0 dd f2 63 68 61 69 6e 28 41 24 29 0d 02 8a 0b f2 |..chain(A$).....|
000006b0 73 79 73 74 65 6d 0d 02 94 08 d7 20 41 24 0d 02 |system..... A$..|
000006c0 9e 05 e1 0d 02 a8 05 3a 0d 02 b2 0b dd 20 a4 6d |.......:..... .m|
000006d0 65 6e 75 0d 02 bc 17 ea 20 6c 6f 6f 70 25 2c 6c |enu..... loop%,l|
000006e0 65 6e 25 3a 6c 65 6e 25 3d 30 0d 02 c6 14 e3 20 |en%:len%=0..... |
000006f0 6c 6f 6f 70 25 3d 30 20 b8 20 6d 61 78 25 0d 02 |loop%=0 . max%..|
00000700 d0 2b e7 20 a9 28 6d 24 28 6c 6f 6f 70 25 29 29 |.+. .(m$(loop%))|
00000710 3e 6c 65 6e 25 20 8c 20 6c 65 6e 25 3d a9 28 6d |>len% . len%=.(m|
00000720 24 28 6c 6f 6f 70 25 29 29 0d 02 da 05 ed 0d 02 |$(loop%)).......|
00000730 e4 13 ef 20 32 33 2c 31 2c 30 3b 30 3b 30 3b 30 |... 23,1,0;0;0;0|
00000740 3b 0d 02 ee 0b 2a 46 58 20 34 2c 31 0d 02 f8 1f |;....*FX 4,1....|
00000750 f2 6f 70 65 6e 77 28 77 78 25 2c 77 79 25 2c 6c |.openw(wx%,wy%,l|
00000760 65 6e 25 2c 6d 61 78 25 2b 31 29 0d 03 02 0e 6d |en%,max%+1)....m|
00000770 65 6e 75 70 74 72 25 3d 32 0d 03 0c 13 e7 20 5a |enuptr%=2..... Z|
00000780 25 20 6d 65 6e 75 70 74 72 25 3d 33 0d 03 16 05 |% menuptr%=3....|
00000790 f5 0d 03 20 0b f1 8a 30 2c 30 29 3b 0d 03 2a 14 |... ...0,0);..*.|
000007a0 e3 20 6c 6f 6f 70 25 3d 30 20 b8 20 6d 61 78 25 |. loop%=0 . max%|
000007b0 0d 03 34 34 e7 20 6c 6f 6f 70 25 3d 6d 65 6e 75 |..44. loop%=menu|
000007c0 70 74 72 25 20 84 20 6c 6f 6f 70 25 3d 30 20 fb |ptr% . loop%=0 .|
000007d0 20 30 3a fb 20 31 32 39 20 8b 20 fb 20 31 3a fb | 0:. 129 . . 1:.|
000007e0 20 31 32 38 0d 03 3e 27 f1 6d 24 28 6c 6f 6f 70 | 128..>'.m$(loop|
000007f0 25 29 3b c4 6c 65 6e 25 2d a9 28 6d 24 28 6c 6f |%);.len%-.(m$(lo|
00000800 6f 70 25 29 29 2c 22 20 22 29 3b 0d 03 48 05 ed |op%))," ");..H..|
00000810 0d 03 52 0d fb 20 31 3a fb 20 31 32 38 0d 03 5c |..R.. 1:. 128..\|
00000820 0b 2a 46 58 32 31 2c 30 0d 03 66 0a 4b 45 59 25 |.*FX21,0..f.KEY%|
00000830 3d a5 0d 03 70 0f e7 20 5a 25 20 e5 20 8d 74 4e |=...p.. Z% . .tN|
00000840 43 0d 03 7a 3d e7 20 4b 45 59 25 3d 31 33 39 20 |C..z=. KEY%=139 |
00000850 6d 65 6e 75 70 74 72 25 3d 6d 65 6e 75 70 74 72 |menuptr%=menuptr|
00000860 25 2d 31 3a e7 20 6d 65 6e 75 70 74 72 25 3d 31 |%-1:. menuptr%=1|
00000870 3a 6d 65 6e 75 70 74 72 25 3d 6d 61 78 25 0d 03 |:menuptr%=max%..|
00000880 84 3d e7 20 4b 45 59 25 3d 31 33 38 20 6d 65 6e |.=. KEY%=138 men|
00000890 75 70 74 72 25 3d 6d 65 6e 75 70 74 72 25 2b 31 |uptr%=menuptr%+1|
000008a0 3a e7 20 6d 65 6e 75 70 74 72 25 3e 6d 61 78 25 |:. menuptr%>max%|
000008b0 20 6d 65 6e 75 70 74 72 25 3d 32 0d 03 8e 17 fd | menuptr%=2.....|
000008c0 20 4b 45 59 25 3d 31 33 20 84 20 4b 45 59 25 3d | KEY%=13 . KEY%=|
000008d0 32 37 0d 03 98 0a 2a 46 58 34 2c 30 0d 03 a2 20 |27....*FX4,0... |
000008e0 f2 63 6c 6f 73 65 77 28 77 78 25 2c 77 79 25 2c |.closew(wx%,wy%,|
000008f0 6c 65 6e 25 2c 6d 61 78 25 2b 31 29 0d 03 ac 0d |len%,max%+1)....|
00000900 3d 6d 65 6e 75 70 74 72 25 0d 03 b6 05 3a 0d 03 |=menuptr%....:..|
00000910 c0 1a dd 20 f2 63 6c 6f 73 65 77 28 78 2c 79 2c |... .closew(x,y,|
00000920 6c 65 6e 25 2c 68 74 29 0d 03 ca 08 ef 20 32 36 |len%,ht)..... 26|
00000930 0d 03 d4 09 e6 20 30 2c 30 0d 03 de 17 f2 6f 70 |..... 0,0.....op|
00000940 65 6e 77 28 78 2c 79 2c 6c 65 6e 25 2c 68 74 29 |enw(x,y,len%,ht)|
00000950 0d 03 e8 05 db 0d 03 f2 08 ef 20 32 36 0d 03 fc |.......... 26...|
00000960 09 e6 20 30 2c 31 0d 04 06 05 e1 0d 04 10 05 3a |.. 0,1.........:|
00000970 0d 04 1a 19 dd 20 f2 6f 70 65 6e 77 28 78 2c 79 |..... .openw(x,y|
00000980 2c 6c 65 6e 25 2c 68 74 29 0d 04 24 1a ef 20 32 |,len%,ht)..$.. 2|
00000990 38 2c 78 2c 79 2b 68 74 2c 78 2b 6c 65 6e 25 2d |8,x,y+ht,x+len%-|
000009a0 31 2c 79 0d 04 2e 36 f2 72 65 63 74 28 78 2a 33 |1,y...6.rect(x*3|
000009b0 32 2d 38 2c 31 30 31 36 2d 28 79 2b 68 74 29 2a |2-8,1016-(y+ht)*|
000009c0 33 32 2c 6c 65 6e 25 2a 33 32 2b 31 32 2c 68 74 |32,len%*32+12,ht|
000009d0 2a 33 32 2b 31 32 2c 30 29 0d 04 38 33 f2 72 65 |*32+12,0)..83.re|
000009e0 63 74 28 78 2a 33 32 2b 31 36 2c 31 30 30 30 2d |ct(x*32+16,1000-|
000009f0 28 79 2b 68 74 29 2a 33 32 2d 38 2c 6c 65 6e 25 |(y+ht)*32-8,len%|
00000a00 2a 33 32 2b 31 36 2c 31 36 2c 31 29 0d 04 42 35 |*32+16,16,1)..B5|
00000a10 f2 72 65 63 74 28 28 78 2b 6c 65 6e 25 29 2a 33 |.rect((x+len%)*3|
00000a20 32 2b 31 36 2c 31 30 30 30 2d 28 79 2b 68 74 29 |2+16,1000-(y+ht)|
00000a30 2a 33 32 2c 31 36 2c 68 74 2a 33 32 2b 38 2c 31 |*32,16,ht*32+8,1|
00000a40 29 0d 04 4c 05 e1 0d 04 56 05 3a 0d 04 60 16 dd |)..L....V.:..`..|
00000a50 20 f2 72 65 63 74 28 78 2c 79 2c 6c 2c 77 2c 66 | .rect(x,y,l,w,f|
00000a60 29 0d 04 6a 09 ec 20 78 2c 79 0d 04 74 0b df 20 |)..j.. x,y..t.. |
00000a70 78 2b 6c 2c 79 0d 04 7e 20 e7 20 66 3d 30 20 df |x+l,y..~ . f=0 .|
00000a80 20 78 2b 6c 2c 79 2b 77 20 8b 20 f0 20 38 35 2c | x+l,y+w . . 85,|
00000a90 78 2c 79 2b 77 0d 04 88 20 e7 20 66 3d 30 20 df |x,y+w... . f=0 .|
00000aa0 20 78 2c 79 2b 77 20 8b 20 f0 20 38 35 2c 78 2b | x,y+w . . 85,x+|
00000ab0 6c 2c 79 2b 77 0d 04 92 0b ec 20 78 2c 79 2b 77 |l,y+w..... x,y+w|
00000ac0 0d 04 9c 17 e7 20 66 3d 30 20 df 20 78 2c 79 20 |..... f=0 . x,y |
00000ad0 8b 20 ec 20 78 2c 79 0d 04 a6 05 e1 0d 04 b0 05 |. . x,y.........|
00000ae0 3a 0d 04 ba 0b dd 20 f2 65 64 69 74 0d 04 c4 11 |:..... .edit....|
00000af0 6d 61 78 25 3d 6e 64 61 74 61 25 2b 33 0d 04 ce |max%=ndata%+3...|
00000b00 0f 6d 24 28 6d 61 78 25 29 3d 22 22 0d 04 d8 12 |.m$(max%)=""....|
00000b10 65 78 69 74 25 3d 6e 64 61 74 61 25 2b 32 0d 04 |exit%=ndata%+2..|
00000b20 e2 2e e7 20 57 25 3d 30 20 f2 73 65 74 75 70 6e |... W%=0 .setupn|
00000b30 61 6d 65 20 8b 20 f2 73 65 74 75 70 70 72 69 63 |ame . .setuppric|
00000b40 65 3a e7 20 53 25 3d a3 20 db 3a e1 0d 04 ec 17 |e:. S%=. .:.....|
00000b50 ea 20 6c 6f 6f 70 25 2c 6c 65 6e 25 3a 6c 65 6e |. loop%,len%:len|
00000b60 25 3d 30 0d 04 f6 14 e3 20 6c 6f 6f 70 25 3d 30 |%=0..... loop%=0|
00000b70 20 b8 20 6d 61 78 25 0d 05 00 2b e7 20 a9 28 6d | . max%...+. .(m|
00000b80 24 28 6c 6f 6f 70 25 29 29 3e 6c 65 6e 25 20 8c |$(loop%))>len% .|
00000b90 20 6c 65 6e 25 3d a9 28 6d 24 28 6c 6f 6f 70 25 | len%=.(m$(loop%|
00000ba0 29 29 0d 05 0a 05 ed 0d 05 14 13 ef 20 32 33 2c |)).......... 23,|
00000bb0 31 2c 30 3b 30 3b 30 3b 30 3b 0d 05 1e 0b 2a 46 |1,0;0;0;0;....*F|
00000bc0 58 20 34 2c 31 0d 05 28 1f f2 6f 70 65 6e 77 28 |X 4,1..(..openw(|
00000bd0 77 78 25 2c 77 79 25 2c 6c 65 6e 25 2c 6d 61 78 |wx%,wy%,len%,max|
00000be0 25 2b 32 29 0d 05 32 0e 6d 65 6e 75 70 74 72 25 |%+2)..2.menuptr%|
00000bf0 3d 32 0d 05 3c 05 f5 0d 05 46 0e 4e 45 57 44 41 |=2..<....F.NEWDA|
00000c00 54 45 25 3d a3 0d 05 50 0b f1 8a 30 2c 30 29 3b |TE%=...P...0,0);|
00000c10 0d 05 5a 14 e3 20 6c 6f 6f 70 25 3d 30 20 b8 20 |..Z.. loop%=0 . |
00000c20 6d 61 78 25 0d 05 64 34 e7 20 6c 6f 6f 70 25 3d |max%..d4. loop%=|
00000c30 6d 65 6e 75 70 74 72 25 20 84 20 6c 6f 6f 70 25 |menuptr% . loop%|
00000c40 3d 30 20 fb 20 30 3a fb 20 31 32 39 20 8b 20 fb |=0 . 0:. 129 . .|
00000c50 20 31 3a fb 20 31 32 38 0d 05 6e 27 f1 6d 24 28 | 1:. 128..n'.m$(|
00000c60 6c 6f 6f 70 25 29 3b c4 6c 65 6e 25 2d a9 28 6d |loop%);.len%-.(m|
00000c70 24 28 6c 6f 6f 70 25 29 29 2c 22 20 22 29 3b 0d |$(loop%))," ");.|
00000c80 05 78 0f e7 20 6c 6f 6f 70 25 3d 30 20 f1 0d 05 |.x.. loop%=0 ...|
00000c90 82 05 ed 0d 05 8c 0d fb 20 31 3a fb 20 31 32 38 |........ 1:. 128|
00000ca0 0d 05 96 0b 2a 46 58 32 31 2c 30 0d 05 a0 0a 4b |....*FX21,0....K|
00000cb0 45 59 25 3d a5 0d 05 aa 3e e7 20 4b 45 59 25 3d |EY%=....>. KEY%=|
00000cc0 31 33 39 20 6d 65 6e 75 70 74 72 25 3d 6d 65 6e |139 menuptr%=men|
00000cd0 75 70 74 72 25 2d 31 3a e7 20 6d 65 6e 75 70 74 |uptr%-1:. menupt|
00000ce0 72 25 3d 31 3a 6d 65 6e 75 70 74 72 25 3d 65 78 |r%=1:menuptr%=ex|
00000cf0 69 74 25 0d 05 b4 3e e7 20 4b 45 59 25 3d 31 33 |it%...>. KEY%=13|
00000d00 38 20 6d 65 6e 75 70 74 72 25 3d 6d 65 6e 75 70 |8 menuptr%=menup|
00000d10 74 72 25 2b 31 3a e7 20 6d 65 6e 75 70 74 72 25 |tr%+1:. menuptr%|
00000d20 3e 65 78 69 74 25 20 6d 65 6e 75 70 74 72 25 3d |>exit% menuptr%=|
00000d30 32 0d 05 be 2d e7 20 57 25 3d 31 20 80 20 28 4b |2...-. W%=1 . (K|
00000d40 45 59 25 3d 26 38 38 20 84 20 4b 45 59 25 3d 26 |EY%=&88 . KEY%=&|
00000d50 38 39 29 3a 4e 45 57 44 41 54 45 25 3d b9 0d 05 |89):NEWDATE%=...|
00000d60 c8 31 e7 20 4b 45 59 25 3e 33 31 20 80 20 4b 45 |.1. KEY%>31 . KE|
00000d70 59 25 3c 31 32 38 20 80 20 6d 65 6e 75 70 74 72 |Y%<128 . menuptr|
00000d80 25 3c 3e 65 78 69 74 25 20 f2 69 6e 70 75 74 0d |%<>exit% .input.|
00000d90 05 d2 2b fd 20 28 6d 65 6e 75 70 74 72 25 3d 65 |..+. (menuptr%=e|
00000da0 78 69 74 25 20 80 20 4b 45 59 25 3d 31 33 29 20 |xit% . KEY%=13) |
00000db0 84 20 4e 45 57 44 41 54 45 25 0d 05 dc 4a e7 20 |. NEWDATE%...J. |
00000dc0 57 25 3d 30 20 8c 20 cf 23 41 25 3d 30 3a e3 20 |W%=0 . .#A%=0:. |
00000dd0 70 74 72 25 3d 32 b8 6e 64 61 74 61 25 2b 31 3a |ptr%=2.ndata%+1:|
00000de0 e3 20 49 25 3d 31 b8 37 3a d5 23 41 25 2c 97 28 |. I%=1.7:.#A%,.(|
00000df0 c1 6d 24 28 70 74 72 25 29 2c 49 25 2c 31 29 29 |.m$(ptr%),I%,1))|
00000e00 3a ed 3a ed 0d 05 e6 34 e7 20 57 25 3d 31 20 8c |:.:....4. W%=1 .|
00000e10 20 f1 8a 57 25 2a 31 32 2c 6e 64 61 74 61 25 2b | ..W%*12,ndata%+|
00000e20 34 29 22 57 41 49 54 20 20 22 3a f2 75 70 64 61 |4)"WAIT ":.upda|
00000e30 74 65 72 65 63 6f 72 64 0d 05 f0 0f 65 6e 64 6f |terecord....endo|
00000e40 66 69 6c 65 25 3d a3 0d 05 fa 37 e7 20 57 25 3d |file%=....7. W%=|
00000e50 31 20 80 20 4e 45 57 44 41 54 45 25 20 8c 20 f2 |1 . NEWDATE% . .|
00000e60 63 68 61 6e 67 65 64 61 74 65 3a e7 20 4e 45 57 |changedate:. NEW|
00000e70 44 41 54 45 25 3d a3 20 e5 20 8d 64 44 44 0d 06 |DATE%=. . .dDD..|
00000e80 04 39 e7 20 65 6e 64 6f 66 69 6c 65 25 20 79 65 |.9. endofile% ye|
00000e90 61 72 24 3d c3 28 4f 4c 44 59 29 3a f2 63 68 65 |ar$=.(OLDY):.che|
00000ea0 63 6b 5f 61 6e 64 5f 6f 70 65 6e 5f 66 69 6c 65 |ck_and_open_file|
00000eb0 3a e5 20 8d 64 44 44 0d 06 0e 0d f2 64 75 6d 70 |:. .dDD.....dump|
00000ec0 70 74 72 73 0d 06 18 2a e7 20 57 25 3d 31 20 80 |ptrs...*. W%=1 .|
00000ed0 20 4e 45 57 44 41 54 45 25 20 8c 20 f2 73 65 74 | NEWDATE% . .set|
00000ee0 75 70 70 72 69 63 65 3a e5 20 8d 54 72 45 0d 06 |upprice:. .TrE..|
00000ef0 22 29 e7 20 57 25 3d 31 20 80 20 28 4b 45 59 25 |"). W%=1 . (KEY%|
00000f00 3d 26 38 38 20 84 20 4b 45 59 25 3d 26 38 39 29 |=&88 . KEY%=&89)|
00000f10 20 e5 20 8d 54 72 45 0d 06 2c 0a 2a 46 58 34 2c | . .TrE..,.*FX4,|
00000f20 30 0d 06 36 20 f2 63 6c 6f 73 65 77 28 77 78 25 |0..6 .closew(wx%|
00000f30 2c 77 79 25 2c 6c 65 6e 25 2c 6d 61 78 25 2b 32 |,wy%,len%,max%+2|
00000f40 29 0d 06 40 15 f2 6c 6f 61 64 6e 61 6d 65 73 5f |)..@..loadnames_|
00000f50 70 72 69 63 65 73 0d 06 4a 05 e1 0d 06 54 05 3a |prices..J....T.:|
00000f60 0d 06 5e 0e dd f2 64 75 6d 70 70 74 72 73 0d 06 |..^...dumpptrs..|
00000f70 68 0e ee 20 85 20 e5 20 8d 44 5a 40 0d 06 72 12 |h.. . . .DZ@..r.|
00000f80 cf 23 41 25 3d 66 69 72 73 74 70 74 72 25 0d 06 |.#A%=firstptr%..|
00000f90 7c 1b d5 23 41 25 2c 66 69 72 73 74 72 65 63 6f ||..#A%,firstreco|
00000fa0 72 64 25 20 81 20 32 35 36 0d 06 86 1b d5 23 41 |rd% . 256.....#A|
00000fb0 25 2c 66 69 72 73 74 72 65 63 6f 72 64 25 20 83 |%,firstrecord% .|
00000fc0 20 32 35 36 0d 06 90 0a d5 23 41 25 2c 44 0d 06 | 256.....#A%,D..|
00000fd0 9a 0a d5 23 41 25 2c 4d 0d 06 a4 12 d5 23 41 25 |...#A%,M.....#A%|
00000fe0 2c 28 59 20 81 20 32 35 36 29 0d 06 ae 12 d5 23 |,(Y . 256).....#|
00000ff0 41 25 2c 28 59 20 83 20 32 35 36 29 0d 06 b8 0c |A%,(Y . 256)....|
00001000 d5 23 41 25 2c 44 41 59 0d 06 c2 19 d5 23 41 25 |.#A%,DAY.....#A%|
00001010 2c 28 64 69 73 63 70 74 72 25 20 81 20 32 35 36 |,(discptr% . 256|
00001020 29 0d 06 cc 19 d5 23 41 25 2c 28 64 69 73 63 70 |).....#A%,(discp|
00001030 74 72 25 20 83 20 32 35 36 29 0d 06 d6 0a d5 23 |tr% . 256).....#|
00001040 41 25 2c 64 0d 06 e0 0a d5 23 41 25 2c 6d 0d 06 |A%,d.....#A%,m..|
00001050 ea 12 d5 23 41 25 2c 28 79 20 81 20 32 35 36 29 |...#A%,(y . 256)|
00001060 0d 06 f4 12 d5 23 41 25 2c 28 79 20 83 20 32 35 |.....#A%,(y . 25|
00001070 36 29 0d 06 fe 09 ee 20 85 20 87 0d 07 08 05 e1 |6)..... . ......|
00001080 0d 07 12 05 3a 0d 07 1c 0b dd f2 69 6e 70 75 74 |....:......input|
00001090 0d 07 26 08 4b 25 3d a3 0d 07 30 25 e7 20 57 25 |..&.K%=...0%. W%|
000010a0 3d 31 20 80 20 28 4b 45 59 25 3c 34 38 20 84 20 |=1 . (KEY%<48 . |
000010b0 4b 45 59 25 3e 35 37 29 20 ef 37 3a e1 0d 07 3a |KEY%>57) .7:...:|
000010c0 1a e7 20 4b 45 59 25 3c 3e 31 32 37 20 74 24 3d |.. KEY%<>127 t$=|
000010d0 bd 28 4b 45 59 25 29 0d 07 44 18 f1 8a 57 25 2a |.(KEY%)..D...W%*|
000010e0 31 32 2c 6e 64 61 74 61 25 2b 34 29 74 24 3b 0d |12,ndata%+4)t$;.|
000010f0 07 4e 1a e7 20 57 25 3d 30 20 6d 24 28 6d 65 6e |.N.. W%=0 m$(men|
00001100 75 70 74 72 25 29 3d 22 22 0d 07 58 08 4e 25 3d |uptr%)=""..X.N%=|
00001110 31 0d 07 62 05 f5 0d 07 6c 0a 4b 45 59 25 3d a5 |1..b....l.KEY%=.|
00001120 0d 07 76 3e e7 20 4b 45 59 25 3d 31 33 39 20 84 |..v>. KEY%=139 .|
00001130 20 4b 45 59 25 3d 31 33 38 20 84 20 4b 45 59 25 | KEY%=138 . KEY%|
00001140 3d 31 33 20 84 20 4b 45 59 25 3d 26 38 38 20 84 |=13 . KEY%=&88 .|
00001150 20 4b 45 59 25 3d 26 38 39 20 4b 25 3d b9 0d 07 | KEY%=&89 K%=...|
00001160 80 24 e7 20 4b 45 59 25 3d 26 38 38 20 84 20 4b |.$. KEY%=&88 . K|
00001170 45 59 25 3d 26 38 39 20 4e 45 57 44 41 54 45 25 |EY%=&89 NEWDATE%|
00001180 3d b9 0d 07 8a 1a e7 20 4b 25 20 84 20 4b 45 59 |=...... K% . KEY|
00001190 25 3d 31 32 37 20 e5 20 8d 74 5e 47 0d 07 94 2a |%=127 . .t^G...*|
000011a0 e7 20 57 25 3d 31 20 80 20 28 4b 45 59 25 3c 34 |. W%=1 . (KEY%<4|
000011b0 38 20 84 20 4b 45 59 25 3e 35 37 29 20 ef 37 3a |8 . KEY%>57) .7:|
000011c0 e5 20 8d 44 6c 47 0d 07 9e 11 70 74 72 25 3d 6d |. .DlG....ptr%=m|
000011d0 65 6e 75 70 74 72 25 0d 07 a8 3e e7 20 4b 45 59 |enuptr%...>. KEY|
000011e0 25 3d 31 33 39 20 6d 65 6e 75 70 74 72 25 3d 6d |%=139 menuptr%=m|
000011f0 65 6e 75 70 74 72 25 2d 31 3a e7 20 6d 65 6e 75 |enuptr%-1:. menu|
00001200 70 74 72 25 3d 31 3a 6d 65 6e 75 70 74 72 25 3d |ptr%=1:menuptr%=|
00001210 65 78 69 74 25 0d 07 b2 3e e7 20 4b 45 59 25 3d |exit%...>. KEY%=|
00001220 31 33 38 20 6d 65 6e 75 70 74 72 25 3d 6d 65 6e |138 menuptr%=men|
00001230 75 70 74 72 25 2b 31 3a e7 20 6d 65 6e 75 70 74 |uptr%+1:. menupt|
00001240 72 25 3e 65 78 69 74 25 20 6d 65 6e 75 70 74 72 |r%>exit% menuptr|
00001250 25 3d 32 0d 07 bc 0f e7 20 4b 25 20 e5 20 8d 54 |%=2..... K% . .T|
00001260 56 48 0d 07 c6 16 e7 20 4b 45 59 25 3d 31 32 37 |VH..... KEY%=127|
00001270 20 4e 25 3d 4e 25 2d 31 0d 07 d0 27 e7 20 4b 45 | N%=N%-1...'. KE|
00001280 59 25 3d 31 32 37 20 80 20 4e 25 3c 31 3a 4e 25 |Y%=127 . N%<1:N%|
00001290 3d 30 3a 74 24 3d 22 22 3a e5 20 8d 64 78 47 0d |=0:t$="":. .dxG.|
000012a0 07 da 20 e7 20 4b 45 59 25 3d 31 32 37 20 74 24 |.. . KEY%=127 t$|
000012b0 3d c0 74 24 2c 4e 25 29 3a e5 20 8d 64 78 47 0d |=.t$,N%):. .dxG.|
000012c0 07 e4 11 74 24 3d 74 24 2b bd 28 4b 45 59 25 29 |...t$=t$+.(KEY%)|
000012d0 0d 07 ee 0b 4e 25 3d 4e 25 2b 31 0d 07 f8 1c e7 |....N%=N%+1.....|
000012e0 20 57 25 3d 30 20 63 24 3d 62 24 20 8b 20 63 24 | W%=0 c$=b$ . c$|
000012f0 3d 22 20 20 20 20 22 0d 08 02 18 f1 8a 57 25 2a |=" "......W%*|
00001300 31 32 2c 6e 64 61 74 61 25 2b 34 29 63 24 3b 0d |12,ndata%+4)c$;.|
00001310 08 0c 18 f1 8a 57 25 2a 31 32 2c 6e 64 61 74 61 |.....W%*12,ndata|
00001320 25 2b 34 29 74 24 3b 0d 08 16 15 fd 20 4e 25 3e |%+4)t$;..... N%>|
00001330 3d 6e 25 28 57 25 29 20 84 20 4b 25 0d 08 20 49 |=n%(W%) . K%.. I|
00001340 e7 20 4b 45 59 25 3d 31 33 20 84 20 4e 25 3d 6e |. KEY%=13 . N%=n|
00001350 25 28 57 25 29 20 6d 65 6e 75 70 74 72 25 3d 6d |%(W%) menuptr%=m|
00001360 65 6e 75 70 74 72 25 2b 31 3a e7 20 6d 65 6e 75 |enuptr%+1:. menu|
00001370 70 74 72 25 3d 65 78 69 74 25 20 6d 65 6e 75 70 |ptr%=exit% menup|
00001380 74 72 25 3d 32 0d 08 2a 30 e7 20 57 25 3d 31 20 |tr%=2..*0. W%=1 |
00001390 80 20 a9 28 6d 24 28 70 74 72 25 29 29 3e 39 3a |. .(m$(ptr%))>9:|
000013a0 6d 24 28 70 74 72 25 29 3d c0 6d 24 28 70 74 72 |m$(ptr%)=.m$(ptr|
000013b0 25 29 2c 39 29 0d 08 34 42 e7 20 57 25 3d 31 20 |%),9)..4B. W%=1 |
000013c0 80 20 a9 28 6d 24 28 70 74 72 25 29 29 3c 39 3a |. .(m$(ptr%))<9:|
000013d0 f5 3a 6d 24 28 70 74 72 25 29 3d 6d 24 28 70 74 |.:m$(ptr%)=m$(pt|
000013e0 72 25 29 2b 22 20 22 3a fd 20 a9 28 6d 24 28 70 |r%)+" ":. .(m$(p|
000013f0 74 72 25 29 29 3d 39 0d 08 3e 2a e7 20 57 25 3d |tr%))=9..>*. W%=|
00001400 31 20 80 20 a9 28 74 24 29 3c 34 3a f5 3a 74 24 |1 . .(t$)<4:.:t$|
00001410 3d 22 20 22 2b 74 24 3a fd 20 a9 28 74 24 29 3d |=" "+t$:. .(t$)=|
00001420 34 0d 08 48 2a e7 20 57 25 3d 30 20 80 20 a9 28 |4..H*. W%=0 . .(|
00001430 74 24 29 3c 37 3a f5 3a 74 24 3d 74 24 2b 22 20 |t$)<7:.:t$=t$+" |
00001440 22 3a fd 20 a9 28 74 24 29 3d 37 0d 08 52 18 6d |":. .(t$)=7..R.m|
00001450 24 28 70 74 72 25 29 3d 6d 24 28 70 74 72 25 29 |$(ptr%)=m$(ptr%)|
00001460 2b 74 24 0d 08 5c 05 e1 0d 08 66 05 3a 0d 08 70 |+t$..\....f.:..p|
00001470 10 dd f2 62 6c 61 6e 6b 73 68 61 72 65 0d 08 7a |...blankshare..z|
00001480 13 e3 20 49 25 3d 32 b8 6e 64 61 74 61 25 2b 31 |.. I%=2.ndata%+1|
00001490 0d 08 84 0d 73 24 28 49 25 29 3d 62 24 0d 08 8e |....s$(I%)=b$...|
000014a0 05 ed 0d 08 98 05 e1 0d 08 a2 05 3a 0d 08 ac 11 |...........:....|
000014b0 dd f2 69 6e 73 65 72 74 73 68 61 72 65 0d 08 b6 |..insertshare...|
000014c0 13 e3 20 49 25 3d 32 b8 6e 64 61 74 61 25 2b 31 |.. I%=2.ndata%+1|
000014d0 0d 08 c0 11 6d 24 28 49 25 29 3d 73 24 28 49 25 |....m$(I%)=s$(I%|
000014e0 29 0d 08 ca 05 ed 0d 08 d4 08 53 25 3d b9 0d 08 |).........S%=...|
000014f0 de 05 e1 0d 08 e8 05 3a 0d 08 f2 10 dd f2 62 6c |.......:......bl|
00001500 61 6e 6b 70 72 69 63 65 0d 08 fc 13 e3 20 49 25 |ankprice..... I%|
00001510 3d 32 b8 6e 64 61 74 61 25 2b 31 0d 09 06 11 70 |=2.ndata%+1....p|
00001520 24 28 49 25 29 3d 22 20 20 20 20 22 0d 09 10 05 |$(I%)=" "....|
00001530 ed 0d 09 1a 05 e1 0d 09 24 05 3a 0d 09 2e 11 dd |........$.:.....|
00001540 f2 69 6e 73 65 72 74 70 72 69 63 65 0d 09 38 0e |.insertprice..8.|
00001550 ee 20 85 20 e5 20 8d 44 5a 40 0d 09 42 10 cf 23 |. . . .DZ@..B..#|
00001560 41 25 3d 44 41 59 50 54 52 25 0d 09 4c 0c 44 41 |A%=DAYPTR%..L.DA|
00001570 59 3d 9a 23 41 25 0d 09 56 1c 64 69 73 63 70 74 |Y=.#A%..V.discpt|
00001580 72 25 3d 28 9a 23 41 25 29 2a 32 35 36 2b 9a 23 |r%=(.#A%)*256+.#|
00001590 41 25 0d 09 60 11 cf 23 41 25 3d 64 69 73 63 70 |A%..`..#A%=discp|
000015a0 74 72 25 0d 09 6a 13 e3 20 49 25 3d 32 b8 6e 64 |tr%..j.. I%=2.nd|
000015b0 61 74 61 25 2b 31 0d 09 74 0b 47 25 3d 9a 23 41 |ata%+1..t.G%=.#A|
000015c0 25 0d 09 7e 0b 4f 25 3d 9a 23 41 25 0d 09 88 11 |%..~.O%=.#A%....|
000015d0 61 24 3d c3 28 47 25 20 81 20 31 30 29 0d 09 92 |a$=.(G% . 10)...|
000015e0 11 62 24 3d c3 28 47 25 20 83 20 31 30 29 0d 09 |.b$=.(G% . 10)..|
000015f0 9c 11 63 24 3d c3 28 4f 25 20 81 20 31 30 29 0d |..c$=.(O% . 10).|
00001600 09 a6 11 64 24 3d c3 28 4f 25 20 83 20 31 30 29 |...d$=.(O% . 10)|
00001610 0d 09 b0 1c e7 20 61 24 3d 22 30 22 20 61 24 3d |..... a$="0" a$=|
00001620 22 20 22 20 8b 20 e5 20 8d 64 58 49 0d 09 ba 1c |" " . . .dXI....|
00001630 e7 20 62 24 3d 22 30 22 20 62 24 3d 22 20 22 20 |. b$="0" b$=" " |
00001640 8b 20 e5 20 8d 64 58 49 0d 09 c4 1c e7 20 63 24 |. . .dXI..... c$|
00001650 3d 22 30 22 20 63 24 3d 22 20 22 20 8b 20 e5 20 |="0" c$=" " . . |
00001660 8d 64 58 49 0d 09 ce 13 e7 20 64 24 3d 22 30 22 |.dXI..... d$="0"|
00001670 20 64 24 3d 22 20 22 0d 09 d8 16 70 24 28 49 25 | d$=" "....p$(I%|
00001680 29 3d 61 24 2b 62 24 2b 63 24 2b 64 24 0d 09 e2 |)=a$+b$+c$+d$...|
00001690 1d 6d 24 28 49 25 29 3d 73 24 28 49 25 29 2b 22 |.m$(I%)=s$(I%)+"|
000016a0 20 20 22 2b 70 24 28 49 25 29 0d 09 ec 05 ed 0d | "+p$(I%)......|
000016b0 09 f6 08 50 25 3d b9 0d 0a 00 09 ee 20 85 20 87 |...P%=...... . .|
000016c0 0d 0a 0a 05 e1 0d 0a 14 05 3a 0d 0a 1e 0f dd f2 |.........:......|
000016d0 73 65 74 75 70 6e 61 6d 65 0d 0a 28 17 6d 24 28 |setupname..(.m$(|
000016e0 30 29 3d 22 45 6e 74 65 72 20 73 68 61 72 65 22 |0)="Enter share"|
000016f0 0d 0a 32 42 e7 20 54 25 20 80 20 51 25 3e 30 20 |..2B. T% . Q%>0 |
00001700 80 20 51 25 3c 35 20 6d 24 28 31 29 3d 70 24 2b |. Q%<5 m$(1)=p$+|
00001710 22 3a 2d 20 22 2b c3 28 51 25 29 20 8b 20 6d 24 |":- "+.(Q%) . m$|
00001720 28 31 29 3d 70 24 2b 22 20 4e 4f 54 20 4f 50 45 |(1)=p$+" NOT OPE|
00001730 4e 22 0d 0a 3c 31 e7 20 54 25 20 80 20 51 25 3d |N"..<1. T% . Q%=|
00001740 30 20 6d 24 28 30 29 3d 22 45 6e 74 65 72 20 69 |0 m$(0)="Enter i|
00001750 6e 64 65 78 22 3a 6d 24 28 31 29 3d 22 49 6e 64 |ndex":m$(1)="Ind|
00001760 65 78 22 0d 0a 46 16 e7 20 53 25 3d a3 20 f2 62 |ex"..F.. S%=. .b|
00001770 6c 61 6e 6b 73 68 61 72 65 0d 0a 50 1d 6d 24 28 |lankshare..P.m$(|
00001780 6e 64 61 74 61 25 2b 32 29 3d 22 20 45 6e 64 20 |ndata%+2)=" End |
00001790 65 6e 74 72 79 22 0d 0a 5a 10 f2 69 6e 73 65 72 |entry"..Z..inser|
000017a0 74 73 68 61 72 65 0d 0a 64 05 e1 0d 0a 6e 05 3a |tshare..d....n.:|
000017b0 0d 0a 78 10 dd f2 73 65 74 75 70 70 72 69 63 65 |..x...setupprice|
000017c0 0d 0a 82 58 e7 20 53 25 3d a3 20 f1 8a 30 2c 31 |...X. S%=. ..0,1|
000017d0 30 29 22 52 65 74 75 72 6e 20 74 6f 20 73 65 74 |0)"Return to set|
000017e0 20 75 70 20 6e 61 6d 65 73 22 3b 3a f1 8a 30 2c | up names";:..0,|
000017f0 31 32 29 22 50 72 65 73 73 20 61 6e 79 20 4b 45 |12)"Press any KE|
00001800 59 20 74 6f 20 63 6f 6e 74 69 6e 75 65 22 3b 3a |Y to continue";:|
00001810 4b 45 59 25 3d a5 3a e1 0d 0a 8c 4d e7 20 54 25 |KEY%=.:....M. T%|
00001820 20 80 20 51 25 3d 30 20 6d 24 28 30 29 3d 22 45 | . Q%=0 m$(0)="E|
00001830 6e 74 65 72 20 69 6e 64 65 78 22 20 8b 20 6d 24 |nter index" . m$|
00001840 28 30 29 3d 22 20 20 45 6e 74 65 72 20 70 72 69 |(0)=" Enter pri|
00001850 63 65 73 20 20 22 2b 70 24 2b 22 3a 2d 20 22 2b |ces "+p$+":- "+|
00001860 c3 28 51 25 29 0d 0a 96 20 e7 20 44 3c 31 30 20 |.(Q%)... . D<10 |
00001870 61 24 3d 22 20 22 2b c3 28 44 29 20 8b 20 61 24 |a$=" "+.(D) . a$|
00001880 3d c3 28 44 29 0d 0a a0 20 e7 20 4d 3c 31 30 20 |=.(D)... . M<10 |
00001890 62 24 3d 22 20 22 2b c3 28 4d 29 20 8b 20 62 24 |b$=" "+.(M) . b$|
000018a0 3d c3 28 4d 29 0d 0a aa 34 e7 20 28 59 20 83 20 |=.(M)...4. (Y . |
000018b0 31 30 30 29 3c 31 30 20 63 24 3d 22 20 22 2b c3 |100)<10 c$=" "+.|
000018c0 28 59 20 83 20 31 30 30 29 20 8b 20 63 24 3d c3 |(Y . 100) . c$=.|
000018d0 28 59 20 83 20 31 30 30 29 0d 0a b4 36 6d 24 28 |(Y . 100)...6m$(|
000018e0 31 29 3d 64 61 79 24 28 44 41 59 2d 31 29 2b 22 |1)=day$(DAY-1)+"|
000018f0 20 20 20 22 2b 61 24 2b 22 2f 22 2b 62 24 2b 22 | "+a$+"/"+b$+"|
00001900 2f 22 2b 63 24 2b 22 20 20 43 6c 6f 73 65 22 0d |/"+c$+" Close".|
00001910 0a be 16 e7 20 50 25 3d a3 20 f2 62 6c 61 6e 6b |.... P%=. .blank|
00001920 70 72 69 63 65 0d 0a c8 1f 6d 24 28 6e 64 61 74 |price....m$(ndat|
00001930 61 25 2b 32 29 3d 22 20 20 20 45 6e 64 20 65 6e |a%+2)=" End en|
00001940 74 72 79 22 0d 0a d2 10 f2 69 6e 73 65 72 74 70 |try".....insertp|
00001950 72 69 63 65 0d 0a dc 05 e1 0d 0a e6 05 3a 0d 0a |rice.........:..|
00001960 f0 16 dd f2 6c 6f 61 64 6e 61 6d 65 73 5f 70 72 |....loadnames_pr|
00001970 69 63 65 73 0d 0a fa 13 e3 20 49 25 3d 32 b8 6e |ices..... I%=2.n|
00001980 64 61 74 61 25 2b 31 0d 0b 04 15 73 24 28 49 25 |data%+1....s$(I%|
00001990 29 3d c0 6d 24 28 49 25 29 2c 37 29 0d 0b 0e 11 |)=.m$(I%),7)....|
000019a0 e7 20 57 25 3d 30 20 e5 20 8d 54 62 4b 0d 0b 18 |. W%=0 . .TbK...|
000019b0 15 70 24 28 49 25 29 3d c2 6d 24 28 49 25 29 2c |.p$(I%)=.m$(I%),|
000019c0 34 29 0d 0b 22 05 ed 0d 0b 2c 08 53 25 3d b9 0d |4).."....,.S%=..|
000019d0 0b 36 08 50 25 3d b9 0d 0b 40 05 e1 0d 0b 4a 05 |.6.P%=...@....J.|
000019e0 3a 0d 0b 54 10 dd f2 63 68 61 6e 67 65 64 61 74 |:..T...changedat|
000019f0 65 0d 0b 5e 14 e7 20 4b 45 59 25 3d 26 38 38 20 |e..^.. KEY%=&88 |
00001a00 43 25 3d 2d 31 0d 0b 68 13 e7 20 4b 45 59 25 3d |C%=-1..h.. KEY%=|
00001a10 26 38 39 20 43 25 3d 31 0d 0b 72 2e e7 20 43 25 |&89 C%=1..r.. C%|
00001a20 3c 30 20 80 20 64 69 73 63 70 74 72 25 3d 66 69 |<0 . discptr%=fi|
00001a30 72 73 74 72 65 63 6f 72 64 25 3a f2 70 72 65 76 |rstrecord%:.prev|
00001a40 69 6f 75 73 3a e1 0d 0b 7c 23 64 69 73 63 70 74 |ious:...|#discpt|
00001a50 72 25 3d 64 69 73 63 70 74 72 25 2b 28 43 25 2a |r%=discptr%+(C%*|
00001a60 6e 64 61 74 61 25 2a 32 29 0d 0b 86 0f f2 61 64 |ndata%*2).....ad|
00001a70 6a 75 73 74 64 61 74 65 0d 0b 90 23 e7 20 65 6e |justdate...#. en|
00001a80 64 6f 66 69 6c 65 25 20 80 20 43 25 3e 30 20 43 |dofile% . C%>0 C|
00001a90 25 3d 2d 31 3a e5 20 8d 44 7c 4b 0d 0b 9a 05 e1 |%=-1:. .D|K.....|
00001aa0 0d 0b a4 05 3a 0d 0b ae 0e dd f2 70 72 65 76 69 |....:......previ|
00001ab0 6f 75 73 0d 0b b8 0e ee 20 85 20 e5 20 8d 44 5a |ous..... . . .DZ|
00001ac0 40 0d 0b c2 0c 46 4f 55 4e 44 25 3d a3 0d 0b cc |@....FOUND%=....|
00001ad0 16 42 25 3d 8e 28 c3 28 59 2d 31 29 2b c3 28 51 |.B%=.(.(Y-1)+.(Q|
00001ae0 25 29 29 0d 0b d6 08 d9 23 42 25 0d 0b e0 31 e7 |%)).....#B%...1.|
00001af0 20 42 25 3d 30 20 f2 6e 6f 74 66 6f 75 6e 64 28 | B%=0 .notfound(|
00001b00 59 2d 31 29 3a e7 20 ac 20 46 4f 55 4e 44 25 20 |Y-1):. . FOUND% |
00001b10 4e 45 57 44 41 54 45 25 3d a3 3a e1 0d 0b ea 09 |NEWDATE%=.:.....|
00001b20 59 3d 59 2d 31 0d 0b f4 0e 79 65 61 72 24 3d c3 |Y=Y-1....year$=.|
00001b30 28 59 29 0d 0b fe 18 f2 63 68 65 63 6b 5f 61 6e |(Y).....check_an|
00001b40 64 5f 6f 70 65 6e 5f 66 69 6c 65 0d 0c 08 09 ee |d_open_file.....|
00001b50 20 85 20 87 0d 0c 12 05 e1 0d 0c 1c 05 3a 0d 0c | . ..........:..|
00001b60 26 12 dd f2 6e 6f 74 66 6f 75 6e 64 28 46 25 29 |&...notfound(F%)|
00001b70 0d 0c 30 0e ee 20 85 20 e5 20 8d 44 5a 40 0d 0c |..0.. . . .DZ@..|
00001b80 3a 2c e7 20 51 25 3d 30 20 66 24 3d 22 49 6e 64 |:,. Q%=0 f$="Ind|
00001b90 65 78 20 64 61 74 61 22 20 8b 20 66 24 3d 70 24 |ex data" . f$=p$|
00001ba0 2b 22 20 22 2b c3 28 51 25 29 0d 0c 44 20 f2 63 |+" "+.(Q%)..D .c|
00001bb0 6c 6f 73 65 77 28 77 78 25 2c 77 79 25 2c 6c 65 |losew(wx%,wy%,le|
00001bc0 6e 25 2c 6d 61 78 25 2b 32 29 0d 0c 4e 05 f5 0d |n%,max%+2)..N...|
00001bd0 0c 58 2d f1 8a 30 2c 35 29 66 24 3b 22 20 66 6f |.X-..0,5)f$;" fo|
00001be0 72 20 22 3b 46 25 3b 22 20 6e 6f 74 20 6f 6e 20 |r ";F%;" not on |
00001bf0 74 68 69 73 20 64 69 73 63 3a 2d 22 0d 0c 62 05 |this disc:-"..b.|
00001c00 f5 0d 0c 6c ae f1 8a 32 2c 38 29 22 41 29 20 28 |...l...2,8)"A) (|
00001c10 41 29 62 61 6e 64 6f 6e 22 27 27 8a 32 29 22 43 |A)bandon"''.2)"C|
00001c20 29 20 28 43 29 61 74 61 6c 6f 67 75 65 20 64 69 |) (C)atalogue di|
00001c30 73 63 22 27 27 8a 32 29 22 44 29 20 28 44 29 72 |sc"''.2)"D) (D)r|
00001c40 69 76 65 20 63 68 61 6e 67 65 20 28 63 75 72 72 |ive change (curr|
00001c50 65 6e 74 6c 79 20 44 72 69 76 65 20 22 3b a4 64 |ently Drive ";.d|
00001c60 72 69 76 65 3b 22 29 22 27 27 8a 32 29 22 47 29 |rive;")"''.2)"G)|
00001c70 20 28 47 29 6f 20 6f 6e 22 27 27 8a 32 29 22 53 | (G)o on"''.2)"S|
00001c80 29 20 28 53 29 74 61 72 74 20 61 20 6e 65 77 20 |) (S)tart a new |
00001c90 66 69 6c 65 22 27 27 8a 32 29 22 43 68 6f 6f 73 |file"''.2)"Choos|
00001ca0 65 20 41 2c 43 2c 44 2c 47 20 6f 72 20 53 22 0d |e A,C,D,G or S".|
00001cb0 0c 76 05 f5 0d 0c 80 0b 2a 46 58 32 31 2c 30 0d |.v......*FX21,0.|
00001cc0 0c 8a 10 4b 45 59 25 3d a5 20 80 20 26 44 46 0d |...KEY%=. . &DF.|
00001cd0 0c 94 35 fd 20 4b 45 59 25 3d 36 35 20 84 20 4b |..5. KEY%=65 . K|
00001ce0 45 59 25 3d 36 37 20 84 20 4b 45 59 25 3d 36 38 |EY%=67 . KEY%=68|
00001cf0 20 84 20 4b 45 59 25 3d 37 31 20 84 20 4b 45 59 | . KEY%=71 . KEY|
00001d00 25 3d 38 33 0d 0c 9e 14 e7 20 4b 45 59 25 3d 36 |%=83..... KEY%=6|
00001d10 37 20 8c 20 db 3a 2a 2e 0d 0c a8 98 e7 20 4b 45 |7 . .:*...... KE|
00001d20 59 25 3d 36 38 20 f1 27 8a 31 30 29 22 45 6e 74 |Y%=68 .'.10)"Ent|
00001d30 65 72 20 64 72 69 76 65 20 6e 6f 2e 22 3b 3a f5 |er drive no.";:.|
00001d40 3a 4b 45 59 25 3d a5 2d 34 38 3a fd 4b 45 59 25 |:KEY%=.-48:.KEY%|
00001d50 3e 2d 31 20 80 20 4b 45 59 25 3c 34 3a f1 3b 22 |>-1 . KEY%<4:.;"|
00001d60 20 22 3b 4b 45 59 25 3a 24 26 43 31 30 3d 22 44 | ";KEY%:$&C10="D|
00001d70 52 2e 22 2b c3 28 4b 45 59 25 29 3a 58 25 3d 26 |R."+.(KEY%):X%=&|
00001d80 31 30 3a 59 25 3d 26 43 3a d6 26 46 46 46 37 3a |10:Y%=&C:.&FFF7:|
00001d90 f1 27 27 8a 31 30 29 22 44 72 69 76 65 20 22 3b |.''.10)"Drive ";|
00001da0 4b 45 59 25 3b 22 20 73 65 6c 65 63 74 65 64 22 |KEY%;" selected"|
00001db0 0d 0c b2 28 e7 20 4b 45 59 25 3d 36 35 20 84 20 |...(. KEY%=65 . |
00001dc0 4b 45 59 25 3d 37 31 20 84 20 4b 45 59 25 3d 38 |KEY%=71 . KEY%=8|
00001dd0 33 20 e5 20 8d 64 5a 4c 0d 0c bc 25 f1 27 27 8a |3 . .dZL...%.''.|
00001de0 35 29 22 50 72 65 73 73 20 61 6e 79 20 6b 65 79 |5)"Press any key|
00001df0 20 74 6f 20 63 6f 6e 74 69 6e 75 65 22 0d 0c c6 | to continue"...|
00001e00 0b 2a 46 58 32 31 2c 30 0d 0c d0 07 f5 fd a5 0d |.*FX21,0........|
00001e10 0c da 05 db 0d 0c e4 20 fd 4b 45 59 25 3d 36 35 |....... .KEY%=65|
00001e20 20 84 20 4b 45 59 25 3d 37 31 20 84 20 4b 45 59 | . KEY%=71 . KEY|
00001e30 25 3d 38 33 0d 0c ee 15 42 25 3d 8e 28 c3 28 46 |%=83....B%=.(.(F|
00001e40 25 29 2b c3 28 51 25 29 29 0d 0c f8 07 d9 23 30 |%)+.(Q%)).....#0|
00001e50 0d 0d 02 1e fd 42 25 3c 3e 30 20 84 20 4b 45 59 |.....B%<>0 . KEY|
00001e60 25 3d 36 35 20 84 20 4b 45 59 25 3d 38 33 0d 0d |%=65 . KEY%=83..|
00001e70 0c 09 ee 20 85 20 87 0d 0d 16 1c e7 20 4b 45 59 |... . ...... KEY|
00001e80 25 3d 36 35 20 f2 63 68 61 69 6e 28 22 4d 41 49 |%=65 .chain("MAI|
00001e90 4e 22 29 0d 0d 20 25 e7 20 4b 45 59 25 3d 38 33 |N").. %. KEY%=83|
00001ea0 20 59 3d 46 25 3a 79 65 61 72 24 3d c3 28 59 29 | Y=F%:year$=.(Y)|
00001eb0 3a f2 6f 70 65 6e 3a e1 0d 0d 2a 1e e7 20 42 25 |:.open:...*.. B%|
00001ec0 3d 30 20 46 4f 55 4e 44 25 3d a3 20 8b 20 46 4f |=0 FOUND%=. . FO|
00001ed0 55 4e 44 25 3d b9 0d 0d 34 1f f2 6f 70 65 6e 77 |UND%=...4..openw|
00001ee0 28 77 78 25 2c 77 79 25 2c 6c 65 6e 25 2c 6d 61 |(wx%,wy%,len%,ma|
00001ef0 78 25 2b 32 29 0d 0d 3e 05 e1 0d 0d 48 05 3a 0d |x%+2)..>....H.:.|
00001f00 0d 52 10 dd f2 61 64 6a 75 73 74 64 61 74 65 0d |.R...adjustdate.|
00001f10 0d 5c 0a 4f 4c 44 59 3d 59 0d 0d 66 05 f5 0d 0d |.\.OLDY=Y..f....|
00001f20 70 0a 44 3d 44 2b 43 25 0d 0d 7a 05 f5 0d 0d 84 |p.D=D+C%..z.....|
00001f30 18 e7 20 a4 76 61 6c 69 64 61 74 65 3d 30 20 44 |.. .validate=0 D|
00001f40 3d 44 2b 43 25 0d 0d 8e 25 e7 20 44 3e 33 31 20 |=D+C%...%. D>31 |
00001f50 44 3d 31 3a 4d 3d 4d 2b 31 3a e7 20 4d 3e 31 32 |D=1:M=M+1:. M>12|
00001f60 20 4d 3d 31 3a 59 3d 59 2b 31 0d 0d 98 25 e7 20 | M=1:Y=Y+1...%. |
00001f70 44 3c 31 20 44 3d 33 31 3a 4d 3d 4d 2d 31 3a e7 |D<1 D=31:M=M-1:.|
00001f80 20 4d 3c 31 20 4d 3d 31 32 3a 59 3d 59 2d 31 0d | M<1 M=12:Y=Y-1.|
00001f90 0d a2 12 fd 20 a4 76 61 6c 69 64 61 74 65 3c 3e |.... .validate<>|
00001fa0 30 0d 0d ac 0e 44 41 59 3d 44 41 59 2b 43 25 0d |0....DAY=DAY+C%.|
00001fb0 0d b6 11 e7 20 44 41 59 3c 31 20 44 41 59 3d 37 |.... DAY<1 DAY=7|
00001fc0 0d 0d c0 11 e7 20 44 41 59 3e 37 20 44 41 59 3d |..... DAY>7 DAY=|
00001fd0 31 0d 0d ca 0b fd 20 44 41 59 3c 36 0d 0d d4 13 |1..... DAY<6....|
00001fe0 e7 20 65 6e 64 6f 66 69 6c 65 25 20 8c 20 e1 0d |. endofile% . ..|
00001ff0 0d de 18 e7 20 59 3e 4f 4c 44 59 20 65 6e 64 6f |.... Y>OLDY endo|
00002000 66 69 6c 65 25 3d b9 0d 0d e8 05 e1 0d 0d f2 05 |file%=..........|
00002010 3a 0d 0d fc 46 dd a4 76 61 6c 69 64 61 74 65 3a |:...F..validate:|
00002020 3d 44 2a 4d 2a 28 4d 3c 31 33 29 2a 28 44 3c 33 |=D*M*(M<13)*(D<3|
00002030 31 2b 28 28 4d 2b 28 4d 3e 37 29 29 80 20 31 29 |1+((M+(M>7)). 1)|
00002040 2b 28 4d 3d 32 29 2a 28 32 2b 28 28 59 20 80 20 |+(M=2)*(2+((Y . |
00002050 33 29 3d 30 29 29 29 0d 0e 06 05 3a 0d 0e 10 19 |3)=0)))....:....|
00002060 dd f2 63 68 65 63 6b 5f 61 6e 64 5f 6f 70 65 6e |..check_and_open|
00002070 5f 66 69 6c 65 0d 0e 1a 0e ee 20 85 20 e5 20 8d |_file..... . . .|
00002080 44 5a 40 0d 0e 24 0c 46 4f 55 4e 44 25 3d a3 0d |DZ@..$.FOUND%=..|
00002090 0e 2e 07 d9 23 30 0d 0e 38 15 41 25 3d 8e 28 79 |....#0..8.A%=.(y|
000020a0 65 61 72 24 2b c3 28 51 25 29 29 0d 0e 42 2d e7 |ear$+.(Q%))..B-.|
000020b0 20 41 25 3d 30 20 f2 6e 6f 74 66 6f 75 6e 64 28 | A%=0 .notfound(|
000020c0 bb 28 79 65 61 72 24 29 29 3a e7 20 ac 20 46 4f |.(year$)):. . FO|
000020d0 55 4e 44 25 20 8c 20 e1 0d 0e 4c 07 d9 23 30 0d |UND% . ...L..#0.|
000020e0 0e 56 0c f2 67 65 74 79 65 61 72 0d 0e 60 10 58 |.V..getyear..`.X|
000020f0 25 3d ae 28 22 59 45 41 52 22 29 0d 0e 6a 0c e3 |%=.("YEAR")..j..|
00002100 20 49 25 3d 30 b8 33 0d 0e 74 2b e7 20 49 25 3c | I%=0.3..t+. I%<|
00002110 3e 51 25 20 f1 23 58 25 2c 79 65 61 72 25 28 49 |>Q% .#X%,year%(I|
00002120 25 29 20 8b 20 f1 23 58 25 2c bb 28 79 65 61 72 |%) . .#X%,.(year|
00002130 24 29 0d 0e 7e 05 ed 0d 0e 7f 0e f1 23 58 25 2c |$)..~.......#X%,|
00002140 4c 25 2c 4d 25 0d 0e 88 07 d9 23 30 0d 0e 92 15 |L%,M%.....#0....|
00002150 41 25 3d ad 28 79 65 61 72 24 2b c3 28 51 25 29 |A%=.(year$+.(Q%)|
00002160 29 0d 0e 9c 0a cf 23 41 25 3d 30 0d 0e a6 13 e3 |).....#A%=0.....|
00002170 20 49 25 3d 32 b8 6e 64 61 74 61 25 2b 31 0d 0e | I%=2.ndata%+1..|
00002180 b0 0d 73 24 28 49 25 29 3d 22 22 0d 0e ba 0c e3 |..s$(I%)="".....|
00002190 20 4a 25 3d 31 b8 37 0d 0e c4 0b 42 25 3d 9a 23 | J%=1.7....B%=.#|
000021a0 41 25 0d 0e ce 1a e7 20 42 25 3c 33 32 20 84 20 |A%..... B%<32 . |
000021b0 42 25 3e 31 32 36 20 42 25 3d 33 32 0d 0e d8 17 |B%>126 B%=32....|
000021c0 73 24 28 49 25 29 3d 73 24 28 49 25 29 2b bd 28 |s$(I%)=s$(I%)+.(|
000021d0 42 25 29 0d 0e e2 05 ed 0d 0e ec 05 ed 0d 0e f6 |B%).............|
000021e0 41 f4 20 47 65 74 20 70 6f 73 69 74 69 6f 6e 20 |A. Get position |
000021f0 6f 66 20 66 69 72 73 74 20 72 65 63 6f 72 64 2c |of first record,|
00002200 20 63 75 72 72 65 6e 74 20 64 61 74 65 20 61 6e | current date an|
00002210 64 20 64 69 73 63 20 70 6f 69 6e 74 65 72 0d 0f |d disc pointer..|
00002220 00 12 cf 23 41 25 3d 66 69 72 73 74 70 74 72 25 |...#A%=firstptr%|
00002230 0d 0f 0a 1e 66 69 72 73 74 72 65 63 6f 72 64 25 |....firstrecord%|
00002240 3d 9a 23 41 25 2a 32 35 36 2b 9a 23 41 25 0d 0f |=.#A%*256+.#A%..|
00002250 14 0a 44 3d 9a 23 41 25 0d 0f 1e 0a 4d 3d 9a 23 |..D=.#A%....M=.#|
00002260 41 25 0d 0f 28 15 59 3d 28 9a 23 41 25 29 2a 32 |A%..(.Y=(.#A%)*2|
00002270 35 36 2b 9a 23 41 25 0d 0f 32 0c 44 41 59 3d 9a |56+.#A%..2.DAY=.|
00002280 23 41 25 0d 0f 3c 1c 64 69 73 63 70 74 72 25 3d |#A%..<.discptr%=|
00002290 28 9a 23 41 25 29 2a 32 35 36 2b 9a 23 41 25 0d |(.#A%)*256+.#A%.|
000022a0 0f 46 0a 64 3d 9a 23 41 25 0d 0f 50 0a 6d 3d 9a |.F.d=.#A%..P.m=.|
000022b0 23 41 25 0d 0f 5a 15 79 3d 28 9a 23 41 25 29 2a |#A%..Z.y=(.#A%)*|
000022c0 32 35 36 2b 9a 23 41 25 0d 0f 64 08 53 25 3d b9 |256+.#A%..d.S%=.|
000022d0 0d 0f 6e 09 ee 20 85 20 87 0d 0f 78 05 e1 0d 0f |..n.. . ...x....|
000022e0 82 05 3a 0d 0f 8c 0d dd f2 67 65 74 79 65 61 72 |..:......getyear|
000022f0 0d 0f 96 0b f2 73 79 73 74 65 6d 0d 0f a0 10 58 |.....system....X|
00002300 25 3d 8e 28 22 59 45 41 52 22 29 0d 0f aa 6f e7 |%=.("YEAR")...o.|
00002310 20 58 25 3d 30 20 db 3a f1 8a 30 2c 31 30 29 22 | X%=0 .:..0,10)"|
00002320 46 69 6c 65 20 27 59 45 41 52 27 20 64 6f 65 73 |File 'YEAR' does|
00002330 20 6e 6f 74 20 65 78 69 73 74 2e 22 27 27 22 47 | not exist."''"G|
00002340 6f 20 74 6f 20 4d 41 49 4e 20 70 61 6e 65 6c 2e |o to MAIN panel.|
00002350 22 27 27 22 54 6f 20 72 65 74 75 72 6e 20 74 6f |"''"To return to|
00002360 20 4d 41 49 4e 22 3a f2 6b 65 79 3a f2 63 68 61 | MAIN":.key:.cha|
00002370 69 6e 28 22 4d 41 49 4e 22 29 0d 0f b4 0c e3 20 |in("MAIN")..... |
00002380 49 25 3d 30 b8 33 0d 0f be 12 e8 23 58 25 2c 79 |I%=0.3.....#X%,y|
00002390 65 61 72 25 28 49 25 29 0d 0f c8 05 ed 0d 0f d2 |ear%(I%)........|
000023a0 27 e7 20 a2 23 58 25 3e 26 31 34 20 e8 23 58 25 |'. .#X%>&14 .#X%|
000023b0 2c 4c 25 2c 4d 25 20 8b 20 4c 25 3d 33 30 3a 4d |,L%,M% . L%=30:M|
000023c0 25 3d 36 30 0d 0f dc 07 d9 23 30 0d 0f e6 05 e1 |%=60.....#0.....|
000023d0 0d 0f f0 05 3a 0d 0f fa 0f dd f2 65 72 72 6f 72 |....:......error|
000023e0 64 61 74 65 0d 10 04 05 db 0d 10 0e 36 f1 8a 35 |date........6..5|
000023f0 2c 31 30 29 22 45 72 72 6f 72 20 69 6e 20 64 61 |,10)"Error in da|
00002400 74 65 2e 22 27 27 22 50 72 65 73 73 20 61 20 4b |te."''"Press a K|
00002410 45 59 20 74 6f 20 72 65 2d 65 6e 74 65 72 22 0d |EY to re-enter".|
00002420 10 18 08 49 25 3d a5 0d 10 22 05 db 0d 10 2c 05 |...I%=..."....,.|
00002430 e1 0d 10 36 05 3a 0d 10 40 0a dd f2 6f 70 65 6e |...6.:..@...open|
00002440 0d 10 4a 0e ee 20 85 20 e5 20 8d 44 5a 40 0d 10 |..J.. . . .DZ@..|
00002450 54 20 f2 63 6c 6f 73 65 77 28 77 78 25 2c 77 79 |T .closew(wx%,wy|
00002460 25 2c 6c 65 6e 25 2c 6d 61 78 25 2b 32 29 0d 10 |%,len%,max%+2)..|
00002470 5e 2c e7 20 51 25 3d 30 20 66 24 3d 22 49 6e 64 |^,. Q%=0 f$="Ind|
00002480 65 78 20 66 69 6c 65 22 20 8b 20 66 24 3d 70 24 |ex file" . f$=p$|
00002490 2b 22 20 22 2b c3 28 51 25 29 0d 10 68 1a f1 8a |+" "+.(Q%)..h...|
000024a0 30 2c 33 29 66 24 2b 22 20 66 6f 72 20 22 2b 79 |0,3)f$+" for "+y|
000024b0 65 61 72 24 0d 10 72 6b f1 8a 30 2c 35 29 22 41 |ear$..rk..0,5)"A|
000024c0 20 6e 65 77 20 66 69 6c 65 20 77 69 6c 6c 20 62 | new file will b|
000024d0 65 20 6f 70 65 6e 65 64 20 69 66 20 74 68 65 72 |e opened if ther|
000024e0 65 20 69 73 22 27 22 65 6e 6f 75 67 68 20 73 70 |e is"'"enough sp|
000024f0 61 63 65 2e 22 27 27 22 44 6f 20 79 6f 75 20 77 |ace."''"Do you w|
00002500 69 73 68 20 74 6f 20 73 74 61 72 74 20 61 20 6e |ish to start a n|
00002510 65 77 20 66 69 6c 65 3f 20 28 59 2f 4e 29 22 0d |ew file? (Y/N)".|
00002520 10 7c 05 f5 0d 10 86 0b 2a 46 58 32 31 2c 30 0d |.|......*FX21,0.|
00002530 10 90 0e 41 25 3d a5 20 80 20 26 44 46 0d 10 9a |...A%=. . &DF...|
00002540 13 fd 20 41 25 3d 37 38 20 84 20 41 25 3d 38 39 |.. A%=78 . A%=89|
00002550 0d 10 a4 0d e7 20 41 25 3d 37 38 20 e1 0d 10 ae |..... A%=78 ....|
00002560 05 f5 0d 10 b8 05 f5 0d 10 c2 a0 f1 27 27 22 45 |............''"E|
00002570 6e 74 65 72 20 64 61 74 65 20 66 72 6f 6d 20 77 |nter date from w|
00002580 68 69 63 68 20 66 69 6c 65 22 27 27 22 69 73 20 |hich file"''"is |
00002590 74 6f 20 73 74 61 72 74 20 69 6e 20 74 68 65 20 |to start in the |
000025a0 66 6f 72 6d 20 44 44 2f 4d 4d 22 27 27 22 77 68 |form DD/MM"''"wh|
000025b0 65 72 65 20 44 44 20 69 73 20 74 68 65 20 64 61 |ere DD is the da|
000025c0 79 20 6f 66 20 74 68 65 20 6d 6f 6e 74 68 22 27 |y of the month"'|
000025d0 27 22 61 6e 64 20 4d 4d 20 69 73 20 74 68 65 20 |'"and MM is the |
000025e0 6d 6f 6e 74 68 20 6f 66 20 74 68 65 20 79 65 61 |month of the yea|
000025f0 72 22 3b 3a e8 61 24 3a 61 24 3d 61 24 2b 22 2f |r";:.a$:a$=a$+"/|
00002600 22 2b 79 65 61 72 24 0d 10 cc 25 e7 20 c1 61 24 |"+year$...%. .a$|
00002610 2c 33 2c 31 29 3c 3e 22 2f 22 20 f2 65 72 72 6f |,3,1)<>"/" .erro|
00002620 72 64 61 74 65 3a e5 20 8d 64 42 50 0d 10 d6 0d |rdate:. .dBP....|
00002630 e3 20 49 25 3d 31 b8 31 30 0d 10 e0 18 e7 20 49 |. I%=1.10..... I|
00002640 25 3d 33 20 84 20 49 25 3d 36 20 e5 20 8d 64 74 |%=3 . I%=6 . .dt|
00002650 50 0d 10 ea 34 e7 20 c1 61 24 2c 49 25 2c 31 29 |P...4. .a$,I%,1)|
00002660 3c 22 30 22 20 84 20 c1 61 24 2c 49 25 2c 31 29 |<"0" . .a$,I%,1)|
00002670 3e 22 39 22 20 f2 65 72 72 6f 72 64 61 74 65 3a |>"9" .errordate:|
00002680 49 25 3d 32 30 0d 10 f4 05 ed 0d 10 fe 0b fd 20 |I%=20.......... |
00002690 49 25 3c 31 39 0d 11 08 11 44 3d bb 28 c1 61 24 |I%<19....D=.(.a$|
000026a0 2c 31 2c 32 29 29 0d 11 12 11 4d 3d bb 28 c1 61 |,1,2))....M=.(.a|
000026b0 24 2c 34 2c 32 29 29 0d 11 1c 11 59 3d bb 28 c1 |$,4,2))....Y=.(.|
000026c0 61 24 2c 37 2c 34 29 29 0d 11 26 1c e7 20 a4 76 |a$,7,4))..&.. .v|
000026d0 61 6c 69 64 61 74 65 3d 30 20 f2 65 72 72 6f 72 |alidate=0 .error|
000026e0 64 61 74 65 0d 11 30 12 fd 20 a4 76 61 6c 69 64 |date..0.. .valid|
000026f0 61 74 65 3c 3e 30 0d 11 3a 2c e8 27 22 41 6e 64 |ate<>0..:,.'"And|
00002700 20 65 6e 74 65 72 20 64 61 79 20 6f 66 20 77 65 | enter day of we|
00002710 65 6b 20 28 4d 6f 6e 64 61 79 3d 31 29 20 22 44 |ek (Monday=1) "D|
00002720 41 59 0d 11 44 7b e7 20 44 41 59 3e 35 20 f1 27 |AY..D{. DAY>5 .'|
00002730 22 57 65 65 6b 65 6e 64 73 20 61 72 65 20 6e 6f |"Weekends are no|
00002740 74 20 61 6c 6c 6f 77 65 64 20 21 22 27 22 54 68 |t allowed !"'"Th|
00002750 65 20 6e 65 78 74 20 4d 6f 6e 64 61 79 20 77 69 |e next Monday wi|
00002760 6c 6c 20 62 65 20 75 73 65 64 20 61 6e 64 22 27 |ll be used and"'|
00002770 22 74 68 65 20 64 61 74 65 20 77 69 6c 6c 20 62 |"the date will b|
00002780 65 20 61 64 6a 75 73 74 65 64 2e 22 3a 43 25 3d |e adjusted.":C%=|
00002790 31 3a f2 61 64 6a 75 73 74 64 61 74 65 0d 11 4e |1:.adjustdate..N|
000027a0 05 db 0d 11 58 26 f1 8a 35 2c 35 29 22 49 4e 49 |....X&..5,5)"INI|
000027b0 54 49 41 4c 49 53 49 4e 47 20 2d 20 50 6c 65 61 |TIALISING - Plea|
000027c0 73 65 20 77 61 69 74 22 0d 11 62 21 e7 20 51 25 |se wait"..b!. Q%|
000027d0 3d 30 20 73 24 28 31 29 3d 22 46 54 20 31 30 30 |=0 s$(1)="FT 100|
000027e0 20 22 3a e5 20 8d 64 5a 51 0d 11 6c 16 42 25 3d | ":. .dZQ..l.B%=|
000027f0 8e 28 c3 28 59 2d 31 29 2b c3 28 51 25 29 29 0d |.(.(Y-1)+.(Q%)).|
00002800 11 76 11 e7 20 42 25 3d 30 20 e5 20 8d 64 5a 51 |.v.. B%=0 . .dZQ|
00002810 0d 11 80 2c f4 20 54 61 6b 65 20 61 20 63 6f 70 |...,. Take a cop|
00002820 79 20 6f 66 20 73 68 61 72 65 6e 61 6d 65 73 20 |y of sharenames |
00002830 66 6f 72 20 6e 65 77 20 66 69 6c 65 0d 11 8a 10 |for new file....|
00002840 e3 49 25 3d 31 b8 6e 64 61 74 61 25 0d 11 94 0f |.I%=1.ndata%....|
00002850 73 24 28 49 25 2b 31 29 3d 22 22 0d 11 9e 0b e3 |s$(I%+1)="".....|
00002860 4a 25 3d 31 b8 37 0d 11 a8 19 73 24 28 49 25 29 |J%=1.7....s$(I%)|
00002870 3d 73 24 28 49 25 29 2b bd 28 9a 23 42 25 29 0d |=s$(I%)+.(.#B%).|
00002880 11 b2 05 ed 0d 11 bc 05 ed 0d 11 c6 07 d9 23 30 |..............#0|
00002890 0d 11 d0 35 f4 20 53 65 6e 64 20 64 61 74 61 20 |...5. Send data |
000028a0 74 6f 20 64 69 73 63 20 61 73 20 6f 75 74 6c 69 |to disc as outli|
000028b0 6e 65 64 20 61 74 20 73 74 61 72 74 20 6f 66 20 |ned at start of |
000028c0 70 72 6f 67 2e 0d 11 da 0b f2 65 73 70 61 63 65 |prog......espace|
000028d0 0d 11 e4 0a f2 6f 70 65 6e 32 0d 11 ee 09 ee 20 |.....open2..... |
000028e0 85 20 87 0d 11 f8 05 e1 0d 12 02 05 3a 0d 12 0c |. ..........:...|
000028f0 0b dd f2 6f 70 65 6e 32 0d 12 16 0e ee 20 85 20 |...open2..... . |
00002900 e5 20 8d 44 5a 40 0d 12 20 2c 24 26 43 30 31 3d |. .DZ@.. ,$&C01=|
00002910 22 53 41 56 45 20 22 2b 79 65 61 72 24 2b c3 28 |"SAVE "+year$+.(|
00002920 51 25 29 2b 22 20 32 30 30 30 20 2b 22 2b c3 7e |Q%)+" 2000 +"+.~|
00002930 44 25 0d 12 2a 0a d6 26 46 46 46 37 0d 12 34 15 |D%..*..&FFF7..4.|
00002940 41 25 3d ae 28 79 65 61 72 24 2b c3 28 51 25 29 |A%=.(year$+.(Q%)|
00002950 29 0d 12 3e 10 e3 49 25 3d 31 b8 6e 64 61 74 61 |)..>..I%=1.ndata|
00002960 25 0d 12 48 0b e3 4a 25 3d 31 b8 37 0d 12 52 19 |%..H..J%=1.7..R.|
00002970 d5 23 41 25 2c 97 28 c1 73 24 28 49 25 29 2c 4a |.#A%,.(.s$(I%),J|
00002980 25 2c 31 29 29 0d 12 5c 05 ed 0d 12 66 05 ed 0d |%,1))..\....f...|
00002990 12 70 12 cf 23 41 25 3d 66 69 72 73 74 70 74 72 |.p..#A%=firstptr|
000029a0 25 0d 12 7a 1b d5 23 41 25 2c 66 69 72 73 74 72 |%..z..#A%,firstr|
000029b0 65 63 6f 72 64 25 20 81 20 32 35 36 0d 12 84 1b |ecord% . 256....|
000029c0 d5 23 41 25 2c 66 69 72 73 74 72 65 63 6f 72 64 |.#A%,firstrecord|
000029d0 25 20 83 20 32 35 36 0d 12 8e 0a d5 23 41 25 2c |% . 256.....#A%,|
000029e0 44 0d 12 98 0a d5 23 41 25 2c 4d 0d 12 a2 12 d5 |D.....#A%,M.....|
000029f0 23 41 25 2c 28 59 20 81 20 32 35 36 29 0d 12 ac |#A%,(Y . 256)...|
00002a00 12 d5 23 41 25 2c 28 59 20 83 20 32 35 36 29 0d |..#A%,(Y . 256).|
00002a10 12 b6 0c d5 23 41 25 2c 44 41 59 0d 12 c0 19 d5 |....#A%,DAY.....|
00002a20 23 41 25 2c 6d 69 6e 72 65 63 6f 72 64 25 20 81 |#A%,minrecord% .|
00002a30 20 32 35 36 0d 12 ca 19 d5 23 41 25 2c 6d 69 6e | 256.....#A%,min|
00002a40 72 65 63 6f 72 64 25 20 83 20 32 35 36 0d 12 d4 |record% . 256...|
00002a50 0a d5 23 41 25 2c 44 0d 12 de 0a d5 23 41 25 2c |..#A%,D.....#A%,|
00002a60 4d 0d 12 e8 12 d5 23 41 25 2c 28 59 20 81 20 32 |M.....#A%,(Y . 2|
00002a70 35 36 29 0d 12 f2 12 d5 23 41 25 2c 28 59 20 83 |56).....#A%,(Y .|
00002a80 20 32 35 36 29 0d 12 fc 11 e3 20 49 25 3d 31 b8 | 256)..... I%=1.|
00002a90 6e 64 61 74 61 25 0d 13 06 0c d5 23 41 25 2c 26 |ndata%.....#A%,&|
00002aa0 46 46 0d 13 10 0c d5 23 41 25 2c 26 46 46 0d 13 |FF.....#A%,&FF..|
00002ab0 1a 0a d5 23 41 25 2c 30 0d 13 24 0a d5 23 41 25 |...#A%,0..$..#A%|
00002ac0 2c 30 0d 13 2e 05 ed 0d 13 38 13 cf 23 41 25 3d |,0.......8..#A%=|
00002ad0 6d 69 6e 72 65 63 6f 72 64 25 0d 13 42 08 43 25 |minrecord%..B.C%|
00002ae0 3d 31 0d 13 4c 0a 56 25 3d bc 2b 31 0d 13 56 0d |=1..L.V%=.+1..V.|
00002af0 f2 74 68 6f 6c 64 28 30 29 0d 13 60 0f 65 6e 64 |.thold(0)..`.end|
00002b00 6f 66 69 6c 65 25 3d a3 0d 13 6a 05 f5 0d 13 74 |ofile%=...j....t|
00002b10 0f f2 61 64 6a 75 73 74 64 61 74 65 0d 13 7e 16 |..adjustdate..~.|
00002b20 e7 20 65 6e 64 6f 66 69 6c 65 25 20 e5 20 8d 74 |. endofile% . .t|
00002b30 70 53 0d 13 88 13 e3 20 49 25 3d 31 b8 6e 64 61 |pS..... I%=1.nda|
00002b40 74 61 25 2a 32 0d 13 92 0a d5 23 41 25 2c 30 0d |ta%*2.....#A%,0.|
00002b50 13 9c 05 ed 0d 13 a6 1c f1 8a 35 2c 56 25 29 44 |..........5,V%)D|
00002b60 3b 22 2f 22 3b 4d 3b 22 2f 22 3b 59 3b 22 20 22 |;"/";M;"/";Y;" "|
00002b70 0d 13 b0 0f fd 20 65 6e 64 6f 66 69 6c 65 25 0d |..... endofile%.|
00002b80 13 ba 13 e3 20 49 25 3d 31 b8 6e 64 61 74 61 25 |.... I%=1.ndata%|
00002b90 2a 32 0d 13 c4 0a d5 23 41 25 2c 30 0d 13 ce 05 |*2.....#A%,0....|
00002ba0 ed 0d 13 d8 07 d9 23 30 0d 13 e2 0d f2 74 68 6f |......#0.....tho|
00002bb0 6c 64 28 31 29 0d 13 ec 46 f4 20 53 65 74 20 63 |ld(1)...F. Set c|
00002bc0 75 72 72 65 6e 74 20 64 69 73 63 20 70 6f 69 6e |urrent disc poin|
00002bd0 74 65 72 20 74 6f 20 70 6f 69 6e 74 20 61 74 20 |ter to point at |
00002be0 63 75 72 72 65 6e 74 20 64 61 74 61 20 70 6f 69 |current data poi|
00002bf0 6e 74 20 69 65 20 66 69 72 73 74 0d 13 f6 17 64 |nt ie first....d|
00002c00 69 73 63 70 74 72 25 3d 6d 69 6e 72 65 63 6f 72 |iscptr%=minrecor|
00002c10 64 25 0d 14 00 07 d9 23 30 0d 14 0a 18 f2 63 68 |d%.....#0.....ch|
00002c20 65 63 6b 5f 61 6e 64 5f 6f 70 65 6e 5f 66 69 6c |eck_and_open_fil|
00002c30 65 0d 14 14 05 db 0d 14 1e 09 ee 20 85 20 87 0d |e.......... . ..|
00002c40 14 28 05 e1 0d 14 32 05 3a 0d 14 3c 0f dd f2 74 |.(....2.:..<...t|
00002c50 68 6f 6c 64 28 42 25 29 0d 14 46 2e e7 20 42 25 |hold(B%)..F.. B%|
00002c60 3d 30 3a 74 65 6d 70 64 61 79 3d 44 41 59 3a 74 |=0:tempday=DAY:t|
00002c70 65 6d 70 64 3d 44 3a 74 65 6d 70 6d 3d 4d 3a 74 |empd=D:tempm=M:t|
00002c80 65 6d 70 79 3d 59 0d 14 50 2e e7 20 42 25 3d 31 |empy=Y..P.. B%=1|
00002c90 20 44 41 59 3d 74 65 6d 70 64 61 79 3a 44 3d 74 | DAY=tempday:D=t|
00002ca0 65 6d 70 64 3a 4d 3d 74 65 6d 70 6d 3a 59 3d 74 |empd:M=tempm:Y=t|
00002cb0 65 6d 70 79 0d 14 5a 05 e1 0d 14 64 05 3a 0d 14 |empy..Z....d.:..|
00002cc0 6e 0c dd f2 65 73 70 61 63 65 0d 14 78 0e ee 20 |n...espace..x.. |
00002cd0 85 20 e5 20 8d 44 5a 40 0d 14 82 0d f2 74 68 6f |. . .DZ@.....tho|
00002ce0 6c 64 28 30 29 0d 14 8c 08 43 25 3d 31 0d 14 96 |ld(0)....C%=1...|
00002cf0 0f 65 6e 64 6f 66 69 6c 65 25 3d a3 0d 14 a0 08 |.endofile%=.....|
00002d00 44 25 3d 30 0d 14 aa 05 f5 0d 14 b4 0f f2 63 68 |D%=0..........ch|
00002d10 61 6e 67 65 64 61 74 65 0d 14 be 0b 44 25 3d 44 |angedate....D%=D|
00002d20 25 2b 31 0d 14 c8 0e fd 65 6e 64 6f 66 69 6c 65 |%+1.....endofile|
00002d30 25 0d 14 d2 0d f2 74 68 6f 6c 64 28 31 29 0d 14 |%.....thold(1)..|
00002d40 dc 16 44 25 3d 32 35 30 2b 44 25 2a 6e 64 61 74 |..D%=250+D%*ndat|
00002d50 61 25 2a 32 0d 14 e6 08 58 25 3d 31 0d 14 f0 09 |a%*2....X%=1....|
00002d60 59 25 3d 26 43 0d 14 fa 09 ee 20 85 20 87 0d 15 |Y%=&C..... . ...|
00002d70 04 05 e1 0d 15 0e 05 3a 0d 15 18 09 dd f2 6b 65 |.......:......ke|
00002d80 79 0d 15 22 14 f1 27 27 22 50 52 45 53 53 20 41 |y.."..''"PRESS A|
00002d90 20 4b 45 59 22 0d 15 2c 0b 2a 46 58 32 31 2c 30 | KEY"..,.*FX21,0|
00002da0 0d 15 36 08 4b 25 3d a5 0d 15 40 05 e1 0d 15 4a |..6.K%=...@....J|
00002db0 05 3a 0d 15 54 12 dd f2 75 70 64 61 74 65 72 65 |.:..T...updatere|
00002dc0 63 6f 72 64 0d 15 5e 0e ee 20 85 20 e5 20 8d 44 |cord..^.. . . .D|
00002dd0 5a 40 0d 15 68 11 cf 23 41 25 3d 64 69 73 63 70 |Z@..h..#A%=discp|
00002de0 74 72 25 0d 15 72 15 e3 20 70 74 72 25 3d 32 b8 |tr%..r.. ptr%=2.|
00002df0 6e 64 61 74 61 25 2b 31 0d 15 7c 1c 70 24 28 70 |ndata%+1..|.p$(p|
00002e00 74 72 25 29 3d c1 6d 24 28 70 74 72 25 29 2c 31 |tr%)=.m$(ptr%),1|
00002e10 30 2c 34 29 0d 15 86 12 70 25 3d bb 28 70 24 28 |0,4)....p%=.(p$(|
00002e20 70 74 72 25 29 29 0d 15 90 11 d5 23 41 25 2c 70 |ptr%)).....#A%,p|
00002e30 25 20 81 20 31 30 30 0d 15 9a 11 d5 23 41 25 2c |% . 100.....#A%,|
00002e40 70 25 20 83 20 31 30 30 0d 15 a4 05 ed 0d 15 ae |p% . 100........|
00002e50 09 ee 20 85 20 87 0d 15 b8 05 e1 0d 15 c2 05 3a |.. . ..........:|
00002e60 0d 15 cc 0b dd f2 73 63 61 6c 65 0d 15 d6 0e ee |......scale.....|
00002e70 20 85 20 e5 20 8d 44 5a 40 0d 15 e0 17 ea 20 6c | . . .DZ@..... l|
00002e80 6f 6f 70 25 2c 6c 65 6e 25 3a 6c 65 6e 25 3d 30 |oop%,len%:len%=0|
00002e90 0d 15 ea 22 6d 24 28 34 29 3d 22 53 63 61 6c 65 |..."m$(4)="Scale|
00002ea0 20 20 20 57 41 49 54 3a 2d 20 53 63 61 6c 69 6e | WAIT:- Scalin|
00002eb0 67 22 0d 15 f4 14 e3 20 6c 6f 6f 70 25 3d 30 20 |g"..... loop%=0 |
00002ec0 b8 20 6d 61 78 25 0d 15 fe 2b e7 20 a9 28 6d 24 |. max%...+. .(m$|
00002ed0 28 6c 6f 6f 70 25 29 29 3e 6c 65 6e 25 20 8c 20 |(loop%))>len% . |
00002ee0 6c 65 6e 25 3d a9 28 6d 24 28 6c 6f 6f 70 25 29 |len%=.(m$(loop%)|
00002ef0 29 0d 16 08 05 ed 0d 16 12 13 ef 20 32 33 2c 31 |).......... 23,1|
00002f00 2c 30 3b 30 3b 30 3b 30 3b 0d 16 1c 0b 2a 46 58 |,0;0;0;0;....*FX|
00002f10 20 34 2c 31 0d 16 26 1f f2 6f 70 65 6e 77 28 77 | 4,1..&..openw(w|
00002f20 78 25 2c 77 79 25 2c 6c 65 6e 25 2c 6d 61 78 25 |x%,wy%,len%,max%|
00002f30 2b 31 29 0d 16 30 0e 6d 65 6e 75 70 74 72 25 3d |+1)..0.menuptr%=|
00002f40 34 0d 16 3a 0b f1 8a 30 2c 30 29 3b 0d 16 44 14 |4..:...0,0);..D.|
00002f50 e3 20 6c 6f 6f 70 25 3d 30 20 b8 20 6d 61 78 25 |. loop%=0 . max%|
00002f60 0d 16 4e 34 e7 20 6c 6f 6f 70 25 3d 6d 65 6e 75 |..N4. loop%=menu|
00002f70 70 74 72 25 20 84 20 6c 6f 6f 70 25 3d 30 20 fb |ptr% . loop%=0 .|
00002f80 20 30 3a fb 20 31 32 39 20 8b 20 fb 20 31 3a fb | 0:. 129 . . 1:.|
00002f90 20 31 32 38 0d 16 58 27 f1 6d 24 28 6c 6f 6f 70 | 128..X'.m$(loop|
00002fa0 25 29 3b c4 6c 65 6e 25 2d a9 28 6d 24 28 6c 6f |%);.len%-.(m$(lo|
00002fb0 6f 70 25 29 29 2c 22 20 22 29 3b 0d 16 62 05 ed |op%))," ");..b..|
00002fc0 0d 16 6c 0d fb 20 31 3a fb 20 31 32 38 0d 16 76 |..l.. 1:. 128..v|
00002fd0 24 f4 20 55 70 64 61 74 65 20 6d 61 78 2c 20 6d |$. Update max, m|
00002fe0 69 6e 20 76 61 6c 75 65 73 20 6f 6e 20 64 69 73 |in values on dis|
00002ff0 63 0d 16 80 2f e3 20 49 25 3d 31 b8 6e 64 61 74 |c.../. I%=1.ndat|
00003000 61 25 3a 6f 6d 61 78 25 28 49 25 29 3d 30 3a 6f |a%:omax%(I%)=0:o|
00003010 6d 69 6e 25 28 49 25 29 3d 26 46 46 46 46 3a ed |min%(I%)=&FFFF:.|
00003020 0d 16 8a 13 cf 23 41 25 3d 6d 69 6e 72 65 63 6f |.....#A%=minreco|
00003030 72 64 25 0d 16 94 05 f5 0d 16 9e 11 e3 20 49 25 |rd%.......... I%|
00003040 3d 31 b8 6e 64 61 74 61 25 0d 16 a8 16 5a 25 3d |=1.ndata%....Z%=|
00003050 28 9a 23 41 25 29 2a 31 30 30 2b 9a 23 41 25 0d |(.#A%)*100+.#A%.|
00003060 16 b2 11 e7 20 5a 25 3d 30 20 e5 20 8d 64 50 56 |.... Z%=0 . .dPV|
00003070 0d 16 bc 1f e7 20 5a 25 3e 6f 6d 61 78 25 28 49 |..... Z%>omax%(I|
00003080 25 29 20 6f 6d 61 78 25 28 49 25 29 3d 5a 25 0d |%) omax%(I%)=Z%.|
00003090 16 c6 1f e7 20 5a 25 3c 6f 6d 69 6e 25 28 49 25 |.... Z%<omin%(I%|
000030a0 29 20 6f 6d 69 6e 25 28 49 25 29 3d 5a 25 0d 16 |) omin%(I%)=Z%..|
000030b0 d0 05 ed 0d 16 da 26 e7 20 8f 23 41 25 3e 28 a2 |......&. .#A%>(.|
000030c0 23 41 25 29 2d 6e 64 61 74 61 25 2a 32 20 8c 20 |#A%)-ndata%*2 . |
000030d0 cf 23 41 25 3d a2 23 41 25 0d 16 e4 13 fd 20 8f |.#A%=.#A%..... .|
000030e0 23 41 25 3e 64 69 73 63 70 74 72 25 0d 16 ee 12 |#A%>discptr%....|
000030f0 cf 23 41 25 3d 66 69 72 73 74 6d 69 6e 25 0d 16 |.#A%=firstmin%..|
00003100 f8 11 e3 20 49 25 3d 31 b8 6e 64 61 74 61 25 0d |... I%=1.ndata%.|
00003110 17 02 18 d5 23 41 25 2c 6f 6d 69 6e 25 28 49 25 |....#A%,omin%(I%|
00003120 29 20 81 20 32 35 36 0d 17 0c 18 d5 23 41 25 2c |) . 256.....#A%,|
00003130 6f 6d 69 6e 25 28 49 25 29 20 83 20 32 35 36 0d |omin%(I%) . 256.|
00003140 17 16 18 d5 23 41 25 2c 6f 6d 61 78 25 28 49 25 |....#A%,omax%(I%|
00003150 29 20 81 20 32 35 36 0d 17 20 18 d5 23 41 25 2c |) . 256.. ..#A%,|
00003160 6f 6d 61 78 25 28 49 25 29 20 83 20 32 35 36 0d |omax%(I%) . 256.|
00003170 17 2a 05 ed 0d 17 34 0a 2a 46 58 34 2c 30 0d 17 |.*....4.*FX4,0..|
00003180 3e 20 f2 63 6c 6f 73 65 77 28 77 78 25 2c 77 79 |> .closew(wx%,wy|
00003190 25 2c 6c 65 6e 25 2c 6d 61 78 25 2b 31 29 0d 17 |%,len%,max%+1)..|
000031a0 48 09 ee 20 85 20 87 0d 17 52 05 e1 0d 17 5c 05 |H.. . ...R....\.|
000031b0 3a 0d 17 66 0b dd a4 64 72 69 76 65 0d 17 70 0c |:..f...drive..p.|
000031c0 62 25 3d 26 31 36 30 30 0d 17 7a 0f 58 25 3d 62 |b%=&1600..z.X%=b|
000031d0 25 20 83 20 32 35 36 0d 17 84 0f 59 25 3d 62 25 |% . 256....Y%=b%|
000031e0 20 81 20 32 35 36 0d 17 8e 08 41 25 3d 36 0d 17 | . 256....A%=6..|
000031f0 98 0d e3 20 49 25 3d 30 b8 31 31 0d 17 a2 0b 62 |... I%=0.11....b|
00003200 25 3f 49 25 3d 30 0d 17 ac 05 ed 0d 17 b6 0c 62 |%?I%=0.........b|
00003210 25 3f 32 3d 26 31 36 0d 17 c0 0a 62 25 3f 31 3d |%?2=&16....b%?1=|
00003220 31 0d 17 ca 0b 62 25 3f 31 32 3d 31 0d 17 d4 0a |1....b%?12=1....|
00003230 d6 26 46 46 44 31 0d 17 de 0e 3d 3f 26 31 36 30 |.&FFD1....=?&160|
00003240 32 2d 34 38 0d 17 e8 05 3a 0d 17 f2 0c dd f2 73 |2-48....:......s|
00003250 79 73 74 65 6d 0d 17 fc 05 f5 0d 18 06 0b 2a 46 |ystem.........*F|
00003260 58 32 31 2c 30 0d 18 10 10 41 25 3d 8e 28 22 4d |X21,0....A%=.("M|
00003270 41 49 4e 22 29 0d 18 1a 07 d9 23 30 0d 18 24 58 |AIN").....#0..$X|
00003280 e7 20 41 25 3d 30 20 db 3a f1 8a 30 2c 31 30 29 |. A%=0 .:..0,10)|
00003290 22 49 6e 73 65 72 74 20 53 79 73 74 65 6d 20 44 |"Insert System D|
000032a0 69 73 63 20 69 6e 20 64 72 69 76 65 20 30 22 27 |isc in drive 0"'|
000032b0 27 22 61 6e 64 20 70 72 65 73 73 20 61 6e 79 20 |'"and press any |
000032c0 6b 65 79 20 74 6f 20 63 6f 6e 74 69 6e 75 65 22 |key to continue"|
000032d0 3a f5 fd a5 0d 18 2e 0b fd 20 41 25 3c 3e 30 0d |:........ A%<>0.|
000032e0 18 38 05 e1 0d ff |.8....|
000032e6 
27-05-88/ENTRY.m0
27-05-88/ENTRY.m1
27-05-88/ENTRY.m2
27-05-88/ENTRY.m4
27-05-88/ENTRY.m5
.