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)

 

1 REM******
2 REM* EVENT TIMER
3 REM* WM V R SMITH
4 REM* ARTSCI INC
5 REM******
10 CLS
20 FL=0:F1=0:F2=0
100 LOCATE0,0
102 IF F2=0 THEN 110
104 PRINT”EVENT: “;
105 PRINT MID$(T$,TC,10)
106 TC=TC+1:IF TC>LEN(T$)-10 THEN TC=1
109 GOTO 120
110 PRINT”**EVENT TIMER**”
120 IF FL=0 THEN 125
122 PRINT”     “:GOTO130
125 PRINT”1-START”
130 PRINT”2-STOP “;
132 IF FL=0 THEN 139
135 PRINT TIME$;
139 PRINT
140 IF F2=0 THEN 145
141 PRINT”COST:  “;
142 ET$=TIME$:GOSUB470:C=TT*R
143 PRINT USING”####,.##”;C;
144 GOTO 150
145 PRINT”3-TITLE”;
150 I$=INKEY$
160 I=VAL(I$)
170 ON I GOTO 200,400,600
175 IF FL=0 THEN 100
176 LOCATE0,1
177 PRINT”START: “;
178 PRINTST$
180 GOTO 100
200 IF FL=1 THEN 100
206 FL=1
210 ST$=TIME$
215 GOSUB 410
220 GOTO 100
400 REM*** STOP
405 GOSUB 410
407 GOTO1000
410 ET$=TIME$
430 T=VAL(ST$)*60*60
440 T1=VAL(MID$(ST$,4,2))*60
450 T2=VAL(MID$(ST$,7,2))
460 TS=T+T1+T2
470 T=VAL(ET$)*60*60
480 T1=VAL(MID$(ET$,4,2))*60
490 T2=VAL(MID$(ET$,7,2))
500 ET=T+T1+T2
510 TT=ET-TS
520 IF TT<0 THEN TT=TS-ET
530 HT=INT(TT/360)
540 T1=TT-(HT*360)
550 MT=INT(T1/60)
560 ST=T1-(MT*60)
570 RETURN
599 IF INKEY$=”” THEN 199
600 REM
605 F2=1
610 CLS
620 PRINT”TITLE “;
630 INPUT T$
635 IF T$=”” THEN F2=0
636 LOCATE0,0
640 LOCATE 0,3
650 PRINT”             “;
660 LOCATE0,3
670 PRINT”RATE PER HOUR:”;
680 R=(R/60)/60
685 TC=1
690 CLS
695 GOTO 100
1000 REM
1010 LPRINT”*************”
1020 LPRINT” EVENT:
1030 LPRINT
1035 T$=T$+” “
1040 L=LEN(T$):X=1
1041 Y=23
1042 IF MID$(T$,Y+X,1)=” “ THEN 1045
1043 Y=Y-1:IF Y>1 THEN 1042
1045 LPRINT MID$(T$,X,Y)
1046 X=X+Y+1
1047 IF X

 

 

 

 

 

 

 


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,2014 artsci publishing. all right reserved.