File TOWER.BA (BASIC source file)

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

.1"560B 3R;I+TJ 7YWO2 GH+VKE.;/E2";U7IOT2 [O2 ;E3E
RY6".JV1*9B03P	R+NCT6"WS3GWG+SCT7YWO2 WG7TN 3OWM6 KF+OCM7YWO7RN 3HWI7LOD2 W3IC2 GH+VKE.;/S2";U7IOT2 WL+FKT.MFJ.6B02 ?G+TCO.1^2"0*M.1F620?F3R& 6=R17O282 [I* D/I:)*=B03TWH/NF .6B4.MFJ.6F13R7E* **2*Z +ICX7A	N2 GD3M
A+ECD7D[E3IWC.MFJ.6B33D&(2)R=*(	I"+61.JZ124:07ESX" 7I.JZ125&07FJ +ND.1:)*.B23TWH/NF .8B1.MFJ.6B6/R617ISN2(;R/DF(.)"**+&1.MFJ.6B7+ICF3RSN*(&1*>B=*.B53TWH/NF .7B5.MFJ.6B87DJ(.16)7DJ(*16)2(;R/DF(.)V**+&1.MFJ.6B96 KP7ISN7\KP7ISN2 R"3AGM+GCE3C;O3T?R7LJ 3E?P/R+
""6;.J^121^07OWS/BV .6B1.MFJ.7B23P	R+NKT2 GD3M
A+EKD7\KP7ISN3\?G+TCO.1F8"0*M.1V7*0D+R&1*=D+R&16+J(+ND*1*).5F+")*M.1Z760B 3R;I7TC\3R;I+TJ 3D7A3AWG2 ?C7NKT+OCL7RCE7OSR.:.".MFJ.7B87GOO+UCB.5F6"0*M.1&760KP7ISN6"N 7TSA3E> 7FJ 3EGP+ICR7ICM7R[O+EKD7\KP7ISN.MFJ.8B1. 7N7ISN6(^(*1:+.0J6*5*)682)/A6$*"B 6 2"/Z617
21/Z62S62.J"125^07OWS/BV .5B1.MFJ.8B77XN=61	\.=KS.MFJ.8B9/X613CN(.1F,*)"+3CN(.1F+*,&1*-C+C21*1&)2*N(21&-+NT+C&1")*M.1B9.0KX*=C+C21*2.)*(C+C.1.1J,2)N-.(GC*,&2*)"*+C617ISN.(GC")6).J&121Z0+OCR/IF=3T;O/\GS.=GS.+GX/\KS.=KS.+KX.MFJ.9B42 [I. GS*<B17GSO/OJ .1B73\
I. GS.>&=2 ?G+TCO.2^120	\7FN .2F<2 ?G+TCO.2^120	\7FN .26>29^ 3O?T. F2"760.J&165N068N=.1J*64N+.2N*.-Z23\& 7FN .8^>62R 3H;E. &1"960.J&1*7B0+ICF3S
E6$F(6$N,68N,.8J+*)J=* B 2"^ 3O?T. B2"760.J&128^03O?T. B2"360.J&129&07FN .8F>*4B43TWH/NJ .0B2.MJJ.0B02 [I2 WS+G"$+R2$+S68*722+S68*7&0*=B"* J 2 ?G+TCO.2^0"0*M.2F020?G+TCO.2N0"0*M.2J020& 7FN +ESG*(SS.,S.-R164N,.8F-*4&2*=B"* J 2 ?G+TCO.2^0"0*M.2N060N 21&=+NT
S61+X&1/\KS2=;I7TN(62"-622)3P	R+NCT2"GW+RCP3E
N3IWN7SN 7HSU7D
O3NF 7TN 7ESC+OKR";*M.2N065B 3R;I7TN *1J;.,."/S.26"WD7ER 3OJ +ACD7N[A3AGG3T?IN6".JB2*4B07GSO/OJ .0B8.MJJ.0B77NE3T& .MJJ.0V7. GS2=;I7TN(612)/S627ISN.(KS")*M.2"0*0SA.=2"**J>/\GZ.=GS/\KZ.=KS.MJJ.1B17GOO+UCB.5F5"0*M.2J120V *=7E/NV+/\7T2(;I/TF(60R**+:1*1&)./B1
\[I. GW*<B13TWH/NJ .1B5.MJJ.1B4. 7T2(;I/TF(60R**+&9.)F/"0*M.2V120[I. ;T+T.0+TB93TWH/NN .9B7.MJJ.1B67GSO/OF .2B6.MJJ.1B77XF=.1"**+/X+X*17N	\.=KQ**.87Y"+22:*.MJJ.1B9/Q617ISN*(?X682)/Q627ISN*(?Y682)/S617ISN*(7X+Q*1682)/S627ISN*(7Y+Q*2"86).JJ223&07FN .1:<60R 
H;E. J2"660.JJ264F061F=.1F-/\GS"=68.JJ226&07FN .2:<60R 3H;E. J2"960.JJ267F062F=.2F-/\KS"=68.JJ269R0*=/T21W\*=7E/NV+.MJJ.3B1+ICF7TR>*0. . 	T2 T+ECN.3^9"0*M.2J320?G+TCO.8B1.MJJ.3F23R7E* **2*2 3O
N2 GR3NWG2 WS3N?S7NN 3C;A2 ?C+DCE3B
E7ION2 WHR7E.JN223&03FR *(&3.>B=2 T+ECN.2^3"0*M.2R360KP7ISN2 2"3O
N2 GR3NWG2 WS3N?S+RCS3AWR2 ;I3OWP3RKA+LKE.MJJ.3B67GSO/OF .2B7.MJJ.3B76 KP7ISN2 2"3O
N2 GR3NWG2 WS3N?S7RN 3C;A2 ?F7RF 3USA3R;A/T."/Q.1*"J,.;KQ.MJJ.3B83P	R+NKT*-6-*-6-*-6-*-6-*-6-*-6-"-6".JN229Z0+OCR7IF=.1F-2 ?T. GQ"+61.JR221Z0+OCR7JF=.2F-2 ?T. KQ"+61.JR2*2B0+ICF/IF<2 ?G+TCO.2B520	\3F& *>B87GSO/OJ .5B03\[I. 3J21^ 3O?T. V26020+ICF/J">2 ?G+T
O.2B5"0*M.2N4*0N7JF-.2J+2)^=*(3IJ6).JR2*4B0+ICF/D"(.)B<2 T+ECN.2Z4"0*M.2V4*0Z3I*,2)^=*(3IJ6).JR226:07ESX" 7J.JR2*7B03P	R+NCT*"J:*;N.1.)3TKA*(&7.;*"2":;*(&22;GT/BF(.3.)*"J:*;N.3.)3TKA.(&1*)J;":6".JR268B03R;I+T6"*-6-*-6-*-6-*-6-*-6-*-6-""*M.2&420WN+XCTI*M.2
425^ 3O?T. J1"760.JV2*0B03N*(.-KQ*+&26=207GSO/OJ .4B6.MJJ.5F03R7E* **6*B 7HOA+ECR3C;O3T?R3LN 3OWD2 WB3G;I3S" 3EWR.MJJ.5B3+ICF/K23*=B03TWH/NN .6B7.MJJ.5B4+ICF/DR(.)6>60R 3H;E. V2"760.JV2*5B03P	R+NCT2"P3AWS+RCS7NSO6 CO3EGR3T?I3N3A""*M.2Z520?G+TCO.1^2"0*M.2^
20& 3FR *(&8.>B=2 T+ECN.2&5"0*M.2"560KP7ISN* B"3C7O7PSU+ECR3F	A7LKU3E" 7ACM7EOR2 OA7CKU7A	C""*M.2&560B 3R;I+TJ 3PGH7SKE3S2 3O/C+ECD+OCN7TKA7GSE*.B 3EWN7R	G6 [A3A3I3A3B/E6 2"V;.MJJ.6B06 KP7ISN2 :"3UKM+ECR+OCF3U	N+TCS+TCO7FKI+EJ:2;	\7NWP7T" .MJJ.6B2+ICF/X6<
0R 3H;E. J1"760.JZ2*3B0+ICF7E"-*<B03TWH/NJ .5B9.MJJ.6B43EV="-7X.JZ225^07OWS/BN .7B9.MJJ.6B6+ICF/D^(.)6>60R 3H;E. Z2"860.JZ267"0*=+X3RSN*(&1.MJJ.6B87FKO. 7I21?T"3*M.2&620[I* K/IN,.)6<60R 3H;E. ^2"760.J^220"02=;I+T"(3X./23Z/+ND*0&).*J(2*;R/DF(*)&).MJJ.7B13K
(*,&3*=K/IN,2)"-.MJJ.7B26 KP7ISN. /H6"V 7NSI2 	H3T> 3N. 3L;I3G;O6 SA2 WS3C?T/R."3K&(*,&1*;2"2".;*(3I.2.).MJJ.7F26 KP7ISN* B"* B * J(*;K/IN,*)J;2 WL+F	T""*M.2R720[I* K/IN,.)B>2 T+ECN.2^7"0*M.2V720?G3SKU. Z3"960.J^226&03F. .96<60R 3H;E. B4"460.J^227:07ESX" 
I.J^228&03FV *<B03TWH/NR .0B0.MJJ.7B97GSO/OF .2B7.MJJ.7F93R7E* **6*B 7HSO+OCN7TKO3PSE3ON 3OWD2 WB3G;I3S" 3EWR.MJJ.8B0+ICF/DV(.)6>60R 3H;E. "2"360.J"261B03R;I+TJ 3P?H3T;O6 WT7BOE6 KA3E: +OCT3OWP7RSA3I;O+AKL.MJJ.8B27GSO/OF .2B7.MJJ.8B3+ICF/PB>2 T+ECN.2Z8"0*
.2R860KP7ISN2 F"+LCL3P?H3T;O2 ?T3RWP3DWO3SV 3XWP3NWDD6".J"225^03O?T. J1"760.J"2*6B03P	R+NCT2"?T3RWP+DCO7CWO3RWS. F(*-&9.:."3\;I7PSU. GC.MJJ.8B8+ICF/C6160R 3H;E. J1"760.J"2*9B0+ICF/C2121^ 3O?T. "26620+ICF/C:1*=B97GSO/OJ .8B6.MJJ.9B0/X613CN(.1F,*)"+3CN(.1F+
,&1*-C+C21*1&)2*N(21&-+NT+C&1")*M.2F9.0KX*=C+C21*2.)*(C+C.1.1J,2)N-.(GC*,&2*)"*+C617ISN.(GC")6).J&262"0.=GS/\7Y7S227PB="-61.J&2*5B03P	R+NCT2"?T3RWP+DCO3TGR/C+K""*M.2Z9.07X7X"+61	\*=/YX62.J&2*8B0+ICF/XF<2 ?G+TCO.3J420	\7F" .>&=2 ?G+TCO.3J420	\7F& *<B17GSO/
N .4B23\[I. ;Y*=B97GSO/OR3"260.J&2*9B03P	R+NCT*"B * B * B * B * B . ."+XJ;.,."Y*M.2&922& 3F& +NT+X:+*2&52<&>+NT+X:+*7&52 ?G+TCO.2Z9"0*M.2&924& 3F& +NT+Y:+*2&52<&>+NT+Y:+*7&52 ?G+TCO.2Z9"0*M.3B060* 21&=+NT+X:+652)/Z627ISN*(/Y*.&5.MNJ.0B1* SA*=B"* J .MNJ.0B
7GOO+UCB.5"6"0*M.3V020[I. OZ*=B03TWH/NN .0B7.MNJ.0B67GSO/OJ .9B6.MNJ.0B7* SA*=."*+J+.MNJ.1B07GOO+UCB.5"6"0*M.3F120[I. OZ*=B03TWH/NN .2B2.MNJ.1B23P	R+NCT*"**2*. 3L;I3G;O2 WD7SKT3OWY+D* **J*.MNJ.1B3/K63+K6321/\29.=.9F-.MNJ.1B5+ICF/K29*=B03TWH/NR .0B4.MNJ.1B
7FKO. 7I21?T23	\3F& +NT/X2)*>K/IF,6)R 3H;E. F3"960.JF328&03F& +NT/Y6)3K&(*,&22 T+ECN.3B2"0*M.3&120WN+XCTI*M.3B2*0K/IN,.)B=3\?G+TCO.3Z3"0*M.3J220F *$J=* B*""*M.3V220?G3SKU. Z5"860.JJ326&07F* .3B=2 T+ECN.3&2"0*M.3^260KP7ISN6 &"+OCU3C;A*	CT7DOE3T?R7YN 7TKA+S
,3S3I+LKY.MNJ.2B87GSO/ON .4B2.MNJ.2B9* SA.=:"*!J<.MNJ.3B27GOO+UCB.5"6"0*M

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