File ROULET.BA (BASIC source file)

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

61B 3R;I7TR"7HOI6 OI* CA3G7A3E> 7FJ 3O3U7EST+EB.7YWO2 GH+VCE.1B02 C7IOP2 ?T6 SS7ASR""6 *JB23P	R+NCT2"	W+TCH3W	H+CCH7YWO2 GC3NJ +E;T2 ?Y3UN +ACN3O3N3YJ +ECT7TKH+ECE3T7I+EKS" *M63B 3R;I3TZ"+OCR3EWV+RCY3S	P3N> 7FR +HCE3WWH+ECL2.?Y3UN +ACN7BSE2 ;O2 ;A3Y: 3UKM
EKR.MRJ6 KP7ISN2 Z"3R7O* B0+TCO*2:0""*M65J 3ASN3O	MZ7E.JJ22 WL3T6 .1F=" *M*2B37LSE. KM*=B1.MJJ242 +ECT/M63"16 .J&26 KP7ISN.MNJ202 +ECT/LF="060.JF32 WL3T" "=60.JJ32 WL3T& "=60.JN32 WL3T* "=60.JV32 WL3TN "=63.JZ32 WL3TJ .1J="1*M*3B77LSE. KB.=F2.MNJ282 +ECT/
63"261.J&32 WL3TJ .4J="1*M*4B07LSE. GD.=F2.MRJ212 +ECT/D62"261.JJ42 WL3TR .3J="1*M*4B37LSE. SD.=F2.MRJ242 +ECT/E61"261.JV42 WL3TV .2J="1*M*4B67LSE. OE.=F2.MRJ272 +ECT/E64"261.J"42 WL3T: .1B=" *M*4B97LSE. KN*=B0.MVJ202 +ECT/N63"06 .JZ56 KP7ISN.MZJ60B 3R;I+
J 7H
O2 GM+NCY3C	H+PCS+DCO7YWO2 GW+NCT+TCO3PGL+CCE+OCN3EOA7HN 3QGU+RKE";*M*7B5+ICF/CN=2 T+ECN.1V4"06 .J^76 KP7ISN.M"J25& 3FN *=B23TWH/NF .4B6" *M*8B73P	RN7T.JB92 [I. 7C61R 3H;E. R1*7B9.M&J62B 3R;IT*M.1R16 KP7ISN.MFJ*1B53P	R+NCT2"?H3W6 7A	N6 WN3MWB+RCS*(2122>,/
R 2)R 7O& +OCU7WOI7HR 3ON 3OWV7R^ 3IT""*M.1^16 KP7ISN2 >"+NCE7BSE2(	P+CCK3O3N3Y> +N	E""6 .JJ120& 7NWP3TF .MFJ*2B13P	RN7T.JJ162B 3R;IT*M.1V22 [I. 7A61R 3H;E.1B6" *M.1B32 [I. 7A62R 3H;E. N2"0*M.1V32 [I. 7A64R 3H;E. "2"0*M.1B46 KP7ISN6 B"3LGE+SCE3T	H+NCK3AGG
I3N2 ?Y3UN +ACN3O3N7YB 3I/C.1J,6,KO*4B".MFJ*4B5+GCO+TCO.1V1.MFJ*6B03P	R+NCT2"?Y+UCR3OSD3SF +RCE*2B0+TCO*1B,3WGH3T& 7S& 7OKU6 WN3MWB/R.".MFJ*6B13P	RN7T.JZ162B 3R;IT*M.1V62 [I. 7C63R 3H;E. J1*0B0.MFJ*7B0+ICF/CJ=2 T+ECN.1F2"06 .J^125& 3FN *=B13TWH/NF .2B2" *
.1V92 [I. 7C63R 3H;E. N1*0B0.MJJ*0B5+ICF/CJ=2 T+ECN.1F3"06 .JF225& 3FN *=B13TWH/NF .3B2" *M.2Z12 ?G2 ?T. J3"5*M.2&26 KP7ISN.MJJ*3B03P	R+NCT2"?Y+UCR3OSD3SF +RCE*1B0+TCO*1B,3WGH3TF +RCE7YWO/RJ 6 WN3MWB+RKS";*M.2F36 KP7ISN.MJJ*3B23P	RN7T.JN225& 3FN *=B33TWH/
F .3B3" *M.2B42 [I. 7C62R 3H;E. N1*4B0.MJJ*4B5+ICF/CF=2 T+ECN.1V3"06 .JV220& 3FN *=B33TWH/NF .3B6" *M.2V52 [I. 7C62R 3H;E. N1*7B0.MJJ*7B0+ICF/CF=2 T+ECN.1"3"06 .J^225^ 7OR /ON "265.J"260B 3R;I+TJ 7YWO3R> 7DOD6 KA/EV 2 ?T* 212 W+ACT3AWR2 ?Y+UCR7FWO3R: 3UKM
EOR""6;.J"261B 3R;IT*M.2J86 KP7ISN.MJJ*8B5+ICF/CN=2 T+ECN.1&3"06 .J&220& 3FN *=B23TWH/NF .4B0" *M.2V92 [I. 7C61R 3H;E. R1*1B0.MNJ*1B0+ICF/CN=2 T+ECN.1J4"06 .JF325& 3FN *=B23TWH/NF .4B3" *M.3B22 [I. 7C61R 3H;E. R1*4B0.MNJ*2B57LSE. 7K*(+H*2>0+M&12+&(.*B2./K
*)"+/JJ*206/"36).JJ328& 3F2 .-3K60R 3H;E. F9"0*M.3B52 WL3TN *=7C"1*M.3B62 [I. 7C60R 3H;E. F4"5*M.3&66 KP7ISN.MNJ*7B03P	R+NCT2"?D2 ?Y7U^ 7ASN2 ?T2 3P3AWC2 ;A3Y6 3OWR2 WB+TCS3B[E3OWR2 T7E^ 3HWEL6".J^361B 3R;I+TJ 3S	P7N/S3Y> 3R: +]J ";*M.3B82 ;I7PSU* SA.MNJ*
B13P	RN7T.J"362B 3R;IT*M.3N86 KP7ISN.MNJ*8B5+ICF/A6$*"KY2 T+ECN"660.J&360B 3R;I+TJ 7YWO2 WB/T."+KJ;3C	H+P3S2 ?Y3U" 3AWV2"2;.-/K2"C7IOP2 WL+FKT.MNJ*9B13P	RN7T.J&362B 3R;IT*M.4B02 WL3T^ 2=;I/TJ(.0&.2*;R/DF(")6).JF420^ 7OR /OR "260.JF465B 3R;I+TJ 7YWO2 GH+VC
7N
O2 ?C3M3P3EWT7D& 7OKU2 T3RWE2 WB+TKS" *M.4B26 KP7ISN2 :"+OCW3TWH2 ?R3UWL3TWT2 W3E3E2 	W+LCL3S	P+NB".MRJ*2B13P	RN7T.JJ462B 3R;IT*M.4N26 KP7ISN.MRJ*4B03P	R+NCT2"T3E: 3UKM+ECR+ICS2"^;" *M.5B72 [I2 ^(.-GB*)"*3GJ-*2*)*(7G+B&32*^(.-SB.)B=2 T+ECN.6B3.MVJ*8B0+ICF
(7G+D&12*^(.-KD*)"*3GR-*3*)*(7G+D&4*=B03TWH/NZ "365.J&520& +F" 3GV-*1*)*(7G+E&22*^(.-OE*)"*3GV-.46)60R 3H;E. R6"0*M.5F92 [I. GN.+KN.+ON*>B03TWH/NZ *4B5.MVJ*9B23P	RN7T.J&563B 3R;IT*M.6B06 KP7ISN2 &"2 7A2 ?S7R	R6,& +OCU3POI3KSE2 T7E^ 3R;O3G: 3UKM7EOR""6 .JB
252 +ECT3L2="-7K.JB666B 3R;IT*M.6B16 KP7ISN6 &"+OCU7N
O2 GH+VKE.;/L2"C7IOP2 WL+FKT.MZJ*1B5+GCO+TCO.6B8.MZJ*3B07LSE. GN.=GM"*7H.JN622^ 7OR /OV "860.JN6252 +ECT/N62+M*2I*M.6^32 ?G2 ?T. &5"0*M.6B42 WL3T: 236=23**.MZJ*4B57LSE. 7P+N.1+N.2+NB3.MZJ*5B07LSE. 7L7LB+"-7K.JV661B 3R;IT*M.6J56 KP7ISN.MZJ*6B03P	R+NCT2"?C7
KG7AWT7LSA3I;O+SB,7YWO2 GH+VCE3W;O6"B;2;N"7HCIS6".JZ661B 3R;IT*M.6B76 KP7ISN6 &"+OCU7N
O2 GH+VKE.;/L2"C7IOP""6 .J^661B 3R;IT*M.6J76 KP7ISN.MZJ*8B03P	R7N3T3P	R+NCT2"3P+ACY3AGG+ICN6?. 3Y> 3R: +]J ";*M.6V82 ;I7PSU* SA.MZJ*9B5+ICF/A6$*"KY2 T+ECN*3B1.M&J*0B03S?TP6 .JF960B 3R;I+TJ 3CWH3AWT7R& +OCU7H[A3EJ 7EST+ECD7MKO3EN 7HCI7SR 3H;A2 ?Y3U> +W;N""
 .JF962B 3R;I+TJ 3TWH2 GC3S;I7OR 3AWK3SF +LCL3ASN2 WS7NOD2 ?Y3UF 7W	A2.^ 3OSO2 	R3DWD+NKS.M&J*1B53P	R+NCT6"	BE6".JJ920^ 7OR /O& "060.JJ1*0B07ICN+UCT+BB1.MFJ.2V02 ?G2 ?T. ^1"0*M.1F220& 7NWP3TR "16 .JJ1*1B5+GCO+TCO.1V7.MFJ.2B22 ;I7PSU. GE" *M.1J225^ 7OR /OF
"965.JN1*0B07LSE. GM. J="06 .JN1*0B5+GCO+TCO.2V0.MFJ.3B12 WL3T6 .26 *2B0.MFJ.3V12 ?G2 ?T. F2"5*M.1J3202 +ECT/M63"260.JN1*2B5+GCO2 ?T. F2"66 .JN1*3B07ICN+UCT+B21B62.JN1*3B5+GCO+TCO.2B4.MFJ.3B42 ;I7PSU. GD2,R "26 .JN1*4B5+GCO+TCO.2V4.MFJ.3B52 ;I7PSU. GE.,KE
MFJ.3V52 ?G2 ?T. V2"0*M.1Z3202 +ECT/M61"160.JN1*6B5+GCO+TCO.2V5.MFJ.3B72 WL3T6 .2F="0*M.1^325^ 7OR /OJ "760.JN1*8B07LSE. OM.=B1.MFJ.3V82 ?G2 ?T. ^2"5*M.1&320& 7NWP3TJ 21J,22J,23J,"4*M.1&325^ 7OR /OJ "960.JR1*0B07ICN+UCT+D21+D22+D23D64.JR1*0B5+GCO+TCO.2V9.
FJ.4B12 ;I7PSU. GE.,KE.,OE.,SE.MFJ.4V12 ?G2 ?T. F3"0*M.1J4202 +ECT/M61"56 .JR1*2B57GSO/ON *1B5.MFJ.4B32 WL3T6 .2V=" *M.1N425^ 7OR /ON "260.JR1*4B02 WL3T6 .3V=.MFJ.4V42 ?G2 ?T. J3"5*M.1V420& 7NWP3T" .MFJ.4V52 ?G2 ?T. V8" *M.1Z420& 7NWP3T& .MFJ.4V62 ?G2 ?T.
B9" *M.1^429& 7NWP3T* .MFJ.4B82 ?G2 ?T. F1"5*M.1B620V N7D&J*L

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