File HARDY.BA (BASIC source file)

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

.1B02 WR3M" 3ASR+Y6 6-B 3R
O3R7A2 ;O2 T3E" 3ASR7Y^-3E;I7BKE3G^ 3EWN3TOI7SB 3R;I7CCI+LCE" *M.1B12 WR3MN 7O	P3R
I+HCT.1^9*36 6 SS3AWT2 ;U3IWV3R	S+TCY+OCF7N
E2 ?YR7K.JJ160J +ECM3PZ=7RGE3U;E+CCY+OCF3TF 3LWL+LCE2(?D3M;I7ASN")6,.JN160J +ECM3QZ=7RGE3U;E+CCY+OCF+TB13A3L3EWL6 J(3EWC3S	S+V	E" *M.1B42 WR7MN 61N=7ACM+LCE7S+I+EB,/R613N7U7BKE2 WR7COE7S[IE*M.1B52 WR3MR 3EWV7LCO+ECD+BCY+KB.7M	O6,J 2.N 7OCO3E7R+A3N2 ;A3DF 
.Z 7ROI3HGMN*M.1B62 WR7MB 3R
O3R7A3MSE6 	B* ;C2 ?L3S/I2,* 7AWN7A	R. &1"762.J^160J +ECM7LSA7ESS2 WR7VOI3I;O.:F .1J-.8^-"3*M.1B82 WR3M2 +ECT7QJ=+ND"16).J&160J 3ASN3O	MZ7E.JB260B 3R;I+TJ 7PCO3UGL3T?I3N^ 3EWN3TOI7SN 3TSU+Y6 2 T3E" 3ASR7Y^-3E;I7BKE7GB 3R;I7CCI+LKE" *M.2V02 WL/T7N"6*M.2B16
KP7ISN.MJJ*2B03P	R+NCT2"?D2 ?Y7U^ 3IS2 ;I7SKT7USC3I;O+S" 61&=+E3S. 60+N	O""6;.JN220& 7NWP3TJ .MJJ*4B0+ICF/BB=2 T+ECN.3B9.MJJ*5B0+ICF/B:<61R 3H;E. F2"0*M.2V52 ?G3SKU. B2"160.JZ260B 3R;I+TB .MJJ*7B03P	R+NKT* B 6 R +HCE7HKA+D7Y3W	E3NWB+RCG3P	R3N	C3PWL6 KP3O	
7DOE* CA3S7I3PWL2 GWY6".J"260B 3R;I7TR"3ON 3AOL3UGL+TCE3TWH6 KP3O?P3R	T+OCN+OCF3O
R3A	N7SOM2 ;I* CA7PCO3UGL3T?IN6".J&260B 3R;I7TR"7HSA6 KA3E" 3O?M3Z
Y7OOU2 ?D3M;I7ASN2," 3EWT7R+O3Y?G+UCS3D7O3IGN+N3T6 KO""*M.3B06 KP7ISN2"?H7M+O3Y?G+UCS3ROE7EOS3IWV2 	W+TCH3R
E3ASR2 ?T* CA3SWP3C[I+ICC3TGR+I;T2 F +LKL.MNJ*1B03P	R+NKT+WCE3NWE7DR 3OR 3EWT3R	M+NCE3TWH+SCE3P?R7PKO3T?I+NCS3AWR2 T7EB 7RCO7OSR3I;O2 [O""*M.3B26 KP7ISN2"3A3L3E+ECS+ICN3TWH2 WG+NCE3P?O7L^ 3HOI3HF +RCE3D7O3IGN+NCT7FKO2 T+ICS3TGR+IKT.MNJ*3B03P	R+NKT*(	P2 ;A
DR +HCE3P?R7PKO3T?I7N^ 3HOI3HF +RCE3ROE7EOS3IWV6 F(*)J..MNJ*4B03P	RN7T.JV360B 3R;I7T^"7E^ 3I3L2 	G+VCE7YWO* CA7PCO3UGL3T?I3N> 7FJ 7AOT2 ?T2 ?W+RCK7WSI+HB.2 ?S+MKE.MNJ*6B03P	R+NKT7H[A7EN 7HKO3T" 7AKI6,N 3OWM2 GH+VCE3L;O3G" 7AKI*.B 3S?H+RCT3H	A3R& S6".J^360
 3R;I3TR"3O	M3N;A+TB,3L;O3G" 7AKI2 WR7COE7S[I+EB.2 T3EWR6 KA/EF .0B06 CS3E	C3M;E+SJ..MNJ*8B0+GCO+TCO.5B1.MNJ*9B03P	R+NKT+DCO7YWO2 	W+SCH+TCO3C7O3P3I7E& 7OKU6 
O3N& 3N?F3RGM3T?I3N> 3NF 6 CS3E	C3FOI*"B .MRJ*0B03P	R+NKT3TGR+ICT.(617YOE.,B 2=?N.).".MRJ*1B07ICN+UCTC*M.4B22 [I. 7C61R 3H;E. R7"0*M.4B32 [I. 3C*>B03TWH/NN *9B0.MRJ*4B03P	R+NCT2"?D2 ?Y7U^ 7ASN.:F 2=T3E> 3R
I3IGN7LJ +ACT7PCO3UGL3T?I+NB,+OKR.MRJ*5B03P	R+NCT."623A: +ECW7RSA2 ?P3P3U3A	T+OKN";*M.4B62 ;I7PSU" 7N.J^420& 3F: *=B13TWH/NV "160.J"420& 3F: .<J>2 T+ECN.4B4.MRJ*9B07LSE. 7N3RSN*(&1.MVJ*0B0+GCO+TCO.5B2.MVJ*1B07LSE. 7N..&1.MVJ*2B03P	R+NCT2"?H3W6 7A	N2 GR+TC
+DCO7YWO2 GW+NCT+TCO3S7A3PWL""6;.JN520& 7NWP7TN "1*M.5B42 [I. GS2<&>+NT+S&12 T+ECN.5B2.MVJ*5B0+ICF7AOB.(GS.-B5.1:).5B02 T+ECN.5B2.MVJ*6B03P	RN7T.J^520& 7FN .1J>65R 3H;E. B6"0*M.5B86 KP7ISN6 J"+ACT2 P3E?N7TCYE6".J&560B 3R;I+TJ *-6-* 6 *-6-*-6-*-J-.MZJ*0B07
SE. GR"=60.JF620Z +OCR/IF=2 ?T. GS.MZJ*2B07LSE. 7Q3RSN*(	I.MZJ*3B0+ICF3Q:<2 T+ECN.6B7.MZJ*4B0+ICF/S:1*2B53TWH/N^ "060.JV660B 3R;I3T& *;B"2 S7OSR2 GH+IKR.MZJ*6B0+GCO+TCO.7B0.MZJ*7B07LSE. GR.=GR"+61.J"620& 7FN .1J>65R 3H;E. B7"0*M.6B96 KP7ISN. /I*"B 3L;O3G"
7AKI""*M.7B02 WN+XCTI*M.7B16 KP7ISN6 R"3OGT3L: 3UKM+ECR3ROE7EOS3IWV* J=.;GR.M^J*2B03P	R+NCT2"?T3T3A6 WN3MWB3RR 3O	M3N;A/T6 6"N;61J-"1*M.7B32 ?G2 ?T. R8"0*M.7B46 KP7ISN.M^J*5B03P	R+NCT6"WN3MWB3R> 3F> 3RGG7NOI+MCS3EGX3M;I+EKD";*M.7B62 ;I7PSU. GS" *M.7B72 [I
 GS*<B13TWH/N^ *5B0.M^J*8B0+ICF/S212>;I7TN(*1B)3TWH/N^ "560.J&760B 3R;I+TJ 3N7U7BKE2 [O6 KO3G;A3I7S7SN 7H
O3I
N2 WR7COE7S[I7ER 3R	A/T.".M"J*0B07ICN+UCTR61.JF820& 7FJ .1:<7ISN.(GR6)R 3H;E. &7"0*M.8B22 [I. GR*<B13TWH/N^ "960.JN820& 7FJ 61N>61R 3H;E. V7"0*M.8B46 KP7ISN.M"J*5B03P	R+NKT3WGH7TB 7RCO7OSR3I;O2 [O2 T3OWS6 E3A	M3NSE2 S3OWW7DR +HCE3ROE7EOS3IWV6 KT7ASI""*M.8
56 KP7ISN2"T+ICS+ICS7QF*""6;.J"820& 7NWP3T: .M"J*9B0+ICF7AOB*(7N*.&5*<:=65R 3H;E.9B0.M"J*9B13P	R+NKT3PWL3AWS2 ;I7PSU2 T7EB 7RCO3O?P3R	T+OCN+ICN3TWH2 ?F+RCM+OCFA6".J&862B 3R;I3TR"3E	C3M3A6 WN3MWB3RJ 7E
T3E;E* :0*0B03ASN* :1*0J0.M"J*9B47GSO/OV8"0*M.9B02 [I2 KA3S:(.-GR./GS*):<*0B13TWH/N& "360.JF960B 3R;I+TJ 3PWL3AWS2 C3E/C2 ?Y+UCR3C3A3C3U3A	T7OON".6".JJ920^ 7OR /O" "560.JN9202 +ECT7QN=+QR+R>1+S&1.M&J*4B07LSE. 7P61F-.M&J*5B03P	RN7T.JZ960B 3R;IT*M.9B72 [I. 
B61R 3H;E. J1"760.J^961B 3R;IT*M.9V76 KP7ISN*"6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-"-6".J^966B 3R;IT*M.9B86 KP7ISN6 R"3OR 3EWT3R	M+NCE3TWH2 GV3LWU2 [O* CP3ASN* CQ3ASN2 T3E^ 3E?N7TCY+IKC.M&J*9B03P	R+NCT6 J"3A	T+O3S2
WR3C3A7LR 7HSA":6".JB1*0B03P	RN7T.JB1*1B03P	R+NCT*":16 B * B+/Q6 * B13S;I+CCE3TWH6 KP3O?P3R	T+OCN+OCF3A3L3EWL3S& 7NR +HCE3G;EE6".JB1*2B03P	R+NCT*"B 6 B 3O3O2 W3IC6 KA3ER 3O	M3N;A3TZ +OCR7AR 3R	A7TB 7LOU2 TE6".JB1*3B03P	R+NCT*"B 6 B 7RCO7OSR3I;O2 W3IC6 KA7
J 3EWC3S	S+VCE7RCE7ROE7ESN2 3A3LF 3LWL7LOE""*M.1R060B 3R;I+TJ * B 2 ;I2 T3E^ 3EWN2 ?P+O3L""*M.1V060B 3R;IT*M.1Z060B 3R;I+TJ *2B.* +P7PJ 7EKP3EWS7NOT2 T7EB 7RCO7OSR3I;O2 [O2 T7EB 7OWP7LSA3I;O2 T+AKT.MFJ.0B76 KP7ISN* B"* B 3AWR2 ?H7M+O3Y?G+UCS3D7O3IGN+N3T""
M.1"060B 3R;IT*M.1&060B 3R;I+TJ *3B.* *27PF*2 WR3PWR3S;E+TCS3TWH6 KP3O?P3R	T+OCN3TGH3TF +RCE7HSE3E?R3Z
Y7OOU""*M.1B160B 3R;I+TJ * B 2 ?D3M;I7ASN",6".JF1*1B03P	RN7T.JF1*2B03P	R+NCT*":46 F **CQ7RCE7ROE7ESN7SR +HCE3P?R7PKO3T?I3N> 7FR +HCE7PCO3UGL3T?I7NR 7HSA""*M.1N160B 3R;I+TJ * B 2 S+OCW3TWH2 WR7COE7S[I7ER 3R	A+TB,3IV.6.R 7HSA6 KA3E" 3O?M3Z
Y7OOU""*M.1R160B 3R;I+TJ * B 2 WR7COE7S[I+EJ,.MFJ.1B86 KP7ISN.MFJ.1B96 KP7ISN. V"*.B 7PB** B+62B***CQ6+F **CQ.=F 2 	S3NWC2 T7EB 7RCO7OSR3I;O2 [O2 TE6".JJ1*0B03P	R+NCT*"B 6 B 7OWP7LSA3I;O2 T+ACT3AWR2 ?H7M+O3Y?G+UCS3D7O3IGN+N3T2 3P+UCS3TWH""*M.1F260B 3R;I+T
 * B 6 KP3O?P3R	T+OCN3TGH3TF +RCE7HSE3E?R3Z
Y7OOU6,B 7LOU2 TE6".JJ1*2B03P	R+NCT*"B 6 B 7RCO7OSR3I;O2 T+ACT3AWR2 ?H7M+O3Y?G+UCS3ROE7EOS3IWV2 WR3PWR3S;ET6".JJ1*3B03P	R+NCT*"B 6 R +HCE7TSO+ACL7PCO3UGL3T?I+NJ..MFJ.2B46 KP7ISN.MFJ.2F46 KP7ISN*"6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-
-*-6-*-6-*-6-*-6-""*M.1V260B 3R;IT*M.1Z260B 3R;I+TJ +ICN3TWH2 KA3OWV6 E7ACM+L3E. .".MFJ.2B76 KP7ISN6 F"* J=";7Q.JJ1*8B03P	RN7T.JJ1*9B03P	R+NCT2"WG7NSO3YWP*"J,* 2"6"KP3O?P3R	T+OKN2,:"3UKM+EKR.MFJ.3B06 KP7ISN* 6"*-6-*-6-*-2"*"J *,6"*-6-*-6-*-6-*"J,*-6-*-6-"
*M.1F360B 3R;I+TJ 3H7O7O	Z7GWO3SR 3O	M3N;A+T2"7ISN.(B160B***/P*.&5./B1"06,.JN1*1B37LSE/Z697ISN*(+P7PN**1:+"56).JN1*1B47GOO+UCB.1B4"0*M.1J360B 3R;I+TJ 7HSE3E?R3Z
Y7OOU2 ?D3M;I7ASN2"&,+NT.2B0**+P+Q:+*5>).1B0",*M.1J3232 7E+T29&=+NT62B***+Q+S.1*.&5.MFJ.3R22 ?G3SKU. R1"060.JN1*3B03P	R+NCT2"?H7M+O3Y?G+UCS3ROE7EOS3IWV2"&,+NT.1B0**+Q+Q:+*5>).1B0",*M.1N3232 7E+T29&=+NT7QF*.*GS.+V.")*M.1N324^ 7OWS/BF .4B0.MFJ.3B46 KP7ISN.M
J.3B56 KP7ISN.MFJ.3B66 KP7ISN2 R"7O& +OCU7WOI7HR 7OJ 3EWP+ACT3T	H7SB 3R
O3R7A. F(2=WY+SB,20:=+OJ)";*M.1^320& 7NWP3TJ .MFJ.3B82 [I. 7B61R 3H;E. &3"0*M.1&320& 3FJ .<B>2 T+ECN.1Z3"0*M.1&369N 7TCO.MFJ.4B02 [I/Z6960R 3H;E. R1"165.JR1*0B53P	R7NST+AB*4647ISN2(?L7G*(*9:+.0V02)2/+OG*1&0.).)Z69.JR1*1B07RSE3U;R.MFJ.4V16 KP7ISN3TKA.(R4.)
;.MFJ.4B22 WR7TKUN*M.2B060N 7TCO.MJJ.0B16 KP7ISN6 R"+HCE7OSU7PSU2 T+ACT7YWO2 GH+VCE7RGE7UOE3TSE6 OI2 ?L3NWG7RR 3H;A2 T7EN 3CWR+EKN.MJJ.0B26 KP7ISN2 N"+ACN3H;A3DWL*.B +BCE7SKU7ER 7HSA2 T3EF 3U?T6-KP7ISN6 OI6 WT3RWN3D> 3NJ 3E?F+RKE.MJJ.0B36 KP7ISN2 N"7OSN7I
N3I
N*.B +TCO3C;O3T;I+U3E6 	T+PCE6<KC*>J.";*M.2R020& 7NWP7TF "9*M.2V060J 7EWTR7N.JB2*6B03ESN&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