File BANNER.BA (BASIC source file)

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

.1B02 WR+MB * B 6 B 3R
O3R7A6 KW7IST+ECN+BCY3D;A3I3E* ;R2 WV3R?NN*M.1B12 WR+MB * B 6 N 3E	N+OCR+ACT7BSU7LKE2 WS3N?I3R" 3IG2 OS3H?OL*M.1B22 WR+MB * B * B * B * B * B 7BSU7LKE6,B 3E;N3S3Y3V;A+ICA.1B6"061.JN160J +ECM* B * B 7DSA+EB:* 62.1^-"3*M.1B42 WR+MB * B 2 N 7OCM3UWT7RN 3UWP3
	V3S?I+NB-+M;R2 	W3L	L+ACM3E3LI7S.JV160J +ECM* B * B 3C7O7PSU+ECR7TCO7IOC2 ;I7SKT7USC3I;O2-6 +RB.3AKL7ESR6 SS3EGWR7T.JZ160J E7M.J^160J +ECM* B * B 3T	H7SB 3R
O3R7A6 OI2 WD3S
I3NSE2 ?T6 KC7ESA7EB 7OSS7EOR.MFJ*8B03R7E.MFJ*8B53R7E* B * B 6 KT7AON7LSA+ECD+TCO/OS2 GB3SOI6 	B2 GK7YJ 2.Z 3IS+ECR*.:.3DOE.MFJ*9B03D7I* SG.(R5*,&1*,SH*(26*62)+B"$*5&4*,G*62)/AV("46).JB260B 3R;I+TJ 7ICN+UCT3H	E7GSH2 ;I2 ;I3CWH7S2"7ICN+UCTL*M.2V06 KP7ISN2 
"7NWP7T^ 7ISD3H& 3N& 3NC+EKS3\;I7PSU6 3R/SB=/\7A/RJ*/\7CA*M.2B16 KP7ISN2"?H3WZ +A3R2 ;I2 ;I3CWH3SZ 3R7O2 T3E2 7ESF2 GH+NCD3SSI+EB,+DCO7YWO2 GW+NCT+TCO3PGL+CCE""*M.2B26 KP7ISN2"T3E2 7EST7EOR6"2;7ICN+UCT7SO\.=J1"*7S.JN260B 3R;I3T&"7NWP3T6 7EOS3AWG2 WH+RKE.M
J*4B07ICN+UCTB6$.JV220Z +OCR/IF=+TCO3L;E*(SB")*M.2J5* A/I6)3AOS2(WS+G"$+B2$3I&,")6).JV223: 7ESX" 7I.JZ220" .$F(*)J=6 2"+H"$.26)*"B 2"\.$N(*)J=* B 2"\.$R(*)J=* B " 6".JZ221" .$V(*)J=* B * J +\SH*(&6*=B"* B * J +\SH*=SH*(	L.MJJ*6B27GOO+UCB.9B4.MJJ*7B03FZ=6+
1+ICF3AZ(.)B=2 ?G+TCO.9B9+\G.06)L*M.2F72 ?F3R& *=B1+TCO3L;E*(SB")*M.2J7* SG*(	I2=C+R"$3A&(")6).J"220: 7ESX" 7I.J&220Z +OCR/XF=+TCO/AJ/.MJJ*9B13P	RN7T.J&222: 7ESX" 7X.J&225^ 2$N=+HSR*(A+F&).MJJ*9B77FKO. 7X62R 3O2 +\SG*=SG2&C+R"$3AZ(6)2)7NE7T" .MNJ*0B0+ICF3
Z(.)R=26^ 3O?T. R325	\+FA/F6)23^63O?T.9B93\[I3AZ(.)N=22?G/T[O63203IGF*(	F.<^27GSO/OB3"5*M.3F02 [I* A/F2)*4B87GSO/OJ 6720+ICF3AZ(.)V>27^ 3O?T. ^2"0*M.3V02 [I3AZ(.)J<27^ 3O?T.3B13\[I* A/F6)*4B87GSO/OB520	\3FF *(	F.=&42 ?G+TCO.4B4.MNJ*0B63IGF*(	F.=B57GSO/OZ 
220+ICF3AZ(.)V=21^ 3O?T.6V23\[I* A/F6)*5B27GSO/OZ "365.JB327& 3FF *(	F.=N52 ?G+TCO.5B53\[I* A/F6)*5B47GSO/OZ 6125+ICF3AZ(.)V=25^ 3O?T. B6"5*M.3"02 [I* A/F6)*5B67GSO/OV 6925+ICF3AZ(.)V=27^ 3O?T. "5"5*M.3B12 [I* A/F:)*2B67GSO/OJ 6720+ICF3AZ(.)F>25^ 3O?T. N3
0*M.3B22 [I* A/F6)21^ 3O?T. V320	\3FF *(	F*=B27GSO/ON 6620+ICF3AZ(.)N=2 ?G+TCO.3B7.MNJ*2B1+ICF3AZ(.)R=2 ?G+TCO.3B83\[I* A/F6)25^ 3O?T. &320	\3FF *(	F*=B67GSO/OR "060.JJ322& 3FF *(	F*=B77GSO/OR 6120+ICF3AZ(.)"=2 ?G+TCO.4B33\[I* A/F6)29^ 3O?T. R4"0*M.3N22 [
* A/F6)*1B07GSO/OR 6520+ICF3AZ(.)F=21^ 3O?T. Z420	\3FF *(	F.=J12 ?G+TCO.4B7.MNJ*2B4+ICF3AZ(.)F=23^ 3O?T. "420	\3FF *(	F.=R12 ?G+TCO.4B93\[I* A/F6)*1B57GSO/OV "060.JN320& 3FF *(	F.>Z22 ?G+TCO.2B73\[I* A/F6)*1B67GSO/OV 6120+ICF3AZ(.)F=27^ 3O?T. J5"0*M.3F32 
I* A/F6)*1B87GSO/OV 6420+ICF3AZ(.)F=29^ 3O?T. V520	\3FF *(	F.=B22 ?G+TCO.5B6.MNJ*3B2+ICF3AZ(.)J=21^ 3O?T. ^520	\3FF *(	F.=J22 ?G+TCO.5B83\[I* A/F6)*2B37GSO/OV "960.JN323& 3FF *(	F.=R22 ?G+TCO.6B03\[I* A/F6)*2B57GSO/OZ 6120+ICF3AZ(.)J=26^ 3O?T. J6"0*M.3B42
?G+TCO.2B7.MNJ*4B57FKO. 7X61R 3OF .MNJ*4B63P	R+NCT3TKA*(	S*;SG*;SG.MNJ*4B77NE7T" .MNJ*4B87GSO/OJ "760.JV320^ 7OWS/BZ "460.JV321^ 7OWS/BZ "960.JV322^ 7OWS/BZ "460.JV323^ 3O?T. ^2"0*M.3B62 ?G3SKU. R6"0*M.3F62 ?G3SKU. V6"0*M.3N6. 7A+C:*"5*M.3V62 ?G3SKU. R6"0
M.3Z6. 7AC*M.3^62 ?G3SKU. F8"0*M.3"62 ?G+TCO.2B7.MNJ*7B07GOO+UCB.6B4.MNJ*7B27GOO+UCB.7B0.MNJ*7B47GOO+UCB.7B0.MNJ*7B67GSO/OJ "760.J"320^ 7OWS/BZ "460.J"322^ 7OWS/B^ "060.J"324F *=+C6.257GOO+UCB.6B4.MNJ*8B63AN=3\?G3SKU. R8"0*M.3"82 ?G+TCO.2B7.MNJ*9B07GOO+UC
.6B4.MNJ*9B27GOO+UCB.6B5.MNJ*9B47GOO+UCB.6B5.MNJ*9B67GSO/OJ "760.JB420^ 7OWS/BZ "460.JB422^ 7OWS/BZ "960.JB424^ 7OWS/BZ "960.JB426^ 3O?T. ^2"0*M.4B12 ?G3SKU. R6"0*M.4J1. 7A+C:*67257GOO+UCB.7B0.MRJ*1B43AN=.*J.25
\7OWS/BZ "560.JF426F 6=3C7GOO+UCB.7B6.MRJ*2B03AN=.*J.25
\7OWS/B^ "160.JJ422F 6=3C7GSO/OJ "760.JN420^ 7OWS/BZ "460.JN422^ 7OWS/B^ "160.JN424^ 7OWS/BZ "460.JN426^ 3O?T. ^2"0*M.4B42 ?G3SKU. R6"0*M.4J42 ?G+TCO.2B7.MRJ*5B07GOO+UCB.7B5.MRJ*5B27GOO+UCB.7B4.MRJ*5B47GOO+UCB.6B4.MRJ*5B67GSO/OJ "760.JZ420^ 7OWS/BZ "460.J
422^ 7OWS/B" "660.JZ424^ 3O?T. ^2"0*M.4B72 ?G3SKU. R6"0*M.4J72 ?G3SKU. R7"0*M.4R72 ?G3SKU. R7"0*M.4Z72 ?G+TCO.2B7.MRJ*8B07GOO+UCB.6B4.MRJ*8B27GOO+UCB.8B9.MRJ*8B47GOO+UCB.8B8.MRJ*8B67GOO+UCB.6B4.MRJ*8B87GSO/OJ "760.J&420^ 7OWS/BZ "460.J&422^ 7OWS/B" "960.J
424^ 7OWS/BZ "460.J&426^ 3O?T. ^2"0*M.5B02 ?G3SKU. R6"0*M.5J02 ?G3SKU. B7"0*M.5R02 ?G3SKU. R6"0*M.5Z02 ?G+TCO.2B7.MVJ*1B07GOO+UCB.6B4.MVJ*1B27GOO+UCB.6B9.MVJ*1B47GOO+UCB.7B9.MVJ*1B67GSO/OJ "760.JJ520^ 7OWS/BZ "460.JJ522F *=+C..V73\?G3SKU. B7"0*M.5R2. 7A+C
*62257GOO+UCB.6B5.MVJ*2B63AN=3\?G3SKU. R6"0*M.5B3. 7A+C:*62257GOO+UCB.7B1.MVJ*3B23AN=3\?G+TCO.2B7.MVJ*4B07GOO+UCB.6B4.MVJ*4B27GOO+UCB.6B9.MVJ*4B43AN=.*V.3\?G3SKU. R6"0*M.5Z42 ?G3SKU. F8"0*M.5"4. 7A3C
\3O?T. ^2"0*M.5B52 ?G3SKU. ^7"0*M.5J52 ?G3SKU. V6"0*M.5R52 ?G3SKU. Z7"0*M.5Z52 ?G+TCO.2B7.MVJ*6B07GOO+UCB.7B8.MVJ*6B27GOO+UCB.6B4.MVJ*6B47GOO+UCB.7B8.MVJ*6B67GSO/OJ "760.J^520^ 7OWS/BZ "460.J^522^ 7OWS/B^ "460.J^524^ 7OWS/BZ "460.J^526^ 3O?T. ^2"0*M.5B82 
G3SKU. &8"0*M.5J82 ?G3SKU. "8"0*M.5R82 ?G+TCO.2B7.MVJ*8B57GOO+UCB.7B9.MVJ*8B67GOO+UCB.6B9.MVJ*8B77GOO+UCB.6B4.MVJ*8B87GSO/OJ "760.J&520^ 7OWS/BZ "460.J&521^ 7OWS/B" "860.J&522^ 7OWS/B" "960.J&523^ 7OWS/BZ "460.J&524^ 3O?T. ^2"0*M.5V92 ?G3SKU. R6"0*M.5Z92 
G3SKU. V6"0*M.5^92 ?G3SKU. R6"0*M.5"92 ?G+TCO.2B7.MZJ*0B07GOO+UCB.9B0.MZJ*0B17GSO/OJ "760.JB625^ 7OWS/B^ "860.JB626^ 7OWS/B^ "860.JB627^ 7OWS/BZ "460.JB628^ 3O?T. ^2"0*M.6B12 ?G3SKU. ^9"0*M.6F12 ?G3SKU. B8"0*M.6J12 ?G3SKU. Z9"0*M.6N12 ?G+TCO.2B7.MZJ*1B57G
O+UCB.6B4.MZJ*1B67GOO+UCB.6B5.MZJ*1B77GOO+UCB.7B6.MZJ*1B87GSO/OJ "760.JJ620^ 7OWS/B& "260.JJ621^ 3O?T. ^2"0*M.6V22 ?G3SKU. B7"0*M.6Z22 ?G3SKU. V6"0*M.6^2. 7A+C:*25
\7OWS/BZ "460.JJ628F 6=3C7GOO+UCB.8B1.MZJ*2B97GSO/OJ "760.JN620^ 7OWS/B& "460.JN621^ 3O?T. ^2"0*M.6V32 ?G3SKU. &7"0*M.6Z32 ?G3SKU. F7"0*M.6^32 ?G3SKU. R6"0*M.6"32 ?G+TCO.2B7.MZJ*4B07FKO. 7Y61R 3OF .MZJ*4B13P	R+NCT3TKA*(	S";*M.6J42 ?F7R" *=B1+TCO"160.JR663
 3R;I3T^ "$6;.JR624: 7ESX" 7X.JR665B 3R;IT*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;I7TR +AB/S.)/G.$/G.$/H.$/H.$/G.$/G.$/H.$/H.$/G.$7G2$7NE7T" .MZJ*7B27RSE3U;R.MZJ*8B03P	R+NCT3TKA*(	S";*M.6B92 ?F7R" *=B1+TCO7AC\3R;I7TR +AB242**+	S*;SG*;SG*;SH*;SH*;SG*;SG3\WN+XCTX*M.6J92 WR7TKUN*M.7B02 ?
7R" *=B1+TCO7AC\3R;I7TR +AB/S.)/G.$/G.$7\KP7ISN2 GT/B"(**/L/S.)/G.$7G2$7NE7T" .M^J*0B17RSE3U;R.M^J*1B0+ICF/AF<2 T+ECN.7B23\?G+TCO.7B3.M^J*2B0/AF=.M^J*3B07FKO. 7X61R 3OF 7\KP7ISN2 GT/BR(**/L/S.)/G.$7G2$7NE7T" .M^J*3B17RSE3U;R.M^J*4B07FKO. 7X61R 3OF 7\KP7IS
2 GT7BN(2)^;2$^;2$;\7ESX" 7X.JR762J 7EWTR7N.JV720Z +OCR/XF=2 ?T6 3A3P	R+NCT3TKA*(	S*;SG*;SG*;SG*;SG3\WN+XCTX*M.7J52 WR7TKUN*M.7B62 ?F7R& *=B1+TCO7AC\3R;I7TR +AB/S.)/G.$/G.$/G.$/G.$/G.$/G.$/H.$/H.$/G.$7G2$7NE7T& .M^J*6B17RSE3U;R.M^J*7B07FKO. 7X61R 3OF 7\KP
ISN2 GT7BN(2)^;2$^;2$";2$";2$^;2$^;2$^;2$^;2$^;2$^;2$;\7ESX" 7X.J^762J 7EWTR7N.J"720Z +OCR/XF=2 ?T6 3A3P	R+NCT3TKA*(*87LN+2)^;2$^;2$;\7ESX" 7X.J"762J 7EWTR7N.J&720Z +OCR/XF=2 ?T6 3A3P	R+NCT3TKA*(*47LN+2)^;2$^;2$^;2$^;2$^;2$^;2$;\7ESX" 7X.J&762J 7EWTR7N.JB
20Z +OCR/XF=2 ?T6 3A3P	R+NCT3TKA*(	S*;SG*;SG*;SG*;SG*;SG*;SG3\WN+XCTX*M.8V02 WR7TKUN*M.8B12 ?F7R" *=B1+TCO/CJ/.M"J*1B13P	R+NCT3TKA*(	S";*M.8J12 ?F7R& *=B1+TCO"2*M.8N12 ?F7R* *=B1+TCO*(*5+L6)X*M.8R16 KP7ISN2 WS+G"$+G2$.1F,")6;.JF825: 7ESX" 7Z.JJ820& 7F" *>
33TWH/N& 65207V"=.M"J*3B03P	R+NCT+H"$62Z*6)2;7NE7T& .M"J*3B23P	R7N3T7NE7T" .M"J*3B47RSE3U;R.M"J*4B07FKO. 7X61R 3ON 6/223P	R+NCT3TKA*(	S*;SH*(	X";*M.8J42 ?F7R& *=B1+TCO.(B1**	L.-J(**	X.M"J*4B33P	R+NCT3S
E2$^(.$F,*,&1";*M.8R42 WN+XCTY*M.8V46 KP7ISN.M"J*5B07NE7T" .M"J*5B27RSE3U;R.M"J*6B07FKO. 7X242*2 ?T* *77LN 7TCE. F(242**)"//CZ*")*M.8F66 KP7ISN2 GT/B^(**7L7XN+2)^;2$^;2$^;"$6;.JZ822& +F" 272**-/X/SN+**	L6<"(*+	S2 ?G+TCO.8"6.M"J*6B37FKO. 7I*(*77L"-6)R 7O" 
\KP7ISN2 WS+G"$+G2$.1F,6)2;7NE3T& .M"J*6B47GSO/O" "761.JZ868B 3R;I7TR +AB7XN+2)^;2$^;2$^;"$6;.J^861B 3R;I3T;\7ESX" 7X.J^862J 7EWTR7N.J"820Z +OCR/XB=2 ?T* *67LN 7TCE* *63LN/7\KP7ISN2 GT7B"(*+	S*;SG*;SG*;SG*;SG3\WN+XCTX*M.8J82 WR7TKUN*M.8B92 ?F7R" *=*67LR /
B 6 SS+ECP*-*63LN/7\KP7ISN2 GT7B"(*+	S*;SG*;SG*;SG*;SG3\WN+XCTX*M.8J92 WR7TKUN*M.9B02 ?F7R" *=B0+TCO272*6 SS+ECP.(R1**	L2/N(**&6.M&J*0B1+ICF/XN>*.*53L^ 3O?T. B9"7*M.9J06 KP7ISN2 GT7B"(*+	S*;SG*;SG*;SG";*M.9N02 [I6 "(*+/S232**)"<272**-/X+SB)7GSO/O& "066.JB
24Z +OCR7I"=2 ?T. ^(**7L7X2)3P	R+NCT3S
E2$^(.$F,*,&12;;\7ESX" 7I.JB925^ 3O?T. F9"2*M.9Z06 KP7ISN2 GT/B^(**7L7XN+2)^;2$^;2$^;6$2;7GSO/O& "162.JB967B 3R;I7TR +AB272**-/X/S.)/G.$/G.$/G.$.M&J*0B8+ICF*(*77L"-*+/S232**)"<7XN+2)^ 3O?T. F9"1*M.9&02 ?F3R& .=^(**7L+XB)+TCO7XC\3R;I7TN +ESG*(SG*,21.1.)3\W
+XCTI*M.9B12 ?G+TCO.9J1.M&J*1B13P	R+NCT3TKA*(/X/S.)/G.$/G.$/G.$.M&J*1B23P	R7N3T7NE7T" .M&J*1B37RSE3U;R.M&J22Z0+OCR/XB=2 ?T* *77LN 7TCE. ^(**	L2/N(**&3.M&J*2B13P	R+NCT3TKA*(	S*;SG*;SG";*M.9J22 [I. ;X222*2 ?G+TCO.9Z27\KP7ISN* SG";*M.9N22 ?F3R& *=B1+TCO7XC\3
;I7TN +ESG*(SG*,21.1.)3\WN+XCTI*M.9R22 ?G+TCO.9B3.M&J*2B63P	R+NCT3TKA*(/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;I7TN +ESG*(SG*,21.1.)3\WN+XCTI*M.9&22 ?G+TCO.9J3.M&J*3B03P	R+NCT3TKA*(*87LN+2)^;2$^;"$6;.JN
62B 3R;IT*M.9N32 WN+XCTX*M.9R32 WR7TKUN*M.9B42 ?F7R" *=B1+TCO/AN*.M&J*4B13P	R+NCT.M&J*4B27NE7T" .M&J*4B37RSE3U;R.M&J*5B07FKO. 7W61R 7O" 6-233P	R+NCT*"B 6"2;7NE7T^ .M&J*5B2/BN=3\?G+TCO.8B3.M&J*6B07FKO. 7X242*2 ?T* *77LN 7TCE* +L24N/7\KP7ISN2 GT7B"(*+	S*;SG
;SG*;SG3\WN+XCTX*M.9J62 WR7TKUN*M.9B72 ?F7R" *=*77LR /OR **CL3SWT+P6 242*6/3C3P	R+NCT3TKA*(/X/S.)/G.$/G.$7G2$7NE7T" .M&J*7B27RSE3U;R.M&J*9B07FKO. 7X* B1+TCO/CN*.M&J*9B13P	R+NCT.M&J*9B27NE7T" .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