*NAME CALCULATOR H: 15,4);"CALCULATOR (C) J.ARMSTRONG NOV.87":G= : Y$=60," "):X$=Y$ Y$="":X$=Y$ (A$=15," ") !2B$=A$:C$=A$:D$=A$:E$=A$:F$=A$ <X=0 'FA$="":B$=A$:C$=A$:D$=A$:E$=A$:F$=A$ PA=0:B=0:C=0:D=0:E=0:F=0 Z_DISPLAY d_INPUT nX$=Y$ x Y$="CX" X=0: DZ@  Y$="CMEM" DP@  Y$="CALPHA" DF@  Y$="CLEAR" X=0: DF@ # Y$="QUIT" ":RAM.?/MENU.BBC" _CALC DZ@ _DISPLAY  - 60,0);"Numeric";78,0);"Alpha Memory";  60,1);"A=";A;78,1);A$;  60,2);"B=";B;78,2);B$;  60,3);"C=";C;78,3);C$;  60,4);"D=";D;78,4);D$;  60,5);"E=";E;78,5);E$;  60,6);"F=";F;78,6);F$; - 0,5);"RESULT(X) =";X;30,5);"HEX &"; 4 (X)>1999999999 " Hex Range Error";: ;~X; %" 0,3);"EXPRESSION:- ";0,4);X$; !,_VERTLINE(59):_VERTLINE(77) 66 0,7);"COMMANDS:- CI, CX, CMEM, CALPHA, CLEAR,"; A@ " QUIT. Assign alpha fields as:- (A~F)=""ALPHA"""; J T_INPUT ^ 0,1);50," "); c 0,2);50," "); h 0,1);"INPUT:- ";Y$ ,r(1);"BTYPE GOTO 90 TO RESUME";(1);"B" !| Y$="" Y$,"CI")<>0 D^A % Y$,2)="X=" Y$=Y$,((Y$)-2)) & Y$,1)="*" Y$,1)="/" _XEQU & Y$,1)="+" Y$,1)="-" _XEQU  _XEQU Y$="X"+Y$  _CALC #X$=Y$ & Y$,2,1)="=" _MEMSTORE: txA X=(Y$)  _MEMSTORE & Y$,3,1)="""" _LEGEND: TfB X$=Y$,3,(Y$)-2)  Y$,1)="A" A=(X$)  Y$,1)="B" B=(X$)  Y$,1)="C" C=(X$)  Y$,1)="D" D=(X$)  Y$,1)="E" E=(X$)  Y$,1)="F" F=(X$) X$=Y$ & 0_LEGEND :X$=Y$,4,(Y$)-4) D (X$)>16 X$=X$,16) N Y$,1)="A" A$=X$ X Y$,1)="B" B$=X$ b Y$,1)="C" C$=X$ l Y$,1)="D" D$+X$ v Y$,1)="E" E$=X$  Y$,1)="F" F$=X$  _VERTLINE(COL) LIN=0   COL,LIN);"|"; LIN=LIN+1  LIN=7