File FURS.BA (BASIC source file)

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

*5B 3R7E* **2*N 7O[N7ESR+ECD+TCO7RSS3SV/6 	B2 GD3VSI2 A+LB,3D
I3IGTL*M66J 3EGM3RGK7B	L6 KT7AON7LSA+ECD+TCO/OS2 GB3SOI6 	B2 GK7YJ 2.Z 3IS+ECR*.:.3DOE.MFJ20R +ICM/FV(")*M*1B1/FF(.)B=+\F.26)20[\*(&36=20/FR(.)B=.MFJ22Z *(&5"=60.JV12 ?G3SKU. B1*9B1.MFJ262 +ECT/IZ="060.J^16 KP7ISN2 R"7O& +OCU7WOI7HR 7OR 3RSA3EZ 7UOR*?B".M
J28^ 7OWS/BF .4J0" *M*1B9+ICF/B6$2"WY+SB"3TWH/NF *0B0.MJJ20& 3FJ *$J=+NKO2 T+ECN.2B2"0*M*2B57GOO+UCB.1B4"2*M.1B06 KP7ISN.MFJ*0B13P	R+NCT2"?Y3U" 3AWV* J$.;/I2"GS3V;I+G;S""*M.1J06 KP7ISN2 F"+NCD.1B96 WF+RCS+TCO3B
E+ICN3TWH6 E3PSE3I	T+O;N""*M.1N02 GR3N?D7M+IE*M.3B06 KP7ISN.MNJ*0B13P	R+NCT2"?Y+UCR.1B96 WF+RCS3AWR2 	D7SKT7IWB3TSE2 7A3O
N2 T3EZ 3O3L3O	W+NKG.MNJ*0B23P	R+NCT2"	K7NOD2 [O2 WP7LOT2:6 3I/N2,J 7E[A+E3R6 KE3M;I3EF +NCD7FO".6".JF320^ 7OWS/BF .4B3" *M.3V12 WR3S?TR7E.JN320Z +OCR/JF=2 ?T* B4.MNJ*3B23RGE3DJ "$*M.3N36 KP7ISN" 6 .JN365B 3R;I+TJ 7H
O2 GM+NCY2"J;*$J;2 WP7LOT2 ?D2 ?Y3U" 3AWV*"B;.MNJ*3B87ICN+UCTA*M.3&3* F/J6)A*M.3B4* F.56)/FF(2)Z+*(&2*+F*3.)/FR(")*M.3J42 [I* F.56).1B92 T+ECN.1B1"0*M.3R42 [I* F.5:).1B92 T+ECN.5B0.MNJ*4B87NE3T* " *M.3B52 ?G2 ?T. F1*0B0.MVJ*0B03P	RN7T.JB561B 3R;I+TJ 7YWO2
GM3Y: +OCT7H[A7ER 7HSA2 GM+NCY7FKU+SJ.* B .MVJ*0B23P	R+NCT2"?D2 ?N7TR +RCY+TCO3CWH+A;T2 & 2 GC3NF +D;D""6 .JB563B 3R;I+TJ 7YWO6 WM+SCT3SGT+RCT3AGG+I;N""*M.5R02 ?G2 ?T. V1" *M.5"06 KP7ISN.MVJ*1B13P	R+NCT2"?D2 ?Y7U^ 7ASN2 ?T6 KT3AWD6 WF+RCS7NE7T& 7EKA*?B".M
J*1B3+GCO+TCO*1B8.MFJ.0F96 KP7ISN6 &"+OCU3AWR2 T3E2 3ESA+ECR+OCF3AZ 3R;E+CCH7FKU6 KT3A	D+NCG7ECX3E	D3T?I3N& +NJ .MFJ.0J96 KP7ISN. F".7Z72 WL3A	V+NCG3TWH2 GL+KCE7OSN3A	R3OF 3RGE2 ?T2 WS+LCL7FKU3SF +NCD7GSE*"B .MFJ.0N96 KP7ISN6 N"7UCP3LWI3SZ +OCR3TWH2 WN+XC
3YGE+RB.2 ?Y3U" 3AWV* CA3C?H3IWC2 [O2 T3RWE""*M.1&064B 3R;I+TJ 7FKO+TCS+ACT3W	H+CCH7YWO2 GM7YR 3RSA+EB.2 T3EN 7OSS2 [O6 WS3P3P7IOE""*M.1&065B 3R;I+TJ 3ASN2 T3EF 7MWO+NCT7YWO2 WR3C	E+VCE7FKO2 ?Y+UCR7FKU7S^ 3I3L2 WD3P;E+DB".MFJ.0Z96 KP7ISN2 >"7NR +HCE7FKO7T
 7HSA2 ?Y3UN 3H?O+S;E""6 .JB1*9B97RSE3U;R" *M.1B160B 3R;I+TJ +DCO7YWO2 GW+NCT+TCO3TGR+DCE7YWO3RZ 7UOR6 SA2 ?F+RCT*1B,7FKO/TJ ",6".JF1*0B23P	R+NCT6"KO2 ?F+RCT*3B?2 ?F+RCT21& 3SZ 7OSR2 ?H3CWH3L
A+A" 3M;O3TWR+A	L""*M.1B163B 3R;I+TJ 3ASN6 OI2 ;U7DKE2 T7EB 7RSO7ESC3I;O2 [O2 T3EZ 3R;E+CCH3A7R+YJ." 6 .JF1*0B43P	R+NCT2"?F+RCT22& 3SZ 7OSR6 SS3AGD3C;O+A" 3QWU3BOE2)F +NCD+ICS3USN+ECR3TWH""6 .JF1*0B53P	R+NCT6"KP3OWT3C	T+OCN+OCF3TWH6 KF3EON3HF 7R	M*.B 7H
O3EWV+RB,7YWO6 WM+SKT.MFJ.1Z06 KP7ISN2 6"3AWK* CA7PKO3T
A3EF +NCD3C?R+SCS3TWH2 GL3C	H+NCE7RCA7IOD*.B".MFJ.1"06 KP7ISN2 Z"7OSR* B3+ICS7FKO3T: +ECW7YKO3KF +NCD+ICS3USN+ECR7DSU+CCH3C;O3T?R+LJ." 6 .JF1*0B93P	R+NCT2"?Y3U6 7USS6 KC7OOS2 T7RWO+GCH3I?R3Q?U+ICS3L;A+DJ..MFJ.1B16 KP7ISN2 F"7N
S+ECR*1B,*2B,+OCR*3J." *M.1F121& 7NWP3TJ .MFJ.1J12 [I. 7B61R 3H;E. F1*2B0.MFJ.1N12 [I. 7B62R 3H;E. F1*3B5.MFJ.1V12 [I. 7B63R 3H;E. F1*4B7.MFJ.1Z12 ?G2 ?T. F1*1B0.MFJ.1B26 KP7ISN6 &"+OCU7H[A3EN 7HOO+ECN3TWH2 GE3SWI+SCT7RWO+T;E2 " 3OWW7VKE6,R +HCE7FKO+TB"" 
M.1J161B 3R;I+TJ +ICS7FKA6 KF+OCM7A	N2 WS3A?P+R;T6 R +HCE3V3A+UKE" 6 .JF1*2B23P	R+NCT2"?Y7UJ 3EWC3IWV2 ?F7R& 7OKU6 WF+RCS3W3I3LJ 3E2 +OCW3ASN2 T3EN 7OSS*"B " *M.1J163B 3R;I+TJ +OCF7SCU3P	L+ECS3H
I7HKE2 T+ACN+ACT7FKO+TCS3SGT3DOA3OGN6 KO2 WN7W& 3O/R".6".JF1*2B57GOO+UCB.1B4"06 .JF1*2B9+ICF/B6$2"WY+SB"3TWH/NF .1B1.MFJ.1B32 ?G+TCO.1Z1"0*M.1N165B 3R;I+TJ 7YWO2 GH+VCE3C?H3S;E* CA7HKA7DJ 7OSU+EB.6 SI6 OI2,& 3NN 7OCM7AOR3I;O*,B".MFJ.1Z36 KP7ISN2 ""3ASR+EC
3TGH7NR +HCE7RWO+TCE+TCO3HOO3H3E3AGG6 WB3TV 3A	S+ECR3TGH+NB"" 6 .JF1*3B73P	R+NCT2"T7EJ 7OSU7ER 3O: +ECW7YKO+KB.2 ?Y7U^ 3I3L2 WR3C	E+VCE+ACN3AWV3R
A7EZ 7AWLE6".JF1*3B83P	R+NCT2"?F7R& 7OKU6 WF+RCS3ASN2 T3EN 7OSS2 [O2 ?Y+UCR7SCU3P	L+ECS3W3I3LJ 3EF 7VKE3AWG""*M.1R121^ 7OWS/BF .4B0" *M.1R124& 3FJ *$J=7YOE6"R 3H;E. F1"160.JF1*4B57GSO/OF .1"9.MFJ.1^46 KP7ISN6 &"+OCU7H[A3EN 7HOO+ECN3TWH2 ?M+SCT3D[I3FOI7USL
 ?R3UWT*.B +AKT.MFJ.1"46 KP7ISN2 Z"7OSR2 WN7W& 3O/R2 ?Y7U^ 3I3L2 WR3C	E+VCE3TWH2 	H3GWH+SCT3V3A+UKE" *M.1R169B 3R;I+TJ 7FKO2 ?Y+UCR7FKU+SB.2 T3EN 7OSS2 [O2 ?Y+UCR7SCU3P	L+EKS.MFJ.1B56 KP7ISN6 ^"3I3L2 WB2 ?L7WKE2 T+ACN+ACT3A3L2 T3E> 3TWH3RZ 7OSR+SJ.* B .MF
.1J52 ?G3SKU. R1*0B0.MFJ.1V52 [I* SB6=&"+EKS2 T+ECN.1F1"0*M.1V126^ 3O?T. J1"560.JF1*6B07LSE. 7I/IF-"660.JF1*6B93P	RN7T.JF1*7B47LSE. GM2=;I+T"(*.*23RSN*(&0.+^..)F**0.0*.&5./B1"0*M.1^1252 +ECT/E617ISN*(:(62J*+ND*0.)..V6.)F*.0K^.+V..)F/.0K^* B .MFJ.1Z72 WL3T
 21&=+NT.(J.2*;R/DB(*):+*7&5.*B1+^.2*.&5./B1+^B2* B " *M.1^1272 +ECT/D617ISN*(:(62J*+ND*0.)..B8.)F*.0K^.+V..)F/.0K^" *M.1"160B 3R;I+TJ 7SCU3P	L+ECS+ACT7FKO3T" 3OC3EGL+GCA7COO+TR .1B5..B0""*M.1"161B 3R;I+TJ 7YWO7RR 7R[A+ECL7ECX7EON+ECS+TCO3HOO3H3E3AGG2 WW+
CE.$B1..B0""*M.1&120^ 7OR /OF .4B1" *M.1&1282 +ECT3I&=.-R1"0*M.1B261B 3R;IT*M.1B2252 +ECT/M617ISN*(:(63J*+ND*0.)..V8.)F*.0K^.+V..)F/.0K^" *M.1B2262 +ECT/E617ISN*(:(*1*53RSN*(&0.+".*0*)61:0*2:+*5>)61:0*2B .MFJ.2^02 WL3TJ 21&=+NT.(J.2*;R/DB(*):+*9&0.*B1+^.2
.&5./B1+^B2.MFJ.2&02 WL7TB 2=;I/TF(60J*+ND*0&)*+B1.MFJ.2B12 [I. 3P*=B23TWH/NF .2Z1.MFJ.2J12 [I. 3P*=B63TWH/NF .2R2.MFJ.2N12 [I. 3P*=B83TWH/NF .2Z2.MFJ.2V12 [I. 3P.=B12 T+ECN.1N2"56 .JJ1*1B67LSE* F.26)"06 .JJ1*1B83P	R+NCT2"?Y+UCR3BGE7VKE2 WW+RCE3T?O2 WH7A	
2 ?T2 GC7R	R2 OA7ROO+SB".MFJ.2&16 KP7ISN6 R"+HCE7PKO3T
A+EB.2 ?Y3U" +ACD+TCO3LGE+VCE3TWH2 WP7LOT6 WB3TZ 3O;U+DB".MFJ.2B26 KP7ISN6 R"3H7E6 SS3OWL7N^ 3H;E2 ?Y7UJ 7EWT3RWND6".JJ1*2B17GOO+UCB.1R2"46 .JJ1*2B2+GCO+TCO.1F4"46 .JJ1*2B43P	R+NCT2"?Y3UF 3R	R3VSE2 GS3F3E3YF 3TZ 7OSR6 SS3AGD3C;O+AB".MFJ.2V22 ?G2 ?T. J1*3B
.MFJ.2Z22 ?G3SKU. R1*3B0.MFJ.2B36 KP7ISN6 &"7OKU2 GC3NWO6 CU7SSE2 ;I2 T3E2 3AC3IWN2 GR3PSI+SB.2 ?Y+UB"" 6 .JJ1*3B13P	R+NCT2"?L+SCT3A3L2 ?Y+UCR7FKU+SB".MFJ.2J32 ?G3SKU. J1*4B4.MFJ.2N32 ?G2 ?T. R1*1B8.MFJ.2V32 WL3TZ *(&4*=B0.MFJ.2^36 KP7ISN6 &"7OKU2 ?F7XB 7
SL7S^ 3EWR2 ?N3TN 3UWR7DB 7RCO3E3R+YJ..MFJ.2"36 KP7ISN2 :"3O> +NCE3W3I3LJ +UCY3TWH+MJ..MFJ.2&32 ?G3SKU. J1*4B4.MFJ.2B42 ?G2 ?T. R1*1B0.MFJ.2R46 KP7ISN6 N"7UCP3LWI3SF 3TZ 7OSR6 SS3AGD3C;O3AN 7OSS. F$*2:5*0J0.MFJ.2Z46 KP7ISN6 &"7OKU6 KT3AWV3LV 3XWP3NWS7SR 7
N 3TSA3A?C+NCA7WKE+ER *1:5*0J0.MFJ.2"42 WR7TKUN6 .JJ1*5B07LSE. 7I/IF-"065.JJ1*5B43P	RN7T.JJ1*6B07LSE. GM2=;I+T"(..V12*;R/DB(.)F+..V0.)F*.0K^.+V..)F/.0K^" *M.1Z2212 +ECT/E617ISN*(:(*1*53RSN*(&0.+&.*5*)61:0*2:+*5>)61:0*2B .MFJ.2J62 WL3TJ 21&=+NT.(J.65J*+ND*
.).1B.*0*)61:0*2:+*5>)61:0"26 .JJ1*6B37LSE. GD2=;I+T"(..V22*;R/DB(.)F+..B1.)F*.0K^.+V..)F/.0K^* B .MFJ.2B72 WL7TB 2=;I/TF(60J*+ND*0&)*+B1.MFJ.2F72 [I. 3P*=B23TWH/NF .2F8.MFJ.2J72 [I. 3P*=B63TWH/NF .2F9.MFJ.2N72 [I. 3P*=B83TWH/NF .2V9.MFJ.2R72 [I. 3P.=B12 
+ECN.1B3"66 .JJ1*8B13P	R+NCT2"?Y7U^ 3EWR6 SA3TOA3KSE6 	B* CA7PKA+TCY+OCF3I?R3Q?U+I;S""*M.1"262B 3R;I+TJ 3A3L2 WP3O3P3E& 7N& 7OKU6 KT3A	D+NCG3G?R+UCP7WKE+EB"* B .MFJ.2N86 KP7ISN2 ."3I3L+E;D6 R 7HOI2 ;E+DCS3TWH2 GG+M;E""6 .JJ1*8B43S?TP6 .JJ1*9B13P	R+NCT2"?Y
U^ 3EWR6 WL7C	K*.B 7YWO6 KA7R[I+ECD3S[A7E	L""*M.1&262B 3R;I+TJ +ACT7FKO3T: +ECW7YKO+KJ..MFJ.2N92 ?G2 ?T. N1*1B1.MFJ.2V92 ?G3SKU. R1*3B0.MFJ.3B06 KP7ISN6 &"+OCU7NKA7R
O+LCY3EOS3AWP3DF 3N& 7RGO3U	O7SJ 3ASI3I
N2 GP7R	T".6".JN1*0B13P	R+NCT2"?H7W[E+E3R2 ?Y3U" +ACD+TCO3LGE+VCE3A3L2 ?Y+UCR7FKU3SJ 3E	H+N;D""*M.1B323^ 7OWS/BF .3B2" *M.1B324^ 7OR /OF .4"1" *M.1B3262 +ECT/B61+B>1"2*M.1B3272 +ECT/M61+M>1"2*M.1B368B 3R;I+TJ 7YWO3R6 3I/N2 ;A3DJ 7E[A+ECR7WKE3ER 3AGM3GSE2 
O2 ?Y+UCR3T	R+PJ..MFJ.3&06 KP7ISN6 &"+OCU3ROE7E[I3E> 7N	L2 GH+LCF3TWH6 WC3RWR+NCT3P	R+CCE7FKO2 T3EWS6 WF+R;S""*M.1F321^ 7OWS/BF .3B2.MFJ.3J12 ?G2 ?T. R1*1B0.MFJ.3B26 KP7ISN6 N"7UCP3LWI3SF 3T: +ECW7YKO3KN 7OSS. "$.0B.*0B".MFJ.3J22 WR7TKUN6 .JR1*0B03P	R+NCT
"?D2 ?Y7U^ 7ASN2 ?T6 KT3AWD6 SA2 ;A3OT+ECR7FKO+TJ?.MFJ.4J06 KP7ISN2 F"7N
S+ECR7YOE6 KO2 ?N""6,.JR1*0B37ICN+UCT+BB$.MFJ.4R02 WR7TKUN6 .JR1*1B03P	RN7T.JR1*1B23P	R+NCT2"?Y+UCR3BGE7VKE2 ?S+LCD7FKO* J$.;GB**F.2.).MFJ.4R16 KP7ISN6 &"7OKU2 ?F7XN 3OSL2 ?F+RR 2"R;21Z**(&4.MFJ.4Z16 KP7ISN6 &"7OKU6 KE3M;I7EN 3OSL2 ?F+RR 2"V;21Z**(&3";*M.
F467B 3R;I+TJ 7YWO3R6 3I/N2 ?S+LCD7FKO* J$.;GM**F*1B).MFJ.4"12 WL3T& .=GM**F*1.)+B*1/FJ(2)V+21Z**(&3.+GD**F*4.)I*M.1J460B 3R;IT*M.1J462B 3R;I+TJ 7YWO2 ?N3W" 3AWV* J$.;/I2"& 3N3C3U	D+NCG7YWO7RB 7R[E7IWO7SN 3A	V7NOG""*M.1J425^ 7OR /OV "068.JR1*3B07FKO. 7J61
 /OR .MFJ.4J32 WL3TZ *(	J"=60.JR1*3B47NE3T* .MFJ.4Z32 WR7TKUN*M.2B020R 3AGT2 6"3I/N*"J,3BGE7VKE*"J,3E7R3IWN*"J,7FO""*M.2B220V N7DBJBZ

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