home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / bus / hpcalc.ba < prev    next >
Text File  |  2006-10-19  |  5KB  |  85 lines
  1. 0 'hpCALC (c) 1987 Scott Schad--REGISTER FOR $10: 3943 S. Delaware Pl., Tulsa, OK 74105  CLUB 100 Library - 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE
  2. 1 CLEAR1000:SCREEN0,0:CLS:KEYON:ONERRORGOTO83:LX$="0":X$(1)="0":X$(2)="0":X$(3)="0":X$(4)="0":K6=57.29577951308232:ONKEYGOSUB31,41,51,61,71,72,73,74:K$(1)="1/x  x^2  "+CHR$(137)+"x   y^x":E$=CHR$(27)+"p":F$=CHR$(27)+"q
  3. 2 R$(1)=CHR$(240)+STRING$(6,CHR$(241))+E$+" hpCALC "+F$+STRING$(6,CHR$(241))+CHR$(242):K$(2)="log  10^x ln   e^x":R$(3)=CHR$(245)+STRING$(20," ")+E$+"x"+F$:K$(3)="sin  cos  tan   "+CHR$(136)+" ":R$(2)=CHR$(244)+STRING$(20,CHR$(241))+CHR$(249)
  4. 3 K$(4)="asin acos atan fix":R$(4)=CHR$(245)+STRING$(20," ")+E$+"y"+F$:K$(5)="r"+CHR$(154)+"p  p"+CHR$(154)+"r  int  frc":JF=1:FX=5:R$(5)=CHR$(245)+STRING$(20," ")+E$+"z"+F$:K$(6)="lstx DEG  rad  del":R$(6)=CHR$(245)+STRING$(20," ")+E$+"t"+F$
  5. 4 K$(7)="rol"+CHR$(152)+" clrg sto  rcl":R$(7)=CHR$(246)+STRING$(20,CHR$(241))+CHR$(247):K$(8)="rol"+CHR$(153)+" swap clx  chs":R$(8)=" +    -    *    / ":FORI=0TO7:IFI<7THENPRINT@I*40,K$(I+1);:GOTO6
  6. 5 PRINT@I*40,E$+K$(I+1)+F$;
  7. 6 IFI<7THENPRINT@I*40+18,R$(I+1);:GOTO8
  8. 7 PRINT@I*40+20,E$+R$(I+1)+F$;
  9. 8 PRINT@I*40+18,H$(I+1);:NEXTI:P=7:NP=7:GOSUB75
  10. 9 ER=0:PRINT@99,X$(1):I$=INKEY$:IFI$=""THEN9
  11. 10 IFI$="c"THENP1=P:P=7:GOSUB51:P=P1:GOTO9
  12. 11 IFI$="C"THENP1=P:P=6:GOSUB42:P=P1:GOTO9
  13. 12 IFI$="D"ORI$="d"THENP1=P:P=5:GOSUB63:P=P1:GOTO9
  14. 13 IFI$="S"ORI$="s"THENP1=P:P=7:GOSUB41:P=P1:GOTO9
  15. 14 IFI$="r"THENP1=P:P=7:GOSUB32:P=P1:GOTO9
  16. 15 IFI$="R"THENP1=P:P=6:GOSUB33:P=P1:GOTO9
  17. 16 J=ASC(I$):IFJ<32THEN23
  18. 17 K=INSTR(1,"-0123456789.Ee",I$):IFK>0ANDJF=1THENGOSUB79:X$(1)="
  19. 18 IFK=0THEN22
  20. 19 IFK>0ANDX$(1)="0"ORKANDX$(1)=""ORK>0ANDCR=1THENX$(1)=I$:CR=0:GOSUB75:GOTO22
  21. 20 IFI$="-"ANDVAL(X$(1))=0THENCR=1:GOTO22
  22. 21 IFK>0THENX$(1)=X$(1)+I$:PRINT@99,X$(1)
  23. 22 JF=0:GOTO9
  24. 23 IFJ=27THENMENU
  25. 24 L=LEN(X$(1)):IFL>0ANDJ=8THENX$(1)=LEFT$(X$(1),L-1):GOSUB75:GOTO9
  26. 25 IFLEN(X$(1))=0THENX$(1)="0":GOSUB75:GOTO9
  27. 26 IFJ=13THENGOSUB79:X$(1)=X$(2):GOSUB75:CR=1:GOTO9
  28. 27 IFJ=30THENNP=P-1:IFNP<0THENNP=7
  29. 28 IFJ=31THENNP=P+1:IFNP>7THENNP=0
  30. 29 IFNP<>PTHENPRINT@P*40,K$(P+1);
  31. 30 PRINT@NP*40,E$+K$(NP+1)+F$;:P=NP:GOTO9
  32. 31 IFP<>5THENLX$=X$(1)
  33. 32 IFP=7THENLX$=X$(1):X$(1)=X$(2):X$(2)=X$(3):X$(3)=X$(4):X$(4)=LX$:JF=1:CR=1:GOSUB75:RETURN
  34. 33 IFP=6THENLX$=X$(1):X$(1)=X$(4):X$(4)=X$(3):X$(3)=X$(2):X$(2)=LX$:JF=1:CR=1:GOSUB75:RETURN
  35. 34 IFP=5THENGOSUB79:X$(1)=LX$:JF=1:GOSUB75:RETURN
  36. 35 IFP<>4THEN37
  37. 36 R=SQR(VAL(X$(1))^2+VAL(X$(2))^2):RA=(ATN(VAL(X$(2))/VAL(X$(1)))*K6):X$(1)=STR$(R):X$(2)=STR$(RA):JF=1:GOSUB75:RETURN
  38. 37 IFP=3THENGOSUB82:JF=1:GOSUB75:RETURN
  39. 38 IFP=2THENX$(1)=STR$(SIN(VAL(X$(1))/K6)):JF=1:GOSUB75:RETURN
  40. 39 IFP=1THENX$(1)=STR$(LOG(VAL(X$(1)))*.4342945):JF=1:GOSUB75:RETURN
  41. 40 IFP=0THENJF=1:X$(1)=STR$(1/VAL(X$(1))):GOSUB75:RETURN
  42. 41 LX$=X$(1):IFP=7THENX$(1)=X$(2):X$(2)=LX$:JF=1:CR=1:GOSUB75:RETURN
  43. 42 IFP=6THENX$(1)="0":X$(2)="0":X$(3)="0":X$(4)="0":ST$="0":JF=1:CR=1:GOSUB75:RETURN
  44. 43 IFP=5THENK6=57.29577951308232:GOSUB80:RETURN
  45. 44 IFP<>4THEN46
  46. 45 Y=VAL(X$(1))*(SIN(VAL(X$(2))/K6)):X=VAL(X$(1))*(COS(VAL(X$(2))/K6)):X$(1)=STR$(X):X$(2)=STR$(Y):JF=1:GOSUB75:RETURN
  47. 46 IFP<>3THEN48
  48. 47 GOSUB82:JF=1:X$(1)=STR$(K6*(3.1415926535898/2)-(VAL(X$(1)))):GOSUB75:RETURN
  49. 48 IFP=2THENX$(1)=STR$(COS(VAL(X$(1))/K6)):JF=1:GOSUB75:RETURN
  50. 49 IFP=1THENX$(1)=STR$(10^VAL(X$(1))):JF=1:GOSUB75:RETURN
  51. 50 IFP=0THENX$(1)=STR$(VAL(X$(1))^2):JF=1:GOSUB75:RETURN
  52. 51 LX$=X$(1):IFP=7THENX$(1)="0":JF=1:CR=1:GOSUB75:RETURN
  53. 52 IFP=6THENJF=1:ST$=X$(1):GOSUB75:RETURN
  54. 53 IFP=5THENK6=1:GOSUB80:RETURN
  55. 54 IFP<>4THEN57
  56. 55 IFINSTR(1,X$(1),".")=0THENRETURN
  57. 56 DP=INSTR(1,X$(1),"."):X$(1)=LEFT$(X$(1),DP):JF=1:GOSUB75:RETURN
  58. 57 IFP=3THENX$(1)=STR$(ATN(VAL(X$(1)))*K6):JF=1:GOSUB75:RETURN
  59. 58 IFP=2THENX$(1)=STR$(TAN(VAL(X$(1))/K6)):JF=1:GOSUB75:RETURN
  60. 59 IFP=1THENX$(1)=STR$(LOG(VAL(X$(1)))):JF=1:GOSUB75:RETURN
  61. 60 IFP=0THENX$(1)=STR$(SQR(VAL(X$(1)))):JF=1:GOSUB75:RETURN
  62. 61 LX$=X$(1):IFP=7THENX$(1)=STR$(-VAL(X$(1))):GOSUB75:RETURN
  63. 62 IFP=6THENGOSUB79:JF=1:X$(1)=ST$:GOSUB75:RETURN
  64. 63 IFP=5THENX$(1)=X$(2):GOSUB78:GOSUB75:JF=1:RETURN
  65. 64 IFP<>4THEN67
  66. 65 IFINSTR(1,X$(1),".")=0THENRETURN
  67. 66 DP=LEN(X$(1))-INSTR(1,X$(1),"."):X$(1)=RIGHT$(X$(1),DP+1):JF=1:GOSUB75:RETURN
  68. 67 IFP=3THENFX=INT(VAL(X$(1))):IFFX<0ORFX>14THENFX=5:RETURNELSEX$(1)=X$(2):GOSUB78:GOSUB75:JF=1:RETURN
  69. 68 IFP=2THENJF=1:GOSUB79:X$(1)="3.1415926535898":GOSUB75:RETURN
  70. 69 IFP=1THENX$(1)=STR$(2.7182818284590^VAL(X$(1))):JF=1:GOSUB75:RETURN
  71. 70 IFP=0THENJF=1:X$(1)=STR$(VAL(X$(2))^VAL(X$(1))):GOSUB78:GOSUB75:RETURN
  72. 71 LX$=X$(1):JF=1:X$(1)=STR$(VAL(X$(2))+VAL(X$(1))):GOSUB78:GOTO75
  73. 72 LX$=X$(1):JF=1:X$(1)=STR$(VAL(X$(2))-VAL(X$(1))):GOSUB78:GOTO75
  74. 73 LX$=X$(1):JF=1:X$(1)=STR$(VAL(X$(2))*VAL(X$(1))):GOSUB78:GOTO75
  75. 74 LX$=X$(1):JF=1:X$(1)=STR$(VAL(X$(2))/VAL(X$(1))):GOSUB78:GOTO75
  76. 75 PV=VAL("0."+STRING$(FX,"0")+"5"):BA=VAL("1"+STRING$(FX,"0")):FORI=1TO4:PRINT@(I+1)*40+19,STRING$(20," "):IFX$(I)="-"ORX$(I)="."THEN77
  77. 76 XX=VAL(X$(I)):XX=FIX((XX+PV*SGN(XX))*BA)/BA:X$(I)=STR$(XX)
  78. 77 PRINT@(I+1)*40+19,X$(I):NEXTI:IFER=1THENER=0:RETURNELSERETURN
  79. 78 IFER=1THENER=0:RETURNELSEX$(2)=X$(3):X$(3)=X$(4):RETURN
  80. 79 IFER=1THENER=0:RETURNELSEX$(4)=X$(3):X$(3)=X$(2):X$(2)=X$(1):RETURN
  81. 80 IFK6=1THENK$(6)="lstx deg  RAD  del"ELSEK$(6)="lstx DEG  rad  del
  82. 81 PRINT@5*40,E$+K$(6)+F$:RETURN
  83. 82 X$(1)=STR$(2*ATN(VAL(X$(1))/(1+SQR(ABS(1-VAL(X$(1))^2))))*K6):RETURN
  84. 83 BEEP:PRINT@99,"ERROR":ER=1:RESUMENEXT
  85.