0 'HISTPT.BA - By Tom Bennet at Polar Engineering and Consulting 1 'Club 100 Library - 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE 20 LOADM"HISTML":MAXFILES=1:DEFINTA-Z:HI!=PEEK(64206)+PEEK(64207)*256:CP=PEEK(HI!+3)+(PEEK(HI!+4)-256)*256:SCREEN0 30 PRINTCHR$(27)"V[P]lot on LCD, [S]tats in HISTO%.DO>";:C$=INPUT$(1):PRINTC$ 40 IFC$="P"ORC$="p"THENELSEIFC$="S"ORC$="s"THEN200ELSEMENU 50 CLS:B=46:CL$=CHR$(27)+"K":RV$=CHR$(27)+"p":NM$=CHR$(27)+"q" 60 GOSUB230:PRINT@280,CL$"Max:0-"MID$(STR$(ML*CM),2);:PRINTUSING"###.#%";MC!/TC!*100:IFML*CM<100THENSC=1ELSESC=CM*10 70 S0=SC*10:LL!=0:PRINT@299,CL$;:INPUT"[0]Low";LL!:LL=LL!/CM:LL!=LL*CM:IFLL<0ORLL>=MLTHEN70 80 HL!=ML*CM%:PRINT@299,CL$"["MID$(STR$(HL!),2)"]";:INPUT"High";HL!:HL=HL!/CM:HL!=HL*CM:IFHL<=LLORHL>MLTHEN80 90 HP!=MC!/TC!*100:PRINT@299,CL$;:PRINTUSING"[###.#%]";HP!;:INPUT"High %";HP!:HC!=TC!*HP!/100:IFHP!<1ORHP!>100THEN90 100 PRINT@0,SPACE$(240):LINE(0,B+2)-(239,B+8),1,BF:PRINT@299,CL$"Cur:"MID$(STR$(LL*CM),2)"-"MID$(STR$(HL*CM),2); 110 PRINTUSING"###.#%";HP!:P=CP+9+LL*2:FORI=LLTOHL:C!=PEEK(P)+PEEK(P+1)*256:P=P+2:X=(I-LL)/(HL-LL)*237+1.5:Y=C!/HC!*B+.5 120 IFY<=BANDC!<65535THENLINE(X,B)-(X,B-Y)ELSELINE(X-1,1)-(X+1,1):LINE(X,B)-(X,0) 130 NEXT:FORI=(LL!+SC-1)/SCTOHL!/SC:X=(INT(I*SC/CM)-LL)/(HL-LL)*237+1.5:LINE(X,B+2)-(X,B+2+(I+4)MOD5),0:NEXT:LINE(0,B)-(239,B) 140 IFINT((LL!+S0-1)/S0)<=INT(HL!/S0)THENFORI=(LL!+S0-1)/S0TOHL!/S0:PRINT@240+(INT(I*S0/CM)-LL)/(HL-LL)*39,RV$CHR$(I+48)NM$:NEXT 150 LINE(0,B+9)-(239,B+9),0:PRINT@0,">";:C$=INPUT$(1):PRINTC$;:IFC$="Q"ORC$="q"ORC$="M"ORC$="m"THENMENU 160 IFC$<>"Z"ANDC$<>"z"THEN60 170 PRINT@299,CL$;:L!=-1:INPUT"[none]Low";L!:L=L!/CM:IFL<0ORL>MLTHEN60 180 H!=L*CM:PRINT@299,CL$"["MID$(STR$(H!),2)"]";:INPUT"High";H!:H=H!/CM:IFHMLTHEN180 190 FORI=LTOH+1:POKECP+9+I*2,0:NEXT:GOTO60 200 GOSUB230:OPEN"HIST%"FOROUTPUTAS1:P=CP+9:FORI=0TOML:C!=PEEK(P)+PEEK(P+1)*256:P=P+2 210 IFC!>0THENPRINT#1,USING"##### ###.#%";I*CM,C!/TC!*100 220 NEXT:CLOSE:MENU 230 CALLHI!,1:ML=PEEK(CP)+PEEK(CP+1)*256:MC!=PEEK(CP+2)+PEEK(CP+3)*256:TC!=0:FORI=CP+7TOCP+4STEP-1:TC!=TC!*256+PEEK(I):NEXT 240 CM=10^PEEK(CP+8):RETURN