File AWARI.BA (BASIC source file)

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

61J +ECM****6 
A3A	R2 GG+MCE+BCY3G?E+FCF7W[Y3I3L6,V 7N[I2 [O6 KB3A[D3OSR2,V 3N3G3ASN.MJJ2 WR+M* **B*3MSO3I	F+ECD7FKO2 GB3SOI2-3P+UCS+BCY7D[A3EF +H3L2 	D7GSI+ACL7PCD.-F1./V46 KG7OCU.MNJ2 WR7MKA3KKA+LCY3TGR3N3S3AWT7DR 3O> +SB87BOA+ICC+BCY7K	A* ;R2 	F3SWH+R:.2.WDC*M25R 3AG
20
\3O?T. B9"5*M*1B03D7I/BF(*32)/GF(*32)/FV(602)3RGED7N.JV12 ?F/R7I20?T/NF-3\WR3A[D*(	I3\WN3X	T.MJJ60B 3R;I7TC\3R;I+TJ 3G7A3E> +F* **B*3AGW+RCI****""*M*2B57FKO/IB=/TGO223\3EKT*(	I6=237NET7I.JB32 WL/T7C203\3E[T*(	N6=207LSE/BF(.36)203\3EKT*(&6"=60.JV32 ?G3SKU.
B0.MRJ60B 3R;I7T&"7OKU2 ?M+VKE2;
\7OWS/BF1"0*M*4B53IWF2=^03O?T"860.JB52 [I. 3M*>CH7GSO/OV "5*M*5B27GOO+UCB.1B0.MVJ25& /F7E20?G/TO"0*M*6B03P	R+NKT+MCY7M[O3E& +SJ 2;
\7OWS/BB8"0*M*6B53IWF2=^03O?T"860.JB72 [I. 3M*>CH7GSO/O^ "3*M*7B23P	R+NCT*"J,";*M*7B37GOO+UCB.8B0.M^J25& /F;E20?G/TOO"5*M*8B03P	R7N3T3P	R+NKT3G7A3E> 7VKE""*M*8B53DJ=*(&6*-B*1&33\[I. 7D*>B07GSO/O& 60C\3R;I+TJ 7I^ +ICN+BKY2;R-6;B"3O;I+TKS3\?G+TCO"260.JB9. 7
/NF+3\[I. 3D*>B07GSO/O& 65C\3R;I+TJ 3DGR+WCN3G7A7E2"7GSO/OJ "0*M*9B53P	R+NCT2"?Y7U^ +ICN+BKY.;/D2"?P7ISN7S2"7GSO/OB2.MFJ*0B03P	R+NKT3AGG+IKN";*M.1B12 ;I7PSU6 3M+ICF/M6>27^ 3O?T. J120	\3F6 .<B=2 ?G+TCO.1B2/\7M/MF-3\?G+TCO.1B3.MFJ*2B03P	R+NKT3I3L3EGG3L6 3OW
2"
\3O?T.1B0.MFJ*3B03IKF*(	M2=^03O?T.1B2.MFJ*4B07LSE/HZ=3\?G3SKU.2B0.MFJ*5B07GSO/OB5"0*M.2B02 WL/T7K3M
\7OWS/BB6"0*M.2V0. 7E20	\3F. .=Z<2 ?G+TCO.2B1/\7K/K^-.MJJ*1B03CN=6+21+ICF/C:=29^ 3O?T. F225[\*(	N*=F+N*)26.+.MJJ*1B57FKO/IB=/TWO3\[I3B&(.):<20T/EKN"360.JJ220: 7ESXI*M.2V22 WR7TKUN*M.2B32 ?F3R& *=B7+TCO6122+ICF3B&(.)B=2 ?G+TCO.2V3/\7E61K\7EWTR7N.JN225: 7ES
6 3I7RSE3U;R.MVJ*0B03P	R7N3T3P	R+NKT* B ""6;.JB525Z 3O	R.=J1/T
O3SWT/PF-3\?G3SKU.5B8.MVJ*1B07NET7I.JF565B 3R;I3T3\3E	T.=N13\?G3SKU.5B8.MVJ*2B03P	R+N3T*"B * B * B * B * J 6;C\3R;I+TB662)3P	R+NKT* B ""6;.JJ525Z 3O	R6=R07O257GOO/UWB"860.JN520: 7ESXI*M.5V36 KP7ISN7\KP7ISN3\WR7TKUN*M.5B82 [I* B/I6).>B12 ?G+TCO.5V87\KP7ISN
 B"""6;.J"565B 3R;I+TB/I.)3\WR7TKUN*M.6B02 WL/T7P3B6(2)3\3EKT*(	M"=60.JB625Z +OCR7PB=2 ?T* B13SWT+P6 217\*=/M21	\3F6 .=F<23^ 3O?T. F6207\*=7M"164.JF6202 3EKT*(	M*=B+M.)21;\7ESXP*M.6V12 [I* B/M2)2>^13O?T.6B23\[I/MZ=7GSO/OJ620	\/F7M21^33O?T.6B23\[I/BF(226-.
:<20?G/T[O"265.JJ660J 7EWTR7N.JJ6252 3EKT*(	H*=B+H.)/BF(226-.)F+3\WL+TB/M6)203\3EKT.(J1*-	M6=207RSE3U;R.M"J*0B07LSE+D6=69297LSE/HF="3*M.8V02 ?F/R7I20?T61237LSE3G&(2)J=*(	I3\WN3X	T.M"J*1B07FKO/J^=/TGO22	\+FB/J6)20T/EN"865.JF8252 7EGT6=207LSE3M*=3\?G3SKU.6B
.M"J*2B07FKO/IB=/TWO3\[I3B&(.)B=7GSO/OR8"5*M.8V22 WL/T7L3B&(2)&+3\WL/T7R"0*M.8B32 [I. 7L.<N12 ?G+TCO.8V3/\7L/LF-64K\6=217GSO/ON8"0*M.8V32 [I* B/L2)*>B07GSO/O" 6420+ICF/LZ=2 ?G+TCO.8B43\[I. 7L*1B37GSO/O" 64203RJ=.(J1*-	L"+7R.JR820& 7FJ 6=F<2 ?G+TCO.8V4/\7Q
*M.8V42 WN3X	T.M"J*5B07LSE3QJ=.(N12)J-*(&66-3Q3IOF2>^83O?T.8V7.M"J*5B53K*=3\[I. 7K*<B67GSO/O" 66203K.="-67.JZ820Z +OCR/IB=2 ?T* 7N21	\3FZ *(	N**.6/K:<7ISN*(F+I>)*6***(67+C.)*.&12 ?G+TCO.8B7/\7Q/QJ-.M"J*7B07NET7I.J^825Z 3O	R6=R0/ON13\WL+TB/I6)3G&(2);\7ESXI
M.8B82 [I. 3Q3D^ 3O?T. "825G\6=3J7DF=.M"J*8B57NET7J.J&8202 3E7T6=3A3P	R3NOT+HSR.(J4*+	M2;
\3O?T.2B0.M&J*0B07FKO/IB=3T;O6-213P	R3N[T*(	I3\WN3X	T.M&J*0B53P	R7N3T3P	R+NKT3G7A3E> 3FF 7WKA+I" 3K3A+A3H2 WB7AON6)2"3P	RN7T.JF960B 3R;I+TJ 3W;A3T& 7NSS3ROU3T?I+NCS*-B-3TWH3YF +RCE3L;O+G" 3Y> 3R: .).".M&J*1B17ICN+UCT7A2$+ICF/A6$*"KN2 ?G+TCO"160.JF965B 3R;
7TR"+HCE3AGW+RCI3BGO+RCD+ICS7D[I3IWD3D& 3N?T* B67PSI3S> 3N6 7YN 3IWD2 ;A/DZ 2 	P+TCS+OKN.M&J62B03R;I+TJ 7YWO7RN 3IWD2.& 3NF 3D	D3T?I+NB,3TWH+RCE3AWR6 
T7ON 3POE3I3A2 	P+TCS+ACT3EOA3HV /N+D""*M.9V26 KP7ISN6"	M2 ?H+MCE3ASN2 ?Y+UCR3H7O+EJ.7\KP7ISN.M&J*3B03P	R+NKT3A6 3OWV6 OI2 GM+DCE+BCY3T/A3I
N2 3A3L> 7FR +HCE3BGE+NCS3F?R3MF +NCY3N;O2-7E7P	T2 	PT6".JN965B 3R;I3T>"7N& 7OKU2 	S+D;E6 N 7TKA3T;I3GZ 3R7O2 T7EB +ICT+TCO3TWH2 	R7GSH2 [O2 T+ICS3OWN",6".JR960B 3R;I7TR"7HOE3EJ 3E;A3SF +RCE2	?S+W
N2 ;O3E& 3NV 3AC2 	P7T^ 3O/R3I
N6 KA3O;U7DR +HCE3BGO+RKD.M&J*4B53P	R+NCT2"?C7USN+E7R3C?L7C
K3IWS6.2"3P	RN7T.JV920^ 3O?T. B1.M&J*9B93ESN&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