File ROULET.SV (save files (Executable program)

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

?=2C8H
P<AH8B=!PG>NHV=N<J< 0C =A< 0CA=AP7=PG</<K< =!0CAP=A< 0CA =A< 0CA0=A=1QA<KP)<KQB<K=!0CB=APH<J< 0CBP=A< 0CD=A< 0CDP=AP%=<P=1QC<K< =!0CD =A< 0CD0=AP7=<P=1QD<K< =!0CE=AP7==1QE<K< =!0CEP=A< 0CE =A=1QF<K< =!0CE0=A=1QG<K< =!)AT;0CFP=A=1QH<KPK<K< =!0AHP=A=1PP<K< 
!0AH =A=1PQ<K< =!0AH0=A=1PR<K< =!0AI=A=1PS<K< =!0AIP=A=1PK<K< =!0AI =A=1PT<K< =!0AI0=A< 0AJ=A=1PU<K< =!0AJP=A< 0AL=A=1PV<K< =!0ALP=A=1PW<K< =!0AL =A=1PX<K< =!0AL0=A< 0AM=A=1PY<K< =!0AMP=A=1PZ<K< =!0AM =A=1P[<K< =!0AM0=A=1P\<K< =!=A=1PJ<K< =!0AEP=A=1PK<K< 
!0AE =A=1PL<K< =!0AE0=A=1PM<K< =!0AF=A=1PN<K< =!0AFP=A=1PO<K< =!0AH=A=1PK<K< =!0AHP=A=1PP<K< =!0AH =A=1PQ<K< =!0AH0=A=1PR<K< =!0AI=A=1PS<K< =!0AIP=A=1PK<K< =!0AI =A=1PT<K< =!0AI0=A< 0AJ=A=1PU<K< =!0AJP=A< 0AL=A=1PV<K< =!0ALP=A=1PW<K< =!0AL =A=1PX<K< =!0AL
=A< 0AM=A=1PY<K< =!0AMP=A=1PZ<K< =!0AM =A=1P[<K< =!0AM0=A=1P\<K< =!0AN=A< 0ANP=A=1P]<K< =!0AP=A=1P^<K< =!0APP=A=1P
<K< =!0AP =A=1P <K< =!0AP0=A< 0AQ=A=1P!<K< =!0AQP=A=1P"<K< =!0AQ =A=1P<K< =!0AQ0=A< 0AR=A=1P$<K< =!0ARP=A=1P%<K< =!0AT=A=1P&<K< =!0AT =A< 0AT0=A=1P	<K< =!0AU=A=1P(<K< < =!0AXPETFPCDF)DD4FTDPG D7CPC<AD)AD	0AXPPITH0AX PKTJ0AX0=A=1P*<K=!0AY=A<ITL0AYPPCXL)ED<
L=NXL)CD<0AY PMTNPCDN)DE%NTDPG D7DPC<AD)AEX0AY0PLTPPCDP)DGHPTO0AZ=A=1P+<K=!PO<J0AZP=A<ITQ<ITR0A\PR O70A\PPQ O7B0A\ PCXQ)EE/PMXQ)DE/PQ=NXQ)CE/0A\0PCXR)EE/PR=NXR)CE/0A]PSXR)EE/PTXR)DE/0A]PPG Q4D)FF>0A] =A=1P,<K< =!)AE/0A^PC Q7DPC<AO)AE*0A =A=1P-<K< =!0A P=A
 0A  =A< 0A 0PG>NHV=NTU0A!PGXU)FGXPEXU)DGX0A!PPC U4 U7C0A! PWXU)EHP0A!0PWXU)FHF0A"=A=1P.<K< =!)AIG0A$=A=1P/<K< =!)AIG0A$ =A<E0A$0PXTYPCDY)DH-YTD0A%=QTZ0A%PPUXZ)FH?PC<AD)AHY0A%0=1P1T0=!0A&=APU<J=1P0<K< =!)AIG0B=1P2T0=!)AH30B =A< 0B0PLT[PCD[)DP0[TO0BAPW O4B
