home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / bus / calcu.ba < prev    next >
Text File  |  2006-10-19  |  750b  |  13 lines
  1. 0 'CALCU.BA author unknown
  2. 1 'CLUB 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
  3. 2 'THIS IS A SIMPLE CALCULATOR - ADVANTAGE - SMALL MEMORY REQUIREMENT
  4. 18 CLS:G$="##,###,###.##":PRINT"Number +-/x*="
  5. 19 K$=INKEY$:IFK$=""THEN19ELSEIFINSTR("QqEeSsMm",K$)THENMENU
  6. 20 A$=A$+K$:IFINSTR("+-/*xX=",K$)ORK$=CHR$(13)THEN21ELSEPRINT@40,A$:GOTO19
  7. 21 IFK$="="THENA$="":T=0:C=1:GOTO19
  8. 22 IFC=1THENC=0:IFA$=CHR$(13)THENA=TP:TP=0:GOSUB28ELSETP=0
  9. 23 IFA$=CHR$(13)THEN24ELSEA=VAL(A$)
  10. 24 IFK$="-"THENT=T-AELSEIFK$="/"THENT=T/AELSEIFK$="X"ORK$="*"ORK$="x"THENT=T*AELSEK$="+":T=T+A
  11. 25 GOSUB28:PRINT@40,SPACE$(39):TP=T:A$="":GOTO19
  12. 28 PRINT@85,USINGG$;TP:PRINT@122,K$:PRINT@125,USINGG$;A:PRINTSTRING$(38,"-"):PRINT@205,USINGG$;T:RETURN
  13.