File HORSES.BA (BASIC source file)

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

21R +ICM/VF(*02)/UF(*02)/TF(*02)/M"(2)>,*(&8*,H*82)/B"(6)B,*(&6" *M62J 3ASN3O	M+ZCE7\B 3R;I+TJ 7HKO+SCE3ROA+EB".MNJ6 KP7ISN2 V"3X7A3PWL2 [O2 WB+TB;.1J,.,B2.0B,* J..MRJ2 WR7MKA3KKA+LCY3TGR3N3S3AWT7DR 3O> +SB87BOA+ICC+BCY7K	A* ;R2 	F3SWH+R: 2.R.E7C*JB53P	R+
CT7\B 3R;I+TB"* B 6 N 3EWV3NT* B-216 3IWL.,N 6 KY2.> 7LOD* B * B 2 ?P+SCT.2N:"56"*JB63P	RN7T*JB77FKO. 7I61R /O" " *M28J *(	I*=CI3\^ 7OWS/BF *6B4.M&J2 WR+ACD3O&(6)2 6 KP7ISN* O/I.)."F:""6 .JB1* M/I6).(B1.0V+20>**(	I*)> 2 >(*(	I*+&1.MFJ21: 7ESX* CI.MFJ62B 3
;IT*M*1B33P	R+NKT7ESN+ECR7HKO+SE.1"-6)R;7O^ +I3N3PGL+C3E3S?H/WF(*,22.3.)3ASN2 T7E^ 3AWG+RJ..MFJ64B 3R;I+TJ 3ASN* B07FKO2 ?N2 ?M+RCE7BSE3T;I3G> /RF 6 KO2 ?M+RCE7BSE3T;I+GJ..MFJ252 +ECT/S6 " 60.JZ16 KP7ISN.MFJ272 +ECT/S6 * CS.+F .MFJ68B 3R;I3TJ"+ECT+N;O. ."
SB;.MFJ29& 7NWP7TR *(	S*,U+S2)7VN(6)&,"1*M*2B07LSE* T/S6)7AOB2(;I7TR(*(	S")6).JF22 [I* T/S:)*8B 3TWH/NJ 26	\7FR *(	S*<B13TWH/NJ "6*M*2B37LSE* U/S6)7AOB2(;I7TV(*(	S")6).JR22 [I* U/S:)63R 3H;E. Z2* C\+ICF7UN(.)B>2 T+ECN"269.JZ26 KP7ISN2"?H3RWS2 ?N2.> 7R^ +I
N3PGL+C7E3S?H3W& 3NV 3R?R+RB"3\^ 7OR /OF "86 .J"22 [I* V/S2)62R 3H;E. B3.MJJ29& 7FZ *(	S.<N=*0B03TWH/NN "36 .JB36 KP7ISN2"WB3T6 7USS2 WB* R>22F +NCD.<N$*0202 WB3TF 3G	A/N."" *M*3B17ICN+UCT7VN(6)2 2 ?G2 ?T. "2.MNJ23& 7F& .16 * B13TWH/NF "7*M*3B53P	R+NCT7\B
3R;I+TB"6 R 7H	E2	WR2 [O3FF +NCD3R;U3N;I+G6 6"2 6 KP7ISN.MRJ20Z +OCR/IF=2 ?T6 283H&(.)B=3\WN+XCTI*M*5B77FKO. 7K61R /O" " *M*6B27FKO. 7J61R /O" +\H/J6)3H*(6)J++ND*0*)3M*(2);\7ESX* CJ.M^J20^ 7ON /UGB"460.JF72 R * B=3HJ(*(&1")*M*7B33P	RN7T.JV72 ?G6 WS/BF *9B
.M^J26^ 7ON +UCB.1&5" *M*8B07NE3T. " *M*8B53P	R+NCT7\B 3R;I7T2 6 KP7ISN."J$6 WM3TWU+LCS3P	A+DJ:.M"J66B 3R;I+TJ * B * B * B * B 7SKT3A
I+HCT* B 3PGL+CCE* B 2 S+OKW" *M*8B77LSE* CK.=B .M"J28Z +OCR/I6 * B1+TCO"36 .J&82 ?G6 WS/BF *6B5.M&J25Z +OCR/J6 * CI+TCO"36 .JZ9. 7L22&**+7J"3*M.1F02 WL7TB *(	L*=:1*5:+*0*17ISN2(>(*(B+I&)**>4*(+J*(/J*1&)2+;R7D*(*1&).*B1"06).JB162B 3R;I7TR +AB.3F+20**6)B;*
	L";*M.1N02 WN+XCTJ6 .JB164B 3R;IT*M.1V02 WN+XCTI6 .JB167B 3R;I7T2 . 7Q"0*M.1"02 ?F3R* *=B1+TCOS6 .JB169B 3R;I+TJ 7BSE2 ?N*.J *;CJ.MFJ*1B07LSE. 7P"0*M.1J12 Z +OCR/IF=2 ?T6 283HJ(*(	I2)&=3\WN+XCTI*M.1R12 [I* U/J2)* H3T*(*)B)3TWH/NF "262.JF166B *=: *0*17ISN
