0 'CALCUL.BA - Author Unknown 1 'Club 100 Library - 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE 2 CLS 3 PRINT@50,"Want instructions";:INPUTI$:IFI$="Y"ORI$="y"THEN36 4 IFI$="N"ORI$="n"THEN6 5 GOTO3 6 CLS:PRINT@51,"CALCULATOR PROGRAM 7 PRINT@200,;:INPUT"ENTER NUMBER DECIMAL PLACES ( 0-5)";D%:IFD%<0ORD%>5THEN7 8 CLS:G$="###,###,###."+STRING$(D%,"#") 9 A$=INKEY$:IFA$=""THEN9 10 IFASC(A$)=30ANDRE=1THENM=Y:A$="":M1=1:PRINT@0,"MEM";:PRINTTAB(2)USINGG$;M:PRINT@X,;:GOTO9 11 IFASC(A$)=31ANDM1=1ANDB$=""THENA$="":B$=STR$(M):MC=1:IFRE=1ANDX<280THENX=X+40:RE=0:Y=0:GOTO25:ELSEIFRE=1THENPRINT:Y=0:RE=0:GOTO25:ELSE25 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 13 IFA$="A"ANDB$=""ANDRE=1ORA$="a"ANDB$=""ANDRE=1THENRE=0:A$="+":B$=STR$(Y):Y=0:IFX<280THENX=X+40:GOTO26:ELSEPRINT:GOTO26 14 IFRE=1THENRE=0:Y=0:IFX<280THENX=X+40:ELSEPRINT 15 IFM1=1ANDB$=""THENPRINT@0,"MEM";:PRINTTAB(2)USINGG$;M:PRINT@X,; 16 IFA$="."THEN24 17 IFB$=""ANDA$="T"ORB$=""ANDA$="t"THENA$="":GOTO32 18 IFA$="X"ORA$="x"THENA$="X":GOTO26 19 IFA$="A"ORA$="a"THENA$="+":GOTO26 20 IFA$="/"ANDB$="0"THENA$="D":GOTO12:ELSEIFA$="/"THEN26 21 IFA$="P"ORA$="p"THENA$=CHR$(152):GOTO26 22 IFA$="S"ORA$="s"THENA$="-":GOTO26 23 IFA$="0"ORVAL(A$)*1=>1THEN24:ELSEA$="":GOTO9 24 B$=B$+A$:A$="" 25 PRINT@X,;:PRINTTAB(5)B$;:GOTO9 26 PRINT@X,;:PRINTTAB(20)USINGG$;VAL(B$);:PRINTA$;:IFA$="+"THENY=Y+VAL(B$) 27 IFA$="X"THENY=Y*VAL(B$) 28 IFA$="/"THENY=Y/VAL(B$) 29 IFA$="-"THENY=Y-VAL(B$) 30 IFASC(A$)=152ANDY<0THENA$="D":GOTO12:ELSEIFASC(A$)=152THENY=Y^VAL(B$) 31 MC=0:B$="":A$="":GOTO34 32 PRINT@X,;:PRINTTAB(20)STRING$(18,"-");:IFX<280THENX=X+40:ELSEPRINT 33 PRINT@X,;:PRINTTAB(20)USINGG$;Y;:RE=1 34 IFX<280THENX=X+40:ELSEPRINT 35 IFM1=1THENPRINT@0,"MEM";:PRINTTAB(2)USINGG$;M:PRINT@X,;:GOTO9:ELSE9 36 CLS:FORY=1TO7:READZ$:IFZ$="END"THENPRINT@290," to continue";:LINEINPUTX$:RUN 37 PRINTZ$:NEXTY:PRINT@290," to continue";:LINEINPUTX$:GOTO36:DATA "MATHEMATICAL OPERATORS":DATA " A serves as the addition enter key":DATA " and also re-enters a total in the":DATA " next column 38 DATA " S serves as the subtraction enter":DATA " key":DATA " X serves as the multiplication enter":DATA " key":DATA " / serves as the division enter key":DATA " P serves as the total enter key":DATA "":DATA "FUNCTIONAL OPERATORS" 39 DATA " D serves to delete a figure before it":DATA " is entered and also to clear the":DATA " memory":DATA " T serves as the total key":DATA "":DATA "MEMORY OPERATORS":DATA " UP ARROW places a total into memory" 40 DATA " DOWN ARROW retrieves a figure from":DATA " memory":DATA "":DATA "PROGRAM TERMINATION with SHIFT BREAK":DATA "END"