10 REM******
20 REM* 10 KEY CALC
30 REM* WM V R SMITH
40 REM* ARTSCI INC
50 DIM C(15)
60 DEFDBL A,I
70 CLS
80 GOTO190
90 REM
100 A=VAL(V$)
110 LOCATE0,7
120 PRINT USING "############,.##";A;
130 PRINTF$;
140 RETURN
150 A=VAL(V$)
160 LPRINT USING  "################,.##";A;
170 LPRINT F$
180 RETURN
190 REM
200 F1=1
210 LOCATE 0,4
220 PRINT"EPSON CALC       "
230 V$=""
240 P=1
250 I$=INKEY$
260 IF I$="" THEN 250
270 F$=""
280 C=ASC(I$)
290 IF C<46 OR C>57 THEN 350
300 IF I$="/" THEN 350
310 V$=V$+I$
320 P=P+1
330 A=VAL(V$):LOCATEP,7
340 PRINTI$;:GOTO 250
350 REM
360 F=0
370 IF I$=CHR$(13) THEN 630
380 IF I$="?" THEN 750
390 IF I$="+" THEN F=1
400 IF I$="-" THEN F=2
410 IF I$="*" THEN F=3
420 IF I$="/" THEN F=4
430 IF I$=CHR$(29) THEN 860
440 IF F=0 THEN SOUND 1,1:GOTO 250
450 IF P=1 THEN V$=STR$(A1)
460 A1=VAL(V$)
470 A=A1
480 GOSUB 500
490 GOTO 230
500 REM
510 ON F  GOSUB 580,590,600,610
520 A2=A1
530 F$=I$
540 GOSUB 110
550 GOSUB 160
560 PRINT
570 RETURN
580 A1=A1+A2:RETURN
590 A1=A2-A1:RETURN
600 A1=A1*A2:RETURN
610 IF A1=0 THEN A1=1
620 A1=A2/A1:RETURN
630 REM
640 I$=" "
650 A1=VAL(V$)
660 IF A1=0 THEN670
670 F$="T"
680 A=A2
690 GOSUB 110
700 GOSUB 160
710 A1=A2:A2=0
720 PRINT
730 LPRINT
740 GOTO190
750 REM
760 I$=" "
770 A1=VAL(V$)
780 IF A1=0 THEN800
790 GOSUB 510
800 F$="S"
810 A=A2
820 GOSUB 110
830 PRINT
840 GOSUB 160
850 GOTO 230
860 REM
870 IF P=1 THEN 230
880 V$=LEFT$(V$,LEN(V$)-1)
890 LOCATEP,7
900 PRINT" ";
910 P=P-1
920 GOTO 250
930 -