File ROULET.BA (BASIC source file)

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

.1B060J +ECM****2 GG+MCE+OCF7RWO7LSE+TCE3W	R3TWT3NJ 3YR 3A	V3D* 3O3SI7N.JB1*1B03R7E* **2*N 7O[N7ESR+ECD+TCO7BOA+I7C7PWL3SJ 3YR 3A	V3DF +H3L2 	D7GSIA7L.JB1*1B53R7E3A/R3A3B7YR 3R;A3SGL3TSE2 ?T6 OO28J 3A	S3CJ 3Y. +ACY+RB.7FOI7HKE* :.2.WDC*M.1J0*0B 3P	R+NCT2"
W3L?C+MCE+TCO3TWH2 ?R3UWL3TWT2 GT3BWL""*M.1N0*0B 3P	R+NCT.MFJ.0B46 KP7ISN6 ^"7ASN2 ;I7SKT7USC3I;O+S" 3Y> 3R: .)."3\;I7PSU* SY.MFJ.0B62 & 7F& *$J=+NB"3TWH/NF .5B5.MFJ.0F66 KP7ISN2"T3E& 7NSS3ROU3T?I+NCS7FKO2 T+ICS3P?R3GGR3MF +RCE3L;O7GKE2 T+ACN3TWH2 OS3RWE3
N +AKN.MFJ.0J66 KP7ISN2"GH3N3D3EF 3T> +NCE3T7I+EB.2 WB6 WS+RCE3TGH7TR +HCE7ASU7OB-3R;I3T& 7SR 3U;R+ECD+OKN.MFJ.0N66 KP7ISN2"WB7FKO3EN 7OSN7IWN3I
N*.B +TCO3C;O3T;I+U3E6 	T+PCE6<KC*>J.2;	\7NWP7TF "9*M.1^0*0B 3P	R+NCT.MFJ.0B86 B 3R;I+TJ 3T	H3S& 7SR +HCE7BSE3T;I3G2 3A?Y+UKT.MFJ.0B96 B 3R;I+TJ * " 6*J=+E	D""*M.1B1*0B 3P	R+NCT.MFJ.1B16 B 3R;I+TJ * *1* B * B2* B * *3""*M.1J1*0B 3P	R+NCT."R * B . V **B . 
 " 6".JF1*3B06 KP7ISN* B"*7B** B *8B * B *9J*.MFJ.1B46 B 3R;I+TJ *1B0* B *1B1* B *1*2""*M.1V1*0B 3P	R+NCT*"6-*-6-*-6-*-6-*-6-"-6".JF1*6B06 KP7ISN. F"*3B . F *4B*. F *5J .MFJ.1B76 B 3R;I+TJ *1*6* B *1B7* B *1*8""*M.1"1*0B 3P	R+NCT."&1**B . B2* B . F2"*6".J
