File DOGS.BA (BASIC source file)

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

65J +ECM* ;V3NA3I	G+ACN* B 6 R83H^ 3RSA+EB * B 3D
O2 GR+CCE3G7AE*M67J 3EGM3RGK7B	L6 KT7AON7LSA+ECD+TCO/OS2 GB3SOI6 	B2 GK7YJ 2.Z 3IS+ECR*.:.3DOE.MFJ20R +ICM/SF(*02)/CF(*02)/JJ(*02)/WF(*02)/AF("06).JV12 	D3M: .$J(*02)+H"$*1&0*,P*2&0*,V*1&0*,X*1&0.MJJ20R +ICM/YF(*02)/BF(*12)+M"5*2&0.MZJ60B 3R;I+TJ 3PWL3AWS
 GW+I3T2 	D3SWR7GKA7DR +HCE*2B53B3E+LKS.MZJ66J 3ASN3O	MZ7E.JB72 ?F3R& *=B1+TCO62253H&=+NT*1*03RSN*(&0.)F+.M^J62Z *(	H*=V+H.)"1*M*7B47FKO. 7T61R /OF 20	\3F" *=CT3TWH/N" "5*M*8B07XR(6)"=*(	T"+61.JV82 WN+XCTT*M*9B03P	R+NCT7PSN*(&7";*M*9B57NE3T& .MFJ*0B03P	R7
3T3P	R7N3T3P	RN7T.JB165B 3R;I7TR +AB*1&06;^"3EOL3OWM2 ?T2 ?R+O7K3AR-+ACY3ROA7ER 3ROA+KF!"!6".JF160B 3R;I7TC\3R;IT*M.1V16 KP7ISN2 R"7O& +OCU3W;A7TR +HCE7ION7TWR3C	T7OON6"2;7ICN+UCT7I2$7GSO/OJ "165.JJ160B 3R;I+TJ * B 6 R 7HOI6 OI* CA3D
O2 GR+CCE3G7A+EB.3TWH+RCE3AWR. B12 ?D+GKS.MFJ*2B53P	R+NCT2"W3IC6 WR3N& 7NR 7HOI2 GR+C;E2 T7E^ 7ION2 ;A3D2 7OOS+ECS+OKF.MFJ*3B03P	R+NCT2"GE+CCH3D
O6 KA7EJ 3E?C3RWD+DJ..MFJ*4B53P	R+NCT*"B * B 3TWH2 	W3NWN3R> 7FR +HCE3ROA7E^ 3I3L2 WB2 WD7TKE3M;I+ECD+BCY7H
O""*M.1B56 KP7ISN2 6"7A	N2 	W+NCS3ASN2 ?L3SWS3SV 3AC2 ?D3G" +A;S2 [A7TKE2 T7E^ 7ION2 ;AD6".JV165B 3R;I+TJ 7LOO7SOE2 [O2 GE+CCH3D
O2 GH+VCE3BWE7NB 7OSS+E3D2 ?Y7U^ 3I3L2 GH+VCE+AJ .MFJ*6B03P	R+NCT2"C3AON7ER 3OJ +E;T2 ?N2 ?M+RCE3TGH/NF 69B 7ECO+LCE3AWR2 3A7L
O+EKD.MFJ*6B53P	R+NCT2"?T2 WB3T& 7NR 7HOI2 GG+M;E2 W+ECN7BSE3T;I+GB,7YWO2 GC3N?N3TJ +ECT3OWVR6".J^160B 3R;I+TJ .$B5.0B.20F +NCD7MOU3TJ +ECT+ACT3LGE+SCT*$:2*0:02 ?M+RCE3TGH/NF ""*M.1V76 KP7ISN6 B"7EOR+OCN7M	A2 WB3T> 7NR +HCE3S7A3ER +O;G2 [A7TKE2 T3EJ 7EOT"
*M.1B86 KP7ISN2 F"+RCE3MSA7ER +HCE3OSD7S^ 3I3L2 WB2 	F7GKU+ECD3ASN2 ?P3SWT3DF +NCD3TWH" 6".J"165B 3R;I+TJ 3ROA7E^ 3I3L2 WB3G;I".6".J&160B 3R;I+TJ * B 6 R +HCE7SKT3AWT+GCY+OCF3T	H3S^ 3AWM6 OI2 ?T2 	P+CCK3TWH2 	W3NWNR6".J&165B 3R;I+TJ +ICN3SOU3HF 2 GW7YR 7H
A2 T3E> 7DOD2 ;O2 T+ACT3D
O6 KA3E^ 3OSO2 ;I""*M.2B06 KP7ISN6 &"7OKU2 GF7VKO".6".JF260B 3R;I7TC\3R;I7TR +AB*1&02;^"3OSO6 WL+CGK6!2"7GSO/OJ "260.JF225& 3F& *$J=7YOE6"R 3H;E. J120
\3O?T. J2"0*M.2B22 ?G3SKU. J2"5*M.2J22 ?G+TCO.2V5.MJJ*2B53P	R7N3T3P	R7N3T3P	R+NCT2"?D+G2"6"WN3MWB+R2"2"	W+NKS2,2"7OOS+EKS.MJJ*3B07FKO. 7I61R /OF "0*M.2V32 WR+ACD+H"$I6).JR265B 3R;I3T" 2$&(2)&,*,V+I2)3X&(")*M.2B52 WN+XCTI*M.2J52 WR7TKUN*M.2V56 KP7ISN7\KP7I
N7\KP7ISN2 ""+OCW3M;A7Y^ 3IS2 ?T2 WB/T.".MJJ*6B07ICN+UCT3Q	\7FF .<B22 T+ECN.2B7.MJJ*6B53P	R+NCT2"?N2 ?M+RCE3TGH/NF 29F 3L?L3WSE6"C\3R;I3T
\3O?T. V2"5*M.2B72 ?F7R* *=B1+TCOQ*M.2V76 KP7ISN2 J"7EST+O
R3S: 3AWM6"2;7ICN+UCT+N"$Z6).J"260B 3R;I+TJ 3D
O*	CS3N7U7BKE6"2;7ICN+UCT7J*(")*M.2V86 KP7ISN2 F"+NCD7YWO3RJ +EKT2;	\7NWP7TB *(	Z.MJJ*9B0+ICF7P*(.)J<2 T+ECN.3B03\[I* P/Z:).5B02 T+ECN.3V1.MJJ*9B53P	R7N3T7NE7T* .MJJ*9B67GSO/ON "265.JB360B 3R;I+TJ 7YWO6 WM+SCT7BSE6 SA2 WL7ASS. J$..B06.R +RCY3AGG+IKN2;: 6$
(")*M.3V06 KP7ISN6 &"7OKU2 WB/T."3\;I7PSU* PZ6).JF320^ 3O?T. &2"0*M.3V16 KP7ISN6 &"+OCU3C;A*	CT7BSE6 [O+ECR.$B5.0B.*0J *;SN*(	Z*;B"7T	R2 
A3A;I""*M.3B22 ?G+TCO.3V0.MNJ*2B57FKO. 7I61R 7OF .MNJ*3B0/BF(.16)/BF(*1.)3P&(")*M.3V32 WN+XCTI*M.3Z32 WR+MB 3A?M7USN2 [O2 WP3O3P7EB 7L	A3I
N.MNJ*4B07FKO. 7I61R 7OF .MNJ*4B23R7E2 R 7OOG.MNJ*4B57FKO. OI*=B1+TCO"160.JV320& 3F* *(	I2<&>63R 3H;E. Z3"0*M.3V5* A+I&3*=A+I&3*+PI6).JZ320: 7ESX. OI.MNJ*6B57NE3T& .MNJ*7B07FKO. 7I61R /OF "0*M.3V72 [I* A/I:)*=B23TWH/NN "960.J"320J *(	I2=;I3TJ(.(F16)J*+ND+
&)"+61.J"325^ 3O?T. &3"5*M.3B9* B/I6)7ISN2(J(.(F12)F-*(	I*)"/3A&(*)"-..^1**A+I&)")6).J&325& 3FJ *(	I.<J=2 T+ECN.4V0.MRJ*0B07GSO/OR "160.JB425J *(	I"=62.JF420: 7ESX" 7I.JF465B 3R;IT*M.4B26 KP7ISN2 R"+OKG2,:"3UKM+EKR2,>"7DOD""*M.4V22 ?F3R& *=B1+TCO"160.JN46
B 3R;I3T" 2$&(2)&,*,B/I.)*"B:"16".JN425: 7ESX" 7I.JR420Z +OCR/IF=2 ?T. B1.MRJ*4B5+ICF3V&(6)"+*(	I.<B=2 T+ECN.4B7.MRJ*5B53Y&(2)&=+NT3V&(2)F/+BS*(V+I.)3X&(*)&)2+;I7TZ(*(	I2*;R7D"(*).)"16).JZ420& 7F& *(	I*<B73TWH/NR "760.JZ425^ 3O?T. ^4"5*M.4B7* Y/I6)7ISN*(*
3RSN*(	X.)F+.MRJ*7B57NE3T& .MRJ*8B07FKO. 7R61R /OF "0*M.4V8* S/R6)"0*M.4B92 WN+XCTR*M.4V96 KP7ISN.MRJ*9B63P	R+NCT7PSN*(&72;;P/T^(6)B;+NT.7.)7PSN*(&72;;P/T^(")6;.J&467B 3R;IT*M.5B06 KP7ISN2 GT/BJ(*)J;*-B1.2N * B4.5Z * B7.8& . B1*"J,3ASN2 T+E
Y+RCE3O[F*!F!""*M.5B12 ?F7RJ *=B1+TCO"160.JJ520N *(	R2=;I7T&(*(	R2*;R7D"(*).)"1*M.5V2* S/R6)7SJ(2)N+*(	R.MVJ*3B07NE7TJ .MVJ*3B53P	R+NCT3TKA*(&26;""7XX7XX7XSS7ASR7XX7XX+XKX.MVJ*4B07FKO. 7P61R /OJ "0*M.5V42 ?F7RJ *=B1+TCO"160.JV520& 7FB *=S+RB)3TWH/NV "860.
V525& 7FN *(	R.>B22 T+ECN.5B9.MVJ*6B07NE7TJ .MVJ*6B53P	RN7T.J^520: 7ESX" 7P.J^525^ 3O?T. J6"5*M.5B82 [I. 7R21^ 3O?T. "5"4*M.5F82 ?F3R& *=B2+TCOR*M.5J86 KP7ISN* B". .".MVJ*8B37NE3T& .MVJ*8B43P	R+NCT7RB;+NT*1&3";*M.5V82 ?G+TCO.5B6.MVJ*9B0+ICF/WF(.):<60R 3H;
. B6"5*M.5V9* W.16)R*M.6B02 ?G+TCO.5B6.MZJ*0B5/DJ=.MZJ*1B03WR(6)J=.MZJ*1B53DR="+61.JJ620^ 3O?T. Z5"0*M.6V22 [I* W.12)*>B03TWH/NZ "460.JN660B 3R;I7TR +AB.2.)6"X7XX3X[X3I	N7SH7XX7XXX6".JN625^ 3O?T. F5"0*M.6B42 ?F7R& *=B2+TCO"262.JR665B 3R;I7TR +AB/Y.)*"KX2;
T7B&(6)B;+NT.7.).MZJ*5B0+ICF/Y^=2 T+ECN.6V6.MZJ*5B57NE7T& .MZJ*6B07GSO/OZ "860.JZ665B 3R;I+TJ 2 	F7NOI/H.".MZJ*7B0/YF="3*M.6V72 ?G+TCO.6V5.MZJ*8B03P	RN7T.J"665B 3R;I+TJ . .".MZJ*9B07FKO. 7I61R /OJ 62C\3R;I+TJ .+."3\WN+XCTI*M.6J96 KP7ISN" *M.6V92 [I. 3D*=B
3TWH/N^ "365.JB720^ *=W"16).JB725Z +OCR/I6261R 3OR .M^J*1B0+ICF7S^(.(KI.)2)7S^(.(KI*+&16)R 3H;E. J7"5*M.7V12 WN+XCTI62.JJ720^ 3O?T. N7"5*M.7V2. 7G3W&(.2F+")*M.7B32 ?G+TCO.7V1.M^J*3B53P	RN7T.JR760B 3R;IT*M.7V46 KP7ISN2 F"+NCD3TWH2 	W3NWN3R& 3SR +OCG3N7U7BK
2"^;*,SH*(	G.M^J*5B03P	R7N3T7GSO/O& "760.JV765J 7ESS3OWR.M^J*6B07FKO. 7E61R 7OF .M^J*6B5+ICF3G*=*(	E2 T+ECN.7B9.M^J*7B0+M"5/E6)+M"5+E6)3PV(")*M.7V7. 
N.=
N*+PE6).J"720: 7ESX" 7E.J"725^ 3O?T. N8"5*M.7B92 [I* B/G6)62R 3H;E. B8"0*M.7V92 ?G+TCO.8V0.M"J*0B03B^(.)F=.M"J*0B53M&=+NT.1B02*J(*(	G**P+E.)3PV(*)>).1B0")*M.8B16 KP7ISN2 N"3O
N7RSA3UGL3T?I+NCS2":;2$V(*)J;2 ?Y3U" 3AWV2 ?W+NR 2"6;.M"J*1B5+M"5/E6)+M"5+E.)M*M.8B2. 
N.=
N"-7M.JJ865B 3R;IT*M.8B32 ?G+TCO.7B8.M"J*3B53P	R+NCT2"?W3USL2 ?Y3UF 3VSI2 GR+CCE3F;A3S2 3IWK2 ?T2 3P+ACY3AGG+IKN";*M.8B42 ;I7PSU* SL.M"J*4B5+ICF/L6$2"WY+SB"3TWH/N" "760.JV860B 3R;I7TC\3R;I+TJ 7PKE3S;O*"J,3A?M7USN""*M.8J52 ?F3R& *=B1+TCOQ*M.8V56 KP7ISN* SN
(	I.,WM*(	I3\WN+XCTI*M.8^56 KP7ISN2 N"7OCM2":,"7*M.8B62 ?F3R& *=B1+TCO65C\3R;I3T;\7ESX" 7I.JZ825^ 3O?T. B1"965.J^820Z +OCR/KF=2 ?T. B1.M"J*7B53A.(.)B=.M"J*8B03S.(.)B=.M"J*8B53W.(.)B=.M"J*9B03C.(.)B=.M"J*9B53J.(.)B=.M&J*0B0/BF(.16)"0*M.9V0* B/K6)"0*M.9B12 
N+XCTK*M.9J12 ?G3SKU. J2"5*M.9V16 KP7ISN2 F"+NCY7N
E3C7O7EOR6"2;7ICN+UCTC6$.JJ920Z +OCR/IF=2 ?T" 7Q.JJ965B 3R;I3T: 2$&(*)J;2 ?Y+UCR3D
O3S: 3UKM+EKR2;	\7NWP3T* *(	I.M&J*3B03P	R+NCT2";A7D& 7OKU2 WB/T."3\;I7PSU* PI6).JN925& 7FB *(	I*<B23TWH/N& 6520+ICF3P&(.)V>*0B03TWH/N& 66207NE3T& .M&J*4B0+ICF/C6$2"?N6"R 3H;E. J3"5*M.9V42 ?G+TCO.1J0"5*M.9B56 KP7ISN6 &"+OCU7MOU3TJ +ECT+ACT3LGE+SCT*$:2*0B02
:;2$&(*)B;6"& 7OKU2 WB/T.".M&J*5B57ICN+UCT3P&(2)
\3O?T. N9"5*M.9B66 KP7ISN6 &"+OCU3C;A*	CT7BSE6 [O+ECR.$B5.0B.*0J *;SN*(	I*;B"7T	R2 
A3A;I""*M.9V62 ?G+TCO.9B3.M&J*7B07FKO. 7I61R /OF "0*M.9B82 [I. 7I7GR 3H;E. &9"5*M.9V8* X/I6)3X&(.)F+.M&J*9B07GSO/OF .0B0.M&J*9B53V&(6)Z=*(	I"+61.JB1*0B07NE3T& .MFJ.0V02 ?G+TCO.7V5.MFJ.0B12 GD+TCA2"GF3SWT+R2"2"WZ3LGD*"J,3SWP7E	D*"J,3Z[I3FWL*"J,3K3I7LKE""*M
1F025R 3AGT2 J"3UKR+OKN2,J"7U+G+Y2"2";S7OCO+Y2"2"GL3S	S+E2"2"	W3NWNR6".JB1*2B07GSO/OF .0V9.MFJ.0V26 KP7ISN7\KP7ISN2 ""+OCW3M;A3Y: 3EOW3OWM+RKS6;G\.4B=3\;I7PSU. [J/\SQ*=/QJ66.JB1*3B0+ICF/Q:4*1B93TWH/NF .0V3/\7Q7Q24/Q6420
\3O?T. B1"460.JB1*3B53P	R+NCT2"?N2 ?M+RCE3TGH/NF 29F 3L?L3WSE6.& +OCU7N
O2 GH+VCE6"F;/\SQ6=207GSO/OF .0V2.MFJ.0B42 ?F7R* *=/I61R 7OF .MFJ.0V46 KP7ISN2 J"7EST7OOR2 GN+MKE2;	\7NWP3T: 6$*(")*M.1V060B 3R;I+TJ 3D
O3S: 3UKM+EKR2;	\7NWP3T* *(	Z.MFJ.0V56 KP7ISN2 F"+NCD7YWO3RJ +EKT2;	\7NWP7TB *(	Z3\[I* P/Z2)62R 3H;E. B1"760.JB1*6B0+ICF7P*(.)V>*0B03TWH/NF .0V7.MFJ.0V66 KP7ISN3\WN+XCTZ*M.1Z027^ 3O?T. J3"5*M.1^060B 3R;I+TJ 7YWO6 WM+SCT7BSE6 SA2 WL7ASS. J$..B02"
\3O?T. B1"565.JB1*7B53P	R+NCT2"?Y3UN 3A;N+OCT7BSE6 [O+ECR.$B5.0B.602"7GSO/OF .0V5.MFJ.0B82 ?G+TCO.3V2.MFJ.0V92 ;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