File HANG.BA (BASIC source file)

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

*1B03R7E* **2*^ 3AWM2 [O2 GH3N7G+ACN+BCY7D[A3EF +H3L2 	D7GSIA7L.JV12 WR+M* **B*7BOA+ECD+OCN7AB 3R
O3R7A6 KW7IST+ECN+BCY3K;E6 WA3PWP3RWL2,N 7LOA3S> +F^ *725.MJJ60J +ECM****2 GH+LCF3H3O7L
O2 	H7LOL* ;H+S2.2 	D3X" 3I3L+SB,N7Y.JF22 WR7MKA3KKA+LCY3TGR3N3S3AWT7DR 3O> +SB87BOA+ICC+BCY7K	A* ;R2 	F3SWH+R: 2.R.E7C.JV26 KP7ISN2 ^"3AWM2 [O2 GH3N7G+AKN7\KP7ISN6 C\3R;IT6 .JB32 	D7MB .$F(*424*12)+L"$*220*12)+D"$*220*12)+N"$*220*12)/UV("06).JV32 	D3MF .
J("06).JZ32 	D3MJ .$J("06).JB4. 7C61K\3ASN3O	M7Z3E/NV=207\"=60.JB52 ?F3R& *=B1+TCO6220+D"$/I6)*"J-3\WN+XCTI*M*6B07FKO. 7I61R /OJ 20;\2$&(*)J=2";\7ESX" 7I.JB72 ?F3R& *=B1+TCO.1R4+\SP*(	I*=B"2";\7ESX" 7I.JB82 ?F3R& *=B1+TCO.1N36 SS+ECP6122+P"$/I6)*"KX3\WN+X
TI*M*9B07FKO. 7I61R /O^ +\SP*(	I6=""2";\7ESX" 7I.JF9* SP.(&1*)J=X6".JV92 [I. 3C7NR 3H;E. B1602 6 KP7ISN6 &"+OCU3DSI2 3A7LR +HCE7WKO+DGS6!2"3S?TP*M.1B0. 7Q7ISN*(+N3RSN*(&0*+&1.MFJ*1B0+ICF7UF(.)F=2 T+ECN.1B0* C\7UF(.)F=/\7C/CF+3\WR3S?T7R3E/T61"0*M.1B52 ?F3R
 *=B1+TCO7QK\3ESA* SA3\WN+XCTI*M.1B6. 7L3L;E*(SA")*M.1V62 ?F3R& *=B1+TCO3L3\2$&(6)N=+ESG*(SA*,3I7I2)7NE3T& .MFJ*7B03P	R+NCT2"WH+RCE3AWR2 T3E2 7EST7EOR2 ?Y7UV 3SSE":6".J"120Z +OCR/IF=2 ?T. Z27\KP7ISN2 : 2$&(6)2;+ICF+N"$/IF+*)J=6"R 3H;E. B2"0*M.1B96 KP7ISN*
2"6"2;7NE3T& .MJJ*0B03P	R+NCT7\KP7ISN2 [\+OCR/IF=2 ?T6 3L3P	R+NCT* SD*(	I2;;\7ESX6 3I3P	R+NCT7\KP7ISN" *M.2B16 KP7ISN6 ^"7HSA6 OI2 ?Y+UCR3GWU+SKS3\;I7PSU* SG/\7R"0*M.2B22 ?F3R& *=B1+TCO6226+ICF+N"$/I6)*"B"3TWH/NJ "560.JN220& 3F^ .$:<+N"$+IB)7GSO/OR2*0C\3P
R+NCT6 &"+OCU3GWU3SWS7DR 7HSA2 WL3TWT3RJ 3E?F+RKE3\?G+TCO.1B7.MJJ*4B07NE3T& 7\KP7ISN* J 3P?R3GGR3MV 3R?R+RB.6 WR3NF 3G	A+NJ.7\SSO7P.JV220: 2$&(2)^=6$S\61R=.1F+.MJJ*6B07FKO. 7I61R 3O2 3\[I* SL*(	I*=SG2 T+ECN.2B8.MJJ*6B57NE3T& .MJJ*7B0+ICF/RB=2 T+ECN.2B9* C
7GSO/ON "060.J"220R 2$&(2)^=6$K\*=/R21
\3O?T. Z2"5*M.2B9. 7M/MF+3\?G+TCO.4B0.MNJ*0B07FKO. 7I61R 3O2 3\[I* SD*(	I*=6"6"R 3H;E. J3"0*M.3B12 WN+XCTI*M.3V12 ?G+TCO.3B9.MNJ*2B03P	R+NCT3\?F3R& *=B1+TCO7LC\3R;I+TB +D"$/I.)3\WN+XCT7IC\3R;I7T2 3P	R+NCT.MNJ*3B03P	R+NCT2"W+ACT+ICS7YWO3R^ 7UOE3SZ +OCR3TWH
 ?W+RKD2;	\7NWP+TSB.MNJ*4B0+ICF/B6$+AB$3TWH/NN "660.JV360B 3R;I+TJ 3W?R+N;G6 R +RCY3A?N3TWH3R2 7EST+E;R6"C\3R;I7T2 7GSO/OF "760.JZ360B 3R;I+TJ 3R
I+HGT*!B +ICT3T?O7K& +OKU.;GT2;^"7UOE7SOE"!6".J^360B 3R;I+TJ 3W;A3TF 7NSO7HKE2 ?W+RKD2;	\7NWP+TSW3\[I* SW6=&"+EKS2 T+ECN"560.J"360B 3R;I7T2 3P	R+NCT6"SI*	CS3BWE3NZ +UGN2 J +YCE7FKO2 ?N+WJ.7\SSO7P.J&360B 3R;I+TJ 7YWO2 ?F3USN2 T7E^ 3OSR6!2"7GSO/ON "760.JB46
B 3R;I7T2 3P	R+NCT7\KP7ISN6 N"7OKR+YB,3TGH3T2 7EST+ECR3I;S*	CT+ICN3TWH2 ?W+R;D""*M.4B12 [I/MJ=7GSO/OJ420	\/F7M23?G/TSO62253I7F2=^43O?T.4B33\[I/MV=7GSO/ON425	\/F7M26?G/TSO"460.JF421& /F7M27?G/TSO64253I7F2=^83O?T.4B53\[I/M&=7GSO/OV425	\/F7M21^03O?T.4B6.MRJ*
B53P	R+NCT2"	F7RSS6,^ 3ER 7R
A* CA3HGE7D2"7GSO/OR "760.JJ460B 3R;I+TJ 7N
O2 WW6 KD+ACW3AJ 7O	D2"
\3O?T. ^4"0*M.4V26 KP7ISN2 :"7ESX2 WW6 KD+ACW+ACN3A7R2"
\3O?T. ^4"0*M.4B36 KP7ISN6 R"7HOI2 	T+MCE+I
T7SR +HCE3OT+ECR3A7R2"
\3O?T. ^4"0*M.4V36 KP7ISN2 :"+O3W2 WL7TN	6 KD+ACW3TWH2 	R7GSH2 WL7G2"7GSO/OR "760.JR460B 3R;I+TJ 3T	H7SR 3IWM2 WW6 KD+ACW3TWH2 WL+FCT3L
E2"
\3O?T. ^4"0*M.4V46 KP7ISN2 :"+OCW+WCE7PSU6 CU* CA3H;A7D2"7GSO/OR "760.JV460B 3R;I+TJ 7NE7TR +HCE3OT+ECR3H;A7D2"7GSO/OR "760.JV465B 3R;I+TJ 7N
O2 WW6 KD+ACW3OWN2 ?F+OKT3\?G+TCO.4B7.MRJ*6B03P	R+NCT2"WH+R
E7SR +HCE3OT+ECR3F?O+T6 6-& +O
U+RCE3H;U+GF!""*M.4B72 [I/MJ=7GSO/O&420	\/F7M23?G/TWO60203I7F2=^43O?T.5B13\[I/MV=7GSO/OJ520	\/F7M26?G/TWO"360.J^425& /F7M27?G/TWO64203I7F2=^83O?T.5B53\[I/M&=7GSO/OZ520	\/F7M21^03O?T.5B7.MRJ*8B0+P"$*3&0*=6"6"C\.$N(.16)*"J-+\SP.(J3*)J=6-2"+P"$*4&1*=""6"C\.$
(.26)*"J..MRJ*8B1+P"$*4&4*=:"6"C\.$R(.56)*"J)+\SP.(R5*)J=6-2"+P"$*5&5*=6"6"C\.$V(.66)*"J-3\?G+TCO.5B8.MRJ*9B0+P"$*6&76=""6"C\.$^(.96)*"KX+\SP.(F9*)J=7X2"+P"$.1N0*)J=X6".J&425^ 3O?T. "5"0*M.5B0* SP.(&32)N=+HSR.("26)C\.$V(.26)7CKH.$J(682)+P"$*6&52=C+R"$*2&8
\SP.("72)N=+HSR.("2")*M.5V02 ?G+TCO.5B8.MVJ*1B0+P"$*4&7*=>"6"C\.$V(.86)*"J/+\SP.(&6*)J=6/2"+P"$*8&0*=>"2"
\3O?T. "5"0*M.5B2* SP.(F1.46)*"J/+\SP.(J1.56)*"J/3\?G+TCO.5B8.MVJ*3B0+P"$.1Z12)N=+HSR.("26)C\.$F(*2&92=C+R"$*2&83\?G+TCO.5B8.MVJ*4B0+P"$*3&52=C+R"$*2&83\?G+TCO.5B8.MVJ*5B0+P"$*2&7*=>"2"
\3O?T. "5"0*M.5B6* SP.(R1.26)7CKH.$J(682)+P"$.1N4*)J=6-2"7GSO/OV "860.J^560B .$F(*3&5*=6"6"C\.$F(*3&6*=>"""*M.5B82 ?F3R& *=B1+TCO.1N36 SS+ECP"162.J"521Z +OCR/JB=2 ?T. F1.MVJ*8B23P	R+NCT+P"$3I*+6)2;7NE3T* .MVJ*8B33P	RN7T.J"524: 7ESX" 7I.J&560B 3R;I7TC\3R;I
TC\3R;I3T	\3F6 .=B12 T+ECN.6B03\?G+TCO.1B7.MZJ*0B03P	R+NCT2"?S7R	R6,& +OCU7LOO+EB.2 T7E^ 3OSR2 GW+SJ *;SA.MZJ*1B03P	R+NCT2"?Y3U6 7IOS+ECD3TGH3T> +N;E2 R 7O& +OKU3\?G+TCO.3B7.M^J*0B07DSA+AJ 3G7U*"J,3S;I*"J,7FKO*"J,7C	R*"J,3L
U*"J,3BWY*"J,7F	L""*M.7B12 GD+TCA2"
U+LKY2,V"3AC*"J,3F?R+M2"2"?W+RKK6,R"3A/L*"J,7WSI+H2"2"WS+LKF.M^J*2B07DSA+AJ 7P+I+ZKA6,R"3H;I+G2"2"WF3I;G*"J,3FWI+NKD2,V"3L?B+W2"2"GF7USL*"J,7DKI+TKY.M^J*3B07DSA+AJ 3BSU7GSE*"J,3S	P7RSI*"J,3QGU7ISN*"J,3M	A3D;E*"J,3EOS7OSR*"J,3POI7KA""*M.7B42 GD+TCA6"E7ACM+
KE6,R"7EON3I;O*"J,3Q	U3N;I+E2"2"	K3DWN+Y2"2"WR3P	L+CKA6,N"3LWE7PKE""*M.7B52 GD+TCA6"KT3I;A3GWL*"J,3K;A7GKA+OKO2,6"3A?H3G;A+Y2"2"WS3RWG7ASN*"J,7SGE3U;E+CKE.M^J*6B07DSA+AJ 7MWO3SGT3CWH*"J,3D;A7GKE7OOU*"J,3S	C7ESN7ISS*"J,3D[I7FKE7ESN*"J,3Q	U3EOS7ESN""*M.7B72
GD+TCA2"GM7GOI3TGR+TKE2,V"3R?R3N?E3U3S+Y2"2"?L7UOD3PGE7KKE*"J,7P	H7TSO3O	XC6".J"720R 3AGT2 6"7AKT3I?M3NGI+L2"2"GP7ROA7YCM3AT3O	M7MSE+IKC6,R"3H
I7MSO7RCO3I7S""*M.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