File EVEN.BA (BASIC source file)

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

60J +ECMI6 *JB17LSE. GY*=B0.MFJ202 +ECT/M61"06 .JB22 	D3M6 .(B26)&,.(B2")*M*3B03P	R+NKT* B 3T	H3S& 3SF 6 
T7OB-7EOR+OCN3G7A3EN 3A3L+ECD6	[E+ECN3W;I+S^.""*M*4B03P	R+NKT+TCO3PGL7YR +HCE3G7A+EB,3TWH2 3P3AWY+RCS3NWE/DJ 276 3AKR7LOE6 KO""*M*5B03P	R+NCT6"KO6 SO7HKE2 KO3JOE+TCS+OCN7AR 3A3B+EB.2 T7EJ 3UWL3SF /R+E""6 .JB66 KP7ISN* ""*1B)2 ?Y3U6 7USS2 3A7TKE7NSA7ER 3U;
+SJ." *M*7B03P	R+NCT."J(*)B 7YWO6 WM+SCT3T/A/EF 2 ?T* B47MKA3BWL3SF 3TV 3AC6 WT+R;N""*M*8B03P	R+NCT."N(*)B 3TWH2 GG+MCE3ESN7S^ 3H;E2 T3EWR6 KA3E: 3O6 3AKR7LOE2 WL+F3T""6 .JB96 KP7ISN.MFJ*0B03P	R+NCT*"B * B 3N7U7BKE2 [O2 GM3R3B+ECS+ACT3TWH2 ;E3D> 7FR +HCE3
7A+EJ." *M.1B76 KP7ISN* B"2 F 3S6 7YV 3N3C3EJ 3I3L6 OU+ECD+TCO7S	A*:^ 7H[A3I
N2 WH3LWPD6".J"160B 3R;I+TJ 3W	R+TCE3TWH2 GG+M3E* CI7AOS7ESR6 SI2 GT7KOE2 ?M+RCE3TGH3NF ""*M.1F86 KP7ISN2 6"3O	D3C7U2 [O2 /S3I3L2 ;A3DF 3L?S6,R 3AWL+N;T2 6 7A	N7SR +HCE3T7I+EB".MFJ*8B23P	R+NCT2"	W7LSS6 E3P?L3R;I7GR +HCE3S?H7ROE2 [O2 GL+KCE7TSI3IGC+CCA3ASN
"*M.1N86 KP7ISN6 R"+HCE7NSE7HKE2 WR3AC+ECS+OCF3TWH2 WL3SWS3RF 3N	T3L	L+E3S2 WB3I
N""*M.1R86 KP7ISN2 Z"3OOR+ECD+TCO7SKU7V[I7E^ 3IT7OSU6 KD3I/N2 ?F3R" 7OKU3SF 3TF ""6 .J"165B 3R;I+TJ 3T7I+EB,+MCY3S	K+LCL+ACT3T	H3S^ 3AWM2 GS3VSE2 WM6 KF+OCM3AZ 3AWT""6 .J"166B 3R;I+TJ 7WKO+SCE3TGH7NB 3H3I+L;Y"	6".J"167B 3R;I+TJ 7AR 3R3U7YV 3N?S3LOI3IWT7DR
7ESS3I?M3NGI+LJ." *M.1B96 KP7ISN.MJJ*0B03P	R+NCT2"?D2 ?Y7U^ 7ASN2 T3EZ 7IOR7TR 3U;R. F(2=WY+SB,20:=+OJ)";*M.2B22 ;I7PSU" 7C.JN220& 3FN *=B03TWH/NJ "560.JR220^ 3O?T. B1"660.JV2202 +ECT/TJ="76 .JZ2202 +ECT/MJ=.MJJ*7B07GOO+UCB.1B3"06 .J"2202 +ECT/M61+M.1M*M.
B92 WL7TR *=7TM*M.3B06 KP7ISN2 &"2 	P+CCK+UKP.;/M2"GM3R3B/E.".MNJ*0B1+ICF/MJ<2 T+ECN.3N0.MNJ*0B23P	R+NCT*"KS";6 .JB363B 3R;I+TJ ".6".JF320& 7FR *=B03TWH/N" "860.JJ320^ 7OWS/BF .3B0" *M.3B36 KP7ISN.MNJ*4B03P	R+NCT6"	M2 ?T3T3A6 OI2"6;*1J;2-" +OCW3M;A7Y^ 3I3
2 ?Y7UB 3I/C6 CU""6;.JV320& 7NWP7T& .MNJ*7B0+ICF/YF<2 T+ECN.1Z1"06 .J"320& 7F& *>B43TWH/NF .1B6" *M.3B92 [I. 3Y*=CT3TWH/NR *3B0.MRJ*0B03P	R+NCT2"?Y3UN +A
N3TN 3HGE3TF 3N" 3OWN+SCT7PCD*-:8""6 .JJ420^ 3O?T. J3"06 .JN4202 +ECT/Y61+Y.1Y*M.4B42 WL7TR *=7TY*M.4B52 [I. 7T7OR 3H;E. "8"0*M.4B62 ?G3SKU. N1*0B0.MRJ*7B03P	RN7T.J"460B 3R;I+TJ 7YWO7RR 3OGT3L& /S."/Y.1*"B-*"B;.MRJ*9B0+ICF+T:<65R 3H;E. "8"06 .JB5202 +ECT7
R=*-*67ISN*(?T*6B).MVJ*1B0+ICF7ISN.(GY*/&2.=GY*/B23TWH/N^ *0B0.MVJ*2B0+ICF/TR<*.B23TWH/NV "860.JN520& 7FJ *>:364R 3H;E. J6"0*M.5B42 WL3T6 *=/R"1*M.5B52 WL3T6 216=216+.MVJ*6B07LSE. 7T3T6-.MVJ*7B0+GCO+TCO.3B0.MVJ*8B07LSE. 7MT*M.5B92 WL7TR *=7TM*M.6B02 ?G2 ?
. N8"0*M.6B12 WR/MJ *5B0+ICS3WWH+RCE7I^ +I;N.MZJ*2B0+ICF/RR<*.B73TWH/NZ "660.JN620& 7FJ *>:365R 3H;E. Z6"0*M.6B42 WL3T6 "=61.JV620^ 3O?T. ^6"06 .JZ6202 +ECT/MR=.MZJ*7B07LSE. 7T3T6-.MZJ*8B07LSE. GM.=GM"+7M.J&620^ 3O?T. B3"06 .JB760J +ECM3IF 7MJ 3ESA7YR 3OV
3N?C+DCE3TWH6 SS7RSA2 ?F7R^ 3H;E6 CO7PR +OCT+ICS3EWV+NB..M^J*1B0+ICF/RF<*.B53TWH/NF .0B2" *M.7B22 [I. ;R.5N.2 T+ECN.1J0"06 .JN7202 +ECT7MJ="-61.JR7202 +ECT/M61+M.1M*M.7B52 WL7TR *=7TM*M.7B62 [I. 3T*.B23TWH/N^ *9B0.M^J*7B03R7E6 OI* B7ZKE3O" 3EWR" *M.7B82 ?
+TCO.3B0" *M.7B92 WR3M& /S6 2 WZ+RCO7HKEE6 .JB860B 3R;I3T&"2 	P+CCK+UKP.;/M2"6 3AKR7LOE*.B".M"J*1B03P	RN7T.JJ820^ 3O?T. "8"06 .JN860J +ECM3T	H3S& 7S^ 7HKE3E& 2 	WN*M.8B46 KP7ISN2 &"2 	P+CCK+UKP.;/M2"6 3AKR7LOE".6".JV860B 3R;I+TJ".M"J*7B07LSE. GM.=GM"+7M.J
860B 3R;I+TJ 3TGH3TV 7NOD2 T3E^ 3AWM2;2 +ECT+MCE3SWE2 ?N+WJ-.M"J*9B03P	RN7T.JB960B 3R;I+TJ 3I" 3AWV2"6;*1J;7MKA3BWL+SB,3ASN2 ?Y3U" 3AWV6"&;*1J;*.B".M&J*1B03P	RN7T.JJ920& 3F& +NT+M>1.26)+M>162R 3H;E. V9"06 .JJ925& 7F" .9B>2 T+ECN.9V3" *M.9B36 KP7ISN2 J"3E3
3ZKE+UGB*!B 7IZ	3EJ 3E;E2 ?H7O
D3I/N+EGD""6 .JN9212 +ECT/X69"16 .JN922^ 3O?T. Z9"06 .JN965B 3R;I+TJ 3GSO3FWR3YR 3A	N+EGL6 R +HCE3KSI3SF 6 WH3S3T+E;R""6 .JR920^ 3O?T. Z9"06 .JV960B 3R;I+TJ 3MJ	+O3Y2 ?Y7UB +UCT+UCP3A^ 3OSO2 	F7GSH2,J +UKT.M&J*5B53P	R+NCT2"GN7TKU3A3L7Y& +OCU3C;A2 ?C3MWP+T
E7WSI7HR 3RWU2 WG7NWI+SJ..M&J*6B03P	R+NCT2";A3OT+ECR+GCO+ACT+I3T2 WP3RC3AON+E" 61&=+E3S. 60+N	O*"B;.M&J*7B07ICN+UCT+AB1.M&J*8B0+ICF/A6160R 3H;E. B1"360.J&9202 +ECT/M61"06 .JB1*0B07LSE. GY*=B0.MFJ.0B12 ?G+TCO.2B0" *M.1J020^ 3O?T. R6"06 .JB1*3B03P	RN7T.JB1*
B03P	R+NCT*"B 6 OA6 	M2 ;U3CWL2 	B+LCL3UWS7DR 7ON +A3Y6 R	7HKEE6".JB1*5B03P	R+NCT2"?C7MOE* CA3T7I3E& 7NR +HCE3A[F7AKI3S> 3F6 +ECN3WWHN6".JB1*5B13P	R+NCT2";O3E6 7USS2 GT+KCE3TWH6 WB+LCL+BCY3TWH2 GT+ICL3ASN""6 .JB1*5B23P	R+NCT2"GF+CCE3TWH2 	S3TGU3T?I+N^.""6
.JB1*5B33S?TP6 .JB1*6B07LSE* CT.=J "76 .JB1*7B03P	RN7T.JF1*0B03P	R+NKT7TSO+ACL.=."T6 .JF1*3B03P	R+NCT2"W+ACT+ICS7YWO3RZ 7IOR3T6 3OWV*"B;.MFJ.1B52 ?G+TCO.3B5" *M.1Z160B 3R;IT*M.1^160B 3R;I+TJ 3S[U7FKE+I
N2 OS7ISA3IGC*!B 3A6 3AKR+LCE3SGH+RGK""6 .JF1*8B03P	R+NCT6"KT7YR 3A	K+NCG61R /OR 2 GM3R3B+E3S6 WB7N	K".6".JF1*9B03P	RN7T.JJ1*0B03P	R+NCT2"?N7W^ 7HSA6 OI2 ?Y+UCR3C?H3IWC*"B;.MFJ.2B22 ?G+TCO.3B5" *M.1B360B 3R;I+TJ 3TWH+RCE""6;.JN1*1B0+ICF/TF>2 T+ECN.1N3"06 
JN1*2B03P	R+NCT6"OI2 ;O+LCY216 3AKR+LKE";*M.1J321^ 3O?T. N1"460.JN1*3B03P	R+NCT6"KA/E."+TJ;7MKA3BWL/S."" *M.1R360B 3R;I+TJ 2 WL+F;T""6 .JN1*5B07RSE3U;R" *M.1&929V N7DBJBZ

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