File BANNER.BA (BASIC source file)

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

"LJ^XJZ
8A
?8A
>8A
=.HF9FHRXMHPZS8 LMZ^LMZ!J!Z]2A.L\J8AHJ> **H;J!Z!2A. H%?H/<H$? /<	;
2	:
/%L" R
.,%L=(/<ZXIJ8!HH> +H	9.;JXHHH8!O8?H/<XI	7.;%L8!H<=H/<8!H<5Y5Z5\+\5[X%	6/R1Y<H+01Y+&1]9D<X8!8HX%	6/"1]H;+)LBA,I6
("^,^-0.L5^+^*^(	?	>^	J*X%(%]KJ(=(/=8!J)=H/=X%(	<K%L8AXHHH8!J,?H/=9E	;%LZ+J+> HH
:8AXI	9.PO:<(*/8!["K"HH?*:HH8!["O8[EO7J([K$[%K%0+K	[%O2A0,;J*K[<P+RH;KE[E0*+R0-S"+AHI>(.-0Y*.0^0&K&>(.-*.=2X&K.X$%^/(KJPBJ
<+B*A\^\]"\
!3/RL5%A\L	? 9J<=(/>8!Z=9E3%LZ?J?> *S8A[/H<*V8 [/;E[8 J;=H/>J:8!K?H/>J?>(*5	=J;8!Z?J:9F8DJ>Z-: :J-H;R?*+:.0G5XH?5^.5C	?!)1]:K*=(+	K-? +	K*9F8F8FK.ZK+8!1[:K,> K)J8 1X8 1Z:K/<(+$?H/</;[/0 /0 />W?:((MPX4	7%\CG2A/3"2%O\LL5%A8 HH<(8AX%	?%]KJ
X%	?	>K%L
=O=X%	?	<K%L8!J
9HJ 
;O:> 	9.O?HA5
8A5Y+*1]?*75\*(5[	8W7*!W6*1/5W4O38!
7O25Y0A	9">	1
.9%LZJ8!K^?H/0J9F8DO/.>%L
1	.">K^[Y8AKY[[O1< +[8 <H:/KB[KKKX%	?KK?/
	-!0/
5Z*(0!3 >L5%$ : ;\
!$ = ?\ ^-^+
$.
	/R
(8AZY%L<(8 9H<X*KRY*F8D"!JY8!ZYOA2A9HRY*R8DC$	>.%L"!K$
A2A.Z[$	=%L9O<[A<XH;O;Z,.!:1Y<H/:0Y<H*90!<B0"/90^0&K> /9%./8==OAXISA%L\I	=%L\I8A	=%L\I/AO78!
6O59F8DK,[*1Y+W1]:H;K*$	4W6+[W3+O/2[*K*8A[)/$4;/!& S^S^!$ =\  : ? ;>E"7"%\]\^!3
C??2C>E0PEHZEH\&,-SILLML98HLXXS/L6BA6H(UH">- KHV9LI8BP,*HH(<D
XH9( D&>*(RD%<*LH$VH \JH>(PHYPJ* 
HV9LJ8P,-DH ;^,-47PLNHLLLMLB$;FX8D=H H1>HR811CH%8N>H4A6?A6LX4%L%$^Q8 XZ+VNQ%$=.PHZ8!.P!$CQ&/XZ9AII%V%0P1L1J1> *!J0\1P1L1H-<(+VJ.>(* L1%X: HZXZ* >NJ0B =U9AII%W%/HZZRKA
&?KB
-K*+(%,%"JR>(+S%YX+H+IF?HH>H?H+X+RR8/CH,X+/C8AX3-KXS6O0<(+*H=+Y:S0K6<(+WIX$	;X+WHIX$	/S?:-4I\$	I%$	/0IY[0IZXKI^\KS0+;/6HPZC^CHY9D>P*KN7X *MN8X H > J>XZ2AIIXMH 9F8F8D<"0\MH 9J8HB9"0%$XGHG=J<\MHGADJ;\MH B="0J:\M.5J6X"L".0]V%U<6>6
G//G?8	!K"%RK	%RK%XMLMZ?K&J?>(+GJ?H->(+VJ?%RLMZ?+MK	%RK"%RK%RK$%R%H+^-K 7B%BMBJ![=PB %WH\HM >(+2H7%W%V+7H7< %WI\$(X7/ZH\9%U+77(AJH%>(*HJJ^G-KI$JF*E8%H*LK,XLLLX H %$=J6[QH =J6[RLLN/> *P"7KXMLM=H*	%R*":N/ZKK-HL?.K.0L0E/<J5.1B0CH5"1[]H59J8J"1[\H6"1[ H69J8J"1

H69D8F8F"1[^.7BMBJB CACTB CLCICNCEB BMBJ!NX%X&XGK+X$%^-KK!-]VFB
5GRJ VR	<SU9,DE:QOE24FM1+FO1 FN/:SC-%FI,8DA,1GS,"SR&)SW%MPA[2FC"ZCI ICL GIN^FDO^JFE^HBO^DEN^BIF[+SL:(OVLSLMLOEM!2IA3JRE	7WE	*DVLRST+[IOIC8AX3H%? *<%\$>%]I=%LHZ? +3X4	E%\CGH%?(+3%LHZ?H+WX&KVX$HZ8!X%%^	E%]K2A%\I=	E	52AH%?H+3%L8 X9%\I=%L9H<X8A8PII%W%/II9A%V%
XZ/6XZ-K,RR*N.>6J\7E7%6
Q(9X4	D
FH9>(*;HZ>(*7H%?H%N%L[AKAHZ? *MKA9H<X8A8PII[B>P8 [CH:9A%WHZXH9X"G%Y2A8!H >(*2SAKAHZ? *7*TP"<H*9P*%%
-KKA/E%\$>-KAPN6!$V	KC>(+SOB%$=X KC8 [C/GOBSB+M0102030405060708091011121314151617181920212223242526272829303161J 3EGM3RGK7B	L6 KT7AON7LSA+ECD+TCO/OS2 GB3SOI6 	B2 GK7YJ 2.Z 3IS+ECR*.:.3DOE.MJJ6 KP7ISN2 ;P/TB(6)B;+NT.0.)7PSN*(&02;;P/TJ(.9.)7PSN*(&0";*M63B 3
;I7TB +NT.0.)7PSN*(&02;;P/TB(6)B;+NT*3&12;;P/TB(6)B;+NT.0.)7PSN*(&02;;P/TB(")6;*JB43D7I* SA.(Z22)R,.$F("06).JB16 KP7ISN2 ""3E3L+OB,+MCY3N7A3E& 7SB 3EWT7YB 2.V 3IG+TJ..MJJ60B 3R;I7TC\3R;I7TB +NT.0.)7PSN*(&02;;P/TB(*)J;3WGH7TN	2 ?Y+UCR3N7A+EB 6"2;7ICN+UCT7A
$3P	RN7T.JV36 KP7ISN* B"+HCI3TWH+RCE6"2;7GOO+UCB.5B0.MNJ66B 3R;I+TJ *.B 3AWR2 ?Y3UV 3N?J3Y;I7G& 7OKU3S3E3F" 3EWR""*M*4B03P	R+NKT+ICN3T	H7S^ 3OSN3E[R+UCL3PGL+CKE";*M*4B57ICN+UCT7B2$3P	RN7T.JB52 [I* SB6=&"+EKS2 T+ECN"760.JV52 [I* SB2=:"+OB"3TWH/N" "0*M*6B03
	R+NCT*"J 2;
\7OWS/BV "060.JF66 KP7ISN* 2"* CI3D;O*	CT3USN7EOR3T;A7D& 7OKU2 ;A3SWW3R> +F^ 2"J;*$J;*	J..MZJ65B 3R;I+TJ 3PWL3AWS2 ;A3SWW+R^ 7YOE2	> +R^ +N
O2.R 7O& +OCU3L/I3E& 3T" 3EWR""*M*6B63P	R+NKT+ICN3T	H3SN 7R+A7YB 3LOA+EF *!J!";*M*6B77GSO/OR "5*M*7B03P	R+NCT2"O2,& *	CM3GGL7DR 3O" 7EKA2 T+ACT6"2;7GOO+UCB.5B0.M^J61B 3R;IT*M*7B57GSO/OF "060.JB86 KP7ISN2 >"+HB,7SKO+RCY+TCO3HGE7RR 7HSA. ."3\?G3SKU. B5"0*M*
B13P	R+NCT*"B,7M	A+BCE+WCE3C;A""*M*8B53P	R+NCT6"KB3IG3T;E6 CU2 ?Y+UCR3SGT3YF 2 	BT6".JB160B 3R;IT*M.1V06 KP7ISN6 N"+A3Y. ."3\?G3SKU. B5"0*M.1Z06 KP7ISN* 2"* CI3C;A2 ?S3LWV2 3A3L. 3ISN3S> 7FB 3RKO3L7ES6".JF160B 3R;I+TJ 3EOX7ESP2 T3OWS2 WD3A	L+NCG7WSI3H^ 3R
E+C;E2 W+ACT3K;I3D> F6".JF165B 3R;I+TJ 3P?R3BWL+MCS+DCO7YWO2 GH+VCE2(;A3SWW7RN +E3X2 WH7ASL+HB,3M;O+E3Y""*M.1B26 KP7ISN2 >"3R* +O	B""6;.JJ125& 7NWP3TN 6$C\3R;IT*M.1B32 [I* SC6=N"+EKX2 T+ECN.2B0.MFJ*3B2+ICF/C6$2"WH7ASL+HB"3TWH/NF "860.JN124& 3FN *$J=3M;O+E
Y2 T+ECN.1B6.MFJ*3B6+ICF/C6$2"?J+BB"3TWH/NF "465.JN168B 3R;I+TJ +O3H. ."3\?G3SKU. B5"0*M.1&36 KP7ISN* 2"2 ?Y+UCR7AON7WKE2 [O* J	*;SC*;^"6 OI6 KG3E/E2 ?T2 WM".6".JR120^ 3O?T. V2"0*M.1V46 KP7ISN2 &"2 GC7NN 7YCM3AT3IWZ2 	W+TCH7YWO. ."3\?G3SKU. B5"0*M.1Z46 KP
ISN* :"* CI7H[A7ER 7O^ 3O/R""*M.1"46 KP7ISN6 Z"7E	R2 ?L+NCG7HWO+RCS7FKO2 ?N2 GP+Y6 2-F +NCD3S7O3E> 3F6 3YJ 7OOS+ECS3RGE7L	L""*M.1B56 KP7ISN2 J"7ESA6 	M2 WK3Y?B3ASR2.6 3YF 3D	V+CCE+TCO7YWO. ."3\?G3SKU. B5"0*M.1F56 KP7ISN* 2"6 OI""*M.1N56 KP7ISN6 R"7ON 3E3L
 ;I2 T3EV 3DOU3A	T+OCN7MKA7KSE2.& 7TN	6 KG7ESA6 WF+NJ..MFJ*5B57GSO/OJ "560.JZ160B 3R;I+TJ 7SKO+R3Y. ."3\?G3SKU. B5"0*M.1F66 KP7ISN* 2"* 
I3MJ 3R/O7ER +O;O2 W3YR +O
N7T& +OCU""*M.1N66 KP7ISN6 N"3E3L2 ;E3COY7LCO3ASE7IOA6 KO2 GM7R	R2 ?S3M?E+NCE3ROI3H> 7RN 7TCO2 GE3T;IG6".JZ165B 3R;I+TJ +SCO7YWO2 ?W7NR	2 WN+ECD+SCO3MOU3H6 3OWN+YJ?.MFJ*7B07GSO/OJ "560.J"160B 3R;I+TJ +MCY7A[D3IWC2 ?T2 ?Y+UJ 2;
\7OWS/BV "060.J"161B 3R;I+TJ 2,& +SJ:.MFJ*8B53P	R+NCT*"B * B *1B.3T/A7ER +WCO7ACS3R;I""*M.1"86 KP7ISN* B"* B * :26 KD3I/N2 3P7ESN3Y> 3FZ 3L	U+DCS6(KO3A
N3E* 3UOI+EB,7NSO2 WB+EGR")6".J&160B 3R;I+TJ * B . N 2.^ 7OR 3OJ +ECD2(3A3OWN")6".J&125^ 3O?T. V2"0*M.2B06 KP7ISN2 &"7S& 7OKU6 KP3O3B+ECM3T?O6 WM+CCH+OCR3T?O2 	L3T3T/E.".MJJ*0B57ICN+UCT7D2$3P	RN7T.JF220& 3FR *$J=3T?O6 WM+CKH2 T+ECN.2B2.MJJ*1B3+ICF/D6$2"?T
O2 7IST+LKE2 T+ECN.2B3.MJJ*1B53P	R+NCT2"?D7NR	2 WG3TF +LCL3S?H+OCK+UCP6"2;7GOO+UCB.5B0.MJJ*1B63P	R+NCT*"B,7JOU3TF 7N
S+EKR.MJJ*1B73P	R+NCT2"T7EF 7UOE3T?I7N^ 3IT6 R	+OCO3MOU+HB	+OCR2	?T3O2 7IST+L
E6.^ 3HOI3H& 3S& /T.".MJJ*1B87GSO/OJ "065.JJ260B 3R;I+TJ 7YWO2 GC+LCL3TGH3TF 6 KP3O3B/E?M*!B!7IN 7HWO+LCD7H[A7EN 3UC6 KP3O3B7EOM"!6".JJ265B 3R;I+TJ +ICF+ICT7BSO7HKE7S& +O3U2 GT+KCE3AN 3OSL2 S3OWW+RJ 2;
\7OWS/BV "060.JJ266B 3R;I3TF"+NCD7ISN3RSO3UWC2 WM2 ?T2 T7EN 7OKU+CCE+OCF7YWO7RB 3RKO3L7E* F!""*M.2"22 ?G+TCO.2B5.MJJ*3B03P	R+NCT2"W3YF +RCE7YWO2 WH+RCE6"2;7GOO+UCB.5B0.MJJ*3B13P	R+NCT*"B?7YWO2 S3O3U3DJ E6".JN265B 3R;I+TJ +ICN3T/O+YCO+OCR7N
E2 ?Y+RCK+OCR7AOM7TKE3D7A6 KO2 ?S7MCE3LOA7E^ 3IT2 ?S+MKE.MJJ*4B03P	R+NCT2"WR+ACL7ASC3I;O".6".JV260B 3R;IT*M.2V56 KP7ISN2 F"+NCY7MKO7EB 3RKO3L7E7S& +OCU3W;A7TN 7O[L+E3D. ."3\?G3SKU. B5"0*M.2B62 ;I7PSU* SE7\KP7ISN.MJJ*7B0+ICF/E6$2"WY+SB"3TWH/NJ "860.J^223& 
FV *$J=+NKO2 T+ECN.3B0.MJJ*7B53P	R+NCT6"WJ+SCT7AN 7ICM+LCE2	WY+SB	+OCR2	?N6	B 3LGE+S3E. ."3\?G3SKU. B5"0*M.2Z76 KP7ISN* :"""*M.2"72 ?G+TCO.2V5.MJJ*8B03P	R+NCT2"W+ACT3K;I+D" 7SE2,6 3OWN+YB,3HGE3LT2,* +O	B""6;.J"225^ 3O?T. J1"5*M.3B06 KP7ISN.MNJ*0B23P	R+NCT
"T+ACT3W3I3LJ +ER .5B.20Z +OCR3TWH2 SA3VOI+EB,6"2;7GOO+UCB.5B0.MNJ*0B33P	R+NCT*"J..MNJ*0B53P	R+NCT2"3P7EOA3E2 7E[A7ER +HCE3M;O+ECY+OCN3TWH2 WT3R	M3N3A*.J .MNJ*0B73P	R7N3T3P	R7N3T3P	RN7T.JF360B 3R;I+TJ 3DSI2 ?Y3U2 7E[A7ER +HCE3M;O+EKY";*M.3V12 ;I7PSU* SG7\
P7ISN.MNJ*2B5+ICF/G6$2"WY+SB"3TWH/NN "560.JN320& 3F^ *$J=+NKO2 T+ECN.3B7.MNJ*3B53P	R+NCT2"?Y+UCR7AON7WKE2 [O* J	*;SG*;^"2 ?C7NWF7SOE2 WM*,J 2;
\7OWS/BV "060.JN366B 3R;I+TJ 6.B 3LGE+SKE.MNJ*4B03P	R+NCT2"WR3S?P+NCD7WSI3HF 6 &	+E
S6 KO2 :	+O:	""*M.3V42 ?G+TCO.3B1.MNJ*5B03P	R+NCT2"WH+YB,6"2;7GOO+UCB.5B0.MNJ*5B13P	R+NCT.">?6?& +OCU3L[E3T: 3O6 3OWN3YF 3TF +LGL""*M.3V56 KP7ISN6 &"+OCU3AWR2 C7ESA3I
N2 WM6 WO3T> 3F6 3Y" 3ASR2-GE3RWN3D2 3I	V+N;G""*M.3B66 KP7ISN6 J"+ICP3O[F*,J 2;
\7OWS/BV "060.JZ361B 3R;I+TJ *.* .=6****=.=6****=.=6****=.=6****=.=6****=*=J*.MNJ*6B57GSO/ON "960.J^360B 3R;I+TJ 3TGH7TN	2 ?H7NOE+TB,6"2;7GOO+UCB.5B0.MNJ*7B13P	R+NCT*"B,7BSU2 ?H3WR 7O& +OCU7ECX7ESC""*M.3V76 KP7ISN2 6"7ER 3O^ 3O> 7N^ 3IT6 	M6 OP3YC3O?L+GCY
SWT3DWI3S& 3F6 7YB 3A	T7ESN3SR +O
NT6".J"360B 3R;I+TJ 7P	A2 T7EKI2 	B7LOL"?6".J"365B 3R;I7TC\3R;I7TC\3R;I+TJ 7N
O2 WL3T6 7ER 3A/L2 ?T2 ?S3M?E+NCE7EOL+EJ..MNJ*9B03P	R+NCT2"	N+CCE3MWE3T;I7G& +OCU6"2;7GOO+UCB.5B0.MNJ*9B13P	R+NCT*"B.7H[A3EF 2 	N+CCE7D	A*!J!.MRJ*0B07FKO. 7I61R /ON .0B0.MRJ*0B57NE3T& .MRJ*1B0+GCO+TCO"2*M.5B06 KP7ISN* SA";*M.5B12 WR7TKUN*M.9&92 ;ED*MBZ??2
ZIPPSSHVA$SCDFDBSLIXSDBLAICFHFA$SDCTHF<*H$80H1X-5D&L4P:H58&HX/L8AL3A-8%NA^L<OLB$WH(8H<((JD8HX(
"D2LH 
FP8B(WD"DZ28A-8Z(QHS4^88-<J(YH.>*("HQ4^HP(
JD2LH 
D!<X; VH
>.,L>4
D.8YLE
D=S(/P?D?LXLHGT0[NC:H+D>C\6*A?BBA?1A?BZ:A?FZ:>OB0B
KBMBJ
?!<E?A?:192I?82AH?<?6>\A
?&^??%J?9<?0LH3G0E[NJ"L*"L=$&AE	J)["ZDZCKY(FDF*QJGYE3ZAI+SRI3ZJBH1X	IVZBC.DEUD9VXWXX:%?XT9&HT<(/?IK<(+\IG<(*\ID<(*\IL<(+M8A<(*\8A< *
%>IB*AIO<(+M9IP<P*C8AXSH\> *-HT%=HX> *4HSIQ%<*CHXIB?H*<%;%>IJ*AHX9HI:XV<X+GHS9F8F8F+JLV/HS\VPX*CH\> +RIM%=: HX=H+XXX*CHW=XW*CH\>(%;HX< +%HW>(*C9HI:XV<XLV/\V%9.H>%=H?%=/.:S4/4I8XT8 XR/>DO]H39IR<X*H:R.XSPWHWIS=.JQZP<B*X*3*+*(*"*ZH!AU* HS9F8FXSH!ATHS*&HS9H8J
JX!.H AU*1HS9F8FXSH ATHS*7HS9H8J8JX .[	N9R9[[%7+QO[9J8J8JAP<(+QH<UO[S[AP<(+QH<U*>K	>(%;.90!+V0&:/UPS<H3LSAP> +\PS/[3/[HS> +/2LIE[.<B: HSXS/	2L< +9H
X^IF[;<BP^/32A-62A%;%>M62A%5>(*LH\>(-4*DHV8 I3XRM:>(XRH 9!H"> *[H!9!H>X*%%2HSXVH X"H!X<H%1HS9 HV:2L<XIGIH[&HV9!HSHR<(+Y=H/?8!HSXU2LIH[DHU9 HS>PIGKD[F<BLS<B\ULUIC>(+WPS+QKDII[DPU+DKFII[F+DHU%0HR>(*D2AH ]3H!]/I3XS2ALSPS<B\VPV+-K&II[&PR+*D[=O0S08!K=9 O0>PS0S
K=/0>EH8!XULSXTI\S%22LIHZU9HSHUXU<X%.2LIHZWHU%0<BLS<B\ULUIA>(*.; HUXU<X*%JWIGZW; HSXS<X*UJUIGZU*UHT\U--%>H::A.> %,0!*7/?.&.03:A07&3	-08A%&-&5&%8)"5 -*/&A500A-0/(I+%0X"X-*HW< +\: /VID?/VIJXSH 9HX H!8HX!PS+!PW+WX]2LIH[6IP\]/+H]XS2A/3X\	>H;$S/6M&J2>EJPXSPSLS
S<(*MM:> *BLSXS,S%>IG-)JPRVLOSWUK^RSLJRK\IQ\FH6PZO2P^O+A%4,["4*$O84%;I(XSJ5XV"8"8"8PV"8%>KJ%;.)LSAP<(K?IAAP\VLS/<(9XK>LV\VPSPV.8AAAAAAU"AAAANXHXPX9HI:XSLS<X+%8J8J8JAP<(/YISY/Y%	/+AP	=:A+9S+	=0J/+/<:A/+BAW1G0! M&M%I$>(*I%HY>(-*XXXW%	*UK?> *K%	*UH6%<*PI+XV%
?H*\%1HV8AXS%"2LIHZ=XS%7-*1"*-*%=*HSPSJ0Z/<B.1L=MLMMMML=MMMMMKL=M\M!M.<BLV2AIC<(.*IPXTPV*+J=IIZ=*+:AXWHT8F8FXTHT8D:< +YHW>(*+PWH;+(HT8J8J8J+$IIXSHTAP<(+*H<R*.*H=XSH>+(XSH?+(IW>(/1*3&"%:VE ERRORO5? [RHZ> *M%,KR>(8A
?2J$/HXX%	*=J0> *NS>(*^H$Z	H%Z(S> />*"K=Z	K<Z(I!Z)2J$0A/>J(X-J)X,KR? .H$<(.X(H%X)H&X*H	X+.KR?(+KH(<(+KX$H)X%H*X&H+X	.:A%>Q7K;Y<%5/:X$X%X&H1X	I XTIJXR	9/S9F8F8F\T	9/SLT\TPTPR+]/S9X"2J$0I%,-*I+%0X"X"%,-*K+U+C4KDSWM?&

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