EO0BAPP] O4BT\PCX\)FJ]P^X\)FK$0BARP
X\)FK0P X\)FK<PSX\)FLV0BATP!X\)FL0P"X\)FMJPX\)FM10BAVP$X\)FM=P%X\)FNNP&X\)FN
0BAXP	X\)FN>)AO<!0BDP	XU)GKB0BDP=A=1P3<K=! O6 <J=1P4<K=!PO<J< 0BD  O6 JTJ0BD0 O6 XHTH)AK"0BEP=A=1P5<K=!P^ O5 <J=1P4<K=!PO<J< 0BE P^ O5 XJTJ0BE0P^ O5 HTH)AP+0BHP	XU)GK.P(XU)EKB)AJ0BH0P)XU)GK:PWXU)EKB)AJ0BI P*T+P
T,<APCD+)HLT+TD0BI0PDXU)FKBP,<AD)ALD)AJ0BLPP-T.P
T/<AP^D.)HL..TD0BL PDXU)FKBP/<AD)AL^)AJ0BM P]T0P
T1<AP
D0)HMH0TD0BM0PDXU)FKBP1<AD)AL8)AJ0BPPP2XU)EMR)AJ0BP0=A=1P5<K=! O6 <J=1P4<K=!PO<J< 0BQ O6 XJTJ0BQP O6 HTH)AP+0BRPXXU)GM;PWXU)EMR)AJ0BTPP^\UT3P^\U=NX3)CNLPWXU)EMR)AJ0BUP^\UT3P^\U=NX3)FN]PWXU)EMR)AJ0BU0=A<E0BVPXT3PCD3)DN<3TD0BVP=QTZ0BXPZXU)FMRPC<AD)AN()AJ0BY
A<E0BYPPXT4PCD4)DO[4TD0BY =QTZ0BY0PZXU)FJPC<AD)AOG0BZPP]XU)DJ)AMR0B\ P5 O4B)EPB0B\0P5 O4B)CO5PWXU)FPK0B]PM O4B)CPPEXU)FPK)AJ0B] PU O4B)FPK)AJ0B^=A=1P5<K=!P- O5 <J=1P4<K=!PO<J< 0B^PP- O5 XJTJ0B P- O5 HTHPC<AO)AIP0B  =A< 0B 0=A=1P6<K<PP7<K<PP8<K< =!0B!=A=1P
<K<P=!PJ<J<PPH<J< 0B!PPGXH)DQ 0B! =A=1P:<K< =!)AT+0B"PGXJ)DQ40B"P=A=1P;<K< =!0B$P6TH)ART0B$ =A=1P<<K=!0B$0=A=1HC=!0B$5PCTPC=1PC=!=
TC=!0B%=1PCD==!)FD<0B% PCXH)ET+0B%0=A=1P><K=!0B&=A=1H)=!0B&P=A< 0C=A=1P?<K< =!0CP=APM==1Q<K=!PG>NHV=N<J< 0C =A< 0CA=AP7=PG</<K< =!0CAP=A< 0CA =A< 0CA0=A=1QA<KP)<KQB<K=!0CB=APH<J< 0CBP=A< 0CD=A< 0CDP=AP%=<P=1QC<K< =!0CD =A< 0CD0=AP7=<P=1QD<K< =!0CE=AP7==1Q
<K< =!0CEP=A< 0CE =A=1QF<K< =!0CE0=A=1QG<K< =!)AT;0CFP=A=1QH<K< =!0CH=A=1QI<K< =!0CHP=A< )AUA<!APBXCTC\DRDXD\EPERESEUEWEYE[E^FPFQFR?B--------------------------------------------------------------?I------------------------------------------------------- ?I
OU	RE STARTING WITH $1000; I HAVE $100,000 IN THE BANK ?RI	LL USE IT TO BUY A SOLID GOLD ROULETTE WHEEL?TFOR EXAMPLE:TO BET $500 ON BLACK,TYPE 48,500?VTHE NUMBERS 1 TO 36 SIGNIFY A STRAIGHT BET?YWHEN I ASK FOR EACH BET,TYPE THE NUMBER ?Z NOTE: 0 AND 00 DO
NOT COUNT UNDER ANY?ZYOU MADE THAT BET ONCE ALREADY,DUM-DUM?[OOPS! YOU JUST SPENT YOUR LAST DOLLAR ?]AND THE AMOUNT,SEPERATED BY A COMMA ?^TO WHOM SHALL I MAKE OUT THE CHECK?
MINIMUM BET IS $5,MAXIMUM IS $500 ?! 38) 13-24    41) SECOND COLUMN ?" 39) 25-36    42) THIRD COLUMN?" 37) 1-12     40) FIRST COLUMN?WELCOME TO THE ROULETTE TABLE ?$ 49)0 AND 50)00 PAY OFF 35:1?$       BETS EXCEPT THEIR OWN?%THE MEMORY BANK OF VIRGINIA ?&
ANT INSTRUCTIONS (Y OR N)?&THIS IS THE BETTING LAYOUT?(THE EVEN MONEY BETS ARE:?(PAY TO THE ORDER OF-----?) 45) EVEN     48) BLACK ?+ 44) 19-36    47) RED ?+ 43) 1-18     46) ODD ?+THANKS FOR YOUR MONEY ?,YOU BROKE THE HOUSE!?.THESE PAY OFF 35:1?/THE 2:1 
ETS ARE: ?0----------X-----?134*   35    36* ?131    32*   33  ?128    29    30* ?125*   26    27* ?122    23*   24  ?119*   20    21* ?116*   17    18* ?113    14*   15  ?110    11    12* ?1--------------- ?1 7*    8     9* ?1 4     5*    6  ?1 1*    2  
  3* ?1    00    0     ?1COME BACK SOON! ?2ON THAT NUMBER?2DOLLARS ON BET?3TYPES OF BETS ?3HOW MANY BETS ?4THE COMPUTER?6CHECK NO. ?7  (*=RED) ?8YOU LOSE?8SPINNING?9-----$  ?9YOU WIN ?9TOTALS: ?:NUMBER?;BLACK ?;AGAIN ?=YOU ?=RED ?>00?>ME??0 ??  ??Y ??N 	^
