File EVEN1.BA (BASIC source file)

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

61B 3R;I+TJ 3G7A3E> 3FV 3V;E2 	W+NCS*-B-3CKY3E;R3E	T7CZ 7EOR3I;O6"C\3R;IT6 *JB23R7E* **6*^ 7RSI3T;E6 	B6 KE+ICC7PSE7EOR2,J 3A	S7CB-7LOU2 WV3R	S+OCN+BCY7D[A3EF H7L*JB33P	R+NCT2"?D2 ?Y7U^ 7ASN2 ;I7SKT7USC3I;O+S" 3Y> 3R: .)."3\;I7PSU* SA3\[I* SA2=:"6"R 3H;E.
B2.MRJ6 KP7ISN7\KP7ISN6 R"+HCE3G7A3E& 7SB 7L	A+ECD+ACS3F3O7L
O+SJ:.MVJ6 KP7ISN2 F"7TR +HCE3B
E3I;N3I
N2 [O* CA3G7A+EB,7AJ 3ASN+OCM3N7U7BKE2 [O2 C7IOP6 KAE6"*JB63P	R+NCT2"3P3AWC3D> 7NR +HCE3BGO+R;D6 R +HCE3N7U7BKE2 [O2 C7IOP2 3A7W	A7SN 7TKA+TKS.M^J6 KP7ISN2 F"3SF 3N> +DCD3N7U7BKE*.B +OCN3EOA7HR 3U;R2,F 2 3P3AWY3R6 7USS2 GT+KCE3OWN",6"*JB83P	R+NCT6"
T+OB,7TKH+E3E6 KO2 ?F+UCR3C	H+P;S6 R +HCE3W;I7NKE6 OI2 T7EB 7L	A+ECR3W?H""*M69B 3R;I+TJ 3F;I3IS+ECS7WSI3HF 2 ?T3T3A6 WN3MWB3R> 3FN 7HCI7SR 7HSA6 OI6 [E+E;N""*M*1B03P	R+NCT2"T3EN 7OCM3UWT7RN 7TKA+TCS7OSU2 ;K3O	W+NCG3O3N7YR +HCE3R3U+ECS+OCF3TWH""*M*1B13P	R+
CT2"GG+M;E2 & 3T^ 3RSA3U3A+LCY3LGE7RON2 ?T2 3P+ACY3W3E+LB.6 SI2 S3O3U3DJ E6".JJ16 KP7ISN2 R"3I[F7IWC+LCT+TCO3BGE7TR +HCE3C7O7PSU+ECR3TWW7N	T2 GG7MOE2 ;I* CA7R
O".6".JN16 KP7ISN6 R"+RCY+ICT*!F!6"C\3R;IT6 .JR16 KP7ISN6 R"7OF 7USI6 SA2 ;A7YR 3IWM6,R 3YWP. B	2	F 7S& 7OKU2 ?M+V;E6"C\3R;IT6 .JV12 WR7MKA3KKA+LCY3TGR3N3S3AWT7DR 3O> +SB87BOA+ICC+BCY7K	A* ;R2 	F3SWH+R: 2.R.E7C.JB22 	D7MJ *(21652)3R;A3D7O3IWZ.MJJ252 6=20/
B=/\7G60
\"=60.JB32 ?F3R& *=B0+TCO65K\*(21/I6)64K\*(20/I6)24;\7ESX" 7I.JB7. 7A20K\"=60.JV7. 7G/GF+.M&J60B 2=;I+T"(*1*33RSN*(&0*+&9*/&2**.2"1*M.1B02 [I. 7P61R 3H;E. N5"0*M.1B16 KP7ISN6 R"7HKE3EF +RKE.;/P2"C7IOP2 ;O2 T3EJ 7OKA+DJ..MFJ*2B0/E613E3\212=.MFJ*4B0+E"=/AJ/
-;I3TF(*/&2.)J*.MFJ*5B03L&=+NT*(?P26&-+NT/PZ/*)*)*6:+"56).JZ120& 7FJ *(3E/L:)*=CP3TWH/NN "260.J^1206 *=R3E2,")*M.1B82 [I. 3M*=B03TWH/NN "760.J&160B *=7PM*M.2B02 [I. 7M61R 3H;E. F5"0*M.2B16 KP7ISN2 N"7OCM3UWT7RR 3AWK/S."+MJ;3C	H+PCS3LGE3V;I/G."+PJ;* B *.:.
YWO3R6 3OWV""6;.JJ220J *=/BM*M.2B32 ;I7PSU6 3M3M&=+NTM6).JV220& 3F6 *<B13TWH/NR "560.JZ220& 3F6 *>B47GSO/OR 66203I7F*>CP7GSO/OR "660.J"220& 3F6 *=CP3TWH/NN "660.J&260B *=7P3MG\*=/A3M
\3O?T. B1"0*M.3B22 [I. 7P61R 3H;E. V5"0*M.3B36 KP7ISN2 N"7OCM3UWT7RR 3AWK/S."+PJ;3C	H+PKS.MNJ*4B03RV(*,	L6=3P3BJ="+7P.JZ320& 3FJ ./627ISN*(?B*2B)3TWH/NR "260.J^360B 3R;I+TJ 3G7A3E> 7VKE* :.6.& +OCU3W;I* F!6"C\3R;IT6 .J^365^ *=/W"1*M.3B82 [I* R3E2,.)F=2 T+
CN.4B8.MNJ*9B03RV(*,	L*=R3E2,.)F-.MRJ*0B07GSO/OV "060.JJ460B 3R;I+TJ 3G7A3E> 7VKE* :.2.& 2 	W+NF 6!2"3P	R+NCT3\?G+TCO.5B0.MRJ*5B0+ICF/MB=2 T+ECN.5B7.MRJ*6B03P	R+NCT+MJ;+ICS+ACN3I3L3EGG3L6 3OWV* :.6.& 7OKU2 ?M+VKE2;
\3O?T. N2"0*M.4B82 [I* R+E21+L&1*=B13TWH/NV "060.J&460J .(GE.,GL6)J=.(GE.,GL.)F-.MVJ*0B03P	R+NCT2"T+ACT7WOA6 WF+NB!7LSE*	CS3PGL3YF 3G	A+N:.6.2"3P	R7N3T7GSO/O^ "0*M.5B16 KP7ISN2 N"7OCM3UWT7RR 3AWK/SF 2 C+ICP3LGE3V;I/G."+PJ;* B *.:.7YWO3R6 3OWV6"2;7GSO/OJ "
60.JN560B 3R;I+TJ 3TWH+RCE+ICS21N 7HCI2 ;O2 T3EJ 7OKA7D2"7GSO/OF "260.JV560B 3R;I+TJ 3C7O7PSU+ECR3T/A+ECS21N 7HCI2"
\3O?T. R3"0*M.5B76 KP7ISN7\KP7ISN2"?Y7UB 7L	A+EKD*;7G*1J;3G7A+ECS3ASN2 ?W/N."+WJ;3G7A+E3S* ;I+E2.""6;.J^565B 3R;I/TF *0*0+W"//GF-*)J;7PKE3C;E+TJ..MVJ*8B03P	R+NCT2"?H+PCE7YWO2 GH3DZ +UCN*!J!.MVJ*9B03ESN&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