Amateur Radio Books and other Ham Radio Products


Amateur Search Engine Amateur Repeater Database
Order Kamko QSL Cards radiomods.com

Epson HX-20 Games

Artsci's Programmer, William V. R. Smith wrote a number of Games for the Epson HX-20 Computer. Black jack was bundled with the HX-20.

Thanks to Mr. Jean-Jacques Cortes in France for the Photos and source code copies. His web site is located at: http://perso.wanadoo.fr/jjcortes/

List Manager code10 Key Calc codeEvent Timer codeFinance Manager code(By Dirk)

 

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 -

 

 

 

 

 

 


We would appreciate any comments you may have and we welcome your e-mail comments at :Contact us Artsci Inc.
Post Office Box 1428
Burbank, CA 91507
(818) 843-2345

Information about this server

Served

The location of ths page is www.artsci.net/rtm
copyright ©1996,97,98, 2001 artsci inc. all right reserved.