Q>8.)2Q?/&2Q?&(C2Q?85$2Q??/42Q?&4)2Q?73!2Q?13X2Q?13O2Q?12=2Q?13F2Q?1242Q?12+2Q?12"2Q?12Y2Q?12P2Q?12G2Q?11>2Q?1152Q?13*2Q?14L2Q?3+Z2Q?V3<2Q?21X2Q?.1"2Q?/.Y2Q?"-82Q?!.I2Q?"0B2Q?(052Q?+0)2Q?+0\2Q?).92Q?$,E2Q?Z/H2Q?$+02Q?Y-A2Q?]+C2Q?T-&2Q?
*N2Q?I(H2Q?&4T2Q?35H2Q?:,Y2Q?Z442Q?85Z2Q?>5^2Q??(V2Q?85L2Q?;5W2Q?=4/2Q?84D2Q?24>2Q?95C2Q?95\2Q?>5T2Q?=5 2Q??,-2Q?[1M2Q?,5P2Q?;5"2Q??-T2Q?^)12Q?I42Q?60O2Q?(492Q?9/W2Q?%4\2Q?41,2Q?0)Q2Q?B332Q?11A2Q?+*+2Q?R"/2QA%^2QA%YQ2QA%W\2Q	UC2Q3APFSJ
PQXZ FYCTI
PGYFR ERFRBPBXCPCXC\DPDRDTDVDXEYEXFQFQ ESFX QX*HFT [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?<K0A =A=1PA<K< =!0A0=A< 0AA=A=1PB<KHC=!0AA =1PCDD=!)FD"0AA0=A< 0AB=A=1PE<K< =!0ABP=A=1PF<K< =!0AD=A< 0ADP=A
1PG<K< =!0AD =A=1PH<K< =!0AD0=A=1PI<K< =!0AE3NGD+RCD3C;O3T?R7L^ 3OSR"M&J3TSA2 &(7NSC/LF+")*M2IOD3A& 7NSCL7W2J;I3C	DF&,3C[I2 SC/FB "M&J3C[D. B1"M&J7JOM* CI3IN3N3D2M&J7NSC+L3W"I602J;I3B[UP&,3IKNU7F2J;I3ROE.,BI"M&J7JCM2 ;I7EKRX*M3IKN3ROE6,RI+ACD7IKNE7C6JRI+A
D2(;I3ROES&)6IV/3PGD+TCE3P	O3NWT3R& 2I?=ER<G2I?=ES<M2I?=EU<S2I?=EW<Y2I?=EY<
2I?=E[<%2I?=E^<+2I?=FP<12I?=FQ<72I?=FR=X2IB%0 S)$>2I"TO WHOM SHALL I MAKE OUT THE CHECK>=^2IB& S0B&P S6!2QC S:?&?1SW;0P?B!PY\84?=7
O>OB*U+&	

0RV2IGT3D& 3N7JP	P6IJ/3EWS/TN 2-GW7YN 7WSIC7H2JRI+CCA3I+NM7P6JRI+ACD3IKN7UCF"M&J3DGC2 ;I7PKT*I>I3ASN6 WB3PWP7RB 3O;I7TKE"M&J7JCM2 ;I3CGHR&I2/?N7WJ 3ESA2 T3EJ 3U[FE7R2J;I7EKRX&,7I+S2 ;I3E[O*I>I7SSE2 ?E3F* 7USS2 ;I2 GCS7E6JNI+MCA3CGL"I&I2/[I. B<2,F 2 P<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/52Q9X9C5%5%2I>1)P(Z ;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