home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / bus / calcul.200 < prev    next >
Text File  |  2006-10-19  |  3KB  |  41 lines
  1. 0 'CALCUL.BA - Author Unknown              Modified for T200 by Steve St.laurent
  2. 1 'Club 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
  3. 2 CLS
  4. 3 PRINT@50,"Want instructions";:INPUTI$:IFI$="Y"ORI$="y"THEN36
  5. 4 IFI$="N"ORI$="n"THEN6
  6. 5 GOTO3
  7. 6 CLS:PRINT@51,"CALCULATOR PROGRAM
  8. 7 PRINT@200,;:INPUT"ENTER NUMBER DECIMAL PLACES ( 0-5)";D%:IFD%<0ORD%>5THEN7
  9. 8 CLS:G$="###,###,###."+STRING$(D%,"#")
  10. 9 A$=INKEY$:IFA$=""THEN9
  11. 10 IFASC(A$)=30ANDRE=1THENM=Y:A$="":M1=1:PRINT@0,"MEM";:PRINTTAB(2)USINGG$;M:PRINT@X,;:GOTO9
  12. 11 IFASC(A$)=31ANDM1=1ANDB$=""THENA$="":B$=STR$(M):MC=1:IFRE=1ANDX<600THENX=X+40:RE=0:Y=0:GOTO25:ELSEIFRE=1THENPRINT:Y=0:RE=0:GOTO25:ELSE25
  13. 12 IFA$="D"ANDMC=1ORA$="d"ANDMC=1THENB$="":A$="":PRINT@X,SPACE$(39);:M=0:M1=0:PRINT@0,SPACE$(20):PRINT@X,;:GOTO9:ELSEIFA$="D"ORA$="d"THENB$="":A$="":PRINT@X,SPACE$(39);:GOTO9
  14. 13 IFA$="A"ANDB$=""ANDRE=1ORA$="a"ANDB$=""ANDRE=1THENRE=0:A$="+":B$=STR$(Y):Y=0:IFX<600THENX=X+40:GOTO26:ELSEPRINT:GOTO26
  15. 14 IFRE=1THENRE=0:Y=0:IFX<600THENX=X+40:ELSEPRINT
  16. 15 IFM1=1ANDB$=""THENPRINT@0,"MEM";:PRINTTAB(2)USINGG$;M:PRINT@X,;
  17. 16 IFA$="."THEN24
  18. 17 IFB$=""ANDA$=CHR$(13)THENA$="":GOTO32
  19. 18 IFA$="*"THENA$="X":GOTO26
  20. 19 IFA$="+"THENA$="+":GOTO26
  21. 20 IFA$="/"ANDB$="0"THENA$="D":GOTO12:ELSEIFA$="/"THEN26
  22. 22 IFA$="-"THENA$="-":GOTO26
  23. 23 IFA$="0"ORVAL(A$)*1=>1THEN24:ELSEA$="":GOTO9
  24. 24 B$=B$+A$:A$=""
  25. 25 PRINT@X,;:PRINTTAB(5)B$;:GOTO9
  26. 26 PRINT@X,;:PRINTTAB(20)USINGG$;VAL(B$);:PRINTA$;:IFA$="+"THENY=Y+VAL(B$)
  27. 27 IFA$="X"THENY=Y*VAL(B$)
  28. 28 IFA$="/"THENY=Y/VAL(B$)
  29. 29 IFA$="-"THENY=Y-VAL(B$)
  30. 30 IFASC(A$)=152ANDY<0THENA$="D":GOTO12:ELSEIFASC(A$)=152THENY=Y^VAL(B$)
  31. 31 MC=0:B$="":A$="":GOTO34
  32. 32 PRINT@X,;:PRINTTAB(20)STRING$(18,"-");:IFX<600THENX=X+40:ELSEPRINT
  33. 33 PRINT@X,;:PRINTTAB(20)USINGG$;Y;:RE=1
  34. 34 IFX<600THENX=X+40:ELSEPRINT
  35. 35 IFM1=1THENPRINT@0,"MEM";:PRINTTAB(2)USINGG$;M:PRINT@X,;:GOTO9:ELSE9
  36. 36 CLS:FORY=1TO15:READZ$:IFZ$="END"THENPRINT@610,"<ENTER> to continue";:LINEINPUTX$:RUN
  37. 37 PRINTZ$:NEXTY:PRINT@610,"<ENTER> to continue";:LINEINPUTX$:GOTO36:DATA "Be sure to press Num Lock":DATA "":DATA "MATHEMATICAL OPERATORS":DATA " 0  serves as the addition enter key":DATA "    and also re-enters a total in the":DATA "    next column"
  38. 38 DATA " P  serves as the subtraction enter":DATA "    key":DATA " ;  serves as the multiplication enter":DATA "    key":DATA " /  serves as the division enter key":DATA " Enter  serves as the total enter key":DATA "FUNCTIONAL OPERATORS"
  39. 39 DATA " D  serves to delete a figure before it":DATA "    is entered and also to clear the":DATA "    memory":DATA "":DATA "MEMORY OPERATORS":DATA " UP ARROW   places a total into memory"
  40. 40 DATA " DOWN ARROW retrieves a figure from":DATA "            memory":DATA "":DATA "PROGRAM TERMINATION with SHIFT BREAK":DATA "END"
  41.