Basic calculator!

 BBS: Inland Empire Archive
Date: 04-03-93 (17:22)             Number: 375
From: MICHEL BERTLER               Refer#: NONE
  To: GEOFFREY LIU                  Recvd: NO  
Subj: Basic calculator!              Conf: (2) Quik_Bas

Hello Geoffrey!

I've found this old but still working basic calculator with arithmetic,
trig and log operation. Here it is in a Postit script:
------
CLS:?STRING$(50,178):DEFINT A-Z 'Created by PostIt! v5.1
Y$="*+,-./":FOR A=0 TO 6:P(A)=2^A:NEXT:OPEN "B",1,"RPN.ARJ
T$="abcdefghijklmnopqrstuvwxyz":T$=T$+UCASE$(T$)+"0123456789()
G"GP(ja4bbb*eaiaRSg5GA///+ifuo5sqsPe*qpgiee+M6Na
G"Ghee*qe*SgZDdQHue+kQ+S9pqWk+c+Guq5Klcf0u+(f8en*WaTU2Mvxdj
G"Z9bzC7PW(VHzBBLQayH2OKSEIY6BwaApQeUMFvJiqLQsYZVC))VhguBN2St0Dn5MgQjnCN
G"hHtZuhVPpa3TrGmeXWQIZjwcw00KRPd(Z1OlSAMGbm86mhy9IVyVsAcsDvWy87Z8yPRM0G
G"doaVHGTkMk5Cmf5BT6e(xS5qSF78Q7iE0EefW8efY2ri9L4giJ0YxqOwPj0yIDHqqq79Ql
G"4yei9Y5eDBSxKEuIfPXCVRS5nWnIEzPkG7eFa0bYJeMDbvOFJTGylHtqG8e2VPpibrr1dI
G"ogIe5mhw1qziPe7coqBjtukdI1)CMR6mDLX2gDxuD(oq(gI9S42ugLgZszZBJyO(i5Tb0p
G"SWiz6KTmdMOViOip2D70xql(yJqk(Bm6XBr(6VQKUSye)C2(HFv5IwgVnF2VW4KfJolOsa
G"CrJMWnPv4v(H4gdobncjDMwtBViSYE7MC3Kvd54Sj1xKM)(2ptSG(oLzyomnGSmfsWqMto
G"mDGybJGzoENas8yw3W8ebsDyS8o0VrBICtH5sjwcpZBuVMMd3wAZ8H3KrFsH0hL3gW(SoE
G"EXwm12h7w8I1ZEfnwrBO7uicdKbbmGEfCZ3kCVG7XzGpg4YKmh020EOQIoa2ujg6xDiTcV
G"pLiJXb4tJ2efcvjdB1JYYaJGM1IQKfy)AUzD6kT9TfXYGujQTyMMc74XIkD2P925wu2wEB
G"2Nxm)GO75omw8Wlv46genrr)52mpqrj4eQ9rCM5GWJw5)paTtJHKwe64PvuQ0DrQqJ7DcL
G"GPkYWWK0GpPsAThDhaCHBc8nvEX0Z08RyDXYgQJDbySpgbc3ebdfuRZe8d1f6aCdDpQLIu
G"4Du2Qo0YHDM4sMxDu4neW1NR2QN2QFwQSYOHg97U4ZgoYqAOkL0uc8sEalhHJnDtB6IT)V
G"uPhlFCfp(Cpd4OYN39RHvYLX5HLiY1z3xOSjc7juIPsHoMHfQSAJHy)mfUhcbrLPlI4PBi
G"NtAcHI5sTjcCY0w(sQVW7qDGXaFb4cNlTY8NWlrYstWRaFrJaSLxGRKufmh3lCakcx)v3s
G"w4B4D4kC6tCPJeNwAFP)N4mIsChPBhPeI6EuBqVt1hNcEpHCEaEFzUCg7KP9n91O3GWr1g
G"pGmAytv44gtpSRrXb9k1B8dYOLncH)639pJDQ3GBGonFgU5Xbn8wj)48n4gvxusqUXxHhp
G"umhEXjKRs7bHLAk8O9v4sBHTxXrA3xuR0IL1AD0DwrYAnVAoZUjzPwmIlV7lhnaGAouKAx
G"YGbh1jlv3FIWii(YPB0G3tuQt46KKS7rafDygv5rcHvxAL4rrQ56(EZpR8JKqhkB5(G6Kx
G"azLuvwt6FuOP70mo4yRYL3XuHpinO0u46Ifpb0)XC4ARlBqEJUtJa3K2Q5427)72HKnOmK
G"yzDGs3tkKVHXV7ls3P2q3Y(HwJ0DQouUSFi1OmM(nvQdVlRhcnKuxYQ956pk)OF)*M6*
G"a"
N=1208:K=255:IF LEN(C$)<>1611 THEN ?"Incomplete script!":END
FOR A=1 TO N:LOCATE 1:?STRING$(50/N*A,177):IF L=0 THEN GOSUB G:L=6
W=T\P(6-L):GOSUB G:W=W OR T*P(L):L=L-2:B$=CHR$(W AND K):PUT 1,,B$:NEXT
?:IF C=234 THEN ?"Ok":END ELSE ?"Bad checksum!":END
G:I=I+1:T=INSTR(T$,MID$(C$,I,1))-1:C=(C+T)*2:C=C\256+(C AND 255):RETURN
SUB G(A$):SHARED C$,Y$:FOR Q=1 TO 6:DO:S=INSTR(A$,CHR$(Q+41))
IF S THEN A$=LEFT$(A$,S-1)+STRING$(Q+1,97)+MID$(A$,S+1)
LOOP WHILE S:NEXT:C$=C$+A$:END SUB
------
Example: To solve 8/2 you enter:

8 <CR>
2

(The operation must always be entered at last)
The final result will reside in the first stack while the second,
third and fourth are used for shifting values <cr> upward or <d>
downward. So, entering 8 <cr> followed by 2 will make the display
look as follows:


    use <CR> for enter
     *   for multiplication
     /   for division
     Q   for square root                                0.00000000000
     S   for sine                                       0.00000000000
     C   for cosine                                     0.00000000000
     T   for tangent                                    8.00000000000
     E   for e to the x
     N   for log(e) x                            2
     L   for log(10) x
     D   to delete entry
   <Esc> to end program


and pressing /


          50 <=== This number appearing at the bottom/left corner
                  of the screen is the scan code of any key beeing
                  pressed.

    use <CR> for enter
     *   for multiplication
     /   for division
     Q   for square root                                0.00000000000
     S   for sine                                       0.00000000000
     C   for cosine                                     0.00000000000
     T   for tangent                                    4.00000000000
     E   for e to the x                          ö
     N   for log(e) x
     L   for log(10) x
     D   to delete entry
   <Esc> to end program

  Michel

--- GoldED
 * Origin: Blainville, Quebec (1:242/130)