18-11-88/ENTRY

Home » CEEFAX disks » telesoftware10.adl » 18-11-88/ENTRY

18-11-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 » telesoftware10.adl
Filename:	18-11-88/ENTRY
Read OK:	✔
File size:	32FD bytes
Load address:	FFFF1A00
Exec address:	FFFF1A00

File contents

   10REM PORTFOLIO - ENTRY
   20REM (C) Jon Leighton Nov 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""":0.$."+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%=OPENUP(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%=OPENUP(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%=OPENUP(year$+STR$(Q%))
 3650IF A%=0 PROCnotfound(VAL(year$)):IF NOT FOUND% THEN ENDPROC
 3660CLOSE#0
 3670PROCgetyear
 3680X%=OPENOUT(":0.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%=OPENUP(":0.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%=OPENUP(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%=OPENUP(":0.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 Nov 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
��""":0.$."+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%
	LDAY=�#A%
	Vdiscptr%=(�#A%)*256+�#A%
	`�#A%=discptr%
	j� I%=2�ndata%+1
	tG%=�#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
Pm$(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%=�(":0.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%
2DAY=�#A%
<discptr%=(�#A%)*256+�#A%
F
d=�#A%
P
m=�#A%
Zy=(�#A%)*256+�#A%
dS%=�
n	� � �
x�
�:
�
��getyear
��system
�X%=�(":0.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
pb%=&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%=�(":0.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 4e 6f  | Jon Leighton No|
00000030  76 20 31 39 38 38 0d 00  1e 05 3a 0d 00 28 0c 2a  |v 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 16 d7 22 22 22 3a 30  |system.....""":0|
000006c0  2e 24 2e 22 2b 41 24 2b  22 22 22 22 0d 02 9e 05  |.$."+A$+""""....|
000006d0  e1 0d 02 a8 05 3a 0d 02  b2 0b dd 20 a4 6d 65 6e  |.....:..... .men|
000006e0  75 0d 02 bc 17 ea 20 6c  6f 6f 70 25 2c 6c 65 6e  |u..... loop%,len|
000006f0  25 3a 6c 65 6e 25 3d 30  0d 02 c6 14 e3 20 6c 6f  |%:len%=0..... lo|
00000700  6f 70 25 3d 30 20 b8 20  6d 61 78 25 0d 02 d0 2b  |op%=0 . max%...+|
00000710  e7 20 a9 28 6d 24 28 6c  6f 6f 70 25 29 29 3e 6c  |. .(m$(loop%))>l|
00000720  65 6e 25 20 8c 20 6c 65  6e 25 3d a9 28 6d 24 28  |en% . len%=.(m$(|
00000730  6c 6f 6f 70 25 29 29 0d  02 da 05 ed 0d 02 e4 13  |loop%)).........|
00000740  ef 20 32 33 2c 31 2c 30  3b 30 3b 30 3b 30 3b 0d  |. 23,1,0;0;0;0;.|
00000750  02 ee 0b 2a 46 58 20 34  2c 31 0d 02 f8 1f f2 6f  |...*FX 4,1.....o|
00000760  70 65 6e 77 28 77 78 25  2c 77 79 25 2c 6c 65 6e  |penw(wx%,wy%,len|
00000770  25 2c 6d 61 78 25 2b 31  29 0d 03 02 0e 6d 65 6e  |%,max%+1)....men|
00000780  75 70 74 72 25 3d 32 0d  03 0c 13 e7 20 5a 25 20  |uptr%=2..... Z% |
00000790  6d 65 6e 75 70 74 72 25  3d 33 0d 03 16 05 f5 0d  |menuptr%=3......|
000007a0  03 20 0b f1 8a 30 2c 30  29 3b 0d 03 2a 14 e3 20  |. ...0,0);..*.. |
000007b0  6c 6f 6f 70 25 3d 30 20  b8 20 6d 61 78 25 0d 03  |loop%=0 . max%..|
000007c0  34 34 e7 20 6c 6f 6f 70  25 3d 6d 65 6e 75 70 74  |44. loop%=menupt|
000007d0  72 25 20 84 20 6c 6f 6f  70 25 3d 30 20 fb 20 30  |r% . loop%=0 . 0|
000007e0  3a fb 20 31 32 39 20 8b  20 fb 20 31 3a fb 20 31  |:. 129 . . 1:. 1|
000007f0  32 38 0d 03 3e 27 f1 6d  24 28 6c 6f 6f 70 25 29  |28..>'.m$(loop%)|
00000800  3b c4 6c 65 6e 25 2d a9  28 6d 24 28 6c 6f 6f 70  |;.len%-.(m$(loop|
00000810  25 29 29 2c 22 20 22 29  3b 0d 03 48 05 ed 0d 03  |%))," ");..H....|
00000820  52 0d fb 20 31 3a fb 20  31 32 38 0d 03 5c 0b 2a  |R.. 1:. 128..\.*|
00000830  46 58 32 31 2c 30 0d 03  66 0a 4b 45 59 25 3d a5  |FX21,0..f.KEY%=.|
00000840  0d 03 70 0f e7 20 5a 25  20 e5 20 8d 74 4e 43 0d  |..p.. Z% . .tNC.|
00000850  03 7a 3d e7 20 4b 45 59  25 3d 31 33 39 20 6d 65  |.z=. KEY%=139 me|
00000860  6e 75 70 74 72 25 3d 6d  65 6e 75 70 74 72 25 2d  |nuptr%=menuptr%-|
00000870  31 3a e7 20 6d 65 6e 75  70 74 72 25 3d 31 3a 6d  |1:. menuptr%=1:m|
00000880  65 6e 75 70 74 72 25 3d  6d 61 78 25 0d 03 84 3d  |enuptr%=max%...=|
00000890  e7 20 4b 45 59 25 3d 31  33 38 20 6d 65 6e 75 70  |. KEY%=138 menup|
000008a0  74 72 25 3d 6d 65 6e 75  70 74 72 25 2b 31 3a e7  |tr%=menuptr%+1:.|
000008b0  20 6d 65 6e 75 70 74 72  25 3e 6d 61 78 25 20 6d  | menuptr%>max% m|
000008c0  65 6e 75 70 74 72 25 3d  32 0d 03 8e 17 fd 20 4b  |enuptr%=2..... K|
000008d0  45 59 25 3d 31 33 20 84  20 4b 45 59 25 3d 32 37  |EY%=13 . KEY%=27|
000008e0  0d 03 98 0a 2a 46 58 34  2c 30 0d 03 a2 20 f2 63  |....*FX4,0... .c|
000008f0  6c 6f 73 65 77 28 77 78  25 2c 77 79 25 2c 6c 65  |losew(wx%,wy%,le|
00000900  6e 25 2c 6d 61 78 25 2b  31 29 0d 03 ac 0d 3d 6d  |n%,max%+1)....=m|
00000910  65 6e 75 70 74 72 25 0d  03 b6 05 3a 0d 03 c0 1a  |enuptr%....:....|
00000920  dd 20 f2 63 6c 6f 73 65  77 28 78 2c 79 2c 6c 65  |. .closew(x,y,le|
00000930  6e 25 2c 68 74 29 0d 03  ca 08 ef 20 32 36 0d 03  |n%,ht)..... 26..|
00000940  d4 09 e6 20 30 2c 30 0d  03 de 17 f2 6f 70 65 6e  |... 0,0.....open|
00000950  77 28 78 2c 79 2c 6c 65  6e 25 2c 68 74 29 0d 03  |w(x,y,len%,ht)..|
00000960  e8 05 db 0d 03 f2 08 ef  20 32 36 0d 03 fc 09 e6  |........ 26.....|
00000970  20 30 2c 31 0d 04 06 05  e1 0d 04 10 05 3a 0d 04  | 0,1.........:..|
00000980  1a 19 dd 20 f2 6f 70 65  6e 77 28 78 2c 79 2c 6c  |... .openw(x,y,l|
00000990  65 6e 25 2c 68 74 29 0d  04 24 1a ef 20 32 38 2c  |en%,ht)..$.. 28,|
000009a0  78 2c 79 2b 68 74 2c 78  2b 6c 65 6e 25 2d 31 2c  |x,y+ht,x+len%-1,|
000009b0  79 0d 04 2e 36 f2 72 65  63 74 28 78 2a 33 32 2d  |y...6.rect(x*32-|
000009c0  38 2c 31 30 31 36 2d 28  79 2b 68 74 29 2a 33 32  |8,1016-(y+ht)*32|
000009d0  2c 6c 65 6e 25 2a 33 32  2b 31 32 2c 68 74 2a 33  |,len%*32+12,ht*3|
000009e0  32 2b 31 32 2c 30 29 0d  04 38 33 f2 72 65 63 74  |2+12,0)..83.rect|
000009f0  28 78 2a 33 32 2b 31 36  2c 31 30 30 30 2d 28 79  |(x*32+16,1000-(y|
00000a00  2b 68 74 29 2a 33 32 2d  38 2c 6c 65 6e 25 2a 33  |+ht)*32-8,len%*3|
00000a10  32 2b 31 36 2c 31 36 2c  31 29 0d 04 42 35 f2 72  |2+16,16,1)..B5.r|
00000a20  65 63 74 28 28 78 2b 6c  65 6e 25 29 2a 33 32 2b  |ect((x+len%)*32+|
00000a30  31 36 2c 31 30 30 30 2d  28 79 2b 68 74 29 2a 33  |16,1000-(y+ht)*3|
00000a40  32 2c 31 36 2c 68 74 2a  33 32 2b 38 2c 31 29 0d  |2,16,ht*32+8,1).|
00000a50  04 4c 05 e1 0d 04 56 05  3a 0d 04 60 16 dd 20 f2  |.L....V.:..`.. .|
00000a60  72 65 63 74 28 78 2c 79  2c 6c 2c 77 2c 66 29 0d  |rect(x,y,l,w,f).|
00000a70  04 6a 09 ec 20 78 2c 79  0d 04 74 0b df 20 78 2b  |.j.. x,y..t.. x+|
00000a80  6c 2c 79 0d 04 7e 20 e7  20 66 3d 30 20 df 20 78  |l,y..~ . f=0 . x|
00000a90  2b 6c 2c 79 2b 77 20 8b  20 f0 20 38 35 2c 78 2c  |+l,y+w . . 85,x,|
00000aa0  79 2b 77 0d 04 88 20 e7  20 66 3d 30 20 df 20 78  |y+w... . f=0 . x|
00000ab0  2c 79 2b 77 20 8b 20 f0  20 38 35 2c 78 2b 6c 2c  |,y+w . . 85,x+l,|
00000ac0  79 2b 77 0d 04 92 0b ec  20 78 2c 79 2b 77 0d 04  |y+w..... x,y+w..|
00000ad0  9c 17 e7 20 66 3d 30 20  df 20 78 2c 79 20 8b 20  |... f=0 . x,y . |
00000ae0  ec 20 78 2c 79 0d 04 a6  05 e1 0d 04 b0 05 3a 0d  |. x,y.........:.|
00000af0  04 ba 0b dd 20 f2 65 64  69 74 0d 04 c4 11 6d 61  |.... .edit....ma|
00000b00  78 25 3d 6e 64 61 74 61  25 2b 33 0d 04 ce 0f 6d  |x%=ndata%+3....m|
00000b10  24 28 6d 61 78 25 29 3d  22 22 0d 04 d8 12 65 78  |$(max%)=""....ex|
00000b20  69 74 25 3d 6e 64 61 74  61 25 2b 32 0d 04 e2 2e  |it%=ndata%+2....|
00000b30  e7 20 57 25 3d 30 20 f2  73 65 74 75 70 6e 61 6d  |. W%=0 .setupnam|
00000b40  65 20 8b 20 f2 73 65 74  75 70 70 72 69 63 65 3a  |e . .setupprice:|
00000b50  e7 20 53 25 3d a3 20 db  3a e1 0d 04 ec 17 ea 20  |. S%=. .:...... |
00000b60  6c 6f 6f 70 25 2c 6c 65  6e 25 3a 6c 65 6e 25 3d  |loop%,len%:len%=|
00000b70  30 0d 04 f6 14 e3 20 6c  6f 6f 70 25 3d 30 20 b8  |0..... loop%=0 .|
00000b80  20 6d 61 78 25 0d 05 00  2b e7 20 a9 28 6d 24 28  | max%...+. .(m$(|
00000b90  6c 6f 6f 70 25 29 29 3e  6c 65 6e 25 20 8c 20 6c  |loop%))>len% . l|
00000ba0  65 6e 25 3d a9 28 6d 24  28 6c 6f 6f 70 25 29 29  |en%=.(m$(loop%))|
00000bb0  0d 05 0a 05 ed 0d 05 14  13 ef 20 32 33 2c 31 2c  |.......... 23,1,|
00000bc0  30 3b 30 3b 30 3b 30 3b  0d 05 1e 0b 2a 46 58 20  |0;0;0;0;....*FX |
00000bd0  34 2c 31 0d 05 28 1f f2  6f 70 65 6e 77 28 77 78  |4,1..(..openw(wx|
00000be0  25 2c 77 79 25 2c 6c 65  6e 25 2c 6d 61 78 25 2b  |%,wy%,len%,max%+|
00000bf0  32 29 0d 05 32 0e 6d 65  6e 75 70 74 72 25 3d 32  |2)..2.menuptr%=2|
00000c00  0d 05 3c 05 f5 0d 05 46  0e 4e 45 57 44 41 54 45  |..<....F.NEWDATE|
00000c10  25 3d a3 0d 05 50 0b f1  8a 30 2c 30 29 3b 0d 05  |%=...P...0,0);..|
00000c20  5a 14 e3 20 6c 6f 6f 70  25 3d 30 20 b8 20 6d 61  |Z.. loop%=0 . ma|
00000c30  78 25 0d 05 64 34 e7 20  6c 6f 6f 70 25 3d 6d 65  |x%..d4. loop%=me|
00000c40  6e 75 70 74 72 25 20 84  20 6c 6f 6f 70 25 3d 30  |nuptr% . loop%=0|
00000c50  20 fb 20 30 3a fb 20 31  32 39 20 8b 20 fb 20 31  | . 0:. 129 . . 1|
00000c60  3a fb 20 31 32 38 0d 05  6e 27 f1 6d 24 28 6c 6f  |:. 128..n'.m$(lo|
00000c70  6f 70 25 29 3b c4 6c 65  6e 25 2d a9 28 6d 24 28  |op%);.len%-.(m$(|
00000c80  6c 6f 6f 70 25 29 29 2c  22 20 22 29 3b 0d 05 78  |loop%))," ");..x|
00000c90  0f e7 20 6c 6f 6f 70 25  3d 30 20 f1 0d 05 82 05  |.. loop%=0 .....|
00000ca0  ed 0d 05 8c 0d fb 20 31  3a fb 20 31 32 38 0d 05  |...... 1:. 128..|
00000cb0  96 0b 2a 46 58 32 31 2c  30 0d 05 a0 0a 4b 45 59  |..*FX21,0....KEY|
00000cc0  25 3d a5 0d 05 aa 3e e7  20 4b 45 59 25 3d 31 33  |%=....>. KEY%=13|
00000cd0  39 20 6d 65 6e 75 70 74  72 25 3d 6d 65 6e 75 70  |9 menuptr%=menup|
00000ce0  74 72 25 2d 31 3a e7 20  6d 65 6e 75 70 74 72 25  |tr%-1:. menuptr%|
00000cf0  3d 31 3a 6d 65 6e 75 70  74 72 25 3d 65 78 69 74  |=1:menuptr%=exit|
00000d00  25 0d 05 b4 3e e7 20 4b  45 59 25 3d 31 33 38 20  |%...>. KEY%=138 |
00000d10  6d 65 6e 75 70 74 72 25  3d 6d 65 6e 75 70 74 72  |menuptr%=menuptr|
00000d20  25 2b 31 3a e7 20 6d 65  6e 75 70 74 72 25 3e 65  |%+1:. menuptr%>e|
00000d30  78 69 74 25 20 6d 65 6e  75 70 74 72 25 3d 32 0d  |xit% menuptr%=2.|
00000d40  05 be 2d e7 20 57 25 3d  31 20 80 20 28 4b 45 59  |..-. W%=1 . (KEY|
00000d50  25 3d 26 38 38 20 84 20  4b 45 59 25 3d 26 38 39  |%=&88 . KEY%=&89|
00000d60  29 3a 4e 45 57 44 41 54  45 25 3d b9 0d 05 c8 31  |):NEWDATE%=....1|
00000d70  e7 20 4b 45 59 25 3e 33  31 20 80 20 4b 45 59 25  |. KEY%>31 . KEY%|
00000d80  3c 31 32 38 20 80 20 6d  65 6e 75 70 74 72 25 3c  |<128 . menuptr%<|
00000d90  3e 65 78 69 74 25 20 f2  69 6e 70 75 74 0d 05 d2  |>exit% .input...|
00000da0  2b fd 20 28 6d 65 6e 75  70 74 72 25 3d 65 78 69  |+. (menuptr%=exi|
00000db0  74 25 20 80 20 4b 45 59  25 3d 31 33 29 20 84 20  |t% . KEY%=13) . |
00000dc0  4e 45 57 44 41 54 45 25  0d 05 dc 4a e7 20 57 25  |NEWDATE%...J. W%|
00000dd0  3d 30 20 8c 20 cf 23 41  25 3d 30 3a e3 20 70 74  |=0 . .#A%=0:. pt|
00000de0  72 25 3d 32 b8 6e 64 61  74 61 25 2b 31 3a e3 20  |r%=2.ndata%+1:. |
00000df0  49 25 3d 31 b8 37 3a d5  23 41 25 2c 97 28 c1 6d  |I%=1.7:.#A%,.(.m|
00000e00  24 28 70 74 72 25 29 2c  49 25 2c 31 29 29 3a ed  |$(ptr%),I%,1)):.|
00000e10  3a ed 0d 05 e6 34 e7 20  57 25 3d 31 20 8c 20 f1  |:....4. W%=1 . .|
00000e20  8a 57 25 2a 31 32 2c 6e  64 61 74 61 25 2b 34 29  |.W%*12,ndata%+4)|
00000e30  22 57 41 49 54 20 20 22  3a f2 75 70 64 61 74 65  |"WAIT  ":.update|
00000e40  72 65 63 6f 72 64 0d 05  f0 0f 65 6e 64 6f 66 69  |record....endofi|
00000e50  6c 65 25 3d a3 0d 05 fa  37 e7 20 57 25 3d 31 20  |le%=....7. W%=1 |
00000e60  80 20 4e 45 57 44 41 54  45 25 20 8c 20 f2 63 68  |. NEWDATE% . .ch|
00000e70  61 6e 67 65 64 61 74 65  3a e7 20 4e 45 57 44 41  |angedate:. NEWDA|
00000e80  54 45 25 3d a3 20 e5 20  8d 64 44 44 0d 06 04 39  |TE%=. . .dDD...9|
00000e90  e7 20 65 6e 64 6f 66 69  6c 65 25 20 79 65 61 72  |. endofile% year|
00000ea0  24 3d c3 28 4f 4c 44 59  29 3a f2 63 68 65 63 6b  |$=.(OLDY):.check|
00000eb0  5f 61 6e 64 5f 6f 70 65  6e 5f 66 69 6c 65 3a e5  |_and_open_file:.|
00000ec0  20 8d 64 44 44 0d 06 0e  0d f2 64 75 6d 70 70 74  | .dDD.....dumppt|
00000ed0  72 73 0d 06 18 2a e7 20  57 25 3d 31 20 80 20 4e  |rs...*. W%=1 . N|
00000ee0  45 57 44 41 54 45 25 20  8c 20 f2 73 65 74 75 70  |EWDATE% . .setup|
00000ef0  70 72 69 63 65 3a e5 20  8d 54 72 45 0d 06 22 29  |price:. .TrE..")|
00000f00  e7 20 57 25 3d 31 20 80  20 28 4b 45 59 25 3d 26  |. W%=1 . (KEY%=&|
00000f10  38 38 20 84 20 4b 45 59  25 3d 26 38 39 29 20 e5  |88 . KEY%=&89) .|
00000f20  20 8d 54 72 45 0d 06 2c  0a 2a 46 58 34 2c 30 0d  | .TrE..,.*FX4,0.|
00000f30  06 36 20 f2 63 6c 6f 73  65 77 28 77 78 25 2c 77  |.6 .closew(wx%,w|
00000f40  79 25 2c 6c 65 6e 25 2c  6d 61 78 25 2b 32 29 0d  |y%,len%,max%+2).|
00000f50  06 40 15 f2 6c 6f 61 64  6e 61 6d 65 73 5f 70 72  |.@..loadnames_pr|
00000f60  69 63 65 73 0d 06 4a 05  e1 0d 06 54 05 3a 0d 06  |ices..J....T.:..|
00000f70  5e 0e dd f2 64 75 6d 70  70 74 72 73 0d 06 68 0e  |^...dumpptrs..h.|
00000f80  ee 20 85 20 e5 20 8d 44  5a 40 0d 06 72 12 cf 23  |. . . .DZ@..r..#|
00000f90  41 25 3d 66 69 72 73 74  70 74 72 25 0d 06 7c 1b  |A%=firstptr%..|.|
00000fa0  d5 23 41 25 2c 66 69 72  73 74 72 65 63 6f 72 64  |.#A%,firstrecord|
00000fb0  25 20 81 20 32 35 36 0d  06 86 1b d5 23 41 25 2c  |% . 256.....#A%,|
00000fc0  66 69 72 73 74 72 65 63  6f 72 64 25 20 83 20 32  |firstrecord% . 2|
00000fd0  35 36 0d 06 90 0a d5 23  41 25 2c 44 0d 06 9a 0a  |56.....#A%,D....|
00000fe0  d5 23 41 25 2c 4d 0d 06  a4 12 d5 23 41 25 2c 28  |.#A%,M.....#A%,(|
00000ff0  59 20 81 20 32 35 36 29  0d 06 ae 12 d5 23 41 25  |Y . 256).....#A%|
00001000  2c 28 59 20 83 20 32 35  36 29 0d 06 b8 0c d5 23  |,(Y . 256).....#|
00001010  41 25 2c 44 41 59 0d 06  c2 19 d5 23 41 25 2c 28  |A%,DAY.....#A%,(|
00001020  64 69 73 63 70 74 72 25  20 81 20 32 35 36 29 0d  |discptr% . 256).|
00001030  06 cc 19 d5 23 41 25 2c  28 64 69 73 63 70 74 72  |....#A%,(discptr|
00001040  25 20 83 20 32 35 36 29  0d 06 d6 0a d5 23 41 25  |% . 256).....#A%|
00001050  2c 64 0d 06 e0 0a d5 23  41 25 2c 6d 0d 06 ea 12  |,d.....#A%,m....|
00001060  d5 23 41 25 2c 28 79 20  81 20 32 35 36 29 0d 06  |.#A%,(y . 256)..|
00001070  f4 12 d5 23 41 25 2c 28  79 20 83 20 32 35 36 29  |...#A%,(y . 256)|
00001080  0d 06 fe 09 ee 20 85 20  87 0d 07 08 05 e1 0d 07  |..... . ........|
00001090  12 05 3a 0d 07 1c 0b dd  f2 69 6e 70 75 74 0d 07  |..:......input..|
000010a0  26 08 4b 25 3d a3 0d 07  30 25 e7 20 57 25 3d 31  |&.K%=...0%. W%=1|
000010b0  20 80 20 28 4b 45 59 25  3c 34 38 20 84 20 4b 45  | . (KEY%<48 . KE|
000010c0  59 25 3e 35 37 29 20 ef  37 3a e1 0d 07 3a 1a e7  |Y%>57) .7:...:..|
000010d0  20 4b 45 59 25 3c 3e 31  32 37 20 74 24 3d bd 28  | KEY%<>127 t$=.(|
000010e0  4b 45 59 25 29 0d 07 44  18 f1 8a 57 25 2a 31 32  |KEY%)..D...W%*12|
000010f0  2c 6e 64 61 74 61 25 2b  34 29 74 24 3b 0d 07 4e  |,ndata%+4)t$;..N|
00001100  1a e7 20 57 25 3d 30 20  6d 24 28 6d 65 6e 75 70  |.. W%=0 m$(menup|
00001110  74 72 25 29 3d 22 22 0d  07 58 08 4e 25 3d 31 0d  |tr%)=""..X.N%=1.|
00001120  07 62 05 f5 0d 07 6c 0a  4b 45 59 25 3d a5 0d 07  |.b....l.KEY%=...|
00001130  76 3e e7 20 4b 45 59 25  3d 31 33 39 20 84 20 4b  |v>. KEY%=139 . K|
00001140  45 59 25 3d 31 33 38 20  84 20 4b 45 59 25 3d 31  |EY%=138 . KEY%=1|
00001150  33 20 84 20 4b 45 59 25  3d 26 38 38 20 84 20 4b  |3 . KEY%=&88 . K|
00001160  45 59 25 3d 26 38 39 20  4b 25 3d b9 0d 07 80 24  |EY%=&89 K%=....$|
00001170  e7 20 4b 45 59 25 3d 26  38 38 20 84 20 4b 45 59  |. KEY%=&88 . KEY|
00001180  25 3d 26 38 39 20 4e 45  57 44 41 54 45 25 3d b9  |%=&89 NEWDATE%=.|
00001190  0d 07 8a 1a e7 20 4b 25  20 84 20 4b 45 59 25 3d  |..... K% . KEY%=|
000011a0  31 32 37 20 e5 20 8d 74  5e 47 0d 07 94 2a e7 20  |127 . .t^G...*. |
000011b0  57 25 3d 31 20 80 20 28  4b 45 59 25 3c 34 38 20  |W%=1 . (KEY%<48 |
000011c0  84 20 4b 45 59 25 3e 35  37 29 20 ef 37 3a e5 20  |. KEY%>57) .7:. |
000011d0  8d 44 6c 47 0d 07 9e 11  70 74 72 25 3d 6d 65 6e  |.DlG....ptr%=men|
000011e0  75 70 74 72 25 0d 07 a8  3e e7 20 4b 45 59 25 3d  |uptr%...>. KEY%=|
000011f0  31 33 39 20 6d 65 6e 75  70 74 72 25 3d 6d 65 6e  |139 menuptr%=men|
00001200  75 70 74 72 25 2d 31 3a  e7 20 6d 65 6e 75 70 74  |uptr%-1:. menupt|
00001210  72 25 3d 31 3a 6d 65 6e  75 70 74 72 25 3d 65 78  |r%=1:menuptr%=ex|
00001220  69 74 25 0d 07 b2 3e e7  20 4b 45 59 25 3d 31 33  |it%...>. KEY%=13|
00001230  38 20 6d 65 6e 75 70 74  72 25 3d 6d 65 6e 75 70  |8 menuptr%=menup|
00001240  74 72 25 2b 31 3a e7 20  6d 65 6e 75 70 74 72 25  |tr%+1:. menuptr%|
00001250  3e 65 78 69 74 25 20 6d  65 6e 75 70 74 72 25 3d  |>exit% menuptr%=|
00001260  32 0d 07 bc 0f e7 20 4b  25 20 e5 20 8d 54 56 48  |2..... K% . .TVH|
00001270  0d 07 c6 16 e7 20 4b 45  59 25 3d 31 32 37 20 4e  |..... KEY%=127 N|
00001280  25 3d 4e 25 2d 31 0d 07  d0 27 e7 20 4b 45 59 25  |%=N%-1...'. KEY%|
00001290  3d 31 32 37 20 80 20 4e  25 3c 31 3a 4e 25 3d 30  |=127 . N%<1:N%=0|
000012a0  3a 74 24 3d 22 22 3a e5  20 8d 64 78 47 0d 07 da  |:t$="":. .dxG...|
000012b0  20 e7 20 4b 45 59 25 3d  31 32 37 20 74 24 3d c0  | . KEY%=127 t$=.|
000012c0  74 24 2c 4e 25 29 3a e5  20 8d 64 78 47 0d 07 e4  |t$,N%):. .dxG...|
000012d0  11 74 24 3d 74 24 2b bd  28 4b 45 59 25 29 0d 07  |.t$=t$+.(KEY%)..|
000012e0  ee 0b 4e 25 3d 4e 25 2b  31 0d 07 f8 1c e7 20 57  |..N%=N%+1..... W|
000012f0  25 3d 30 20 63 24 3d 62  24 20 8b 20 63 24 3d 22  |%=0 c$=b$ . c$="|
00001300  20 20 20 20 22 0d 08 02  18 f1 8a 57 25 2a 31 32  |    "......W%*12|
00001310  2c 6e 64 61 74 61 25 2b  34 29 63 24 3b 0d 08 0c  |,ndata%+4)c$;...|
00001320  18 f1 8a 57 25 2a 31 32  2c 6e 64 61 74 61 25 2b  |...W%*12,ndata%+|
00001330  34 29 74 24 3b 0d 08 16  15 fd 20 4e 25 3e 3d 6e  |4)t$;..... N%>=n|
00001340  25 28 57 25 29 20 84 20  4b 25 0d 08 20 49 e7 20  |%(W%) . K%.. I. |
00001350  4b 45 59 25 3d 31 33 20  84 20 4e 25 3d 6e 25 28  |KEY%=13 . N%=n%(|
00001360  57 25 29 20 6d 65 6e 75  70 74 72 25 3d 6d 65 6e  |W%) menuptr%=men|
00001370  75 70 74 72 25 2b 31 3a  e7 20 6d 65 6e 75 70 74  |uptr%+1:. menupt|
00001380  72 25 3d 65 78 69 74 25  20 6d 65 6e 75 70 74 72  |r%=exit% menuptr|
00001390  25 3d 32 0d 08 2a 30 e7  20 57 25 3d 31 20 80 20  |%=2..*0. W%=1 . |
000013a0  a9 28 6d 24 28 70 74 72  25 29 29 3e 39 3a 6d 24  |.(m$(ptr%))>9:m$|
000013b0  28 70 74 72 25 29 3d c0  6d 24 28 70 74 72 25 29  |(ptr%)=.m$(ptr%)|
000013c0  2c 39 29 0d 08 34 42 e7  20 57 25 3d 31 20 80 20  |,9)..4B. W%=1 . |
000013d0  a9 28 6d 24 28 70 74 72  25 29 29 3c 39 3a f5 3a  |.(m$(ptr%))<9:.:|
000013e0  6d 24 28 70 74 72 25 29  3d 6d 24 28 70 74 72 25  |m$(ptr%)=m$(ptr%|
000013f0  29 2b 22 20 22 3a fd 20  a9 28 6d 24 28 70 74 72  |)+" ":. .(m$(ptr|
00001400  25 29 29 3d 39 0d 08 3e  2a e7 20 57 25 3d 31 20  |%))=9..>*. W%=1 |
00001410  80 20 a9 28 74 24 29 3c  34 3a f5 3a 74 24 3d 22  |. .(t$)<4:.:t$="|
00001420  20 22 2b 74 24 3a fd 20  a9 28 74 24 29 3d 34 0d  | "+t$:. .(t$)=4.|
00001430  08 48 2a e7 20 57 25 3d  30 20 80 20 a9 28 74 24  |.H*. W%=0 . .(t$|
00001440  29 3c 37 3a f5 3a 74 24  3d 74 24 2b 22 20 22 3a  |)<7:.:t$=t$+" ":|
00001450  fd 20 a9 28 74 24 29 3d  37 0d 08 52 18 6d 24 28  |. .(t$)=7..R.m$(|
00001460  70 74 72 25 29 3d 6d 24  28 70 74 72 25 29 2b 74  |ptr%)=m$(ptr%)+t|
00001470  24 0d 08 5c 05 e1 0d 08  66 05 3a 0d 08 70 10 dd  |$..\....f.:..p..|
00001480  f2 62 6c 61 6e 6b 73 68  61 72 65 0d 08 7a 13 e3  |.blankshare..z..|
00001490  20 49 25 3d 32 b8 6e 64  61 74 61 25 2b 31 0d 08  | I%=2.ndata%+1..|
000014a0  84 0d 73 24 28 49 25 29  3d 62 24 0d 08 8e 05 ed  |..s$(I%)=b$.....|
000014b0  0d 08 98 05 e1 0d 08 a2  05 3a 0d 08 ac 11 dd f2  |.........:......|
000014c0  69 6e 73 65 72 74 73 68  61 72 65 0d 08 b6 13 e3  |insertshare.....|
000014d0  20 49 25 3d 32 b8 6e 64  61 74 61 25 2b 31 0d 08  | I%=2.ndata%+1..|
000014e0  c0 11 6d 24 28 49 25 29  3d 73 24 28 49 25 29 0d  |..m$(I%)=s$(I%).|
000014f0  08 ca 05 ed 0d 08 d4 08  53 25 3d b9 0d 08 de 05  |........S%=.....|
00001500  e1 0d 08 e8 05 3a 0d 08  f2 10 dd f2 62 6c 61 6e  |.....:......blan|
00001510  6b 70 72 69 63 65 0d 08  fc 13 e3 20 49 25 3d 32  |kprice..... I%=2|
00001520  b8 6e 64 61 74 61 25 2b  31 0d 09 06 11 70 24 28  |.ndata%+1....p$(|
00001530  49 25 29 3d 22 20 20 20  20 22 0d 09 10 05 ed 0d  |I%)="    "......|
00001540  09 1a 05 e1 0d 09 24 05  3a 0d 09 2e 11 dd f2 69  |......$.:......i|
00001550  6e 73 65 72 74 70 72 69  63 65 0d 09 38 0e ee 20  |nsertprice..8.. |
00001560  85 20 e5 20 8d 44 5a 40  0d 09 42 10 cf 23 41 25  |. . .DZ@..B..#A%|
00001570  3d 44 41 59 50 54 52 25  0d 09 4c 0c 44 41 59 3d  |=DAYPTR%..L.DAY=|
00001580  9a 23 41 25 0d 09 56 1c  64 69 73 63 70 74 72 25  |.#A%..V.discptr%|
00001590  3d 28 9a 23 41 25 29 2a  32 35 36 2b 9a 23 41 25  |=(.#A%)*256+.#A%|
000015a0  0d 09 60 11 cf 23 41 25  3d 64 69 73 63 70 74 72  |..`..#A%=discptr|
000015b0  25 0d 09 6a 13 e3 20 49  25 3d 32 b8 6e 64 61 74  |%..j.. I%=2.ndat|
000015c0  61 25 2b 31 0d 09 74 0b  47 25 3d 9a 23 41 25 0d  |a%+1..t.G%=.#A%.|
000015d0  09 7e 0b 4f 25 3d 9a 23  41 25 0d 09 88 11 61 24  |.~.O%=.#A%....a$|
000015e0  3d c3 28 47 25 20 81 20  31 30 29 0d 09 92 11 62  |=.(G% . 10)....b|
000015f0  24 3d c3 28 47 25 20 83  20 31 30 29 0d 09 9c 11  |$=.(G% . 10)....|
00001600  63 24 3d c3 28 4f 25 20  81 20 31 30 29 0d 09 a6  |c$=.(O% . 10)...|
00001610  11 64 24 3d c3 28 4f 25  20 83 20 31 30 29 0d 09  |.d$=.(O% . 10)..|
00001620  b0 1c e7 20 61 24 3d 22  30 22 20 61 24 3d 22 20  |... a$="0" a$=" |
00001630  22 20 8b 20 e5 20 8d 64  58 49 0d 09 ba 1c e7 20  |" . . .dXI..... |
00001640  62 24 3d 22 30 22 20 62  24 3d 22 20 22 20 8b 20  |b$="0" b$=" " . |
00001650  e5 20 8d 64 58 49 0d 09  c4 1c e7 20 63 24 3d 22  |. .dXI..... c$="|
00001660  30 22 20 63 24 3d 22 20  22 20 8b 20 e5 20 8d 64  |0" c$=" " . . .d|
00001670  58 49 0d 09 ce 13 e7 20  64 24 3d 22 30 22 20 64  |XI..... d$="0" d|
00001680  24 3d 22 20 22 0d 09 d8  16 70 24 28 49 25 29 3d  |$=" "....p$(I%)=|
00001690  61 24 2b 62 24 2b 63 24  2b 64 24 0d 09 e2 1d 6d  |a$+b$+c$+d$....m|
000016a0  24 28 49 25 29 3d 73 24  28 49 25 29 2b 22 20 20  |$(I%)=s$(I%)+"  |
000016b0  22 2b 70 24 28 49 25 29  0d 09 ec 05 ed 0d 09 f6  |"+p$(I%)........|
000016c0  08 50 25 3d b9 0d 0a 00  09 ee 20 85 20 87 0d 0a  |.P%=...... . ...|
000016d0  0a 05 e1 0d 0a 14 05 3a  0d 0a 1e 0f dd f2 73 65  |.......:......se|
000016e0  74 75 70 6e 61 6d 65 0d  0a 28 17 6d 24 28 30 29  |tupname..(.m$(0)|
000016f0  3d 22 45 6e 74 65 72 20  73 68 61 72 65 22 0d 0a  |="Enter share"..|
00001700  32 42 e7 20 54 25 20 80  20 51 25 3e 30 20 80 20  |2B. T% . Q%>0 . |
00001710  51 25 3c 35 20 6d 24 28  31 29 3d 70 24 2b 22 3a  |Q%<5 m$(1)=p$+":|
00001720  2d 20 22 2b c3 28 51 25  29 20 8b 20 6d 24 28 31  |- "+.(Q%) . m$(1|
00001730  29 3d 70 24 2b 22 20 4e  4f 54 20 4f 50 45 4e 22  |)=p$+" NOT OPEN"|
00001740  0d 0a 3c 31 e7 20 54 25  20 80 20 51 25 3d 30 20  |..<1. T% . Q%=0 |
00001750  6d 24 28 30 29 3d 22 45  6e 74 65 72 20 69 6e 64  |m$(0)="Enter ind|
00001760  65 78 22 3a 6d 24 28 31  29 3d 22 49 6e 64 65 78  |ex":m$(1)="Index|
00001770  22 0d 0a 46 16 e7 20 53  25 3d a3 20 f2 62 6c 61  |"..F.. S%=. .bla|
00001780  6e 6b 73 68 61 72 65 0d  0a 50 1d 6d 24 28 6e 64  |nkshare..P.m$(nd|
00001790  61 74 61 25 2b 32 29 3d  22 20 45 6e 64 20 65 6e  |ata%+2)=" End en|
000017a0  74 72 79 22 0d 0a 5a 10  f2 69 6e 73 65 72 74 73  |try"..Z..inserts|
000017b0  68 61 72 65 0d 0a 64 05  e1 0d 0a 6e 05 3a 0d 0a  |hare..d....n.:..|
000017c0  78 10 dd f2 73 65 74 75  70 70 72 69 63 65 0d 0a  |x...setupprice..|
000017d0  82 58 e7 20 53 25 3d a3  20 f1 8a 30 2c 31 30 29  |.X. S%=. ..0,10)|
000017e0  22 52 65 74 75 72 6e 20  74 6f 20 73 65 74 20 75  |"Return to set u|
000017f0  70 20 6e 61 6d 65 73 22  3b 3a f1 8a 30 2c 31 32  |p names";:..0,12|
00001800  29 22 50 72 65 73 73 20  61 6e 79 20 4b 45 59 20  |)"Press any KEY |
00001810  74 6f 20 63 6f 6e 74 69  6e 75 65 22 3b 3a 4b 45  |to continue";:KE|
00001820  59 25 3d a5 3a e1 0d 0a  8c 4d e7 20 54 25 20 80  |Y%=.:....M. T% .|
00001830  20 51 25 3d 30 20 6d 24  28 30 29 3d 22 45 6e 74  | Q%=0 m$(0)="Ent|
00001840  65 72 20 69 6e 64 65 78  22 20 8b 20 6d 24 28 30  |er index" . m$(0|
00001850  29 3d 22 20 20 45 6e 74  65 72 20 70 72 69 63 65  |)="  Enter price|
00001860  73 20 20 22 2b 70 24 2b  22 3a 2d 20 22 2b c3 28  |s  "+p$+":- "+.(|
00001870  51 25 29 0d 0a 96 20 e7  20 44 3c 31 30 20 61 24  |Q%)... . D<10 a$|
00001880  3d 22 20 22 2b c3 28 44  29 20 8b 20 61 24 3d c3  |=" "+.(D) . a$=.|
00001890  28 44 29 0d 0a a0 20 e7  20 4d 3c 31 30 20 62 24  |(D)... . M<10 b$|
000018a0  3d 22 20 22 2b c3 28 4d  29 20 8b 20 62 24 3d c3  |=" "+.(M) . b$=.|
000018b0  28 4d 29 0d 0a aa 34 e7  20 28 59 20 83 20 31 30  |(M)...4. (Y . 10|
000018c0  30 29 3c 31 30 20 63 24  3d 22 20 22 2b c3 28 59  |0)<10 c$=" "+.(Y|
000018d0  20 83 20 31 30 30 29 20  8b 20 63 24 3d c3 28 59  | . 100) . c$=.(Y|
000018e0  20 83 20 31 30 30 29 0d  0a b4 36 6d 24 28 31 29  | . 100)...6m$(1)|
000018f0  3d 64 61 79 24 28 44 41  59 2d 31 29 2b 22 20 20  |=day$(DAY-1)+"  |
00001900  20 22 2b 61 24 2b 22 2f  22 2b 62 24 2b 22 2f 22  | "+a$+"/"+b$+"/"|
00001910  2b 63 24 2b 22 20 20 43  6c 6f 73 65 22 0d 0a be  |+c$+"  Close"...|
00001920  16 e7 20 50 25 3d a3 20  f2 62 6c 61 6e 6b 70 72  |.. P%=. .blankpr|
00001930  69 63 65 0d 0a c8 1f 6d  24 28 6e 64 61 74 61 25  |ice....m$(ndata%|
00001940  2b 32 29 3d 22 20 20 20  45 6e 64 20 65 6e 74 72  |+2)="   End entr|
00001950  79 22 0d 0a d2 10 f2 69  6e 73 65 72 74 70 72 69  |y".....insertpri|
00001960  63 65 0d 0a dc 05 e1 0d  0a e6 05 3a 0d 0a f0 16  |ce.........:....|
00001970  dd f2 6c 6f 61 64 6e 61  6d 65 73 5f 70 72 69 63  |..loadnames_pric|
00001980  65 73 0d 0a fa 13 e3 20  49 25 3d 32 b8 6e 64 61  |es..... I%=2.nda|
00001990  74 61 25 2b 31 0d 0b 04  15 73 24 28 49 25 29 3d  |ta%+1....s$(I%)=|
000019a0  c0 6d 24 28 49 25 29 2c  37 29 0d 0b 0e 11 e7 20  |.m$(I%),7)..... |
000019b0  57 25 3d 30 20 e5 20 8d  54 62 4b 0d 0b 18 15 70  |W%=0 . .TbK....p|
000019c0  24 28 49 25 29 3d c2 6d  24 28 49 25 29 2c 34 29  |$(I%)=.m$(I%),4)|
000019d0  0d 0b 22 05 ed 0d 0b 2c  08 53 25 3d b9 0d 0b 36  |.."....,.S%=...6|
000019e0  08 50 25 3d b9 0d 0b 40  05 e1 0d 0b 4a 05 3a 0d  |.P%=...@....J.:.|
000019f0  0b 54 10 dd f2 63 68 61  6e 67 65 64 61 74 65 0d  |.T...changedate.|
00001a00  0b 5e 14 e7 20 4b 45 59  25 3d 26 38 38 20 43 25  |.^.. KEY%=&88 C%|
00001a10  3d 2d 31 0d 0b 68 13 e7  20 4b 45 59 25 3d 26 38  |=-1..h.. KEY%=&8|
00001a20  39 20 43 25 3d 31 0d 0b  72 2e e7 20 43 25 3c 30  |9 C%=1..r.. C%<0|
00001a30  20 80 20 64 69 73 63 70  74 72 25 3d 66 69 72 73  | . discptr%=firs|
00001a40  74 72 65 63 6f 72 64 25  3a f2 70 72 65 76 69 6f  |trecord%:.previo|
00001a50  75 73 3a e1 0d 0b 7c 23  64 69 73 63 70 74 72 25  |us:...|#discptr%|
00001a60  3d 64 69 73 63 70 74 72  25 2b 28 43 25 2a 6e 64  |=discptr%+(C%*nd|
00001a70  61 74 61 25 2a 32 29 0d  0b 86 0f f2 61 64 6a 75  |ata%*2).....adju|
00001a80  73 74 64 61 74 65 0d 0b  90 23 e7 20 65 6e 64 6f  |stdate...#. endo|
00001a90  66 69 6c 65 25 20 80 20  43 25 3e 30 20 43 25 3d  |file% . C%>0 C%=|
00001aa0  2d 31 3a e5 20 8d 44 7c  4b 0d 0b 9a 05 e1 0d 0b  |-1:. .D|K.......|
00001ab0  a4 05 3a 0d 0b ae 0e dd  f2 70 72 65 76 69 6f 75  |..:......previou|
00001ac0  73 0d 0b b8 0e ee 20 85  20 e5 20 8d 44 5a 40 0d  |s..... . . .DZ@.|
00001ad0  0b c2 0c 46 4f 55 4e 44  25 3d a3 0d 0b cc 16 42  |...FOUND%=.....B|
00001ae0  25 3d ad 28 c3 28 59 2d  31 29 2b c3 28 51 25 29  |%=.(.(Y-1)+.(Q%)|
00001af0  29 0d 0b d6 08 d9 23 42  25 0d 0b e0 31 e7 20 42  |).....#B%...1. B|
00001b00  25 3d 30 20 f2 6e 6f 74  66 6f 75 6e 64 28 59 2d  |%=0 .notfound(Y-|
00001b10  31 29 3a e7 20 ac 20 46  4f 55 4e 44 25 20 4e 45  |1):. . FOUND% NE|
00001b20  57 44 41 54 45 25 3d a3  3a e1 0d 0b ea 09 59 3d  |WDATE%=.:.....Y=|
00001b30  59 2d 31 0d 0b f4 0e 79  65 61 72 24 3d c3 28 59  |Y-1....year$=.(Y|
00001b40  29 0d 0b fe 18 f2 63 68  65 63 6b 5f 61 6e 64 5f  |).....check_and_|
00001b50  6f 70 65 6e 5f 66 69 6c  65 0d 0c 08 09 ee 20 85  |open_file..... .|
00001b60  20 87 0d 0c 12 05 e1 0d  0c 1c 05 3a 0d 0c 26 12  | ..........:..&.|
00001b70  dd f2 6e 6f 74 66 6f 75  6e 64 28 46 25 29 0d 0c  |..notfound(F%)..|
00001b80  30 0e ee 20 85 20 e5 20  8d 44 5a 40 0d 0c 3a 2c  |0.. . . .DZ@..:,|
00001b90  e7 20 51 25 3d 30 20 66  24 3d 22 49 6e 64 65 78  |. Q%=0 f$="Index|
00001ba0  20 64 61 74 61 22 20 8b  20 66 24 3d 70 24 2b 22  | data" . f$=p$+"|
00001bb0  20 22 2b c3 28 51 25 29  0d 0c 44 20 f2 63 6c 6f  | "+.(Q%)..D .clo|
00001bc0  73 65 77 28 77 78 25 2c  77 79 25 2c 6c 65 6e 25  |sew(wx%,wy%,len%|
00001bd0  2c 6d 61 78 25 2b 32 29  0d 0c 4e 05 f5 0d 0c 58  |,max%+2)..N....X|
00001be0  2d f1 8a 30 2c 35 29 66  24 3b 22 20 66 6f 72 20  |-..0,5)f$;" for |
00001bf0  22 3b 46 25 3b 22 20 6e  6f 74 20 6f 6e 20 74 68  |";F%;" not on th|
00001c00  69 73 20 64 69 73 63 3a  2d 22 0d 0c 62 05 f5 0d  |is disc:-"..b...|
00001c10  0c 6c ae f1 8a 32 2c 38  29 22 41 29 20 28 41 29  |.l...2,8)"A) (A)|
00001c20  62 61 6e 64 6f 6e 22 27  27 8a 32 29 22 43 29 20  |bandon"''.2)"C) |
00001c30  28 43 29 61 74 61 6c 6f  67 75 65 20 64 69 73 63  |(C)atalogue disc|
00001c40  22 27 27 8a 32 29 22 44  29 20 28 44 29 72 69 76  |"''.2)"D) (D)riv|
00001c50  65 20 63 68 61 6e 67 65  20 28 63 75 72 72 65 6e  |e change (curren|
00001c60  74 6c 79 20 44 72 69 76  65 20 22 3b a4 64 72 69  |tly Drive ";.dri|
00001c70  76 65 3b 22 29 22 27 27  8a 32 29 22 47 29 20 28  |ve;")"''.2)"G) (|
00001c80  47 29 6f 20 6f 6e 22 27  27 8a 32 29 22 53 29 20  |G)o on"''.2)"S) |
00001c90  28 53 29 74 61 72 74 20  61 20 6e 65 77 20 66 69  |(S)tart a new fi|
00001ca0  6c 65 22 27 27 8a 32 29  22 43 68 6f 6f 73 65 20  |le"''.2)"Choose |
00001cb0  41 2c 43 2c 44 2c 47 20  6f 72 20 53 22 0d 0c 76  |A,C,D,G or S"..v|
00001cc0  05 f5 0d 0c 80 0b 2a 46  58 32 31 2c 30 0d 0c 8a  |......*FX21,0...|
00001cd0  10 4b 45 59 25 3d a5 20  80 20 26 44 46 0d 0c 94  |.KEY%=. . &DF...|
00001ce0  35 fd 20 4b 45 59 25 3d  36 35 20 84 20 4b 45 59  |5. KEY%=65 . KEY|
00001cf0  25 3d 36 37 20 84 20 4b  45 59 25 3d 36 38 20 84  |%=67 . KEY%=68 .|
00001d00  20 4b 45 59 25 3d 37 31  20 84 20 4b 45 59 25 3d  | KEY%=71 . KEY%=|
00001d10  38 33 0d 0c 9e 14 e7 20  4b 45 59 25 3d 36 37 20  |83..... KEY%=67 |
00001d20  8c 20 db 3a 2a 2e 0d 0c  a8 98 e7 20 4b 45 59 25  |. .:*...... KEY%|
00001d30  3d 36 38 20 f1 27 8a 31  30 29 22 45 6e 74 65 72  |=68 .'.10)"Enter|
00001d40  20 64 72 69 76 65 20 6e  6f 2e 22 3b 3a f5 3a 4b  | drive no.";:.:K|
00001d50  45 59 25 3d a5 2d 34 38  3a fd 4b 45 59 25 3e 2d  |EY%=.-48:.KEY%>-|
00001d60  31 20 80 20 4b 45 59 25  3c 34 3a f1 3b 22 20 22  |1 . KEY%<4:.;" "|
00001d70  3b 4b 45 59 25 3a 24 26  43 31 30 3d 22 44 52 2e  |;KEY%:$&C10="DR.|
00001d80  22 2b c3 28 4b 45 59 25  29 3a 58 25 3d 26 31 30  |"+.(KEY%):X%=&10|
00001d90  3a 59 25 3d 26 43 3a d6  26 46 46 46 37 3a f1 27  |:Y%=&C:.&FFF7:.'|
00001da0  27 8a 31 30 29 22 44 72  69 76 65 20 22 3b 4b 45  |'.10)"Drive ";KE|
00001db0  59 25 3b 22 20 73 65 6c  65 63 74 65 64 22 0d 0c  |Y%;" selected"..|
00001dc0  b2 28 e7 20 4b 45 59 25  3d 36 35 20 84 20 4b 45  |.(. KEY%=65 . KE|
00001dd0  59 25 3d 37 31 20 84 20  4b 45 59 25 3d 38 33 20  |Y%=71 . KEY%=83 |
00001de0  e5 20 8d 64 5a 4c 0d 0c  bc 25 f1 27 27 8a 35 29  |. .dZL...%.''.5)|
00001df0  22 50 72 65 73 73 20 61  6e 79 20 6b 65 79 20 74  |"Press any key t|
00001e00  6f 20 63 6f 6e 74 69 6e  75 65 22 0d 0c c6 0b 2a  |o continue"....*|
00001e10  46 58 32 31 2c 30 0d 0c  d0 07 f5 fd a5 0d 0c da  |FX21,0..........|
00001e20  05 db 0d 0c e4 20 fd 4b  45 59 25 3d 36 35 20 84  |..... .KEY%=65 .|
00001e30  20 4b 45 59 25 3d 37 31  20 84 20 4b 45 59 25 3d  | KEY%=71 . KEY%=|
00001e40  38 33 0d 0c ee 15 42 25  3d ad 28 c3 28 46 25 29  |83....B%=.(.(F%)|
00001e50  2b c3 28 51 25 29 29 0d  0c f8 07 d9 23 30 0d 0d  |+.(Q%)).....#0..|
00001e60  02 1e fd 42 25 3c 3e 30  20 84 20 4b 45 59 25 3d  |...B%<>0 . KEY%=|
00001e70  36 35 20 84 20 4b 45 59  25 3d 38 33 0d 0d 0c 09  |65 . KEY%=83....|
00001e80  ee 20 85 20 87 0d 0d 16  1c e7 20 4b 45 59 25 3d  |. . ...... KEY%=|
00001e90  36 35 20 f2 63 68 61 69  6e 28 22 4d 41 49 4e 22  |65 .chain("MAIN"|
00001ea0  29 0d 0d 20 25 e7 20 4b  45 59 25 3d 38 33 20 59  |).. %. KEY%=83 Y|
00001eb0  3d 46 25 3a 79 65 61 72  24 3d c3 28 59 29 3a f2  |=F%:year$=.(Y):.|
00001ec0  6f 70 65 6e 3a e1 0d 0d  2a 1e e7 20 42 25 3d 30  |open:...*.. B%=0|
00001ed0  20 46 4f 55 4e 44 25 3d  a3 20 8b 20 46 4f 55 4e  | FOUND%=. . FOUN|
00001ee0  44 25 3d b9 0d 0d 34 1f  f2 6f 70 65 6e 77 28 77  |D%=...4..openw(w|
00001ef0  78 25 2c 77 79 25 2c 6c  65 6e 25 2c 6d 61 78 25  |x%,wy%,len%,max%|
00001f00  2b 32 29 0d 0d 3e 05 e1  0d 0d 48 05 3a 0d 0d 52  |+2)..>....H.:..R|
00001f10  10 dd f2 61 64 6a 75 73  74 64 61 74 65 0d 0d 5c  |...adjustdate..\|
00001f20  0a 4f 4c 44 59 3d 59 0d  0d 66 05 f5 0d 0d 70 0a  |.OLDY=Y..f....p.|
00001f30  44 3d 44 2b 43 25 0d 0d  7a 05 f5 0d 0d 84 18 e7  |D=D+C%..z.......|
00001f40  20 a4 76 61 6c 69 64 61  74 65 3d 30 20 44 3d 44  | .validate=0 D=D|
00001f50  2b 43 25 0d 0d 8e 25 e7  20 44 3e 33 31 20 44 3d  |+C%...%. D>31 D=|
00001f60  31 3a 4d 3d 4d 2b 31 3a  e7 20 4d 3e 31 32 20 4d  |1:M=M+1:. M>12 M|
00001f70  3d 31 3a 59 3d 59 2b 31  0d 0d 98 25 e7 20 44 3c  |=1:Y=Y+1...%. D<|
00001f80  31 20 44 3d 33 31 3a 4d  3d 4d 2d 31 3a e7 20 4d  |1 D=31:M=M-1:. M|
00001f90  3c 31 20 4d 3d 31 32 3a  59 3d 59 2d 31 0d 0d a2  |<1 M=12:Y=Y-1...|
00001fa0  12 fd 20 a4 76 61 6c 69  64 61 74 65 3c 3e 30 0d  |.. .validate<>0.|
00001fb0  0d ac 0e 44 41 59 3d 44  41 59 2b 43 25 0d 0d b6  |...DAY=DAY+C%...|
00001fc0  11 e7 20 44 41 59 3c 31  20 44 41 59 3d 37 0d 0d  |.. DAY<1 DAY=7..|
00001fd0  c0 11 e7 20 44 41 59 3e  37 20 44 41 59 3d 31 0d  |... DAY>7 DAY=1.|
00001fe0  0d ca 0b fd 20 44 41 59  3c 36 0d 0d d4 13 e7 20  |.... DAY<6..... |
00001ff0  65 6e 64 6f 66 69 6c 65  25 20 8c 20 e1 0d 0d de  |endofile% . ....|
00002000  18 e7 20 59 3e 4f 4c 44  59 20 65 6e 64 6f 66 69  |.. Y>OLDY endofi|
00002010  6c 65 25 3d b9 0d 0d e8  05 e1 0d 0d f2 05 3a 0d  |le%=..........:.|
00002020  0d fc 46 dd a4 76 61 6c  69 64 61 74 65 3a 3d 44  |..F..validate:=D|
00002030  2a 4d 2a 28 4d 3c 31 33  29 2a 28 44 3c 33 31 2b  |*M*(M<13)*(D<31+|
00002040  28 28 4d 2b 28 4d 3e 37  29 29 80 20 31 29 2b 28  |((M+(M>7)). 1)+(|
00002050  4d 3d 32 29 2a 28 32 2b  28 28 59 20 80 20 33 29  |M=2)*(2+((Y . 3)|
00002060  3d 30 29 29 29 0d 0e 06  05 3a 0d 0e 10 19 dd f2  |=0)))....:......|
00002070  63 68 65 63 6b 5f 61 6e  64 5f 6f 70 65 6e 5f 66  |check_and_open_f|
00002080  69 6c 65 0d 0e 1a 0e ee  20 85 20 e5 20 8d 44 5a  |ile..... . . .DZ|
00002090  40 0d 0e 24 0c 46 4f 55  4e 44 25 3d a3 0d 0e 2e  |@..$.FOUND%=....|
000020a0  07 d9 23 30 0d 0e 38 15  41 25 3d ad 28 79 65 61  |..#0..8.A%=.(yea|
000020b0  72 24 2b c3 28 51 25 29  29 0d 0e 42 2d e7 20 41  |r$+.(Q%))..B-. A|
000020c0  25 3d 30 20 f2 6e 6f 74  66 6f 75 6e 64 28 bb 28  |%=0 .notfound(.(|
000020d0  79 65 61 72 24 29 29 3a  e7 20 ac 20 46 4f 55 4e  |year$)):. . FOUN|
000020e0  44 25 20 8c 20 e1 0d 0e  4c 07 d9 23 30 0d 0e 56  |D% . ...L..#0..V|
000020f0  0c f2 67 65 74 79 65 61  72 0d 0e 60 13 58 25 3d  |..getyear..`.X%=|
00002100  ae 28 22 3a 30 2e 59 45  41 52 22 29 0d 0e 6a 0c  |.(":0.YEAR")..j.|
00002110  e3 20 49 25 3d 30 b8 33  0d 0e 74 2b e7 20 49 25  |. I%=0.3..t+. I%|
00002120  3c 3e 51 25 20 f1 23 58  25 2c 79 65 61 72 25 28  |<>Q% .#X%,year%(|
00002130  49 25 29 20 8b 20 f1 23  58 25 2c bb 28 79 65 61  |I%) . .#X%,.(yea|
00002140  72 24 29 0d 0e 7e 05 ed  0d 0e 7f 0e f1 23 58 25  |r$)..~.......#X%|
00002150  2c 4c 25 2c 4d 25 0d 0e  88 07 d9 23 30 0d 0e 92  |,L%,M%.....#0...|
00002160  15 41 25 3d ad 28 79 65  61 72 24 2b c3 28 51 25  |.A%=.(year$+.(Q%|
00002170  29 29 0d 0e 9c 0a cf 23  41 25 3d 30 0d 0e a6 13  |)).....#A%=0....|
00002180  e3 20 49 25 3d 32 b8 6e  64 61 74 61 25 2b 31 0d  |. I%=2.ndata%+1.|
00002190  0e b0 0d 73 24 28 49 25  29 3d 22 22 0d 0e ba 0c  |...s$(I%)=""....|
000021a0  e3 20 4a 25 3d 31 b8 37  0d 0e c4 0b 42 25 3d 9a  |. J%=1.7....B%=.|
000021b0  23 41 25 0d 0e ce 1a e7  20 42 25 3c 33 32 20 84  |#A%..... B%<32 .|
000021c0  20 42 25 3e 31 32 36 20  42 25 3d 33 32 0d 0e d8  | B%>126 B%=32...|
000021d0  17 73 24 28 49 25 29 3d  73 24 28 49 25 29 2b bd  |.s$(I%)=s$(I%)+.|
000021e0  28 42 25 29 0d 0e e2 05  ed 0d 0e ec 05 ed 0d 0e  |(B%)............|
000021f0  f6 41 f4 20 47 65 74 20  70 6f 73 69 74 69 6f 6e  |.A. Get position|
00002200  20 6f 66 20 66 69 72 73  74 20 72 65 63 6f 72 64  | of first record|
00002210  2c 20 63 75 72 72 65 6e  74 20 64 61 74 65 20 61  |, current date a|
00002220  6e 64 20 64 69 73 63 20  70 6f 69 6e 74 65 72 0d  |nd disc pointer.|
00002230  0f 00 12 cf 23 41 25 3d  66 69 72 73 74 70 74 72  |....#A%=firstptr|
00002240  25 0d 0f 0a 1e 66 69 72  73 74 72 65 63 6f 72 64  |%....firstrecord|
00002250  25 3d 9a 23 41 25 2a 32  35 36 2b 9a 23 41 25 0d  |%=.#A%*256+.#A%.|
00002260  0f 14 0a 44 3d 9a 23 41  25 0d 0f 1e 0a 4d 3d 9a  |...D=.#A%....M=.|
00002270  23 41 25 0d 0f 28 15 59  3d 28 9a 23 41 25 29 2a  |#A%..(.Y=(.#A%)*|
00002280  32 35 36 2b 9a 23 41 25  0d 0f 32 0c 44 41 59 3d  |256+.#A%..2.DAY=|
00002290  9a 23 41 25 0d 0f 3c 1c  64 69 73 63 70 74 72 25  |.#A%..<.discptr%|
000022a0  3d 28 9a 23 41 25 29 2a  32 35 36 2b 9a 23 41 25  |=(.#A%)*256+.#A%|
000022b0  0d 0f 46 0a 64 3d 9a 23  41 25 0d 0f 50 0a 6d 3d  |..F.d=.#A%..P.m=|
000022c0  9a 23 41 25 0d 0f 5a 15  79 3d 28 9a 23 41 25 29  |.#A%..Z.y=(.#A%)|
000022d0  2a 32 35 36 2b 9a 23 41  25 0d 0f 64 08 53 25 3d  |*256+.#A%..d.S%=|
000022e0  b9 0d 0f 6e 09 ee 20 85  20 87 0d 0f 78 05 e1 0d  |...n.. . ...x...|
000022f0  0f 82 05 3a 0d 0f 8c 0d  dd f2 67 65 74 79 65 61  |...:......getyea|
00002300  72 0d 0f 96 0b f2 73 79  73 74 65 6d 0d 0f a0 13  |r.....system....|
00002310  58 25 3d ad 28 22 3a 30  2e 59 45 41 52 22 29 0d  |X%=.(":0.YEAR").|
00002320  0f aa 6f e7 20 58 25 3d  30 20 db 3a f1 8a 30 2c  |..o. X%=0 .:..0,|
00002330  31 30 29 22 46 69 6c 65  20 27 59 45 41 52 27 20  |10)"File 'YEAR' |
00002340  64 6f 65 73 20 6e 6f 74  20 65 78 69 73 74 2e 22  |does not exist."|
00002350  27 27 22 47 6f 20 74 6f  20 4d 41 49 4e 20 70 61  |''"Go to MAIN pa|
00002360  6e 65 6c 2e 22 27 27 22  54 6f 20 72 65 74 75 72  |nel."''"To retur|
00002370  6e 20 74 6f 20 4d 41 49  4e 22 3a f2 6b 65 79 3a  |n to MAIN":.key:|
00002380  f2 63 68 61 69 6e 28 22  4d 41 49 4e 22 29 0d 0f  |.chain("MAIN")..|
00002390  b4 0c e3 20 49 25 3d 30  b8 33 0d 0f be 12 e8 23  |... I%=0.3.....#|
000023a0  58 25 2c 79 65 61 72 25  28 49 25 29 0d 0f c8 05  |X%,year%(I%)....|
000023b0  ed 0d 0f d2 27 e7 20 a2  23 58 25 3e 26 31 34 20  |....'. .#X%>&14 |
000023c0  e8 23 58 25 2c 4c 25 2c  4d 25 20 8b 20 4c 25 3d  |.#X%,L%,M% . L%=|
000023d0  33 30 3a 4d 25 3d 36 30  0d 0f dc 07 d9 23 30 0d  |30:M%=60.....#0.|
000023e0  0f e6 05 e1 0d 0f f0 05  3a 0d 0f fa 0f dd f2 65  |........:......e|
000023f0  72 72 6f 72 64 61 74 65  0d 10 04 05 db 0d 10 0e  |rrordate........|
00002400  36 f1 8a 35 2c 31 30 29  22 45 72 72 6f 72 20 69  |6..5,10)"Error i|
00002410  6e 20 64 61 74 65 2e 22  27 27 22 50 72 65 73 73  |n date."''"Press|
00002420  20 61 20 4b 45 59 20 74  6f 20 72 65 2d 65 6e 74  | a KEY to re-ent|
00002430  65 72 22 0d 10 18 08 49  25 3d a5 0d 10 22 05 db  |er"....I%=..."..|
00002440  0d 10 2c 05 e1 0d 10 36  05 3a 0d 10 40 0a dd f2  |..,....6.:..@...|
00002450  6f 70 65 6e 0d 10 4a 0e  ee 20 85 20 e5 20 8d 44  |open..J.. . . .D|
00002460  5a 40 0d 10 54 20 f2 63  6c 6f 73 65 77 28 77 78  |Z@..T .closew(wx|
00002470  25 2c 77 79 25 2c 6c 65  6e 25 2c 6d 61 78 25 2b  |%,wy%,len%,max%+|
00002480  32 29 0d 10 5e 2c e7 20  51 25 3d 30 20 66 24 3d  |2)..^,. Q%=0 f$=|
00002490  22 49 6e 64 65 78 20 66  69 6c 65 22 20 8b 20 66  |"Index file" . f|
000024a0  24 3d 70 24 2b 22 20 22  2b c3 28 51 25 29 0d 10  |$=p$+" "+.(Q%)..|
000024b0  68 1a f1 8a 30 2c 33 29  66 24 2b 22 20 66 6f 72  |h...0,3)f$+" for|
000024c0  20 22 2b 79 65 61 72 24  0d 10 72 6b f1 8a 30 2c  | "+year$..rk..0,|
000024d0  35 29 22 41 20 6e 65 77  20 66 69 6c 65 20 77 69  |5)"A new file wi|
000024e0  6c 6c 20 62 65 20 6f 70  65 6e 65 64 20 69 66 20  |ll be opened if |
000024f0  74 68 65 72 65 20 69 73  22 27 22 65 6e 6f 75 67  |there is"'"enoug|
00002500  68 20 73 70 61 63 65 2e  22 27 27 22 44 6f 20 79  |h space."''"Do y|
00002510  6f 75 20 77 69 73 68 20  74 6f 20 73 74 61 72 74  |ou wish to start|
00002520  20 61 20 6e 65 77 20 66  69 6c 65 3f 20 28 59 2f  | a new file? (Y/|
00002530  4e 29 22 0d 10 7c 05 f5  0d 10 86 0b 2a 46 58 32  |N)"..|......*FX2|
00002540  31 2c 30 0d 10 90 0e 41  25 3d a5 20 80 20 26 44  |1,0....A%=. . &D|
00002550  46 0d 10 9a 13 fd 20 41  25 3d 37 38 20 84 20 41  |F..... A%=78 . A|
00002560  25 3d 38 39 0d 10 a4 0d  e7 20 41 25 3d 37 38 20  |%=89..... A%=78 |
00002570  e1 0d 10 ae 05 f5 0d 10  b8 05 f5 0d 10 c2 a0 f1  |................|
00002580  27 27 22 45 6e 74 65 72  20 64 61 74 65 20 66 72  |''"Enter date fr|
00002590  6f 6d 20 77 68 69 63 68  20 66 69 6c 65 22 27 27  |om which file"''|
000025a0  22 69 73 20 74 6f 20 73  74 61 72 74 20 69 6e 20  |"is to start in |
000025b0  74 68 65 20 66 6f 72 6d  20 44 44 2f 4d 4d 22 27  |the form DD/MM"'|
000025c0  27 22 77 68 65 72 65 20  44 44 20 69 73 20 74 68  |'"where DD is th|
000025d0  65 20 64 61 79 20 6f 66  20 74 68 65 20 6d 6f 6e  |e day of the mon|
000025e0  74 68 22 27 27 22 61 6e  64 20 4d 4d 20 69 73 20  |th"''"and MM is |
000025f0  74 68 65 20 6d 6f 6e 74  68 20 6f 66 20 74 68 65  |the month of the|
00002600  20 79 65 61 72 22 3b 3a  e8 61 24 3a 61 24 3d 61  | year";:.a$:a$=a|
00002610  24 2b 22 2f 22 2b 79 65  61 72 24 0d 10 cc 25 e7  |$+"/"+year$...%.|
00002620  20 c1 61 24 2c 33 2c 31  29 3c 3e 22 2f 22 20 f2  | .a$,3,1)<>"/" .|
00002630  65 72 72 6f 72 64 61 74  65 3a e5 20 8d 64 42 50  |errordate:. .dBP|
00002640  0d 10 d6 0d e3 20 49 25  3d 31 b8 31 30 0d 10 e0  |..... I%=1.10...|
00002650  18 e7 20 49 25 3d 33 20  84 20 49 25 3d 36 20 e5  |.. I%=3 . I%=6 .|
00002660  20 8d 64 74 50 0d 10 ea  34 e7 20 c1 61 24 2c 49  | .dtP...4. .a$,I|
00002670  25 2c 31 29 3c 22 30 22  20 84 20 c1 61 24 2c 49  |%,1)<"0" . .a$,I|
00002680  25 2c 31 29 3e 22 39 22  20 f2 65 72 72 6f 72 64  |%,1)>"9" .errord|
00002690  61 74 65 3a 49 25 3d 32  30 0d 10 f4 05 ed 0d 10  |ate:I%=20.......|
000026a0  fe 0b fd 20 49 25 3c 31  39 0d 11 08 11 44 3d bb  |... I%<19....D=.|
000026b0  28 c1 61 24 2c 31 2c 32  29 29 0d 11 12 11 4d 3d  |(.a$,1,2))....M=|
000026c0  bb 28 c1 61 24 2c 34 2c  32 29 29 0d 11 1c 11 59  |.(.a$,4,2))....Y|
000026d0  3d bb 28 c1 61 24 2c 37  2c 34 29 29 0d 11 26 1c  |=.(.a$,7,4))..&.|
000026e0  e7 20 a4 76 61 6c 69 64  61 74 65 3d 30 20 f2 65  |. .validate=0 .e|
000026f0  72 72 6f 72 64 61 74 65  0d 11 30 12 fd 20 a4 76  |rrordate..0.. .v|
00002700  61 6c 69 64 61 74 65 3c  3e 30 0d 11 3a 2c e8 27  |alidate<>0..:,.'|
00002710  22 41 6e 64 20 65 6e 74  65 72 20 64 61 79 20 6f  |"And enter day o|
00002720  66 20 77 65 65 6b 20 28  4d 6f 6e 64 61 79 3d 31  |f week (Monday=1|
00002730  29 20 22 44 41 59 0d 11  44 7b e7 20 44 41 59 3e  |) "DAY..D{. DAY>|
00002740  35 20 f1 27 22 57 65 65  6b 65 6e 64 73 20 61 72  |5 .'"Weekends ar|
00002750  65 20 6e 6f 74 20 61 6c  6c 6f 77 65 64 20 21 22  |e not allowed !"|
00002760  27 22 54 68 65 20 6e 65  78 74 20 4d 6f 6e 64 61  |'"The next Monda|
00002770  79 20 77 69 6c 6c 20 62  65 20 75 73 65 64 20 61  |y will be used a|
00002780  6e 64 22 27 22 74 68 65  20 64 61 74 65 20 77 69  |nd"'"the date wi|
00002790  6c 6c 20 62 65 20 61 64  6a 75 73 74 65 64 2e 22  |ll be adjusted."|
000027a0  3a 43 25 3d 31 3a f2 61  64 6a 75 73 74 64 61 74  |:C%=1:.adjustdat|
000027b0  65 0d 11 4e 05 db 0d 11  58 26 f1 8a 35 2c 35 29  |e..N....X&..5,5)|
000027c0  22 49 4e 49 54 49 41 4c  49 53 49 4e 47 20 2d 20  |"INITIALISING - |
000027d0  50 6c 65 61 73 65 20 77  61 69 74 22 0d 11 62 21  |Please wait"..b!|
000027e0  e7 20 51 25 3d 30 20 73  24 28 31 29 3d 22 46 54  |. Q%=0 s$(1)="FT|
000027f0  20 31 30 30 20 22 3a e5  20 8d 64 5a 51 0d 11 6c  | 100 ":. .dZQ..l|
00002800  16 42 25 3d ad 28 c3 28  59 2d 31 29 2b c3 28 51  |.B%=.(.(Y-1)+.(Q|
00002810  25 29 29 0d 11 76 11 e7  20 42 25 3d 30 20 e5 20  |%))..v.. B%=0 . |
00002820  8d 64 5a 51 0d 11 80 2c  f4 20 54 61 6b 65 20 61  |.dZQ...,. Take a|
00002830  20 63 6f 70 79 20 6f 66  20 73 68 61 72 65 6e 61  | copy of sharena|
00002840  6d 65 73 20 66 6f 72 20  6e 65 77 20 66 69 6c 65  |mes for new file|
00002850  0d 11 8a 10 e3 49 25 3d  31 b8 6e 64 61 74 61 25  |.....I%=1.ndata%|
00002860  0d 11 94 0f 73 24 28 49  25 2b 31 29 3d 22 22 0d  |....s$(I%+1)="".|
00002870  11 9e 0b e3 4a 25 3d 31  b8 37 0d 11 a8 19 73 24  |....J%=1.7....s$|
00002880  28 49 25 29 3d 73 24 28  49 25 29 2b bd 28 9a 23  |(I%)=s$(I%)+.(.#|
00002890  42 25 29 0d 11 b2 05 ed  0d 11 bc 05 ed 0d 11 c6  |B%).............|
000028a0  07 d9 23 30 0d 11 d0 35  f4 20 53 65 6e 64 20 64  |..#0...5. Send d|
000028b0  61 74 61 20 74 6f 20 64  69 73 63 20 61 73 20 6f  |ata to disc as o|
000028c0  75 74 6c 69 6e 65 64 20  61 74 20 73 74 61 72 74  |utlined at start|
000028d0  20 6f 66 20 70 72 6f 67  2e 0d 11 da 0b f2 65 73  | of prog......es|
000028e0  70 61 63 65 0d 11 e4 0a  f2 6f 70 65 6e 32 0d 11  |pace.....open2..|
000028f0  ee 09 ee 20 85 20 87 0d  11 f8 05 e1 0d 12 02 05  |... . ..........|
00002900  3a 0d 12 0c 0b dd f2 6f  70 65 6e 32 0d 12 16 0e  |:......open2....|
00002910  ee 20 85 20 e5 20 8d 44  5a 40 0d 12 20 2c 24 26  |. . . .DZ@.. ,$&|
00002920  43 30 31 3d 22 53 41 56  45 20 22 2b 79 65 61 72  |C01="SAVE "+year|
00002930  24 2b c3 28 51 25 29 2b  22 20 32 30 30 30 20 2b  |$+.(Q%)+" 2000 +|
00002940  22 2b c3 7e 44 25 0d 12  2a 0a d6 26 46 46 46 37  |"+.~D%..*..&FFF7|
00002950  0d 12 34 15 41 25 3d ae  28 79 65 61 72 24 2b c3  |..4.A%=.(year$+.|
00002960  28 51 25 29 29 0d 12 3e  10 e3 49 25 3d 31 b8 6e  |(Q%))..>..I%=1.n|
00002970  64 61 74 61 25 0d 12 48  0b e3 4a 25 3d 31 b8 37  |data%..H..J%=1.7|
00002980  0d 12 52 19 d5 23 41 25  2c 97 28 c1 73 24 28 49  |..R..#A%,.(.s$(I|
00002990  25 29 2c 4a 25 2c 31 29  29 0d 12 5c 05 ed 0d 12  |%),J%,1))..\....|
000029a0  66 05 ed 0d 12 70 12 cf  23 41 25 3d 66 69 72 73  |f....p..#A%=firs|
000029b0  74 70 74 72 25 0d 12 7a  1b d5 23 41 25 2c 66 69  |tptr%..z..#A%,fi|
000029c0  72 73 74 72 65 63 6f 72  64 25 20 81 20 32 35 36  |rstrecord% . 256|
000029d0  0d 12 84 1b d5 23 41 25  2c 66 69 72 73 74 72 65  |.....#A%,firstre|
000029e0  63 6f 72 64 25 20 83 20  32 35 36 0d 12 8e 0a d5  |cord% . 256.....|
000029f0  23 41 25 2c 44 0d 12 98  0a d5 23 41 25 2c 4d 0d  |#A%,D.....#A%,M.|
00002a00  12 a2 12 d5 23 41 25 2c  28 59 20 81 20 32 35 36  |....#A%,(Y . 256|
00002a10  29 0d 12 ac 12 d5 23 41  25 2c 28 59 20 83 20 32  |).....#A%,(Y . 2|
00002a20  35 36 29 0d 12 b6 0c d5  23 41 25 2c 44 41 59 0d  |56).....#A%,DAY.|
00002a30  12 c0 19 d5 23 41 25 2c  6d 69 6e 72 65 63 6f 72  |....#A%,minrecor|
00002a40  64 25 20 81 20 32 35 36  0d 12 ca 19 d5 23 41 25  |d% . 256.....#A%|
00002a50  2c 6d 69 6e 72 65 63 6f  72 64 25 20 83 20 32 35  |,minrecord% . 25|
00002a60  36 0d 12 d4 0a d5 23 41  25 2c 44 0d 12 de 0a d5  |6.....#A%,D.....|
00002a70  23 41 25 2c 4d 0d 12 e8  12 d5 23 41 25 2c 28 59  |#A%,M.....#A%,(Y|
00002a80  20 81 20 32 35 36 29 0d  12 f2 12 d5 23 41 25 2c  | . 256).....#A%,|
00002a90  28 59 20 83 20 32 35 36  29 0d 12 fc 11 e3 20 49  |(Y . 256)..... I|
00002aa0  25 3d 31 b8 6e 64 61 74  61 25 0d 13 06 0c d5 23  |%=1.ndata%.....#|
00002ab0  41 25 2c 26 46 46 0d 13  10 0c d5 23 41 25 2c 26  |A%,&FF.....#A%,&|
00002ac0  46 46 0d 13 1a 0a d5 23  41 25 2c 30 0d 13 24 0a  |FF.....#A%,0..$.|
00002ad0  d5 23 41 25 2c 30 0d 13  2e 05 ed 0d 13 38 13 cf  |.#A%,0.......8..|
00002ae0  23 41 25 3d 6d 69 6e 72  65 63 6f 72 64 25 0d 13  |#A%=minrecord%..|
00002af0  42 08 43 25 3d 31 0d 13  4c 0a 56 25 3d bc 2b 31  |B.C%=1..L.V%=.+1|
00002b00  0d 13 56 0d f2 74 68 6f  6c 64 28 30 29 0d 13 60  |..V..thold(0)..`|
00002b10  0f 65 6e 64 6f 66 69 6c  65 25 3d a3 0d 13 6a 05  |.endofile%=...j.|
00002b20  f5 0d 13 74 0f f2 61 64  6a 75 73 74 64 61 74 65  |...t..adjustdate|
00002b30  0d 13 7e 16 e7 20 65 6e  64 6f 66 69 6c 65 25 20  |..~.. endofile% |
00002b40  e5 20 8d 74 70 53 0d 13  88 13 e3 20 49 25 3d 31  |. .tpS..... I%=1|
00002b50  b8 6e 64 61 74 61 25 2a  32 0d 13 92 0a d5 23 41  |.ndata%*2.....#A|
00002b60  25 2c 30 0d 13 9c 05 ed  0d 13 a6 1c f1 8a 35 2c  |%,0...........5,|
00002b70  56 25 29 44 3b 22 2f 22  3b 4d 3b 22 2f 22 3b 59  |V%)D;"/";M;"/";Y|
00002b80  3b 22 20 22 0d 13 b0 0f  fd 20 65 6e 64 6f 66 69  |;" "..... endofi|
00002b90  6c 65 25 0d 13 ba 13 e3  20 49 25 3d 31 b8 6e 64  |le%..... I%=1.nd|
00002ba0  61 74 61 25 2a 32 0d 13  c4 0a d5 23 41 25 2c 30  |ata%*2.....#A%,0|
00002bb0  0d 13 ce 05 ed 0d 13 d8  07 d9 23 30 0d 13 e2 0d  |..........#0....|
00002bc0  f2 74 68 6f 6c 64 28 31  29 0d 13 ec 46 f4 20 53  |.thold(1)...F. S|
00002bd0  65 74 20 63 75 72 72 65  6e 74 20 64 69 73 63 20  |et current disc |
00002be0  70 6f 69 6e 74 65 72 20  74 6f 20 70 6f 69 6e 74  |pointer to point|
00002bf0  20 61 74 20 63 75 72 72  65 6e 74 20 64 61 74 61  | at current data|
00002c00  20 70 6f 69 6e 74 20 69  65 20 66 69 72 73 74 0d  | point ie first.|
00002c10  13 f6 17 64 69 73 63 70  74 72 25 3d 6d 69 6e 72  |...discptr%=minr|
00002c20  65 63 6f 72 64 25 0d 14  00 07 d9 23 30 0d 14 0a  |ecord%.....#0...|
00002c30  18 f2 63 68 65 63 6b 5f  61 6e 64 5f 6f 70 65 6e  |..check_and_open|
00002c40  5f 66 69 6c 65 0d 14 14  05 db 0d 14 1e 09 ee 20  |_file.......... |
00002c50  85 20 87 0d 14 28 05 e1  0d 14 32 05 3a 0d 14 3c  |. ...(....2.:..<|
00002c60  0f dd f2 74 68 6f 6c 64  28 42 25 29 0d 14 46 2e  |...thold(B%)..F.|
00002c70  e7 20 42 25 3d 30 3a 74  65 6d 70 64 61 79 3d 44  |. B%=0:tempday=D|
00002c80  41 59 3a 74 65 6d 70 64  3d 44 3a 74 65 6d 70 6d  |AY:tempd=D:tempm|
00002c90  3d 4d 3a 74 65 6d 70 79  3d 59 0d 14 50 2e e7 20  |=M:tempy=Y..P.. |
00002ca0  42 25 3d 31 20 44 41 59  3d 74 65 6d 70 64 61 79  |B%=1 DAY=tempday|
00002cb0  3a 44 3d 74 65 6d 70 64  3a 4d 3d 74 65 6d 70 6d  |:D=tempd:M=tempm|
00002cc0  3a 59 3d 74 65 6d 70 79  0d 14 5a 05 e1 0d 14 64  |:Y=tempy..Z....d|
00002cd0  05 3a 0d 14 6e 0c dd f2  65 73 70 61 63 65 0d 14  |.:..n...espace..|
00002ce0  78 0e ee 20 85 20 e5 20  8d 44 5a 40 0d 14 82 0d  |x.. . . .DZ@....|
00002cf0  f2 74 68 6f 6c 64 28 30  29 0d 14 8c 08 43 25 3d  |.thold(0)....C%=|
00002d00  31 0d 14 96 0f 65 6e 64  6f 66 69 6c 65 25 3d a3  |1....endofile%=.|
00002d10  0d 14 a0 08 44 25 3d 30  0d 14 aa 05 f5 0d 14 b4  |....D%=0........|
00002d20  0f f2 63 68 61 6e 67 65  64 61 74 65 0d 14 be 0b  |..changedate....|
00002d30  44 25 3d 44 25 2b 31 0d  14 c8 0e fd 65 6e 64 6f  |D%=D%+1.....endo|
00002d40  66 69 6c 65 25 0d 14 d2  0d f2 74 68 6f 6c 64 28  |file%.....thold(|
00002d50  31 29 0d 14 dc 16 44 25  3d 32 35 30 2b 44 25 2a  |1)....D%=250+D%*|
00002d60  6e 64 61 74 61 25 2a 32  0d 14 e6 08 58 25 3d 31  |ndata%*2....X%=1|
00002d70  0d 14 f0 09 59 25 3d 26  43 0d 14 fa 09 ee 20 85  |....Y%=&C..... .|
00002d80  20 87 0d 15 04 05 e1 0d  15 0e 05 3a 0d 15 18 09  | ..........:....|
00002d90  dd f2 6b 65 79 0d 15 22  14 f1 27 27 22 50 52 45  |..key.."..''"PRE|
00002da0  53 53 20 41 20 4b 45 59  22 0d 15 2c 0b 2a 46 58  |SS A KEY"..,.*FX|
00002db0  32 31 2c 30 0d 15 36 08  4b 25 3d a5 0d 15 40 05  |21,0..6.K%=...@.|
00002dc0  e1 0d 15 4a 05 3a 0d 15  54 12 dd f2 75 70 64 61  |...J.:..T...upda|
00002dd0  74 65 72 65 63 6f 72 64  0d 15 5e 0e ee 20 85 20  |terecord..^.. . |
00002de0  e5 20 8d 44 5a 40 0d 15  68 11 cf 23 41 25 3d 64  |. .DZ@..h..#A%=d|
00002df0  69 73 63 70 74 72 25 0d  15 72 15 e3 20 70 74 72  |iscptr%..r.. ptr|
00002e00  25 3d 32 b8 6e 64 61 74  61 25 2b 31 0d 15 7c 1c  |%=2.ndata%+1..|.|
00002e10  70 24 28 70 74 72 25 29  3d c1 6d 24 28 70 74 72  |p$(ptr%)=.m$(ptr|
00002e20  25 29 2c 31 30 2c 34 29  0d 15 86 12 70 25 3d bb  |%),10,4)....p%=.|
00002e30  28 70 24 28 70 74 72 25  29 29 0d 15 90 11 d5 23  |(p$(ptr%)).....#|
00002e40  41 25 2c 70 25 20 81 20  31 30 30 0d 15 9a 11 d5  |A%,p% . 100.....|
00002e50  23 41 25 2c 70 25 20 83  20 31 30 30 0d 15 a4 05  |#A%,p% . 100....|
00002e60  ed 0d 15 ae 09 ee 20 85  20 87 0d 15 b8 05 e1 0d  |...... . .......|
00002e70  15 c2 05 3a 0d 15 cc 0b  dd f2 73 63 61 6c 65 0d  |...:......scale.|
00002e80  15 d6 0e ee 20 85 20 e5  20 8d 44 5a 40 0d 15 e0  |.... . . .DZ@...|
00002e90  17 ea 20 6c 6f 6f 70 25  2c 6c 65 6e 25 3a 6c 65  |.. loop%,len%:le|
00002ea0  6e 25 3d 30 0d 15 ea 22  6d 24 28 34 29 3d 22 53  |n%=0..."m$(4)="S|
00002eb0  63 61 6c 65 20 20 20 57  41 49 54 3a 2d 20 53 63  |cale   WAIT:- Sc|
00002ec0  61 6c 69 6e 67 22 0d 15  f4 14 e3 20 6c 6f 6f 70  |aling"..... loop|
00002ed0  25 3d 30 20 b8 20 6d 61  78 25 0d 15 fe 2b e7 20  |%=0 . max%...+. |
00002ee0  a9 28 6d 24 28 6c 6f 6f  70 25 29 29 3e 6c 65 6e  |.(m$(loop%))>len|
00002ef0  25 20 8c 20 6c 65 6e 25  3d a9 28 6d 24 28 6c 6f  |% . len%=.(m$(lo|
00002f00  6f 70 25 29 29 0d 16 08  05 ed 0d 16 12 13 ef 20  |op%)).......... |
00002f10  32 33 2c 31 2c 30 3b 30  3b 30 3b 30 3b 0d 16 1c  |23,1,0;0;0;0;...|
00002f20  0b 2a 46 58 20 34 2c 31  0d 16 26 1f f2 6f 70 65  |.*FX 4,1..&..ope|
00002f30  6e 77 28 77 78 25 2c 77  79 25 2c 6c 65 6e 25 2c  |nw(wx%,wy%,len%,|
00002f40  6d 61 78 25 2b 31 29 0d  16 30 0e 6d 65 6e 75 70  |max%+1)..0.menup|
00002f50  74 72 25 3d 34 0d 16 3a  0b f1 8a 30 2c 30 29 3b  |tr%=4..:...0,0);|
00002f60  0d 16 44 14 e3 20 6c 6f  6f 70 25 3d 30 20 b8 20  |..D.. loop%=0 . |
00002f70  6d 61 78 25 0d 16 4e 34  e7 20 6c 6f 6f 70 25 3d  |max%..N4. loop%=|
00002f80  6d 65 6e 75 70 74 72 25  20 84 20 6c 6f 6f 70 25  |menuptr% . loop%|
00002f90  3d 30 20 fb 20 30 3a fb  20 31 32 39 20 8b 20 fb  |=0 . 0:. 129 . .|
00002fa0  20 31 3a fb 20 31 32 38  0d 16 58 27 f1 6d 24 28  | 1:. 128..X'.m$(|
00002fb0  6c 6f 6f 70 25 29 3b c4  6c 65 6e 25 2d a9 28 6d  |loop%);.len%-.(m|
00002fc0  24 28 6c 6f 6f 70 25 29  29 2c 22 20 22 29 3b 0d  |$(loop%))," ");.|
00002fd0  16 62 05 ed 0d 16 6c 0d  fb 20 31 3a fb 20 31 32  |.b....l.. 1:. 12|
00002fe0  38 0d 16 76 24 f4 20 55  70 64 61 74 65 20 6d 61  |8..v$. Update ma|
00002ff0  78 2c 20 6d 69 6e 20 76  61 6c 75 65 73 20 6f 6e  |x, min values on|
00003000  20 64 69 73 63 0d 16 80  2f e3 20 49 25 3d 31 b8  | disc.../. I%=1.|
00003010  6e 64 61 74 61 25 3a 6f  6d 61 78 25 28 49 25 29  |ndata%:omax%(I%)|
00003020  3d 30 3a 6f 6d 69 6e 25  28 49 25 29 3d 26 46 46  |=0:omin%(I%)=&FF|
00003030  46 46 3a ed 0d 16 8a 13  cf 23 41 25 3d 6d 69 6e  |FF:......#A%=min|
00003040  72 65 63 6f 72 64 25 0d  16 94 05 f5 0d 16 9e 11  |record%.........|
00003050  e3 20 49 25 3d 31 b8 6e  64 61 74 61 25 0d 16 a8  |. I%=1.ndata%...|
00003060  16 5a 25 3d 28 9a 23 41  25 29 2a 31 30 30 2b 9a  |.Z%=(.#A%)*100+.|
00003070  23 41 25 0d 16 b2 11 e7  20 5a 25 3d 30 20 e5 20  |#A%..... Z%=0 . |
00003080  8d 64 50 56 0d 16 bc 1f  e7 20 5a 25 3e 6f 6d 61  |.dPV..... Z%>oma|
00003090  78 25 28 49 25 29 20 6f  6d 61 78 25 28 49 25 29  |x%(I%) omax%(I%)|
000030a0  3d 5a 25 0d 16 c6 1f e7  20 5a 25 3c 6f 6d 69 6e  |=Z%..... Z%<omin|
000030b0  25 28 49 25 29 20 6f 6d  69 6e 25 28 49 25 29 3d  |%(I%) omin%(I%)=|
000030c0  5a 25 0d 16 d0 05 ed 0d  16 da 26 e7 20 8f 23 41  |Z%........&. .#A|
000030d0  25 3e 28 a2 23 41 25 29  2d 6e 64 61 74 61 25 2a  |%>(.#A%)-ndata%*|
000030e0  32 20 8c 20 cf 23 41 25  3d a2 23 41 25 0d 16 e4  |2 . .#A%=.#A%...|
000030f0  13 fd 20 8f 23 41 25 3e  64 69 73 63 70 74 72 25  |.. .#A%>discptr%|
00003100  0d 16 ee 12 cf 23 41 25  3d 66 69 72 73 74 6d 69  |.....#A%=firstmi|
00003110  6e 25 0d 16 f8 11 e3 20  49 25 3d 31 b8 6e 64 61  |n%..... I%=1.nda|
00003120  74 61 25 0d 17 02 18 d5  23 41 25 2c 6f 6d 69 6e  |ta%.....#A%,omin|
00003130  25 28 49 25 29 20 81 20  32 35 36 0d 17 0c 18 d5  |%(I%) . 256.....|
00003140  23 41 25 2c 6f 6d 69 6e  25 28 49 25 29 20 83 20  |#A%,omin%(I%) . |
00003150  32 35 36 0d 17 16 18 d5  23 41 25 2c 6f 6d 61 78  |256.....#A%,omax|
00003160  25 28 49 25 29 20 81 20  32 35 36 0d 17 20 18 d5  |%(I%) . 256.. ..|
00003170  23 41 25 2c 6f 6d 61 78  25 28 49 25 29 20 83 20  |#A%,omax%(I%) . |
00003180  32 35 36 0d 17 2a 05 ed  0d 17 34 0a 2a 46 58 34  |256..*....4.*FX4|
00003190  2c 30 0d 17 3e 20 f2 63  6c 6f 73 65 77 28 77 78  |,0..> .closew(wx|
000031a0  25 2c 77 79 25 2c 6c 65  6e 25 2c 6d 61 78 25 2b  |%,wy%,len%,max%+|
000031b0  31 29 0d 17 48 09 ee 20  85 20 87 0d 17 52 05 e1  |1)..H.. . ...R..|
000031c0  0d 17 5c 05 3a 0d 17 66  0b dd a4 64 72 69 76 65  |..\.:..f...drive|
000031d0  0d 17 70 0c 62 25 3d 26  31 36 30 30 0d 17 7a 0f  |..p.b%=&1600..z.|
000031e0  58 25 3d 62 25 20 83 20  32 35 36 0d 17 84 0f 59  |X%=b% . 256....Y|
000031f0  25 3d 62 25 20 81 20 32  35 36 0d 17 8e 08 41 25  |%=b% . 256....A%|
00003200  3d 36 0d 17 98 0d e3 20  49 25 3d 30 b8 31 31 0d  |=6..... I%=0.11.|
00003210  17 a2 0b 62 25 3f 49 25  3d 30 0d 17 ac 05 ed 0d  |...b%?I%=0......|
00003220  17 b6 0c 62 25 3f 32 3d  26 31 36 0d 17 c0 0a 62  |...b%?2=&16....b|
00003230  25 3f 31 3d 31 0d 17 ca  0b 62 25 3f 31 32 3d 31  |%?1=1....b%?12=1|
00003240  0d 17 d4 0a d6 26 46 46  44 31 0d 17 de 0e 3d 3f  |.....&FFD1....=?|
00003250  26 31 36 30 32 2d 34 38  0d 17 e8 05 3a 0d 17 f2  |&1602-48....:...|
00003260  0c dd f2 73 79 73 74 65  6d 0d 17 fc 05 f5 0d 18  |...system.......|
00003270  06 0b 2a 46 58 32 31 2c  30 0d 18 10 13 41 25 3d  |..*FX21,0....A%=|
00003280  ad 28 22 3a 30 2e 4d 41  49 4e 22 29 0d 18 1a 07  |.(":0.MAIN")....|
00003290  d9 23 30 0d 18 24 58 e7  20 41 25 3d 30 20 db 3a  |.#0..$X. A%=0 .:|
000032a0  f1 8a 30 2c 31 30 29 22  49 6e 73 65 72 74 20 53  |..0,10)"Insert S|
000032b0  79 73 74 65 6d 20 44 69  73 63 20 69 6e 20 64 72  |ystem Disc in dr|
000032c0  69 76 65 20 30 22 27 27  22 61 6e 64 20 70 72 65  |ive 0"''"and pre|
000032d0  73 73 20 61 6e 79 20 6b  65 79 20 74 6f 20 63 6f  |ss any key to co|
000032e0  6e 74 69 6e 75 65 22 3a  f5 fd a5 0d 18 2e 0b fd  |ntinue":........|
000032f0  20 41 25 3c 3e 30 0d 18  38 05 e1 0d ff           | A%<>0..8....|
000032fd

18-11-88/ENTRY.m0

18-11-88/ENTRY.m1

18-11-88/ENTRY.m2

18-11-88/ENTRY.m4

18-11-88/ENTRY.m5

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .