File BLKJAC.SV (save files (Executable program)

Directory of image this file is from
This file as a plain text file

?>2C8H
P8B<K< =!0AX5=A< )AY;0AYEPLT0PCD0)D^<0T/0AYPPE /7PC<A/)A^-0AY PET$0AY%=A< 0AY0=A=1QG<K< =!0AY5=A=1QH<K< =!0AZ<D<!0AP <D0AP%=A=1P;<K=!PF<<J< 0AP0<D0AP5=A=1P<<K< =!0AQ<D0AQE=A< 0AQP=A=1P=<K< =!0AQU=A< )AY;0AQ%=A< 0AQ0=A=1P><K< =!0AQ5=A< )A0DP=A=1PM<K< =!0DU
A=1PN<K< =!0D =A=1PO<K< =!0D%=A=1PP<K< =!0D0=A=1PQ<K< =!0D5=A=1PR<K< =!0E=A< 0EE=A< 0EP=A< 0EUPETD0E PETF<Q0E0PE>NHHC=NTG0E5=A< 0F=A=1PS<K< =!0FE=A=1PT<K< =!0FP=A=1PU<K< =!0HPE>NHJ=NTI0HUPLTMPCDM)DF[MTK0H PE K7PC]7%32IDX+(2QADP S$[2QAD SZA	2QG QUEEN  1G2Q
DE S!S2QF KING 2<"2IADU S+A/2QAEE TKAF2QAD% S4%)2IEZ,A>2QAEU TVAR2QAD0 S:BN2QAE% T!A!2QAD5 T/,2IIOF SPADES 3.2QAE THA52QHOF CLUBS4A2QAEP TSAX2QIOF HEARTS 5AL2QAE  T^H;2QKOF DIAMONDS 62=2IAE0 T)BZ2QAF0P=A=1PA<K=!0U=A<ITD0%PCXD)CC100=A< 05=A< 0A=A< 0AE=A< 0
P=A=1PB<K< =!0AU=A=1PC<K< =!0A =A=1PD<K< =!0A%=A=1PE<K< =!0A0=A=1PF<K< =!0A5=A=1PG<K< =!0B=A=1PH<K< =!0BE=A=1PI<K< =!0BP=A=1PJ<K< =!0BUPCXD)CES0D=A=1PK<K< =!0DE=A=1PL<K< =!0DP=A=1PM<K< =!0DU=A=1PN<K< =!0D =A=1PO<K< =!0D%=A=1PP<K< =!0D0=A=1PQ<K< =!0D5=A=1P
<K< =!0E=A< 0EE=A< 0EP=A< 0EUPETD0E PETF<Q0E0PE>NHHC=NTG0E5=A< 0F=A=1PS<K< =!0FE=A=1PT<K< =!0FP=A=1PU<K< =!0HPE>NHJ=NTI0HUPLTMPCDM)DF[MTK0H PE K7PC<AK)AFL0H5PNTOPPTQ<APEDO)HGDOTK0IPPTSPCDS)DF?STR0IEPRKTTPR T7EPC<AR)AF-PQ<AK)AF0I =A< 0I%PCDTD0I0PVTTPCDT)DG
TTU0I5PE U7A0JPE U7B0JEPE U7CPC<AU)AGR0JUPC W7B0L=A< 0LE=A< 0LP=A< 0LU=A=1PV<K=!0L PCTU0L%=A<ITX0L0PX Y7D0L5PEXX)G
W0MPZXX)GH30MEP[XX)CH)0MP)^()AG<0M =A=1PW<K< =!)AG<0M0=A< 0M5=A=1PX<K<P=!0N)Q/0NEPE C4A)FIO0NPPC \7B0NUPC V7B0P)Q/0PEPIT]0PPPYTU0PU=A=1PY<K<P=!0P )Q/0P%PIT^0P0=A=1PZ<K<P=!0P5)Q/0QPE Y4B)DMB0QEPIT
0QPPC W4B)CMB0QUP  U4C)CKG0Q =A=1P[<K< =!0Q%=A< 0Q0=A=1P\<K< =!0Q5=A< 0R=A=1P]<K<P=!0REP]TI0RP)T)0RUPXH!FTF0T)ZB0TEPE \4B)FL]0TP=A=1P^<K=!0TU=A<IT"0T =A< 0T%PEX")FL]0T0P  C4C)CLD0T5PXFTF0U=A< 0UE=A=1P
<K=!PX<J=1P <K< =!)AL]0UUPY\XXFTF0U =A< 0U%=A=1P!<K=!PY\X<J=1P"<K< =!0U0P  C4C)CMB0U5=A< 0V=A=1P<K< =!0VE=A=1P]<K<P=!0VPP]TI0VU)T))AY[0XEP  U4C)GNC0XPPE U4A)DM50XU=A=1P$<K=!0X =A=1P%<K=! U6<J< 0X%PV U7=NHV U4CT0X0PC Y4B)FPN)AWC0YPC U4A U7A0YEPJ U4C U7C0YP
Y C4B)FMW0YUPC W4" W7B0Y =A=1P&<K=!0Y%=A C<I7B0Y0PW C4B)CQG0Y5PE Y4B)DP=0ZPY W4B)CP=0ZE 
6% ^4E)FOE0ZP=A=1P	<K< =!)ANQ0\PC Y7B0\EPC ^4E)COV0\PPY C7B0\UPWTU0\ =A=1P(<K< =!0\%=A=1P)<K<P=!0\0PX W7D0\5P^TI0])O9)AI00]P)S>0]U)T)0] PC W7B0]%PR U7C0]0<D0]5PYTU0^PY Y7B0^E=A=1P*<K< =!0^P=A=1PY<K<P=!0^UP
TI0 )O90 EPC ^4E)FP;0 PPE C7B)AI00  =A=1P+<K< =!)ANQ0 0PY C4B)CQ&0 5PY W4B)FQ
0!=A=1P,<K< =!)ANQ0!P U6$HY U7D0!UPE C4B)DI0)AMW0!%)RP0!0PR U4 U7C0!5PE V4B)FRI0"PE V7B0"E<D0"P)T)0"U<D0$P%X$)BSM0$EPFG<^<CHJTG0$PPGT&PCD&)DR;&TK0$UP(>NH	=NTI0$ PEXI)FR)PC<AK)AR$0$0PE I4)FS50$5PC$T$0%P%X$)ERP0%EPLT)PCD))DS()TK0%PPD K4)FS0%UPE K7PC<AK)ASR0
%PET$0%0=A=1P-<K=!)ARP0&PET$0&EPD I70&PPC I4E)CTS0&UP*TR0APC U4! U7A0AE<D0APPJ I4E)DT"0AU I6%TR0A <D0A%PJTR0A0<D0A5)T40AA)VE0AAE<D0AAPPC I4E)CUE0AAU=A=1P.<K=!0AA <D0AA%PJ I4E)DUY0AA0=A I6%<J=1P/<K=!0AA5<D0ABP* I4E)DU*0ABE=A=1P0<K=!0ABP<D0ABUP+ I4E)DU;0AD=
=1P1<K=!0ADE<D0ADP=A=1P2<K=!0ADU<D0AD PNXI)DV"0AD%P,XI)DV-0AD0PPXI)DV80AD5=A=1P3<K< =!0AE<D0AEE=A=1P4<K< =!0AEP<D0AEU=A=1P5<K< =!0AE <D0AE%=A=1P6<K< =!0AE0<D0AE5PYTU0AF=A=1P]<K<P=!0AFEP]TI0AFP)T)0AFUP- Y4C)EW,0AHPE Y4B)FY[0AHEP  W4C)DY[0AHPPCTU0AHUP. C4C)
ZS0AH P. C4C)DXE0AH%PE C4A)DZS0AH0P  C4C)DZ!0AH5PYTU0AI=A=1P7<K=! C6<J< 0AIEP  U4C)DY[0AIPP  C4C)DX90AIU U6 C4C)DY[0AI  U6 C4C)FY;0AI% U6$FTF0AI0PWX)D[40AI5PYX)D\F0AJPCX)D\X0AJEPEX)D\*)A\<)AY;0AL U6$XFTF0ALEPWX)D]N0ALPPYX)D] 0ALUPCX)D]20AL PEX)D^D)A^V0AL0
E Y4B)DZH0AL5)[B)AGH0AMEPWTU0AMPPE Y7B)AX[0AM =A=1P8<K<P=!0AM%)Q/)AW,0AM5PE C4A)FZ80ANPC C4A C7A0ANEPJ C4C C7C)AW,0ANU=A=1P9<K< =!)AXL0APEPEXF)E[[0APPPEXF)F[)0APU=A=1P:<K=!PF<J< 0AP <D0AP%=A=1P;<K=!PF<<J< 0AP0<D0AP5=A=1P<<K< =!0AQ<D0AQE=A< 0AQP=A=1P=<K< =
0AQU=A< )AY;0AQ%=A< 0AQ0=A=1P><K< =!0AQ5=A< )AY;0ARE=A< 0ARP=A=1P?<K< =!0ARU=A< )AY;0ATE=A< 0ATP=A=1Q<K< =!0ATU=A< )AY;0AT%=A< 0AT0=A=1QA<K< =!0AT5=A< )AY;0AUE=A< 0AUP=A=1QB<K< =!0AUU=A< )AY;0AU%=A< 0AU0=A=1QC<K< =!0AU5=A< )AY;0AVE=A< 0AVP=A=1QD<K< =!0AVU
A< )AY;0AXE=A< 0AXP=A=1QE<K< =!0AXU=A< )AY;0AX%=A< 0AX0=A=1QF<K< =!0AX5=A< )AY;0AYEPLT0PCD0)D^<0T/0AYPPE /7PC<A/)A^-0AY PET$0AY%=A< 0AY0=A=1QG<K< =!0AY5=A=1QH<K< =!0AZ<D<!?LTYPE 7777 WHEN I ASK FOR YOUR WAGER AND I	LL BE VERY?MGOOD LUCK.  OH, BY THE WAY, 
HE DEALER IS NOTED FOR ?MDEALING OFF THE BOTTOM OF THE DECK.  WATCH HIM VERY ?MAND LOSE IF HE DOESN	T.  THE HOUSE LIMIT IS $500.00 ?NRISK HALF YOUR BET FOR AN AMOUNT EQUAL TO YOUR BET?NIF YOU WIN.  YOU WIN IF THE DEALER HAS A BLACKJACK?NANY TIME YOU WANT 
E TO RESHUFFLE THE CARDS SIMPLY?OMORE CARD ANY TIME ON YOUR FIRST HIT.  THE TYPING ?PYOU MAY DOUBLE YOUR BET AND RECEIVE EXACTLY ONE ?PYOU FOR AN INSURANCE BET.  AN INSURANCE BET WILL?PSAME AND PLAY ONE HAND WITH EACH OF THEM.  ALSO,?PINSTRUCTIONS ARE: 0-
O HIT; 1-HIT; 2-DOUBLE; AND?QHAPPY TO OBLIGE.  O.K., HERE IS THE FIRST HAND. ?RWHEN THE DEALER HAS AN EXPOSED ACE HE WILL ASK?RON YOUR INSURANCE BET - I DON	T HAVE BLACKJACK?RMORE.  YOU MAY SPLIT TWO CARDS IF THEY ARE THE?STHIS IS A GAME OF BLACKJACK, LAS
VEGAS STYLE. ?SMUST HIT ON 16 OR LESS AND WILL STAY ON 17 OR ?SINSURANCE ANYONE   (TYPE 1 OR 0, 1 MEANS YES) ?THERE ARE THE RULES OF THE HOUSE.  THE DEALER?WDO YOU WANT INSTRUCTIONS (IF SO TYPE A 1) ?[THE BOTTOM OF THE DECK STRIKES AGAIN: ?[THAT	S TOO MUC
 - HOUSE LIMIT IS $500 ?\ THAT	S GETTING A BIT RIDICULOUS::::?
THE CARDS HAVE TURNED AGAINST ME: ?"BABY GETS A NEW PAIR OF SHOES:?I COULD LOSE MY JOB THIS WAY. ?$TOO LATE TO DOUBLE, CHARLIE.?%YOU MUST HAVE BEEN PEEKING. ?%A VICTORY FOR US GOOD GUYS. ?&NO SPLITS NOW -- TRY AGAIN?	CLOSELY.  HERE HE IS NOW. ?(       PLA
 HAND TWO NOW?(       PLAY HAND ONE NOW?(I MUST HAVE DEALT WRONG.?*YOU CAN	T WIN 	EM ALL.?+   ***BLACKJACK***    ?+YOU LUCKED OUT AGAIN: ?+YOU CAN	T BEAT SKILL. ?+ON YOUR INSURANCE BET ?,**I HAVE BLACKJACK**?-NOW IS THAT A PAIR? ?.   I RESHUFFLED   ?/MY H
LE CARD WAS  ?13-SPLIT A PAIR. ?1YOU	RE BEHIND $ ?2YOU	RE AHEAD $?2FIRST CARD IS ?3 I RESHUFFLED ?3YOUR TOTAL IS ?3I BUSTED***** ?3FIRST CARD IS ?4YOU BUSTED, ?4NEXT CARD IS?5YOU	RE EVEN ?5OF DIAMONDS ?5MY TOTAL IS ?6YOU LOST $?7YOU WIN $ ?7OF SPADES ?7OF
HEARTS ?8OF CLUBS?9 QUEEN  ?: KING ?: JACK ?:I SHOW?:I DRAW?; ACE  ?;WAGER ?<HIT ??  %
2Q>8-<2Q?W,]2Q?S-%2Q?T,52Q?S,E2Q?R*J2Q?P)X2Q?P(>2Q?O*2Q?P3U2Q?1+U2Q?R)12Q?P	02Q?N(J2Q?N	U2Q?M&
2Q?M&:2Q?M0:2Q?	($2Q?N&D2Q?L*<2Q?Q502Q?;.&2Q?[5$2Q?:4O2Q?34^2Q?41;2Q?+.:2Q?\3K2Q?/-M2Q?S52Q?72
2Q?+4:2Q?6+-2Q?R2+2Q?,4W2Q?43?2Q?3542Q?<262Q?-1U2Q?(3/2Q?21H2Q?(0,2Q?&/?2Q?$3A2Q?.5,2Q?;572Q??5 2Q?:5W2Q?95\2Q?:5F2Q?75R2Q?85L2Q?74,2Q?5432Q?55(2Q?:4G2Q?33	2Q?23^2Q?14%2Q?51"2Q?(2G2Q?+0N2Q?%//2Q?/M2Q?
.R2Q?[0]2Q?%2S2Q?+1/2Q?*/
2Q?"372Q?3592Q2Q5".2QF"\2QF"J2QF!82QF
Y2Q5APK^YDTFZFS DZCTBXBPI
PM^XPCPEUAXFYFZ
?>DVDXEZEVEQ [4B)GBJ0D$ P\UDP UC$C [6"UE$] [6"T:(!?B0D%0=A=1Q=<K=!P"<J=1P2<K=!P$<J=1Q><K=!P\<J=1P2<K=!P <J=1Q?<K< =!0D&P=A=1R<K=!<IUD<IUC<IUE<IT:0EPQCX:T:QEYDUC0E0PDX:)E 0E1PDYC)E80EAPPDX:($?"0EAQPDYC)F,0EA0PCUD0EBQC<U5P:<Y5)GN0EBEQC<U5P:<Y5U6QC<A6U7QC<X6
\H\K?>(/>H\.W=:A
<	;H]<(*WXBH^XCH
XTH XU%L%2D?/:%2F8F9Z%3F/9] %2F%RAS<(8AI19F8DXS%2D7HS."Y\	8+VH!
7"Y
6""
5K4
3%2E8F?P+G%2EAEI?
2.2H!
1
0""
/O.> /-K,
.H6
+/*H\Y*9X7<(+^H5%IXS%2E8F?X/Y%2EC)HS/Y!?YV*0&YJT+ ++P+0*1+!/S+A+Q+1X]XW*VB>)3VI?*<H*.K?XHK>XI2I\H\H\H2A2J	=HLI<(*
ZV:A2J	<B	;JV8A2I\H2A*N:A2J	<B9H*(J8A2I\H2A2J	<I2IO:2A
9/8888<99DBRTSSVBASICAFBASICSFBASICFFBASICUFO7C 9H8J< /L2AK18F8DC K+[Z2AO/8[ZK\
/8O/<K"K0> ++KZ
/S1+S2A: K1/L9"LA7]O?0>O7\??:I:N>G;JB?82>CH(ZF	?\?>.S$*P	?\P2ISNO>C=K<2A>(O;K:> +&K%>(JKXZ2QO+Z29O+[JJ
+2QKJ
+S+* 2A9VJ
;8AJ
9O9
8SN	7JG?HJO"^OS"ROS*;K6
5K6
4HY8H9TXY/32J	2GA/4K$>("K1
5K0
4/52Q9-9T59592QBW&C&C ;X?6??AK/C!K.[!*6>CP A2K"G?B>E>,G9L?W?QM->"=8G8?0>G

Note: Lines longer than 256 characters were wrapped



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search