File BANNE1.BA (BASIC source file)

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

*1B03F3I+EOV*1J:7LSP":6".JB160J +ECM* B * B 3P?R3GGR7M^ 7RSI3T;E6 	B2 GD3NWI7LJ 6.Z 3E;RO7N.JF160J +ECM* B * B 3S;E7IKO6 SA6 WB3TWL7RN 3E	N+OCR3H
I7HN 3C?HO7L.JJ160J +ECM* B * B * B * B * B 6 WB3TWL+RB,3P;E7N	S3LGV3NGI. Z1.0F0.MFJ*3B03R7E* B * B 2 GD/T+E. J *-61"763.JR160J +ECM* B * B 3C7O7PSU+ECR7SCU7E[R3I	S+O7N6 KM6.^ 3I3L3I7A2 3E7LOI.MFJ*5B03R7E* B * B 2 ?C7MWP7TKE2 ?T3POI3S& 7NSS3ROU3T?I+NB-+M;
2 3A7BKE7TN 7T
E7ASR.MFJ*6B03R7E.MFJ*7B03R7E* B * B 2 T+ICS3P?R3GGR3M& 3SR 3E	S3GWN7DR 3ON 3RGE+TCE7POO7TKES*M.1B82 WRM*M.1V82 WR+MB * B 6 R 3R;A3SGL3TSE2 ?T6 OO28J 3A	S3CJ 3Y. +ACY+RB.7FOI7HKE* :.2.WDC*M.1B92 	D3M^ .$V(.4F,2)",.$&(*,&9*,SB.(R52)^,*(&6*,A*5&4.MJJ*0B03P	
+NCT2";I7PSU2 WH3IG3T& 3N& 3NC+EKS3\;I7PSU" 7L.JB265B 3R;I+TJ 7ICN+UCT3WSI+TCH+ICN3ION7HOE2"	\7NWP7TJ /\7S20G\*=+R22O\"=7A.JF260B 3R;I3T""+OCW7FKA2,& 3N& 3NC+ECS3F?R7MR +HCE3L[E3T" 3ASN2 	S+D3E2 ?D2 ?Y7U^ 7ASN2 ?T2 3P3AWC" 6".JJ260B 3R;I7TR"+HCE7LSE7TKE/S
"3\;I7PSU6 3S/SF=62N*.MJJ*3B03P	R+NKT7ICN+UCT7MOE3S
A3E" 3EWR""*M.2B42 ;I7PSU* SB.MJJ*5B07FKO. 7I21?T2 WL3NJ("$6).JV222F *(	I6=OA7CN(+ESG*(SB*,3I+I&).MJJ*5B37NE3T& .MJJ*6B0+H"$.16)*"J +\SH*(&2*=B"6 2"+H"$.36)*"B 6 2"+H"$.46)*"B * J .MJJ*6B1+H"$.56)*"B * B 2"\.$Z(*)J=* B * B 2"\2$"=2$2(")*M.2J62 ?G3SKU. R9"
*M.2B7. 7F/FF+3\[I* A/F6)20^ 3O?T. &920
\*(&0"=7L.J^221Z +OCR/IF=2 ?T2 WL3NJ("$6).J^222^ 2$&(2)N=+HSR*(A+I&).MJJ*8B07NE3T& .MJJ*9B07FKO. 7X21?T* ?A"2*M.2F96 KP7ISN. F":*M.2J92 WN+XCTX*M.2V9* SG2=C+R"$3AZ(")6).J&227Z +OCR/XJ=2 ?T6 3L/G6$+GZ$7CKH2$F(*(	F2);\7ESX" 7X.JB320& 3FF *(	F.=Z42 ?G+TCO.3V
3\[I3AZ(.)N=26?G/T	O69203IGF*(	F.=J37GSO/ON620	\+FA/F2)22^73O?T.3V0.MNJ*0B1+ICF3AZ(.)R<28^ 3O?T. ^220	\3FF *(	F.>^52 ?G+TCO.2B7.MNJ*0B53IGF*(	F.<^22 ?G/TOO6120+ICF3AZ(.)R=28^ 3O?T.5B03\[I* A/F6)*4B97GSO/OR "460.JB326& +FA/F6)25^03O?T. J620	\3FF *(	F.=F52 
G/T[O6225+ICF3AZ(.)V=22^ 3O?T. N6"5*M.3^02 [I* A/F6)*5B37GSO/OV 6520+ICF3AZ(.)V=24^ 3O?T. F625	\3FF *(	F.=V52 ?G+TCO.6V0.MNJ*0B8+ICF3AZ(.)V=26^ 3O?T. &525	\3FF *(	F.=^52 ?G+TCO.5V8.MNJ*1B0+ICF3AZ(.)J>26^ 3O?T. ^220	\3FF *(	F.>V12 ?G+TCO.3B3.MNJ*2B0+ICF3AZ
.)F=2 ?G+TCO.3B53\[I* A/F6)22^ 3O?T. Z320	\3FF *(	F*=B37GSO/ON "760.JJ321& 3FF *(	F*=B47GSO/ON 6820+ICF3AZ(.)V=2 ?G+TCO.3B93\[I* A/F6)26^ 3O?T. B4"0*M.3J22 [I* A/F6)27^ 3O?T. F420	\3FF *(	F*=B87GSO/OR 6320+ICF3AZ(.)&=2 ?G+TCO.4B4.MNJ*2B3+ICF3AZ(.)F=20^ 3O
T. V420	\3FF *(	F.=F12 ?G+TCO.4B63\[I* A/F6)*1B27GSO/OR "760.JJ324& 3FF *(	F.=N12 ?G+TCO.4B83\[I* A/F6)*1B47GSO/OR 6920+ICF3AZ(.)F=25^ 3O?T. B5"0*M.3B32 [I* A/F:)*2B67GSO/OJ 6720+ICF3AZ(.)F=26^ 3O?T. F520	\3FF *(	F.=^12 ?G+TCO.5B2.MNJ*3B1+ICF3AZ(.)F=28^ 3
?T. R520	\3FF *(	F.=&12 ?G+TCO.5B53\[I* A/F6)*2B07GSO/OV "660.JN322& 3FF *(	F.=F22 ?G+TCO.5B73\[I* A/F6)*2B27GSO/OV 6820+ICF3AZ(.)J=23^ 3O?T. &5"0*M.3N32 [I* A/F6)*2B47GSO/OZ 6020+ICF3AZ(.)J=25^ 3O?T. F620	\3FF *(	F.=Z22 ?G+TCO.6B2.MNJ*4B07GSO/OJ "760.JR3
5Z +OCR/XF=2 ?T" 7A.JR366B 3R;I/TF6:R +AB/S.)/G.$G6$.JR327: 7ESX" 7X.JR328^ 3O?T. ^2"0*M.3B52 ?G3SKU. R6"0*M.3F52 ?G3SKU. &6"0*M.3J52 ?G3SKU. R6"0*M.3N52 ?G+TCO.2B7.MNJ*6B07GOO+UCB.6B4.MNJ*6B17GOO+UCB.6B5.MNJ*6B33AN=.*V..MNJ*6B57GOO+UCB.6B4.MNJ*6B63AN=.MN
*6B77GOO+UCB.8B1.MNJ*6B87GSO/OJ "760.J^320^ 7OWS/BZ "460.J^322^ 7OWS/B^ "060.J^324^ 7OWS/B^ "060.J^326^ 3O?T. ^2"0*M.3B82 ?G3SKU. R6"0*M.3J82 ?G3SKU. B7"0*M.3R8. 7A+C:*25
\7OWS/BZ "460.J"326F 6=3C7GOO+UCB.8B4.MNJ*8B87GSO/OJ "760.J&320^ 7OWS/BZ "460.J&322^ 7OWS/BZ "560.J&324^ 7OWS/BZ "560.J&326^ 3O?T. ^2"0*M.4B02 ?G3SKU. R6"0*M.4J02 ?G3SKU. &6"0*M.4R02 ?G3SKU. &6"0*M.4Z02 ?G+TCO.2B7.MRJ*1B07GOO+UCB.6B4.MRJ*1B23AN=.*^.25
\7OWS/B^ "060.JF424F *=+C..V23\?G3SKU. V6"0*M.4Z1. 7A3C
\7OWS/B^ "660.JJ420F *=+C..V23\?G3SKU. F7"0*M.4J2. 7A3C
\3O?T. ^2"0*M.4B32 ?G3SKU. R6"0*M.4J32 ?G3SKU. F7"0*M.4R32 ?G3SKU. R6"0*M.4Z32 ?G+TCO.2B7.MRJ*4B07GOO+UCB.6B4.MRJ*4B27GSO/OJ "760.JV420^ 7OWS/B^ "560.JV422^ 7OWS/B^ "460.JV424^ 7OWS/BZ "460.JV426^ 3O?T. ^2"0*M.4B62 ?G3SKU. R6"0*M.4J62 ?G3SKU. Z8"0*M.4R62 
G+TCO.2B7.MRJ*7B07GOO+UCB.6B4.MRJ*7B27GOO+UCB.7B4.MRJ*7B47GOO+UCB.7B4.MRJ*7B67GSO/OJ "760.J"420^ 7OWS/BZ "460.J"422^ 7OWS/B" "960.J"424^ 7OWS/B" "860.J"426^ 7OWS/BZ "460.J"428^ 3O?T. ^2"0*M.4B92 ?G3SKU. R6"0*M.4J92 ?G3SKU. &8"0*M.4R92 ?G3SKU. R6"0*M.4Z92 
G+TCO.2B7.MVJ*0B07GOO+UCB.6B4.MVJ*0B27GOO+UCB.7B0.MVJ*0B47GOO+UCB.6B4.MVJ*0B67GSO/OJ "760.JF520^ 7OWS/BZ "460.JF522^ 7OWS/BZ "960.JF524^ 7OWS/B^ "960.JF526^ 3O?T. ^2"0*M.5B22 ?G3SKU. R6"0*M.5J2. 7A+C:*67257GOO+UCB.7B0.MVJ*2B43AN=.*J.25
\7OWS/BZ "560.JJ526F 6=3C7GOO+UCB.6B4.MVJ*3B03AN=.*J.25
\7OWS/B^ "160.JN522F 6=3C7GSO/OJ "760.JR520^ 7OWS/BZ "460.JR522^ 7OWS/BZ "960.JR524F *=+C6.257GOO+UCB.6B4.MVJ*4B67GOO+UCB.8B1.MVJ*4B83AN=3\?G+TCO.2B7.MVJ*5B07GOO+UCB.7B7.MVJ*5B27GOO+UCB.6B5.MVJ*5B47GOO+UCB.7B6.MVJ*5B67GSO/OJ "760.JZ520^ 7OWS/B^ "860.JZ522
 7OWS/BZ "460.JZ524^ 7OWS/B^ "860.JZ526^ 3O?T. ^2"0*M.5B72 ?G3SKU. R6"0*M.5J72 ?G3SKU. R7"0*M.5R72 ?G3SKU. R6"0*M.5Z72 ?G+TCO.2B7.MVJ*8B07GOO+UCB.8B9.MVJ*8B27GOO+UCB.8B8.MVJ*8B47GSO/OJ "760.J"525^ 7OWS/B^ "960.J"526^ 7OWS/BZ "960.J"527^ 7OWS/BZ "460.J"528
 3O?T. ^2"0*M.5B92 ?G3SKU. R6"0*M.5F92 ?G3SKU. "8"0*M.5J92 ?G3SKU. &8"0*M.5N92 ?G3SKU. R6"0*M.5R92 ?G+TCO.2B7.MVJ*9B57GOO+UCB.6B4.MVJ*9B67GOO+UCB.6B5.MVJ*9B77GOO+UCB.6B4.MVJ*9B87GSO/OJ "760.JB620^ 7OWS/B& "060.JB621^ 3O?T. ^2"0*M.6V02 ?G3SKU. "7"0*M.6Z02 
G3SKU. "7"0*M.6^02 ?G3SKU. R6"0*M.6"02 ?G+TCO.2B7.MZJ*1B07GOO+UCB.9B7.MZJ*1B17GOO+UCB.8B0.MZJ*1B27GOO+UCB.9B6.MZJ*1B37GSO/OJ "760.JF625^ 7OWS/BZ "460.JF626^ 7OWS/BZ "560.JF627^ 7OWS/B^ "660.JF628^ 3O?T. ^2"0*M.6B22 ?G3SKU. J9"0*M.6F22 ?G+TCO.2B7.MZJ*2B57G
O+UCB.7B0.MZJ*2B67GOO+UCB.6B5.MZJ*2B73AN=.*V.3\?G3SKU. R6"0*M.6"2. 7A3C
\7OWS/B" "160.JJ629^ 3O?T. ^2"0*M.6B32 ?G3SKU. R9"0*M.6F32 ?G+TCO.2B7.MZJ*3B57GOO+UCB.7B9.MZJ*3B67GOO+UCB.7B1.MZJ*3B77GOO+UCB.6B4.MZJ*3B87GSO/OJ "760.JR620Z +OCR/YF=2 ?T" 7A.JR661B 3R;I/TF2:GT7BN(")6;.JR622Z +OCR/XF=2 ?T. B1.MZJ*4B33P	R+NOT21^:"$6;.JR624:
7ESX" 7X.JR665B 3R;I/TF":*M.6Z42 WN+XCTY*M.6^42 WR7TKUN*M.6B52 [I. 3A61R 3H;E. Z620
\3O?T. ^6"0*M.6B6. 7A"1*M.6B72 ?F7R" *=B1+TCO7AC\3R;I/TF2:GT7BN(2)^;2$^;2$";2$";2$^;2$^;2$";2$";2$^;2$^;2$;\7ESX" 7X.J^662J 7EWTR7N.J"660B 3R;I/TF2:GT7BN(")6;.J&620Z +OCR/XF=2 ?T6 3A3P	R+NOT61R:+AB242**+	S*;SG*;SG*;SH*;SH*;SG*;SG3\WN+XCTX*M.6J92 WR7TKUN*M
7B02 ?F7R" *=B1+TCO7AC\3R;I/TF2:GT7BN(2)^;2$^;6$2;3P	R+NOT61R:+AB282**+	S*;SG*;SG3\WN+XCTX*M.7F02 WR7TKUN*M.7B12 [I. 3A61R 3H;E. J720
\3O?T. N7"0*M.7B2. 7A"1*M.7B32 ?F7R" *=B1+TCO7AC\3R;I/TF6:R +AB242**+	S*;SG*;SG3\WN+XCTX*M.7F32 WR7TKUN*M.7B42 ?F7R" *=B1+TCO7AC\3R;I/TF6:R +AB/S.)/G.$7G2$7NE7T" .M^J*4B27RSE3U;R.M^J*5B07FKO. 7X61R 3OF 7\KP7ISN.*12 GT7BN(2)^;2$^;2$^;2$^;2$;\7ESX" 7X.JV762
 7EWTR7N.JZ720Z +OCR/YF=2 ?T6 3A3P	R+NOT*1B:3TKA*(	S*;SG*;SG*;SG*;SG*;SG*;SG*;SH*;SH*;SG*;SG3\WN+XCTY*M.7F62 WR7TKUN*M.7B72 ?F7R" *=B1+TCO7AC\3R;I/TF6:R +AB/S.)/G.$/G.$/H.$/H.$/G.$/G.$/G.$/G.$/G.$7G2$7NE7T" .M^J*7B27RSE3U;R.M^J*8B07FKO. 7X61R 3OF 7\KP7ISN
*12 GT/B"(**/L/S.)/G.$7G2$7NE7T" .M^J*8B27RSE3U;R.M^J*9B07FKO. 7X61R 3OF 7\KP7ISN.*12 GT/BR(**/L/S.)/G.$/G.$/G.$/G.$/G.$7G2$7NE7T" .M^J*9B27RSE3U;R.M"J*0B07FKO. 7X61R 3OF 7\KP7ISN.*12 GT7BN(2)^;2$^;2$^;2$^;2$^;2$^;2$;\7ESX" 7X.JB865J 7EWTR7N.JF820Z +OCR/X
=2 ?T* ?C"2*M.8F16 KP7ISN.*12 GT7BN(")6;.JF822Z +OCR/YF=2 ?T" 62.JF823Z +OCR/ZF=2 ?T. V(**	L"-7X.JF864B 3R;I/TF6:N +ESG*(SG*,21.1.).M"J*1B57NE7T* .M"J*2B0+ICF/XN>2 T+ECN.9B5/\7VX*M.8B36 KP7ISN.*1* SH*(*2/V.)3\WN+XCTY*M.8J36 KP7ISN.*13\WN+XCTX*M.8R32 WR7TK
N*M.8B42 ?F7R" *=B1+TCO/CJ/7\KP7ISN.*12 GT7BN(2)";6$"(")6;.JR822Z +OCR/YF=2 ?T. F(202**)"-62"*")*M.8N46 KP7ISN.*12 WS+G"$+G2$.1F,")6;.JR824: 7ESX" 7Y.JR865B 3R;I/TF":*M.8B52 WN+XCTX*M.8J52 WR7TKUN*M.8B62 ?F7R" *=*47LR /O^ **CL3SWT+P" *1*4+L>)*(+C"66).JZ86
B 3R;I/TF6:R +AB272**-/X/S.)/G.$/G.$/G.$.M"J*6B2+ICF*(*77L"-*+/S232**)"<7XN+2)^ 3O?T. Z8"8*M.8N62 ?F3R& .=^(**7L+XB)+TCO7XC\3R;I/TF6:N +ESG*(SG*,21.1.)3\WN+XCTI*M.8R62 ?G+TCO.8F7.M"J*6B83P	R+NOT*1B:3TKA*(/X/S.)/G.$/G.$/G.$.M"J*7B13P	R+NOT*1B:3\WN+XCTX*M.8
72 WR7TKUN*M.8B82 ?F7R" *=B0+TCO262*6 SS+ECP262*6/3C3P	R+NOT*1B:3TKA*(/X/S.)/G.$/G.$/G.$7G2$7NE7T" .M"J*8B27RSE3U;R.M"J*9B07FKO. 7X262*2 ?T* B03SWT+P6 262*6/3C3P	R+NOT*1B:3TKA*(/X/S.)/G.$/G.$/G.$7G2$7NE7T" .M"J*9B27RSE3U;R.M&J*0B07FKO. 7X60R /O^ **CL3SWT+
" *1*4+L>)*(+C"66).JB921& 7F" *>:3252*2 ?G+TCO.9^0.M&J*0B23P	R+NOT*1B:3TKA*(/X/S.)/G.$/G.$/G.$.M&J*0B3+ICF*(/X/SN+**	L.<^(**7L7XN+2)^ 3O?T. B9"6*M.9R02 ?F3R& *=CX+TCO*(*77L"-6)C\3R;I/TF6:N +ESG*(SG*,21.1.)3\WN+XCTI*M.9V02 ?G+TCO.9J1.M&J*0B63P	R+NOT*1B:3TK
*(*77L"-*+	S*;SG*;SG*;SG2;
\3O?T. F9"2*M.9^06 KP7ISN.*12 GT/B^(**7L7XN+2)^;2$^;2$^;"$6;.JB928& +F" 272**-/X/SN+**	L6<"(*+	S2 ?G+TCO.9F1.M&J*0B97FKO. 7I*(*77L"-6)R 7O" 7\KP7ISN.*12 WS+G"$+G2$.1F,6)2;7NE3T& .M&J*1B07GSO/O& "162.JF961B 3R;I/TF6:R +AB7XN+2)^;2$^;2$^;"$6;.JF962B 3R;I/TF
:B 6 2 7NE7T" .M&J*1B37RSE3U;R.M&J22Z0+OCR/XB=2 ?T* *77LN 7TCE. ^(**	L2/N(**&3.M&J*2B13P	R+NOT*1B:3TKA*(	S*;SG*;SG";*M.9J22 [I. ;X222*2 ?G+TCO.9Z27\KP7ISN.*1* SG";*M.9N22 ?F3R& *=B1+TCO7XC\3R;I/TF6:N +ESG*(SG*,21.1.)3\WN+XCTI*M.9R22 ?G+TCO.9B3.M&J*2B63P	R
NOT*1B:3TKA*(/X/S.)/G.$/G.$/G.$.M&J*2B7+ICF/XN+.*3L282*2 ?G+TCO.9B3.M&J*2B87FKO. 7I/XN+**CL+TCO*1*07LC\3R;I/TF6:N +ESG*(SG*,21.1.)3\WN+XCTI*M.9&22 ?G+TCO.9J3.M&J*3B03P	R+NOT*1B:3TKA*(*87LN+2)^;2$^;"$6;.JN962B 3R;I/TF":*M.9N32 WN+XCTX*M.9R32 WR7TKUN*M.9B42
?F7R" *=B1+TCO/AN*.M&J*4B13P	R+NOT"16:.JR922: 7ESX" 7X.JR963J 7EWTR7N.JV920Z +OCR/WF=2 ?T* 7X63C\3R;I/TF*:J * J 2;;\7ESX" 7W.JV922J 6=237GSO/O" "360.JZ920Z +OCR/XR=**CL+TCO272*6 SS+ECP/LR*6/3C3P	R+NOT*1B:3TKA*(/X/S.)/G.$/G.$7G2$7NE7T" .M&J*6B27RSE3U;R.M&J
7B07FKO. 7X272*2 ?T* *47LN 7TCE. R-**?L7CC\3R;I/TF6:R +AB7XN+2)^;2$^;2$^;2$;\7ESX" 7X.J^962J 7EWTR7N.J&920Z +OCR+XB=61R 3ON "*63.J&961B 3R;I/TF":*M.9J92 WN+XCTX*M.9N92 3C3OWS. F.MFJ.0B02 ;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