|
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 |
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 | copyright ©1996,2024 artsci publishing. all right reserved. |