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.

We Created the following programs:

Personal Productivity Software:
Clock
Timer
Memo Writer
List Handler
Phone List
Ten Key Calculator
Amortization/Payment Calc
Days Between Two Dates
Future Value
Stat Package

Personal Entertainment Software
Blackjack
Poker
UArtilery
21Matches
Bomber
Follow Me
Towers
Hangman
Sequence
Tic-Tac-Toe
List Manager code10 Key Calc codeEvent Timer codeFinance Manager code(By Dirk)
Cassette Code (MP3)Cassette Code2 (MP3)

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/

I attached a picture of my HX-20 displaying the header of your program "Blackjack" and a complete listing of Blackjack as you made in 1983, a picture of the listing where some graphical characters which can't be displayed outside a HX-20.
How I did I find this listing ? It's very simple. In 1984, I was in a computer exibition in Caracas (Venezuela), and I saw on the Epson stand, the HX-20 and the QX-10 computers. On the HX-20, they were some programs running, one of them was your blackjack program. As I found them good, I asked to the Epson hostess if I could print the listing of each program. Of course, with the help of my french charm, she let me print them ;-) I kept them like my "Precious" during all this time, waiting the moment to type them in a HX-20. The listing with your credit helped me to find you on the net. As you can see, the listing is very old. I will reprint it when I will find the right ribbon to replace the one which is actually in my HX-20. Do you think, it would be possible to find your other program on the web ? I made some researchs using several search engines and I only found HX-20 pictures and one site with self-made programs. If you find some of your programs, could you put on your site, please ? I think Blackjack would interest other HX-20 owners, you should you add a link to download it.

ATTENTION !!!

Les lignes 140, 150, 160, 190, 250 et 300 comportent des caractères graphiques propres à l'Epson HX-20.
Veuillez consulter la photo Listing.jpg pour plus de détails.

BE CAREFUL !!!

Lines 140, 150, 160, 190, 250 and 300 contain some Epson HX-20's graphic characters.
Look at Listing.jpg picture for more details.



