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.0B76 B 3R;IT6 .JB1*8B06 KP7ISN6 R"7HOI6 OI2 T3EJ 7EST3I
N2 GL7YWOT6".JB1*9B06 KP7ISN* B"* *(2=WR+DJ).MFJ.1B06 B 3R;IT6 .JF1*1B06 KP7ISN* B"*1B** B *2B * B *3J*.MFJ.1B26 B 3R;I+TJ * B4* B * *5* B * B6""*M.1N1*0B 3P	R+NCT."^ **B . " * B . & "*6".JF1*4B06 KP7ISN. F"*0B . F *1B . F *2J*.MFJ.1B56 B 3R;I+TJ *-6-*-6-
-6-*-6-*-6-""*M.1Z1*0B 3P	R+NCT."N1* B . R1**B . V1" 6".JF1*7B06 KP7ISN. F"*6B*. F *7B . F *8J*.MFJ.1B86 B 3R;I+TJ *1*9* B *2B0* B *2*1""*M.1&1*0B 3P	R+NCT."J2* B . N2**B . R2" 6".JJ1*0B06 KP7ISN* 6"*-6-*-6-*-6-*-6-*-J-.MFJ.2B16 B 3R;I+TJ *2*5* B *2B6* B 
2*7""*M.1J2*0B 3P	R+NCT.""2* B . &2* B . B3"*6".JJ1*3B06 KP7ISN. N"*1B . N *2B*. N *3J .MFJ.2B46 B 3R;I+TJ *3*4* B *3B5* B *3*6""*M.1V2*0B 3P	R+NCT*"6-*-6-*-6-*-6-*-6-"-6".JJ1*6B06 KP7ISN* B"* B *0B0* B *0B * J .MFJ.2B76 B 3R;IT6 .JJ1*8B06 KP7ISN6 R"3YWP3
> 3FJ 7EOT""*M.1&2*0B 3P	R+NCT.MFJ.3B06 B 3R;I+TJ 3TWH6 WN3MWB+RCS61R /ON 66N 3I;G7I	F* CA7SKT3A
I+HCT7BSE""*M.1F3*0B 3P	R+NCT2";O2 T+ACT3N7U7BKE""*M.1J3*0B 3P	R+NCT2"T3EWS2 GP3Y> +FCF.3*5"16".JN1*3B06 KP7ISN" *M.1R3*0B 3P	R+NCT2"T/EJ *:B17BSE3SF /R+E""*M.1V3*0B 3P	R+NCT."N *7B).1F-*2B * B *4&02 	F7RSS2 ?C3L7UN6".JN1*6B06 KP7ISN* B"*3&8. N1.-R2* B . 
46)N 3E?C+NCD3C3O3U;M""*M.1^3*0B 3P	R+NCT."N *9B)*265*3B6* B *4&22 T3ISR2 ?C3L7UN6".JN1*8B06 KP7ISN" *M.1&3*0B 3P	R+NCT2"T3EV 3V;E2 ?M7N	E2 WB+TCS3AWR":6".JR1*0B06 KP7ISN* B"*4&3* 61*1B8* B . Z42)> +DKD.MFJ.4B16 B 3R;I+TJ . R4.)F .9N-*6B . R *7B)3RSE""*M.
J4*0B 3P	R+NCT."R *5B)3EWV+NB * B *4&82 3B3A/C""*M.1N4*0B 3P	R+NCT.MFJ.4B46 B 3R;I+TJ . &4*)B03ASN. B5.)B02 GP3Y> +FCF.3*5"16".JR1*5B06 KP7ISN* B"7NSO+EB:20F +NCD*0B0+DCO7NSO2 ?C7USN2 ;U7DKE2 ;AY6".JR1*6B06 KP7ISN* B"* B * B 7BSE3SV 3XWC+PCT3TWH+ICR3O;W""
M.1^4*0B 3P	R+NCT.MFJ.4B86 B 3R;I+TJ 3WWH3N& 6 OA3KZ +OCR3EOA3HJ +E3T7TCY7ER +HCE3N7U7BKE""*M.1&4*0B 3P	R+NCT2";A7DR +HCE3A?M7USN2,WS7PKE3AWT3DJ 3YF 2 ?C3MGM""*M.1B5*0B 3P	R+NCT2"?F3RV 3X7A3PWL2:?T2 WB+TR .5B02 ;O2 3B3A/C6,	T+PCE*428.5B0""*M.1J5*0B 3P	R+N
T.MFJ.5B36 B 3R;I+TJ 3M;I7IWM3MJ +ECT+ICS*$257MA7IWM3M& +SR .5B0""*M.1R560KP7ISN2"?Y7UJ	7EN 7TKA3T;I7G^ 3IT. F$.0B02;& 2 GH+VCE.$B1.0B,*0B0+ICN3TWH2 GB+NKK7\KP7ISN.MFJ.5B56 J +E7M3P?R3GGR3MJ 3E	G+NCS7HKEE*M.1Z5*0B 3R7E6-	T+PCE+OCF7BSE6(WN3MWB+RB)3OSDS*M.1
520R +ICM/BF(*0&0*,C.1B06)R,.(B1*02)/XN(*82)/AV("06).JV1*9B03D7I* SB.(Z2")*M.1B620Z +OCR/IF=2 ?T. "3+\X/I6)20;\7ESX" 7I.JZ1*1B0. 7P.1B0"0*M.1J6*0B /DF=.0B0*0:0.MFJ.6B36 B 3R;I+TJ 7H
O2 GM+NCY7BSE/S.".MFJ.6B42 & 7NWP7T& .MFJ.6B52 [I. 3Y61R 3H;E. Z16320+ICF/Y:<7ISN*(	Y2 T+ECN.1N6"0*M.1Z620Z +OCR/IF=2 ?T. B5+\A/I6)20;\7ESX" 7I.JZ1*7B02 ?F3RN *=B1+TCOY*M.1"6*0B 3P	R+NCT6"WN3MWB/R."C6;.JZ1*9B02 ;I7PSU* 3XZ*M.1B720J *(	C"=7Z.J^1*1B03TN(6)"
.MFJ.7B22 [I. 3X61R 3H;E. Z16820+ICF/XV>60R 3H;E. Z16820+ICF/X:<7ISN*(	X2 T+ECN.1"6"0*M.1N720& 7F* *<B13TWH/NF .6B83\[I. 3Z2>;I7T*(6)R 3H;E. Z1"860.J^1*4B02 [I. 3Z65R 3H;E. Z16820+ICF/ZV>*0B03TWH/NF .6B8.MFJ.7B52 [I* A/X6)60R 3H;E. ^1"860.J^1*6B06 KP7ISN6
&"+OCU3MSA7ER 7HSA2 WB3T> 3NWC2 3A3RGE+D3Y3D7U6-WDM6".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*1B06 KP7ISN2 GT/BF(*02)2"T3E6 3E?M+RCY3B;A3K> 7FZ 3I
R3I	NA6".JF3*2B06 KP7ISN" *M.3N1*0B 3P	R+NCT3TKA.(B4*)J,3TWH2 ?C7MWP7TKE""*M.3R1*0B 3P	R+NCT3TKA.(B4*)J;*-6-*-6-*-6-*-7X*-6-"-6".JF3*5B06 KP7ISN" *M.3Z1*0B 3P	R+NCT*"6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-""*M.3^
*0B 3P	R+NCT2"?C+MCE3BOA7KN 3O;O"!6".JF3*8B02 ?G+TCO.3F2"0*M.3&1*0B 3P	R+NCT2"T3A/N3SZ +OCR7YWO3R6 3OWNY6".JJ3*0B06 KP7ISN2 &"2	3L6 OU3E& 7TR 3OJ +UCY7AN 3O	L3D^ 3OSL2 ?R3UWL3TWT2 W3E3E""*M.3F2*0B 3P	R+NCT.MNJ.2B22 ^ 3O?T. R3"260.JR3*2B02 ;ED6 BJBZ

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