File HEX.BA (BASIC source file)

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

61J +ECM6 	B2 WJ+FCF3D3A3T;O2,N 7LOA3S> +F^ *7242 ?N3RT3FWI+LCD7MWO+NCT7HKE3M;O2 OS3H?OL*M62J +ECM2 T+ICS3P?R3GGR7MB 7L	A7SR +HCE3G7A+E^ 7HE3AGP+W
N6 	B* CA7MSE3HSO6 WO3T	L3NSE2 ;I.MNJ2 WR+MB 2	GM3TWH7MSA3IGC3L^ 3AWM+SB	+ICN7MKA+CCH.1Z962N 3CWI3N	T3FOI2 7A3E	R3C;A".*M64J +ECM2 T7EB 3R
O3R7A2 WL3A;R3SJ 3YV 3L7I3IGN3T?I3N> 3FJ +ACD7M[O+E;S2 3A7LB 3O	S3T?IN7S*JB53R7E2 V 3N?C7USN3EWR3DJ 7YR +HCE3P?R3GGR3MF +NCD3TWH2 OA7CCE3TKA+LCE7M[O+ECS3F?R7MR 3H7E.MZJ2 WR+MB 3AWR6 SS3OWR3D& 7NB 2$&(")*M67J +ECM2 W+ECN3TWH6 KP7OKG+ACM3EON3O;U7TKE3SF 7NV 
NGF3M3I7IKA2 ?P7SSI3I;O6,R +HCE7POO3I	TO7N*JB83R7E2 F +NCD3A3L2 WL3G3A2 ?M7VOE6 KF+OCM+ICT3AWR2 SA3DSE2 ?T2 T3E2 7ISS".*M69J +ECM+ICF3TWH6 KP7OKG+ACM7LOO+ECS3A^ 3AWM6,SI6 KE3AWS7SR +HCE7M[O7ER 7HSA2 WL7DR 3OR 3EWF+A;T.MFJ60J +ECM+ICF+ICT7HSI3SF 2 ?P7SSI3I
O6 KF+OCM3W	H+CCH3A3L2 ?M7VOE2 GH+VCE3BWE3NR 3EWL3TSE.MFJ61J +ECM6(R 7H	E2 3A3L2 +ECD+TCO3D[E7ESA* 2)6 SI6 KE3AWS7SR +HCE7M[O7ER 7HSA2 ?GT*M*1B23R7E6 SI2 WH+RCE3ASN2 WR3S
I+N;S.MFJ64J 3EGM3RGK7B	L6 KT7AON7LSA+ECD+TCO/OS2 GB3SOI6 	B2 GK7YJ 2.Z 3IS+ECR*.:.3DOE.MFJ65B 3R;I+TJ 7ION7TWR3C	T7OON6"2;7ICN+UCT7C2$+ICF3S
E2$N(.$F,*,&1*<J>+YB"3TWH/NF "160.JB26 KP7ISN7\KP7ISN*"J 6,R"7HOI6 KP7OKG+ACM3PGL+YCS3TWH2 GG+MCE+OCF7HE3AGP+W;N""*M*2B13P	R+NKT7HE3AGP+WCN+ICS3PGL3YSE2 	W+TCH3CWH+SCS7P
A+NCS+OCN/AN 6 	B* B33BGO+R;D2 T7EB 3A;W3SF +RKE.MJJ62B 3R;I3T6"3OWV3DF 3S& 3NN 7HOE+S6 2 ;O7EN 3POA3EZ 7O
R3OSR2 ?T2 ;A2 7E7P	T6 CS3AWC6 KO2 ;O7EN 3POAE6".JB36 KP7ISN2"?F3RGW+RCD3ASN2 	D3A?G3N3A+LCY+TCO7CCA7TKU3EF 3N> 3P?P3S;I3G6 +A;N6"C\3R;IT*M63B13R;I3TGT/B&(*)J;+OCN3TWH2 ?B3ASR6,& 7OKU2 GP7WON6 KA+E^ +O2	2 T3EN 7OCM3UWT+RCS7P
A+NCS3AWR* *	"	6".JJ36 KP7ISN2 F"+NCD7ECM+TCY7SWQ3AWR3SF +RCE*	^-6.R 3OV 3NWT3RF 2 ?M+V3E6 	T+PCE3TWH6 WN3MWB3R> 7FR +HKE.MRJ60B 3R;I+TJ 7SWQ3AWR2 ?Y7U^ 3I3L2 ?M+VCE3F?R3MZ 3O3L3OWW3DJ 7YR +HCE3N7U7BKE2 [O2 T7EN 3QGU+RKE.MRJ61B 3R;I+TJ 7YWO2 	W+LCL7M[O7ER
+OB.2(T3E: 3UKM7EOR6 KA7EN 3EGP7RSA+ECD6 	B* CA3C7O+A&.""*M*5B03P	R+NKT* B 3TWH6 KP7OKG+ACM3SGT7ROT* CA7SKE7IOE2 [O2 GG7MOE2 ;K3O	W+NCG3O3N7Y^ 3H;E2 TE6".JF56 KP7ISN2"GG+MCE+ICS3W;O2 F(6 KD+ACW+ICS7ICM7OOS3I3B+EB)3ASN2 ?H7WR 3O6 3OWV2.& 3T" +ACS+NKO.MVJ62
 3R;I+TJ 7SKT3AWT+GCY+ACT7FKI+SCT3ASN6 WJ+SCT7M[O+ECS3R;A3D7O+L3Y2 ?H7W[E+E3R6 SI2 WL3A;RS6".JB66 KP7ISN2 Z"3R7O2 GE+CCH3G7A+EB.7TWH+SB,3D[E7ESA3I
N6 SI2 WB3C7O+ECS7MKO3EF +NCD7MKOE6".JF66 KP7ISN2 R"3I[F7IWC+L;T2 3A+S3O2 ?T2 WH+LCP3O[F7SSE2 ?Y+UCR3I	N3TGI3LF 3DGV3NGT+G3E2 ?Y7U^ 3I3L""*M*6B23P	R+NCT2"?N3TJ 7ER 3OSL2 ?H7WR 7O^ +ICN3TWH2 GG+MCE7BSU6 WM+SCT3LGE+RCN3T	H3SJ 7YB 7L	A3I
N""*M.1B12 	D7MB .$V(.0Z,*32)+P"$"96).JF121R +ICM+C"$*5&0.MFJ*1B23R;A3D7O3IWZ.MFJ*1B4/QB=.MFJ*1B63P	R+NCT2"	S3NWC* 
I3MF 2 ?G+OCD3S?P+R3T2 ?Y3U2	3LF 3LGW+YCS+GCO7FKI+SKT.MFJ*2B0/PB=.MFJ*2B2/P6$*"****6-2-?OO6".JJ164B 3R;IT*M.1Z26 KP7ISN2 :"3UKM3E	R+NKG.MFJ*2B83P	R+NCT."J1"36".JN160B 3R;I+TJ .4Z5""*M.1J36 KP7ISN. ^"*8J9.MFJ*3B43P	RN7T.J&120R .=F-.MFJ*9B2/Q6$*"KO.MFJ*9B47
OO+UCB.2B0"0*M.1Z92 [I* SM*<J>6"R 3H;E. B2"0*M.1"96 KP7ISN6 &"+OCU3C;A*	CT7M[O+EB.7I^ +I;N2"
\3O?T. F5"0*M.2B06 KP7ISN.MJJ*0B23P	R+NCT2"?B3ASR""*M.2R06 KP7ISN2 WS+G"$+P2$.1N,")*M.2Z06 KP7ISN2 WS+G"$+P2$.4Z,")*M.2"06 KP7ISN2 WS+G"$+P2$.7&,6)C\3R;IT*M.2B16 KP7ISN6 ^"7HSA6 OI2 ?Y+UCR7M[OE6".JF222& 7NWP3TF ",7B.JF224^ 3O?T. B3"160.JN220N .16$3S
E6$B(.$F,*,7A*1Z)*"J-2&WS+G"$+P2$/AF+*,&9.MJJ*3B2/P6$3S
E2$N(*12$21J,*-&12&>"6"N&+ESG.(GC2$J,*+21"96).JN224& 7FB +OS+P2$*"J**,&1*=B07GSO/OJ "368.JN226& 7FB +OS+P2$*"KO*,&1*<B47GSO/OJ "368.JN227^ 3O?T. B3"0*M.2"36 KP7ISN6 &"+OCU3W;I6.2"7GSO/OV "060.JB360J +ECM3C7O7PSU+E
R3S6 3OWV.MNJ*0B27PB="+62.JF320Z +OCR/CF=2 ?T" 7Q.JF321N 6$B=2$N(")*M.3J12 [I2 GV7LN(+ESG*(SC*,21*1&)6<B>2 ?G+TCO.3B2.MNJ*1B4+ICF3S
E2$N(.$J,.,B1.):<+PB$7GSO/ON "260.JF3266 6$N=+ESG*(SC.,F1.,&9")*M.3"12 ?G+TCO.4B0.MNJ*2B07NE3TN .MNJ*2B2/Q6$*"J*/\7D21
\7OWS/BJ .0B0.MNJ*2B47CF=.MNJ*2B6+ICF/M2$*>J"2 ?G+TCO.4B0.MNJ*2B83P	R+NCT*"CI3C;A*	CT7M[O+EB,7YWO2 	W+NJ.3\?G+TCO.5B0.MRJ*0B0+ICF/M2$*>J"2 ?G+TCO.4B1.MRJ*0B53P	R+NCT*"CI7ROE3I;G6.2"7GSO/OV "060.JF420. 6$N=+ESG*(SM*,21"26).JF4226 6$N=+ESG*(SM*,23*9&9.MRJ*1
4+ICF3RSN*(&0*=:<.3N3.3N32 ?G+TCO.4B2.MRJ*1B6+ICF/M2$*>J"2 ?G+TCO.4B1.MRJ*2B03KN=.MRJ*2B27AZ=+AL3S
E2$.(.$F,*,&1")*M.4R2. 7B3V3A2(WS+G"$+K2$.2&,*9&).MRJ*2B6+CR12=WS+G"$+P2$21F,*-&1*&6"6"N&+ESG*(SP*,/A.1&,")*M.4"2* SP2=WS+G"$+CR1*,21/BF-*)J&**Z"3S
E2$N(*12$/BF+*,&9.MRJ*3B0+ICF7POO*(SP2,>"."F,.)B=2 ?G+TCO.4"3.MRJ*3B2+ICF7POO*(SP*,*"."^,.)Z>2 ?G+TCO.4"3.MRJ*3B47GSO/OR "460.JN468B 3R;I+TJ 7I^ +I;N2"
\3O?T. F5"0*M.4B46 KP7ISN2 &"2 ?M+VCE3F?R/M."+AJ;+TKO6;3B7GSO/OF "960.JB560^ 62^=.2F+.MVJ*0B27IB=+OS+P"$+K2)+K2$*1&1.MVJ*0B3+ICF/I:<21^ 3O?T. J5"0*M.5R0* SP*(	K2=WS+G"$+P"$+K2)21&,*-&12&WS+G"$+P"$+K2)/IJ+.,&9")*M.5Z02 ?G+TCO.5B2.MVJ*1B0/W61+W.1"1*M.5B26 K
7ISN7\KP7ISN2 J"7OKA+DJ:.MVJ*2B23P	R+NCT3S
E6$B(.$F,*,&3.MVJ*2B43P	R+NCT3S
E6$B(.$R,*,&6.MVJ*2B63P	R+NCT3S
E6$B(.$^,*,&97\KP7ISN.MVJ*2B83P	R+NCT*"CI7H[A7E^ +OKN.;GW2;F"+NCD7YWO2 GH+VCE3W;O6"^;"26;.JJ569B 3R;I+TJ +OKF.;GW.+KW2;^"3AWMS6".JN560B 3R;I+TJ 3A?N3TWH3R^ 3AWM6"2;7ICN+UCTC6$.JN522N 6$N=+ESG*(SC*,21"16).JN524& 3FN *$J=+NB"3TWH/N& .9&9.MVJ*3B6+ICF/C6$*"KY
 ?G+TCO.1B2.MVJ*3B83P	R+NCT2"3P7EOA3EF 7N
S+ECR7YOE6 KO2 ?N"!6".JR520^ 3O?T. N5"0*M.9B02 WR3MR 3AGT.*6** 6<2 [O2 ?M+VCE+ICN3G7A/E2>7POO3I	T/O;N2<	L+SCT+OCF7M[O/E;S.M&J*0B23R7E2 ;I2<?P7SSI3I;O*>B,2-J=3L;A+KB,2*N=7OCM3UWT7RN	2 GP+W3N. 7O3PGL7YKE*	CS7P
AN*M.9R02 WR/M2 7LOI3T> 3F6 3OWV+SB>+ICS*<B-7M[O3EZ 3R7O*>6<2 ?M+VCE/T;O2<	L+SCT+OCF7M[O/E;S.MJJ.0B0* SM*=J".MJJ.0B12 ?F3R* *=B1+TCO"9*M.2F022& 7FN +ESG*(SP*,3J/J2)*>SQ2 T+ECN.2V0"0*M.2F065R *=/J/DN*.MJJ.0^12 [I. 3T61R 3H;E. B2"265.JB2*1B9+ICF/T&>2 T+ECN.
J0"5*M.2J020& 7FN +ESG*(SP*,3T/T2)*>6"6"R 3H;E. B2"265.JB2*2B3/M6$+MZ$7SKT2$*(6)N&+TSR*(	T.MJJ.0V2. 7T3JR+6*22+ICF/TF<2 ?G+TCO.2N025	\7FR *>B97GSO/OJ .0V3.MJJ.0Z22 [I. 3D*>B17GSO/OJ .0"23\[I. 7J21^ 3O?T. B2"365.JB2*2B7+ICF/JR=2 ?G+TCO.2N025	\3F* *=B77GSO/
J .0V3.MJJ.0"22 [I. 3D.>F-2 ?G+TCO.2N020	\3F* *=B37GSO/OJ .0V3.MJJ.0&22 [I. 7J26^ 3O?T. B26325+ICF/J&=2 ?G+TCO.2N0"5*M.2N020& 7FB +OS+QZ$*"J-2,WS+G"$+P2$7TR,.)F,.):<60R 3H;E. B2"365.JB2*3B2/M6$+MZ$7SKT2$*(6)N&+TSR*(	T.MJJ.0V3. 7T3JR+"*64.JB2*3B7+ICF/TF<2 
G+TCO.2V020	\7FR *>B97GSO/OJ .0B5.MJJ.0"32 [I. 7J23^ 3O?T. B26520+ICF/J^=2 ?G+TCO.2V0"0*M.2R020& 7FB +OS+QZ$*"J-2,WS+G"$+P2$7TR,.)F,.):<60R 3H;E. B2"560.JB2*4B5/M6$+MZ$7SKT2$*(6)N&+TSR*(	T.MJJ.0B52 WN+XCTJ*M.2V022& 3FR .<F>2 ?G+TCO.2Z020	\3F6 *$J=2"^ 3O?T
 B2"660.JB2*5B47QF="+61.JB2*5B6+P"$/Q6)7SKT6$B(6)B&2$6&"$*M.2Z060J 7EWTR7N.JB3*0B03R7E3A/R3A3B7EJ 7OSU3IWN2 ?T2 	S3M3U3AWT2 3I3L
E+ACL7M[O7EN 3C;A.MNJ.0B12 [I. 3A21^ 3O?T. J3"060.JB3*2B0+ICF/A&>2 ?G+TCO.3B2"0*M.3N020& 3FF 2<&>+NT+AB)7GSO/ON .2B0.MNJ.0B42 [I. 3B21^ 3O?T. J3"060.JB3*5B0+ICF/B&>2 ?G+TCO.3B2"0*M.3Z020& 3FJ 2<&>+NT+BB)7GSO/ON .2B0.MNJ.0B72 [I2 ?P3S6(6$N,+TSR*(	A*,&1*=B0
GSO/ON .2B0.MNJ.0B82 [I2 ?P3S6(6$N,+TSR*(	B*,&1*=B07GSO/ON .2B0.MNJ.1B02 ?G+TCO.2B3.MNJ.2B06 KP7ISN2 &"3LWL3G3A2 ?M+VKE.MNJ.2B12 ?G+TCO.2B1.M&J.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