1*9B06 KP7ISN. J"*2B . J *3B*. J *4J .MFJ.2B06 B 3R;I+TJ *-6-*-6-*-6-*-6-*-6-""*M.1F2*0B 3P	R+NCT."V2**B . Z2* B . ^2"*6".JJ1*2B06 KP7ISN. J"*8B . J *9B . N *0J*.MFJ.2B36 B 3R;I+TJ *3B1* B *3*2* B *3B3""*M.1R2*0B 3P	R+NCT."R3**B . V3* B . Z3"*6".JJ1*5B06 
P7ISN* 6"*-6-*-6-*-6-*-6-*-J-.MFJ.2B66 B 3R;I+TJ * B . B0* B * B0* B ""*M.1^2*0B 3P	R+NCT.MFJ.2B86 B 3R;I+TJ 7TCY+ECS+OCF7BSES6".JJ1*9B06 KP7ISN" *M.1B3*0B 3P	R+NCT2"T3E: 3UKM7EOR* B1+TCO*3B63S
I3N[I3YF 6 SS3R	A7GSH2 WBT6".JN1*1B06 KP7ISN2 >"7NR 7HSA6 WN3MWBR6".JN1*2B06 KP7ISN6 R"7HOE7EB +ACY3O[F. V3*:J1.MFJ.3B36 B 3R;IT6 .JN1*4B06 KP7ISN6 R"+HCE.2F:2 WB+TCS3AWR":6".JN1*5B06 KP7ISN* B"*3&7* 61*1B2* B . B42)Z 7IOR3TN 7OWL+MKN.MFJ.3B66 B 3R;I+TJ .
"3.)F .3J-*4B . R *1B)3SOE3OSN2 ?C3L7UN6".JN1*7B06 KP7ISN* B"*3&9. V2.-Z3* B . J46)R 7HKI3DN 7OWL+MKN.MFJ.3B86 B 3R;IT6 .JN1*9B06 KP7ISN6 R"+HCE3EWV3N6 3OWN3YJ 7EOT6 KA+EJ:.MFJ.4B06 B 3R;I+TJ . N4.)F .-"1* B . R *6B)3OSD""*M.1F4*0B 3P	R+NCT."R *4B)*169*3B
* B *4&72 WRD6".JR1*2B06 KP7ISN* B"*4&56 [E+ECN* B . "42)J 3LOAK6".JR1*3B06 KP7ISN" *M.1R4*0B 3P	R+NCT."R .9B)2 ;A/DV .0B)60B +ACY3O[F. V3*:J1.MFJ.4B56 B 3R;I+TJ 2 ?N/T+E* B03ASN. B02 ?D2 ?N3TN 3O;U7TV 3NWD3RF +NKY.MFJ.4B66 B 3R;I+TJ * B * B 2 WB+TCS3EOX7
SP2 T7EKI6 
ON6".JR1*7B06 KP7ISN" *M.1"4*0B 3P	R+NCT2"W+ECN3IF +SCK7FKO2 GE+CCH7BSE6,	T+PCE3TWH6 WN3MWBR6".JR1*9B06 KP7ISN2 F"+NCD3TWH2 7A3O;U7TN,3EWP7RSA+ECD+BCY3AN 3O7MA6".JV1*0B06 KP7ISN2 Z"+OCR3EGX3M3P7ER:3OJ +ECT.$B520> 3NJ 3LOA7KR,3YWP. "4.,B5"06".JV1*2B06 KP7I
N" *M.1N5*0B 3P	R+NCT2"	M3N7I+UCM7BSE6 OI. V$2,GM3X7I+UCM+ICS.$B5"06".JV164B03R;I7T&"+O
U+RCE3SGT3R	T+NCG7WSI+HR .1B0*0B;3I" 3AWV. F$*020.0B02 ;I2 T3EJ 3A/N6"C\3R;IT*M.1V5*0B 3R7E6-KP7OKG+ACM3B
E7ION2 WHR7E.JV1*6B02 WR7MR-3YWP2 [O2 WB3T:(3UKM+E	R2 SOD7S.JV1*8B03D7I* B.1B02)N,.(B1*02)/TF(*0&0*,X*3&8*,A*5&0.MFJ.5B92 	D3MJ .$J("66).JZ1*0B07FKO. 7I61R /ON 68\*(	I6=207NE3T& .MFJ.6B16 B .=B1"060.JZ1*2B0. 7D.1B0.0B0".*M.1N6*0B 3P	R+NCT2"?H3W6 7A	N2 WB+
KS";*M.1R6*0B 7ICN+UCTY*M.1V620& 7F& *<B13TWH/NF .6B33\[I. 3Y2>;I7T&(6)R 3H;E. Z1"360.JZ1*6B07FKO. 7I61R /OV 20G\*(	I6=207NE3T& .MFJ.6B72 Z +OCR/CF=2 ?T" 7Y.JZ1*8B06 KP7ISN2 :"3UKM+EKR.;/C.MFJ.6B92 & 7NWP7T" ",7Z.J^1*0B03BN(6)*=.MFJ.7B1* T/C6)X*M.1J720& 7
" *<B13TWH/NF .6B83\[I. ;X*5B03TWH/NF .6B83\[I. 3X2>;I7T"(6)R 3H;E. Z1"860.J^1*3B0+ICF/ZF<2 T+ECN.1"620	\7F* 2<&>+NT+ZB)3TWH/NF .6B8.MFJ.7B42 & 7F* *<B53TWH/NF .6B83\[I. ;Z.5B02 T+ECN.1"6"0*M.1V720& 3FF *(	X*=B03TWH/NF .7B8.MFJ.7B66 KP7ISN6 &"+OCU3MSA7ER 
HSA2 WB3T> 3NWC2 3A3RGE+D;Y6 B 3LGE+SCE7BSE2 
A3A;I".6".J^1*7B02 ?G+TCO.1"6"0*M.1"720F *(	X"=61.J^1*9B02 WN+XCTC*M.1B8*0B 3P	R+NCT6"CS3I;N3I
N""*M.1F8*0B 3P	R+NCT.MFJ.8B26 B 3R;IT6 .J"1*3B0. 7S7ISN2(;R/DB(.)F**0&0.MFJ.8B42 & 7FN *=B03TWH/NF .8B33\[I. ;S*3B83TWH/NF .8B3.MFJ.8B5* X/S6)7XN(.)F+.MFJ.8B62 & 7FN .<^32 T+ECN.1J9"0*M.1^8*0B +ICF/SN=67R 3H;E. &1"060.J"1*8B06 KP7ISN. B""06".J"1*9B02 ?G+
CO.2J0"0*M.1B9*0B 3P	R+NCT*"J0.MFJ.9B12 ^ 3O?T. B2"260.J&1*2B02 WR3S?T+RCE.MFJ.9B32 Z +OCR/IF=2 ?T. "1.MFJ.9B46 J 3ESA" 7R.J&1*5B02 [I. 7R7SR 3H;E. B2"060.J&1*6B02 WN+XCTI*M.1^9*0B /A6$2"3B3A/C""*M.1"9*0B 3P	R+NCT3SF;"$*M.1&9*0B 7GSO/OJ .0B2.MJJ.0B02 F *$
=3RSE""*M.2F0*0B 7GSO/OF .9B8.MJJ.0B26 B 3R;IT6 .JB2*3B02 ?F3RN *=B1+TCOY*M.2R020& 7FR *(	C.<^32 T+ECN.2F7"0*M.2V020Z *=T+C6)6326+ICF/FF=2 ?G+TCO.2&020	\3FZ *=B27GSO/OJ .1B9.MJJ.0J52 [I. 7F23^ 3O?T. J26220+ICF/FR=2 ?G+TCO.2V220	\3FZ *=B57GSO/OJ .3B0.MJJ.0
52 [I. 7F26^ 3O?T. N26520+ICF/F^=2 ?G+TCO.2B420	\3FZ *=B87GSO/OJ .4B7.MJJ.0Z52 [I. 7F29^ 3O?T. V26020+ICF/FF=20^ 3O?T. V26320+ICF/FF=21^ 3O?T. V2"660.JB2*5B8+ICF/FF=22^ 3O?T. Z2"360.JB2*7B02 ?G+TCO.2F7"0*M.2"0*0B 3S?TP6 .JB2*9B02 WR+MB .1F-.2N(*7B).2F:.MJ
.1B02 & 7FN . 6<. J12 T+ECN.2V1"0*M.2F160B 3R;I+TJ 7YWO2 ?L+SKE*;B/C.)2"?D3LGL+RCS+OCN7BSE2"N;.MJJ.1B2. 7D3DJ+*(	C.MJJ.1B3. 7P3PJ-*(	C.MJJ.1B42 ^ 3O?T. F2"860.JF2*5B03P	R+NCT2"?Y7U^ +IKN*;B+C*)*2J;3D3O7LKA3S> 3NJ +EKT";7C.JF2*6B03DR=*-B+C*)"2*M.2^160B *=/
3BN(.)J*.MJJ.1B82 ^ 3O?T. "2"160.JF2*9B02 WR+MB *163*2"4*3&8. *2"1*M.2B220& 7FN .=F<22^ 3O?T. J26120+ICF/SJ<25^ 3O?T. F2"560.JJ2*1B02 ?G+TCO.2F1"0*M.2J2*0B 3R7E. J .5N-.6N(*9B).2F:.MJJ.2B32 [I. 7S.<R22 ?G+TCO.2R220	\7FN .<^32 ?G+TCO.2V1"0*M.2R2*0B 7GSO/OJ
.1B1.MJJ.2B56 J +ECM2 	F7RSS2 ?C3L7U/NR(*0B).2F:.MJJ.2B62 Z +OCR/IF=2 ?T. R36 SS+ECP"3*M.2^2*0B +ICF3S&=2 T+ECN.2V1"0*M.2"2*0B 7NE3T& .MJJ.2B92 ^ 3O?T. F2"160.JN2*0B02 WR+MB 3SOE3OSN2 ?C3L7U/NR(*1B).2F:.MJJ.3B12 Z +OCR/IJ=2 ?T. V36 SS+ECP"3*M.2J3*0B +ICF3
&=2 T+ECN.2V1"0*M.2N3*0B 7NE3T& .MJJ.3B42 ^ 3O?T. F2"160.JN2*5B02 WR+MB 3T	H+RCD3C3O3U;M.(J4.)J ":61.JN2*6B02 ?F3R& *=B3+TCO*3B63SWT/PN .MJJ.3B72 & 7FN *=CI3TWH/NJ .1B5.MJJ.3B82 : 7ESX" 7I.JN2*9B02 ?G+TCO.2F1"0*M.2B4*0B 3R7E. F .-"1.(N4.)F ":61.JR2*1B02 [
. 3S*1B93TWH/NJ .4B3.MJJ.4B22 ^ 3O?T. F2"160.JR2*3B03P	R+NCT2"?Y7U^ +IKN*;B/C.)2"?D3LGL+RCS+OCN7BSE2"N;.MJJ.4B4. 7D3DJ-*(	C.MJJ.4B5. 7P3PJ+*(	C.MJJ.4B62 ^ 3O?T. "2"160.JR2*7B02 WR+MB *169*3"6*4&4. *1"1*M.2"420& 7FN .=F<28^ 3O?T. R26920+ICF/SN<27^ 3O?T. R2
360.JR2*9B02 ?G+TCO.2F1"0*M.2B5*0B 3R7E2 V 3V;E.(V4.)F ":61.JV2*1B02 [I* ?S.2:<2 ;I7TN(*/&22 T+ECN.2J520	\7FN .<^32 T+ECN.2N4"0*M.2J5*0B 7GSO/OJ .1B1.MJJ.5B36 J +ECM2 SO/DR(*6B).1F:.MJJ.5B42 [I* ?S22&=+NT/SJ/6)R 3H;E. V26520+ICF/SN<67R 3H;E. R2"360.JV2*5B
2 ?G+TCO.2F1"0*M.2Z5*0B 3R7E6 J +ED*4&7. *1"1*M.2^5*0B 7ROE7TKOE6 .JV2*8B02 ?F3R& *=B1+TCO"168.JV2*9B02 WR+ACDR*M.2B6*0B +ICF7SJ=2 T+ECN.2N4"0*M.2F6*0B 7NE3T& .MJJ.6B22 ^ 3O?T. F2"160.JZ2*3B02 WR+MB 3BGL+CK*4&8. *1"1*M.2R6*0B 7ROE7TKOE6 .JZ2*5B02 ?F3R& *=
1+TCO"168.JZ2*6B02 WR+ACDR*M.2^6*0B +ICF7SJ=2 T+ECN.2F1"0*M.2"6*0B 7NE3T& .MJJ.6B92 & 7FN .>Z32 T+ECN.2F1"0*M.2B7*0B 7GSO/OJ .4B3.MJJ.7B16 J +E7M6-R1/OZ3*,20*0"0.1N-.6R,.9V,.0N).5F:.MJJ.7B22 [I* T/C2)*4B93TWH/NJ .7B6.MJJ.7B32 [I* T/C2).>&42 ?G+TCO.2R720	\
FN .=^32 ?G+TCO.2"7"0*M.2R720& 7FR *(	C.<V>20^ 3O?T. ^26520+ICF/SN=28^ 3O?T. ^2"860.J^2*5B02 ?G+TCO.2F1"0*M.2Z720& 7FR *(	C*=CS3TWH/NJ .7B8.MJJ.7B72 ^ 3O?T. F2"160.J^2*8B03P	R+NCT2"?Y7U^ +IKN*;B+C*).3.52"?D3LGL+RCS+OCN7BSE2"N;.MJJ.7B9. 7D3DJ-*(	C.*V3.MJJ.
B0. 7P3PJ+*(	C.*V3.MJJ.8B12 : 7ESX" 7C.J"2*2B06 KP7ISN" *M.2N8*0B 3P	R+NCT2"?T3T3A+SJ:2,6"+E2"2"?YU6".J"2*4B06 KP7ISN* B"2"R,",7P.J"2*5B02 [I. ;P60R 3H;E. "2"860.J"2*6B06 KP7ISN2 >"7OOP6!& +OCU7JOU7TN 3P;E7T& 7OKU2 GL+SCT3D3O7LKA""*M.2^8*0B 7GSO/ON .1B9.M
J.8B82 & 3FR *>B03TWH/NJ .9B2.MJJ.8B96 B 3R;I+TJ 7YWO6 KB3OWK2 T3E" 7OOU+EJ!.MJJ.9B06 B .=B1.1B0"06..J&2*1B02 ?G+TCO.2Z9"0*M.2J9*0B 3P	R+NCT2"
A3A;I""6;.J&2*3B07ICN+UCTY6$.J&2*3B5/Y6$3S
E6$&(.$F,*,&1.MJJ.9B42 & 7F& *$J=+YB"3TWH/NF .6B3.MJJ.9B52 R 3AGT* 21.3V,*,27.9F,.2F,.4F,.6F,.8F,.9J,.1J,.3J,.5J,.7N,.0N,.2N,.4N,"6*M.2Z9*0B +ICF/PF<2 T+ECN.3&1"0*M.2^960B 3R;I+TJ +TCO3W?H7MN 3H3A3L& 2 GM+KCE7OSU2 T3EN 3HOE/K.".MJJ.9B82 & 7NWP3TJ "$*M.2&9
0B 3P	R+NCT.MNJ.0B06 B 3R;I+TJ *-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-"-6".JB3*1B03P	R+NCT3TKA.(B5*)J;3CWH+CCK+N;O. ."7ISN2(;R/DB(.)F**0&0.MNJ.0B26 B 3R;IT6 .JB3*4B03P	R+NCT3TKA.(B42)R;+AST*(&0.MNJ.0B56 B 3R;IT6 .JB3*6B06 
P7ISN" *M.3^0*0B 3P	R+NCT2"GP7YR 7OR +HCE3OSR+ECR+O7F*-6-.-."/B.$*"6-*-6-*$J ";*M.3"0*0B 3P	R+NCTP*M.3&0*0B 3P	R+NCT.MNJ.1B06 B 3R;IT6 .JF3*1B03P	R+NCT3TKA.(B1*)J,3TWH2 3C7AOS+ICC7NSA3I;O+ACL3M7E7O	R2 GB+NKK.MNJ.1B26 B 3R;IT6 .JF3*3B06 KP7ISN2 GT/BR(*02)2
T3EN 7OCM3UWTR6".JF3*4B06 KP7ISN2 GT/BR(.0.)*"6-*-6-*-6-6-"-*-6-*-J-.MNJ.1B56 B 3R;IT6 .JF3*6B06 KP7ISN* 6"*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-"-6".JF3*7B06 KP7ISN2 N"3OWM2 GB+CCK3S?O+NJ!.MNJ.1B82 ^ 3O?T. J3"160
JF3*9B06 KP7ISN6 R"3H;A+KCS7FKO2 ?Y+UCR3M;O+EKY.MNJ.2B06 B 3R;I+TJ 3I2	7LV +SCE+ICT+TCO7B	U* CA3S3O+ICD3G3O7DJ 3O3U7EST7E^ 3HWEL6".JJ3*1B06 KP7ISN" *M.3J2*0B 7GSO/ON .4B2.MNJ.4B22 V +NCD&M*J

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