10 REM****
20 REM*BLACKJACK
30 REM* WM V R SMITH
40 REM* ARTSCI INC
50 REM****
60 CLS
70 PO=100:CU=52
80 DIM C$(15),C(51)
90 U$=CHR$(30)
100 GT$=U$+U$+U$
110 D$=CHR$(31)
120 GB$=D$+D$+D$
130 L$=CHR$(29)
140 TC$="
150 BC$="
160 EC$="
170 C$(13)=EC$
180 S$(5)=EC$
190 DATA 
200 DATA A,2,3,4
210 DATA 5,6,7,8,9
220 DATA 10,J,Q,K
230 FOR X=0 TO 3
240 READ C$
250 S$(X)="| "+C$+"|"
260 NEXT X
270 FOR X=0 TO 12
280 READ C$
290 IF LEN(C$)=1 THEN C$=C$+" "
300 C$(X)="| "+C$+"|"
310 NEXT
320 CLS
330 PRINT:PRINT" ***BLACKJACK***"
340 PRINT"    ---------"
350 PRINT"**PRESS ANY KEY**";
360 LOCATE 0,0
370 C=52
380 FOR X=1 TO 12
390 CX=X
400 IF INKEY$<>"" THEN 500
410 GOSUB 1900
420 NEXT
430 FOR X=12 TO 1 STEP-1
440 GOSUB 1730:C(C)=0
450 CX=X
460 IF INKEY$<>"" THEN 500
470 GOSUB 1900
480 NEXT X
490 GOTO 320
500 X=VAL(RIGHT$(TIME$,2))
510 FOR Y=1TO X:A=RND(1):NEXT Y
520 REM******
530 REM* START HERE
540 REM******
550 CLS:GOSUB 2340
560 FOR X=1 TO 5
570 DC(X)=-1
580 PC(X)=53
590 NEXT
600 PC(1)=52:PC(2)=52
610 GOSUB 1620
620 FOR X=1 TO 2
630 GOSUB 1730
640 PC(X)=C
650 GOSUB 1730
660 IF C=0 THEN 650
670 DC(X)=C
680 NEXT
690 CT=2
700 PC=0:GOSUB 1620
710 GOSUB 1810
720 GOSUB 2190
730 PRINT"YOU HAVE";PC
740 PRINT"DEALER SHOWS";
750 DS=INT(DC(1)/13)
760 DF=DC(1)-(DS*13)
770 PRINT" ";U$;TC$;
780 PRINTD$;L$;L$;L$;L$;
790 PRINT C$(DF);D$;L$;L$;L$;L$;
800 PRINT S$(DS);D$;L$;L$;L$;L$;
810 PRINT BC$;U$
820 IF PC>21 THEN 1320
830 IF PC=21 AND CT=2 THEN 1180
840 PRINT"1-HIT 2-STAND";
850 GOSUB 1810
860 ON VAL(I$) GOTO 890,970
870 GOSUB 2280
880 GOTO 710
890 CT=CT+1
900 IF CT=6 THEN 1180
910 GOSUB 1730
920 GOSUB 2280
930 PC(CT)=C:C=52
940 CX=(CT*4)-4
950 GOSUB 1900
960 GOTO 700
970 GOSUB 1540
980 REM** STAY
990 CX=9
1000 DP=0:ND=1
1010 T=PC:PC=0
1020 FOR X=1 TO 5
1030 CY=4
1040 CX=CX+4:C=DC(X)
1050 IF C>-1 THEN GOSUB 1940:ND=ND+1
1060 REM
1070 NEXT X
1080 DP=PC:PC=T
1090 IF DP>16 THEN 1130
1100 GOSUB 1730
1110 DC(ND)=C
1120 GOTO 990
1130 IF DP>21 THEN 1440
1140 IF DP=PC THEN 1350
1150 IF DP>PC THEN 1240
1160 REM* YOU WIN
1170 M$="DEALER HAS"+STR$(DP)
1180 M1$="YOU WIN"
1190 GOSUB 1550
1200 GOSUB 1810
1210 PO=PO+BT
1220 GOSUB 2280:COPY:GOSUB 2190:COPY
1230 GOTO 1510
1240 REM* DEAL WIN
1250 M$="DEALER HAS"+STR$(DP)
1260 M1$="YOU LOSE"
1270 GOSUB 1550
1280 GOSUB 1810
1290 PO=PO-BT
1300 GOSUB 2280:COPY:GOSUB 2190:COPY
1310 GOTO 1510
1320 M$="YOU BUST"
1330 GOTO 1260
1340 STOP
1350 REM****
1360 REM* PUSH
1370 REM****
1380 M$="DEALER HAS"+STR$(DP)
1390 M1$="PUSH"
1400 GOSUB 1550
1410 GOSUB 1810
1420 GOSUB 2280:COPY:GOSUB 2190:COPY
1430 GOTO 1510
1440 REM*DEAL>21
1450 M$="DEALER BUSTS"
1460 M1$="YOU WIN"
1470 GOSUB 1550
1480 GOSUB 1810
1490 PO=PO+BT
1500 GOSUB 2280:COPY:GOSUB 2190:COPY
1510 LPRINT"$";BT
1520 LPRINT"YOU HAVE $";PO
1530 GOTO 520
1540 M$="":M1$=""
1550 REM*MESSAGE
1560 PRINT U$;U$
1570 PRINT M$
1580 PRINT"             ";U$
1590 PRINT M1$;
1600 RETURN
1610 STOP
1620 REM****
1630 REM* SHOW HAND
1640 REM****
1650 CX=0:AF=0
1660 FOR X=1 TO 5
1670 C=PC(X)
1680 GOSUB 1900
1690 CX=CX+4
1700 NEXT
1710 LOCATE 0,0
1720 RETURN
1730 REM****
1740 REM* PICK A CARD
1750 REM****
1760 C=INT(RND(1)*52)
1770 IF C(C)>0 THEN 1730
1780 C(C)=1
1790 UC=UC+1
1800 RETURN
1810 REM****
1820 REM* WAIT
1830 REM****
1840 T=0
1850 I$=INKEY$
1860 T=T+1:IF T>100 THEN I$=" "
1870 IF I$="" THEN 1850
1880 IF INKEY$<>"" THEN 1880
1890 RETURN
1900 REM*****
1910 REM* DRAW A CARD
1920 REM*****
1930 CY=0
1940 IF C=52 THEN F=13:S=5:GOTO 2070
1950 IF C=53 THEN RETURN
1960 S=INT(C/13)
1970 F=C-(S*13)
1980 WP=F+1
1990 IF WP=1 THEN 2030
2000 IF WP>10 THEN WP=10
2010 PC=PC+WP
2020 GOTO 2050
2030 AF=AF+1
2040 PC=PC+11
2050 IF PC<22 THEN 2070
2060 IF AF>0 THEN PC=PC-10:AF=AF-1:GOTO 2050
2070 GOSUB 2160
2080 PRINT TC$;
2090 GOSUB 2160
2100 PRINT C$(F);
2110 GOSUB 2160
2120 PRINT S$(S);
2130 GOSUB 2160
2140 PRINT BC$;
2150 RETURN
2160 LOCATE CX,CY
2170 CY=CY+1
2180 RETURN
2190 REM****
2200 REM* SCREEN 2
2110 REM****
2220 LOCATE 0,0
2230 PRINT GB$
2240 PRINT GB$;
2250 PRINT GT$
2260 PRINT U$;
2270 RETURN
2280 REM****
2290 REM* SCREEN 1
2300 REM****
2310 PRINT GT$:PRINT GT$
2320 PRINT GT$:PRINT GT$
2330 RETURN
2340 REM****
2350 REM* BET
2360 REM****
2370 IF PO=0 THEN 2480
2380 IF UC>40 THEN GOSUB 2530
2390 CLS
2400 PRINT"YOU HAVE $";PO
2410 PRINT
2420 INPUT'YOUR BET ";I$
2430 BT=INT(VAL(I$))
2440 IF BT<1 THEN BT=1
2450 IF BT>PO THEN SOUND 3,1:GOTO 2340
2460 CLS
2470 RETURN
2480 CLS
2490 PRINT"YOU'RE ALL OUT"
2500 PRINT"OF MONEY!!"
2510 PRINT"GOOD BYE"
2520 END
2530 CLS
2540 PRINT:PRINT"SHUFFLING"
2550 FOR X=0 TO 51:C(X)=0:NEXT
2560 UC=0
2570 RETURN


 

 

 

 

 

 

 


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.