(Z(*(	J.*B56)B**(U+J.)7HR(*(	J.)J**-&3*)B .MFJ*1B83P	R+NCT2"?Y3UN 3O3L7ESC6"B;2;>"+NJ ";6 .JJ120^ 7OR /OF "266.JJ122& 3F" *(T+J&)*>B33TWH/NF *2B47\B 3R;I+TJ 7NE7TR 3IWM2,J +UCY7AN 7H
O*"B;3\^ 7OR /OF *2B5.MFJ*2B43P	R+NCT2"WT+ACR+UCP7YWO/R.".MFJ*2B53P	R+NCT6"R 3I/C+ECT+OCN*"B;.MFJ*2B6/IB=* C\/BB(6)R=*(	J* C\7GOO+UCB.1V6* C\3P	RN7T.JJ167F *=/Q7PZ-*(	J" *M.1"22 WN+XCTJ6 .JJ129& 7FF *<B03TWH/NF "362.JN160B 3R;I+TJ 7YWO7RR 3OGT7L^ 3I;N3I
N3SF 7MWO+NCT+TCO.$."7Q2 6 SS+OCP.MFJ*3B23P	R+NCT2"?Y+UCR7TSO+ACL7LOO7SOE2 7A3O;U7TR +OR 2"F;+BS+QB)7\N 7TCO.MFJ*4B07FKO. 7I68R /OF 6 SS+ECP*-B1.MFJ*4B27FKO. 7J62R 3O& " *M.1R4. KW2=
S3N"(*(B/JF-*)6)3HJ(*(	J*).)22	\7F^ .2F=7GSO/OF 6428+ICF/W6223^ 3O?T. V1"06 .JR126& 7FJ +ND.0:)*.B53TWH/NF "560.JR1*8B /Y613B*(*-&1* C\3B*(*-&1*=B+JB)3\J *(	J.=GY.MFJ*5B07NE3T* " *M.1J52 WN+XCTI6 .JV164J 7EWT+RCN.MFJ*5B93R7E.MFJ*6B13P	R+NKT7POO*.B 7HKO+SC
2 2 3E
N7TOH2 WB3H;ID6".JZ123Z +OCR/I6 * B1+TCO"86 .JZ164B 3R;I3T& ";6 .JZ125[I3B&(.)F=7GSO/O"126	\+FB/I6)22?G/TGO68243IKF*(	I2=^33O?T.1J83\[I3B&(.)R=7GSO/O"1"0*M.1Z62 [I3B&(.)V=7GSO/O^128	\+FB/I6)26?G/TGO67263IKF*(	I2=^73O?T.1R7.MFJ*7B23P	R+NCT2"?C7ASL3O;W* B *
B;3\^ 7OR /OF *8B7.MFJ*7B43P	R+NCT6"SS3Y	M+EB * B *"B;3\^ 7OR /OF *8B7.MFJ*7B63P	R+NCT2"GG3LGL+NCT7FO*"B;3\^ 7OR /OF *8B7.MFJ*7B83P	R+NCT2"WS3A	B7SWC+ICT*"B;3\^ 7OR /OF *8B7.MFJ*8B03P	R+NCT6"OA7SWA+LCT* B *"B;3\^ 7OR /OF *8B7.MFJ*8B23P	R+NCT2"W3I3R3AGW+YB
*"B;3\^ 7OR /OF *8B7.MFJ*8B43P	R+NCT2"	C7TSA3I;O* B *"B;3\^ 7OR /OF *8B7.MFJ*8B63P	R+NCT2"GM3N> 2	GW+RB *"B;.MFJ*8B7+ICF/K6 * B03TWH/NF *9B33\& 3F& * B>61R 3H;E. &1"16 .J"168B 3R;I7T2 2 ?G2 ?T. &1"2*M.1F96 KP7ISN. F.2*;I3TR(*-H3B&(*)&).MFJ*9B27NE3T& " *M.
N92 WR7TKUN6 .J&128& 3F. 2=^13O?T.2R03\[I/KJ=7GSO/OB226	\/F7K23?G/TKO60283I/F2=^43O?T.2B13\[I/KV=7GSO/OF2"2*M.1&92 [I. 7K26^ 3O?T. F224	\/F7K27^ 3O?T. B2"2*M.2B06 KP7ISN* B"* B * B * B 3F;I3IS6"2 2 WR7TKUN*M.2J06 KP7ISN*"B 2 ?C3M;I3GR 3O;W2 T7EN 3TWR3TC* 
-* C\7RSE3U;R" *M.2R06 KP7ISN*"B 6 OA2 T+ECY3BWR+ACK3F?R7MR +HCE7GSA+E6 6"2 2 WR7TKUN6 .JB266B 3R;I+TB"2 F 7TR +HCE.1R/2 	M+LCE3P3O+E6 6"2 2 WR7TKUN*M.2"06 KP7ISN*"B 2 WN3A	R+NCG3TWH2 GH7L
F+ACY7MKA+K6 6"2 2 WR7TKUN*M.2B16 KP7ISN*"B 2 	M3DGW3Y& 7NR +HCE3ROA+E6 6"2 2 WR7TKUN*M.2J16 KP7ISN*"B 6 SA* >528> 3FF 2 	M+LCE*-B"7\J 7EWTR7N.JF264B 3R;I+TJ * B 7RWO3N	D+NCG3TWH6 WT+RCN*-B"7\J 7EWTR7N.JB321R 3AGT* 23.4V,*,28.9F,.1J,.0N,"0*M.9&92 ;ED*MBZ

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