File TOWER.BA (BASIC source file)

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

*9B03P	RN7T.JB160J +ECM****2 ;I3I	T3A	LZ7E.JF120R +ICM/T^(*,&3.MFJ*2B0/EB=.MFJ*3B07FKO. 7D61R /O^ .MFJ*4B07FKO. 7N61R /ON .MFJ*5B03TR(*,	N"=60.JZ120: 7ESX" 7N.J^120: 7ESXD*M.1B86 KP7ISN6 R"3OWW+RCS+OCF3H;A+OCI7P+U3ZWL6"C\3R;IT*M.2B06 KP7ISN6 &"+OCU7MOU7TR
3R;A3SWF3RT3ER 3I/S3SZ 3R7O3TWH2 WL+FCT+TCO3TWH2 	R7GSH""*M.2V06 KP7ISN6 R"3OWW+RB,3OWN6 SA* CA3T7I+EB,7N[E+ECR7PSU3T;I3GF 2 GL3RWG3R;O* KA.MJJ*1B03P	R+NCT2"7S3A3L+ECR7DOI+KJ.7\KP7ISN.MJJ*1B53P	R+NCT2"?H3W6 7A	N2 	D7SOK2 ?D2 ?Y7U^ 7ASN2 ?T2 ?M+VCE*(B7+ICS
MA.).".MJJ*2B07ICN+UCT7SC\3R;IT*M.2B3. 7M"0*M.2B42 ?F7RF *=B1+TCO"7*M.2B52 [I. 7Q7SR 3H;E. V3"0*M.2B62 WN+XCTQ*M.2B7. 7E/EF+.MJJ*8B0+ICF/EJ>2 T+ECN.3B1.MJJ*9B03P	R+NCT2"?S7R	R2,J +UCT3IN +A
N3TR 7OR 7HSA2 ?J3BZ +OCR7YWO6.2"7GSO/OJ "165.JF360B 3R;I+TJ 7AKL3IG+TB,7WOI3E^ +U3Y2 [I2 ?Y3UN +A
N7TB 7L	A2 T3E^ 3AWM2 	R7GSH2,& 2	3L""*M.3B26 KP7ISN2 *"7USS2 GT+KCE+MCY7P+U3ZWL2 ;A3D^ 3O" 3OWM*.B +SCO3L;O+GJ.7\SSO7P.JR360J +ECM****6 SS3OWR2 	D7SOK6 KF+OCM3SGM3LWL+SCT+TCO7LKA7GOET*M.3B56 KP7ISN2 &"3NT+ICS3P?R3GGR+MB,+WCE3SGH+LCL3R[E+ECR+TCO7DOI+KCS+B
Y3A: 3UWM3ROI+ACL3CSO+EJ..MNJ*5B53P	R+NCT*"B33W3I7LJ 7EKP3EWS+NCT3TWH2 7S3A3L7ESS2 	D+S3K* B53TWH2 WN+XCT7S+I+EB,67R +HCE7NE+TJ,.MNJ*6B03P	R+NCT2";A7DN 3O> +NB,+UCP+TCO*1:52 & 7F& +OCU+DCO3TWH6 WP3Z3Z7E^ 3IT* B27DOI+K3S2 T7EKI""*M.3V66 KP7ISN2 N"3OWD2 GN7
OE2 ?W3USL+BCY*1B33ASN. V1*.B 7WSI7HR 3HWR3ER 3I/S+SB,3TWH2 ?C+DKE.MNJ*7B03P	R+NCT2"GN7MOE2 ?W3USL2 WB. F1.,F *3B,3ASN. V12,V +T;C6 R +HCE3NWE3DWL3SF +RKE.MNJ*7B53P	R+NCT6"WN3MWB3RSE6 KF+OCM3L[E7TR 7OJ 3IG+TB,61R /ON *.B +WCE3W3I7LN 7TKA7T^ 3IT2 T+EJ .MNJ
8B03P	R+NCT2"	D7SOK2 ;O2 WN3E3D/EF 2,F +NCD7AST7ECM7TR 3O6 3OWV2 T+ECM+TCO3NWE3DWL* :3""*M.3B96 KP7ISN7\KP7ISN2 ^"3OSO6 WL+CGK6!2"3P	RN7T.JB460& 6=27/DF="5*M.4B22 ?F7R" *=CS+TCO61N 7TCE. F-.MRJ*3B07T&(*,&16=3D3DR=6-227Y&="-61.JZ420: 7ESX" 7X.J^420^ 7OWS/B
 .2B3.MRJ*8B03P	R+NCT2"W3IC2 	D+SCK7WWO+LCD7YWO2 	L+KCE+TCO7M[O/E."/\7E"0*M.5B02 ;I7PSU" 7D.JF520& +F" /DN-*)"*/DV-*)"*/D^-*)"*/D&-*)"*/DF-*1*)*(7D*1&32*R(.-V1.)B=2 T+ECN.5B8.MVJ*2B03P	R+NCT2"3I3L
E+ACL7ESN+R;Y6.&.+OCU7M	A2 ;O+LCY7TCY/EN *,25.7&,.,F1.,N12,> /RF *5J..MVJ*3B03EV=6+21+ICF/EF>2 T+ECN.5B6.MVJ*5B07GSO/OV "060.JZ560B 3R;I7TC\3R;I+TJ 3S?T7P^ 7ASS3I
N6 	M2 	T+M;E2 ^ 3OJ 3OT+ECR3S7O3E;O3EV 3LWS6.2"3S?TP*M.5B82 WR+M* **B*3CWH+CCK+ICF7RGE7UOE3TSE2 	D+SCK+ICS3B3E+OCW3A?N3TWHR*M.5B92 ?F7RJ *=B1+TCO"7*M.6B02 ?F3RN *=B1+TCO"3*M.6B12 [I* T3RN,2)R=2 T+ECN.6B4.MZJ*2B07NE3TN 3\WN+XCTR*M.6B42 ?F7RF *=CR+TCO61N 7
CE. F-.MZJ*4B5+ICF7TF(*,	C*=B03TWH/NZ "660.JV620& 7FR *(3Q/C2)7DR 3H;E. "6"0*M.6B62 WN+XCTQ*M.6B72 ?G+TCO.7B0.MZJ*8B03P	R+NCT2"T+ACT7DOI3K& 3SJ 3E?L3WF 7NSO7HKE2 ;O+EB.2 GM+KCE3A?N3TWH3RN 3H	O+C;E2"
\3O?T. "4"0*M.7B0. 7E"0*M.7V06 KP7ISN6 B"3LOA3ER 3I/S2 ;O2 W3IC2 WN3E3D/E."3\;I7PSU" 7N.JN720& +F" /NF-*)"*/NJ-*)"*/NN-.)B=2 T+ECN.8B0.M^J*3B53EV="+61.JR720& 3FV *>B13TWH/N^ "860.JV760B 3R;I+TJ 3I2	3LF 7SWS+MCE7YWO2 	H7TR +HCE3W?R+NCG7K	E2 T+ICS3T7I+EB.6 
B7T^ 3AOT3H& +TJ,.M^J*6B03P	R+NCT*"CI3O3N3YF 3L?L3W> +NCE7MOI3T/A+EJ.3\?G+TCO.7V0.M^J*8B03P	R+NCT*"CI3T	R+ECD+TCO7WKA7N& +O3U6 WB7T& +OCU7WWO3L;D*	CT7LOI3T;E".6".J&760B 3R;I+TJ 3BWY2,J +Y3E2 	B7GN 7HSO6.2"3S?TP*M.7V92 WR+M* **B*3LOO3AWT2 	D+SCK+TCO+BCE7M[
E7D.JB820Z +OCR/RF=2 ?T" 67.JF820& 7FR *(3R/N2)*>B03TWH/N" "460.JJ820: 7ESX" 7R.JN820^ 3O?T. "8"0*M.8V32 WR+M* **B*3CWH+CCK+ICF7DOI7KR 3OJ 7EB 3LOA+ECD+OCN3A2 3A
R+ECR3OWN.M"J*4B0+ICF7DR<*(3R+NB)3TWH/N" "860.JV860B 3R;I+TJ 7YWO2 GC7NR	2 3P3AWC* CA7LKA7GKE2 	D+SCK+OCN7TCO2 [O* CA3SGM3LWL3R> +N;E""*M.8B66 KP7ISN2 &"3T6 3IG3TN 7ROU3H& +TJ!7\KP7ISN2 :"+OCW3TWH+NB,6"2;7GSO/OR "860.J^865J +ECM****2 WR3LOO3AWT2 ?M3VSE2 	
S7K.J"820Z +OCR/VF=2 ?T6 277FKO. 7W61R /ON .M&J*0B0+ICF7TZ(*,	W*=CD3TWH/N& "360.JF920: 7ESX6 3W7NE7TZ .M&J*2B53R7E* **2*2 3OGC+TCE7FKI+SCT7ECM+TCY3SGP+CCE+OCN3NWE3DWL" 7N.JN920Z +OCR/UF=2 ?T" 67.JR920& 7FR *(3U/N2)*>B03TWH/N& "760.JV920: 7ESX" 7U.JZ920^ 3
?T. "9"0*M.9V62 WR+M* **B*7M[O3ER 3I/S2 ;A7DN +ECT3OSL2 ?L7CSA3I;O2 ?T" 60.J^960V *=7U"1*M.9B8* T3U:,6)R=*(3V7W2)7TZ(*,	W"=60.J&965J +ECM****6 KP7ISN6 WO3TN 7UKR7ESN6 SS7AWTS*M.1B020^ 7OWS/BF .2B3.MFJ.0B12 WR+M* **B*3CWH+CCK+ICF3D;OE*M.1J0206 *=/M"1*M.1N0
0Z +OCR/RF=2 ?T6 277FKO. 7C61R /OJ .MFJ.0B52 [I* T3RN,.):<60R 3H;E. B1"960.JB1*6B07NE3TN 3\WN+XCTR*M.1"020^ 3O?T. F1"260.JB1*9B0+ICF/M6<.1"22 T+ECN.4B8.MFJ.1B06 KP7ISN6 N"7OKR+YB,7BSU* CI7H[A3E> 3RWD+RCS+TCO3S?T3P& 7F& +OCU3M/A3E6 3OWR2 T+AKN.MFJ.1B16 KP7
SN. F"*2B87M[O+E;S6"O\7TCO.MFJ.1B22 [I. 3M6>:2/SF-2 T+ECN.1R1"0*M.1N160B 3R;I+TJ 3C;O3GGR3T3U3A	T7OON*!B!""6;.JF1*4B03P	R+NCT2"?Y3U" 3AWV2 WP3R?F3RWM7DR +HCE7TOA3K& /N."+MJ;7M[O+E;S""*M.1V160B 3R;I7TC\3R;I+TJ 7T	R2 ;A3OT+ECR3OWN6 &(+ECS+OCR+N	O6"2;7ICN+UC
A6$.JF1*6B0+ICF/A6$2"?N6"R 3H;E. N1"960.JF1*7B0+ICF/A6$2"WY+SB"3TWH/N& "0*M.1"160B 3R;I7TC\3R;I+TJ 2	WY+SB	+OCR2	?N6	B 3LGE+SKE2;	\7NWP3TF 2$
\3O?T. F1"660.JJ1*3B03R7E* **6*B 3R;I7TN 7UKB7OSU3IWN.MFJ.2B42 ?F3R. *=B1+TCO"7*M.1V260* .=B1.MFJ.2B62 ?F3R* *=B1+TCO"3*M.1^220& 7FR *(3K/J6)60R 3H;E. N1"360.JJ1*8B03P	R+NCT3TKA*(7Z7ISN*(T3K*,.)J/.).).MFJ.2B92 ?F7RZ *=B1+TCO3T.(*,	J.MFJ.3B06 KP7ISN* *"""6
.JN1*1B07NE7TZ .MFJ.3B22 ?G+TCO.1R3"0*M.1N360B 3R;I7TR +AB/Z.)*"J*";*M.1R360* *=/Z"261.JN1*5B07NE3T* .MFJ.3B66 KP7ISN.MFJ.3B72 WN+XCTK*M.1"360J 7EWTR7N.JN1*9B03P	R7N3T6 KP7ISN6 R"3H;A+KCS7FKO2 T3E^ 3AWM6!2"3P	RN7T.JR1*0B03CGH+IKN3D/S21&:3NGH+L;T+BKA.MFJ.4
12 ;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