File HMRABI.BA (BASIC source file)

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

*1B03R7E* **2*N 7O[N7ESR+ECD3F?R7MR +HCE3O	R3G;I+ACL3FOO+ACL3P?R3GGR3MF +NCD3MSO3I	F+ECD7FKO.MJJ60J +ECM****2 SE7U	S3SWT/M^ 20J 3YR 3A	V3DF +H3L2 	D7GSIA7L.JB32 WR7MKA3KKA+LCY3TGR3N3S3AWT7DR 3O> +SB87BOA+ICC+BCY7K	A* ;R2 	F3SWH+R: 2.R.E7C.JB86 KP7ISN6 R"+
CY7YWO3R" 3ASN6 SA2 ?G7VKE3N;I3GF 3N	C7ESN6 WS7MKE+IKA.M"J65B 3R;I+TJ 3SOU7COE7SWF7L	L2 ?F3RF . B16-KY2 WT+RCM+OCF3O[F3IWC6.2"3P	RN7T.JB92 GR3N?D7M+I3E3\+ECT/D61203\+ECT/P61"0*M.1B02 WL7T* 6=207LSE. 7P69257LSE. 7S.2B8203\+ECT/HN=.0B03\WL3TV *=7HS*M.1B12 W
7T& 6=237LSE. 7A7H&/3\WL3T& 6=257LSE. 7Q"1*M.2B12 WL3TR "=60.JF265B 3R;I7TC\3R;I7TC\3R;I+TJ 3H7A3UGR/B+I2 & 2 WB7GR 7OJ 3E?P+RCT+TCO7YWO6,2"7LSE. 7Z/ZF+.MJJ*1B73P	R+NCT2";I2 WY+AKR.;/Z*"J,.;/D2"WP3O3P7EN 7TKA3VSE.,."+IJ;3C7A7ER 7OR +HCE7CSI+YJ..MJJ*1B87LS
. 7P3P&+.MJJ*2B7+ICF/QB>2 T+ECN.2B3.MJJ*2B87LSE. 7P7ISN*(?P"26).JJ269B 3R;I+TJ 3A" 7OKR3I3B7EB 3L
A+UCE7SKT3U/C*!B 3H3A7FR +HCE3P?E3PWL2 	D+E;D""*M.2B36 KP7ISN6 B"7OWP7LSA3I;O6 OI2 ?N/W."P6 .JN262B 3R;I+TJ 3TWH2 	C+TCY7N
O6 
O+NKS.;/A2"OA7ROE".6".JN265B 3R;I+TJ 7YWO2 GH3RWV3SWT/D."+YJ;7BOU3H3E7SB +ECR7AKC+EJ..MJJ*5B03P	R+NCT2"GR+TCS3AWT2"V;2;J"3US7EOL".6".JZ260B 3R;I+TJ 7YWO2 ?N3W" 3AWV6"N;2;J"3US7EOL2 ;I6 SS3OWR6.2"3P	RN7T.J^220& 7F* .=F12 T+ECN.8B6.MNJ*1B07LSE. 7C7ISN.(B12*
R/DB(6)2)7LSE. 7Y/CF+"7*M.3J16 KP7ISN2 2"3ASN6 OI6 KT3A	D+NCG+AKT.;/Y6"WB3SWH+LCS7PKE2 OA+R;E""*M.3B26 KP7ISN2 ""+OCW3M;A3YF 3CWR3SR 7O& +OCU7WOI7HR 3OJ +UKY";*M.3F22 ;I7PSU6 3Q+ICF/QB<2 T+ECN.8B5.MNJ*2B2+ICF7YF*6<N=2 T+ECN.3B3.MNJ*2B37GOO+UCB.7B1.MNJ*2B4
GSO/ON *2B0.MNJ*3B0+ICF/QB=2 T+ECN.3B4.MNJ*3B17LSE. 7A7AF+3\WL7TN *=7S7YF*3\WL3TN "=60.JN324^ 3O?T. B4"0*M.3B46 KP7ISN2 ""+OCW3M;A3YF 3CWR3SR 7O& +OCU7WOI7HR 7ON 3E3L""6;.JR321& 7NWP7TF 3\[I. 3Q60R 3H;E. V8"0*M.3J42 [I. 3Q7AR 3H;E. V3"0*M.3N42 ?G3SKU. J7"
*M.3R42 ?G+TCO.3B4" *M.3B52 WL3TF *=7A3Q3\+ECT7SN=*++Y3Q3\+ECT/CB=.MRJ*0B03P	RN7T.JF460B 3R;I+TJ 7H
O2 GM+NCY7BOU3H3E3SR 7O& +OCU7WOI7HR 3OZ 3ESE2 ?Y+UCR3P?E3PWL""6;.JF421& 7NWP7TF .MRJ*1B2+ICF/QB<2 T+ECN.8B5.MRJ*1B83R7E* **6*R 3R	Y+NCG+TCO3UWS2 ?M+RCE3GGR+ICN3TGH3N& 7NR +HCE3S3I/O?S.MRJ*2B0+ICF/Q6<7SR 3H;E. N4"06 .JJ421^ 7OWS/B^ "160.JJ422^ 3O?T. F4"06
.JN4202 +ECT7SN=6-3Q7LSE. 7C61C\3R;IT*M.4B46 KP7ISN2 ""+OCW3M;A3YF 3CWR3SR 7O& +OCU7WOI7HR 7OB 3L;A7T^ 3IT2 WS+EKD";*M.4F42 ;I7PSU6 3D+ICF/DB=2 T+ECN.5F1.MRJ*4B2+ICF/DB<2 T+ECN.8B5.MRJ*4B43R7E* **6*R 3R	Y+NCG+TCO3PGL+NCT7MKO3EF 3CWR7SR 3H;A2 ?Y3U> /W?N.MR
*4B5+ICF/D6<7AR 3H;E. V4"0*M.4Z42 ?G3SKU. J7"0*M.4^42 ?G+TCO.4B4.MRJ*4B93R7E* **2*V 7NWO+GCH3GGR+ICN7FKO2 WS/E?D.MRJ*5B0+ICF7ISN*(?D.22)7SR 3H;E. V4"5*M.4J52 ?G3SKU. F7"0*M.4N52 ?G+TCO.4B4" *M.4R52 WR+M* **B*3E?N3UG2 WP3O3P7ER 7OR 3ESN2 T3EN 7RCOS6?.JV425
 3FR .<B1**CP3TWH/NV "160.JZ460B 3R;I+TJ 7BSU2 ?Y3U" 3AWV2 ;O+LKY.;/P2"WP3O3P7ER 7OR 3ESN2 T3EZ 3I3E+D;S2 ?N7WR 3H;E",6".J^420^ 3O?T. R4"0*M.5B12 WL7TN *=7S7ISN*(?D"26).JF521^ 7OWS/B" "060.JF562J +ECM***** CA7BWO7N	T3F3U3L" 7A[R7ESS"!6!.JF5252 +ECT3YN=3\W
3T" *=+D3Y3\+ECT/EB=.MVJ*2B17GOO+UCB.8B0.MVJ*2B2+ICF7ISN*(?C.22)*>?C62R 3H;E. N5"0*M.5N22 WR+M* **B*3TWH2 GR+TCS3AWR6 WR3N	N+NCG3W3I+DF!.MVJ*2B57LSE. 7E7ISN*(?SC6).JN5202 +ECT7SN=*-/EH*M.5F32 ?G3SKU. B8"0*M.5J32 WR+M* **B*7LSE*	CS7H[A7EN 3OWM2 GB3BWIS*M.5
32 WL3T& 2=;I3TN(.*J(20F**+	S*/?P.1B0*+&1.MVJ*3B93R7E* **2*" +OCW3M;A7YB 7ECO+LCE3HSA6 WF+LCL3T7U3MWIS6?.JR5202 +ECT3C&=+NT/QJ/"06).JR561J +ECM****2 ?H3R?R+R3S* CA*1V52 C3AON3E> 7FB 3L
AU7E.JR5222 +ECT3Q&=+NT*1*0*(*23RSN*(&0.-N.")6).JV520& 7FB *<CC3TWH/NJ "160.JV561J +ECM****6 SS7A[R3EV 7NWO+GCH7FKO2 7I3PGE3C7H7ESN"?*M.5J52 WL3TR *=7P3C	\3FR .>R.65B*2 T+ECN.5B6.MVJ*5B37LSE. GP*="(/ZF-6)B*21R+.*B160B/6)*/.MVJ*5B57LSE. 7P3C3\+ECT/D61+D.13

\3O?T. F2"5*M.5B66 KP7ISN7\KP7ISN6 &"+OCU3SGT3RWV/D."+DJ;3P?E3PWL2 ;I2 ;O7E& 7EKA*!F!""*M.5V66 KP7ISN2 R"+UCE+TCO3T	H3SV 7XKT3EWM2 	M3SGM3N
A3EWM+NCT7YWO2 GH+VCE7NSO2 ;O+LKY.MVJ*6B63P	R+NCT2"WB+ECN7ICM3EOA3HSE2 ;A7DR 3H?R+WCN7OSU2 [O2 [O3FOI3EJ +UCT7YWO2 GH+VKE.MVJ*6B73P	R+NCT2"3A+SCO3BWE3NR 3E3C3AWR+D^ 7NSA3I;O+ACL3F;I+KB	*!J!3\?G+TCO.9B9.M^J*1B03P	R+NCT2"GH7MKU3A	B*:B 3T	H+NCK3AGG+I;N2 ?Y3U
 3AWV2 ;O+LKY.M^J*1B13P	R+NCT+SJ;7BOU3H3E3S> 3F^ 3R	A+NB.2 ?N7WR 3H;E",6".JF762J 7EWT+RCN.M^J*2B03P	R+NCT2"GH7MKU3A	B*:B 3T	H+NCK3AGG+I;N2 ?Y3U> +WCN3O3N/Y."+AJ;7AKC+E;S2 : +OCW3TWH+NJ,.M^J*3B07RSE3U;R.M"J*0B07LSE. 7C7ISN2(;R/DB(.)V*.)F+.M"J*0B17RSE3U;R" 
M.8B56 KP7ISN7\KP7ISN2 ""7AWM3RKA+IB:* CI3C;A7NSO2 ?D2 W+ACT7YWO2 	W+S;H""*M.8V56 KP7ISN2 ^"+ECT7YWO3RWS+LCF3A?N3TWH7RN 7T
E3ASR*!F!*!J!.M"J*5B77GSO/O& "960.JZ860B 3R;I+TJ +ICN7YWO/RF 60&-7EKA2 WT+RCM+OCF3O[F3IWC.,."/P.12"WP3RWC+NCT+OCF3TWH""*M.8J66 KP7ISN6 B"7OWP7LSA3I;O6 SS7A[R+ECD7PKE2 WY+ACR+OCN3AWV3R
A+EB,3IV.*.B,7AR 3OGT3L> F6".JZ865B 3R;I3TR *1J;3P?E3PWL2 	D+EGD6!2"7LSE. 7L7AB/.M"J*7B03P	R+NCT2"?Y7UN 7TKA3TSE2 	W+TCH*1B07AKC+ECS7PKE2 WP3R?S3NF +NCD3ESN+ECD7WSIH6".J^865B 3R;I3T2 2;F"3CWR7SB +ECR7PKE3S;O6.2"3P	RN7T.J"820& 7FB .1N>63R 3H;E. Z5"5*M.8V82
[I. 3L67R 3H;E. Z5"5*M.8B92 [I. GP.>B12 T+ECN.9B4.M"J*9B2+ICF/L&<2 T+ECN.9B4.M"J*9B5+ICF/P:163R 3H;E. Z9"0*M.8Z92 [I. 3L*1B03TWH/N& "660.JB960B 3R;I+TJ 3AZ 7ASN7ASS+ICC7PKE7FKO3M;A+CGE*!B!2 C3A3R3EGM3NWG2,R 7IKS3A3E+IB,3ASN""*M.9V06 KP7ISN2 *"3E[F7EOR+OCN
C7O3B;I+ECD7CWO+LCD7NSO2 GH+VCE3D;O3EJ 7EST+EGR2"
\3O?T. &9"0*M.9B46 KP7ISN6 &"7OKU2 WH7A	V2-GH3NWD7DB 3E[R3O7R3AON7EN 3MOA+KCS+OCF7NKE3OF +NCD3IGV3N& +VJ..M&J*4B53P	R+NCT2"T7EB 7ECO+LCE2(WR3M	A3N;I+GB)3F;I7D& +OCU+ACN7UCN3LGE3S;A7TJ 3UWL+RB,3ASN",6".JV960B 3R;I+TJ 3FGR3N3K+YB,7HSA7E& 7OKU6 WG+TGS2"
\3O?T. &9"0*M.9B66 KP7ISN6 &"7OKU2 WP3R?F3RGM3NWC2 ?C3USL2 GH+VCE3BWE7NN 3OWM3WGH3TJ 7EST+E3R6 WBT6".JZ965B 3R;I+TJ 3RGE7L	L2 GW+S
N7TR +OCO3BSA6 SA2 3A+LB.2"&;+NT+P:*68J*+ND*0&)6;B"7ECO+LCE7WWO+LKD.M&J*7B03P	R+NCT2"WD3A3R3Y2 3IWK2 ?T2 WS7E& +OCU7AOS7AOS3IGN3TSE6 WB7T^ 3EF +LCL7H[A3E> +UKR.M&J*7B53P	R+NCT6"KT3I	V+ACL3P?R3BWL+M;S""*M.9B96 KP7ISN.M&J*9B53P	R+NCT2"?S2 ?L+NCG7FKO2 ?N+WJ.
\KP7ISN.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