File QTOCK.BA (BASIC source file)

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

.MFJ.2B0* B +ICF/VJ(.)B=2 T+ECN.1B3"0*M.1B2*5B 2 [I* T.3:)*2B13TWH/NF .3B0" *M.1F2*0B 2 2 +ECT/PF=" *M.1F2*5B 2 [I* T.12)*1B73TWH/NF .3B6" *M.1J2*0B 2 [I* T.1:)*1B73TWH/NF .2B3" *M.1J2*5B 2 [I* E.1:)60R 3H;E. N1"660.JJ1*3B02 & 7FR *(&1.>F22 T+ECN.1^3"56 .
J1*3B5* B 7LSE. 7P"26 .JJ1*4B03P	R+NCT6"	M2 ?T3T3A6 OI6"R;*(&1.MFJ.2V4* B +ICF7TB(.)J>61R 3H;E. N1*0B0.MFJ.2B5* B +ICF/TF(.)J>61R 3H;E. J1*6B5.MFJ.2V5* B +ICF/TF(6)R>*(	P2 T+ECN.1B3"06 .JJ1*6B02 & 7FR *(&1*=T+PB)3TWH/NF .3B3" *M.1Z2*5B 2 2 +ECT/W61+W.17WB
")*M.1^2*0B 2 [I. GC*>B33TWH/NF .4V4.MFJ.2V7* B +ICF/C:162R 3H;E. R1"665.JJ1*8B02 & 3FN .1F>2 T+ECN.1"4"5*M.1"2*5B 2 [I. GC*>B03TWH/NF .5V0.MFJ.2B9* B 7GSO/OF .5V2.MFJ.2V9* B 7GSO/OF .3B3.MFJ.3B0* B 2 WL7T^ 61^=61^-*(	P.MFJ.3J02 WL3TN 21&=+NT63J*+ND*0&).M
J.3V0* B +ICF/C:163R 3H;E. V1"465.JN1*1B02 & 3FN .1J>2 T+ECN.1Z5"5*M.1F3*5B 2 [I. GC*>B13TWH/NF .5V8.MFJ.3B2* B +ICF/C:160R 3H;E. Z1"065.JN1*2B52 ^ 3O?T. Z1"265.JN1*3B02 & 7FZ *(&2*>B03TWH/NF .3V4.MFJ.3V3* B 7GOO+UCB.1B4"56 .JN1*4B02 ^ 3O?T. Z2"56 .JN1*4B
* B 7LSE. 7P"36 .JN1*5B0* B 7LSE* V.26)"0*M.1V3*5B 2 ?G+TCO.1R2"5*M.1Z360B 3R;I+TJ 3IR 7R
A""6,.JN1*6B52 ^ 7OWS/B" "665.JN1*7B02 ^ 3O?T. J1"160.JN1*7B52 & 3FV *(&1*=B03TWH/NF .3V9.MFJ.3B8* B 2 WL3TV *(&1*=E*16)"16 .JN1*8B5* B 7LSE* T.16)/TF(.)F-"0*M.1&3*0B 2 ?G+TCO.1F2"0*M.1&3*5B 6 KP7ISN*"CI7BOU3TSE******J*" *M.1&3272 +ECT/BB=.MFJ.4B0* B 7GSO
OF .2V3.MFJ.4V0* B +ICF/W2160R 3H;E. R1"265.JR1*1B02 & 7F^ .1B=2 T+ECN.1N4"5*M.1F465B 3R;I+TJ 7YWO2	WR2 A3ESA* J$.;GW.MFJ.4B2* B 7RSE3U;R" *M.1J465B 3R;I+TJ 7YWO3RJ 3E	H+NKD6;^-*1J;3D3O7LKA+SJ..MFJ.4Z22 [I. 7B20^ 3O?T. R1"360.JR1*2B77GSO/OF .6N8.MFJ.4B3* 
 7RSE3U;R" *M.1N4*5B 6 KP7ISN2"?Y7UJ	3EV 3V;E""6 .JR1*4B06 J 7EWT+RCN.MFJ.4V4* B 3P	RN7T.JR1*5B06 B 3R;I3T&"6 WM+SCT7H[A3ER 3E3A7T^ 3R;O+GJ..MFJ.4N52 WL3TJ "=60.JR1*5B56 B 3R;IT*M.1Z4*0B 2 ?G+TCO.1N3"0*M.1Z4*5B 6 KP7ISN.MFJ.4B7* B 3P	R+NKT7YWO6 WL3CWK3D> 
UCT3AGG/I+N""6 .JR1*7B37LSE. 7B"0*M.1^4*5B 6 KP7ISN.MFJ.4B8* B 7GSO/OF .3B3.MFJ.4V8* B 3P	RN7T.JR1*9B06 B 3R;I7T&"+OCU7MOU3T" 3AWV2 WB+ECN3PWE3K;I+GJ." *M.1&4232 +ECT/BB=.MFJ.4V9* B 3P	RN7T.JV1*0B02 ^ 3O?T. N1"360.JV1*0B56 B 3R;IT*M.1F5*0B 6 KP7ISN*"CI7CW
+LCD7LOO3E6 3Y* +OCB3T	H7S^ +A;Y""6 .JV1*1B37LSE. 7B"0*M.1F5*5B 6 KP7ISN.MFJ.5B2* B 7GSO/OF .3B3.MFJ.5V2* B 3P	RN7T.JV1*3B06 B 3R;I7TR"+HCE7CKA+DCS7H[A7ER 3U;R+ECD3AGG7ION3T6 +EJ:" *M.1N5232 +ECT/BB=.MFJ.5V3* B 3P	RN7T.JV1*4B02 ^ 3O?T. N1"360.JV1*4B56 B 3
;IT*M.1V5*0B 6 KP7ISN2"T3EJ 7OST+OCM+OCF3TWH2 WD+CCK7SKT3IWK3SF 3G	A+NJ:" *M.1V5*5B 6 KP7ISN.MFJ.5B6* B 7GSO/OF .3B3.MFJ.5V6* B 3P	RN7T.JV1*7B06 B 3R;I3TF"2 	V3C?T+RCY7FKO6 OU2 ?G+OCD7G	U+SJ." *M.1^5*5B 6 KP7ISN.MFJ.5B8* B 7GSO/OF .3B3.MFJ.5V8* B 3P	RN7T.
V1*9B06 B 3R;I7T&"+OCU3C;A*	CT3BGE7TN 3K3I+LJ." *M.1&5*5B 6 KP7ISN.MFJ.6B0* B 7GSO/OF .3B3.MFJ.6V0* B 3P	RN7T.JZ1*1B06 B 3R;I7T&"+OCU3C;A*	CT3W;I2 V	3MF +L;L""*M.1F6*5B 6 KP7ISN.MFJ.6B2* B 7GSO/OF .3B3.MFJ.6V2* B 3P	RN7T.JZ1*3B06 B 3R;I3TJ"7A	B2 WG+TCS3A:
+ECW3P	A3R> 7FN 3HWO+SJ:.MFJ.6V3* B 3P	RN7T.JZ1*4B02 ^ 3O?T. N1"360.JZ1*4B52 Z +OCR+MB9.=F 2 ?T. J5" *M.1V6*0B 2 2 +ECT3D6(.96)"06 .JZ1*5B52 : 7ESX. 	M.MFJ.6B6* B 2 WL7TJ *=B0.MFJ.6V6* B 3P	RN7T.JZ1*7B06 B 3R;I+TB"7IJ 3ES3U[F3LSE""6 .JZ1*7B53P	RN7T.JZ1*8B
6 J 7EWT+RCN.MFJ.6N86 KP7ISN.MFJ.6V82 GR3N?D7M+IE*M.1&6202 +ECT/K617ISN.(B12*;R/DB(")6).JZ1*9B5+ICF/K2161R 3H;E. Z1"960.J^1*0B0+ICF/K:166R 3H;E. Z1"960.J^1*0B5+ICF/K6161R 3H;E. "1"060.J^1*1B0+ICF/K6162R 3H;E. "1"065.J^1*1B5+ICF/K6163R 3H;E. "1"160.J^1*2B0
ICF/K6164R 3H;E. "1"165.J^1*2B5+ICF/K6165R 3H;E. "1"260.J^1*3B0+ICF/K6166R 3H;E. "1"265.J"1*0B03P	R+NCT2"/O2 GP3R;D+E3R2 WR7A	D2 ?T2 ?L+SCE3AGG/I?N""*M.1B821^ 3O?T.1N4"0*M.1B865B 3R;I+TJ 3BKA3Y& 3S^ 3O;I7GR 3OJ 7EJ 3E3A6 WH7NKG3Y& 7F& +OCU3KWE7PR 7HOI6 CU
!6".J"1*0B67GSO/OF .4B3.MFJ.8B16 KP7ISN6 R"7H	E2 GS+Y^ 3TWH+R
E3SF 6 WS3CWK3RJ 3O;R6 [E7E	R2 	M7NSU+EJ..MFJ.8F12 ?G+TCO.1N4"0*M.1F865B 3R;I+TJ +HCA2-" +AB,7YWO2 3B+ECW3TGH3T> +NGE*!F!*!F!""*M.1F826^ 3O?T. R1"360.J"1*2B03P	R+NCT2"?Y3UR	2 WB2 WB3TWT3R> +FCF3PGL3Y;I3G" +OCP3S?C3CT"!6".J"1*2B17GSO/OF .4B3.MFJ.8V26 KP7IS
6 ^"+HCY3DSI7NR	2 ?Y7UF 7USI7E^ 3H3I7E& +OCU7WKE3EF 3HGE/D>?""*M.1J826^ 3O?T. R1"360.J"1*3B03ESN&M*J61J 3EGM3RGK7B	L6 KT7AON7LSA+ECD+TCO/OS2 GB3SOI6 	B2 GK7YJ 2.Z 3IS+E;R*.:.3DOE.MJJ6 KP7ISN7\KP7ISN* *"2*. +BB0**B*3PWL3AWS2 ?D2 ?N7TV +SCE3C;O3T?R3LN/""*M6
B 3R;I+TJ * B * B * B 6 SI6 OI2 WT3M?P7RKA7I	L2 ;I3OWP7RSA3IWV""*M64B 3R;I+TJ * B * B * B 2 WW2 	W+LCL7NSO7I	F2 ?Y7U^ 3H;E2 & 3T& 3SJ 3A/C6 CU6"C\3R;I7TC\3R;IT*M65B 3R;I7TC\3R;I+TJ 3RGE+DKY7\KP7ISN.MFJ*1B07ICN+UCTA6$.JJ120& 7FN +ESG*(SA*,21.32)6>J"+UKN2 T
ECN.1B37\KP7ISN* B"* B * 
I7DJ 3AT+ECR3W3A7K2"7GSO/OV .MFJ*3B0+ICF3S
E2$F(.$F,*,&4*<J>7LOI+TB"3TWH/NF 64203P	R+NCT*"B * B 3IR +O
N3TZ 3E3E6 CU2 ?T6 SI2"
\3O?T" 65.JR120& 7FN +ESG*(SA*,21.42)6>N"3AWV6"R 3H;E. V160C\3R;I+TJ * B 2 & 2 ?D7NR	2 	L+KCE3B;A+KKS3\?G+TCO"5*M.1B52 [I2 WS+G"$+A2$.1N,.):<2"3O+DB"3TWH/NF 66203P	R+NCT*"B * B +N3O* CI3FWE7L& 3O;U3GF +NCD7CKA7EKF+EKE3\?G+TCO"5*M.1B62 [I2 WS+G"$+A2$.1N,.)
<2"WN+WB"3TWH/NF 67203P	R+NCT*"B * B 7YOE2,& *	CM3Q	U+TCE7N
E2"
\3O?T" 65.J^120& 7FN +ESG*(SA*,21.32)2>N"+AKT2 T+ECN.1B87\KP7ISN* B"* B 6 KT7YN 7EKA+SB,3RWO3BOU7K2"7GSO/OV .MFJ*8B0+ICF3S
E2$F(.$F,*,&4*<J>3N7A+EB"3TWH/NF 69203P	R+NCT*"B * B 3W?H6 KA7E& +OCU3C3A3L;I3G: 3AWM+SJ?3\?G+TCO"5*M.1B92 [I2 WS+G"$+A2$.1Z,.):<2"WR3N7A+EB"3TWH/NJ 60203P	R+NCT*"B * B 7BSU* CI3L/I3E6 3Y: 3AWM2"
\3O?T" 65.JB220& 7FN +ESG*(SA*,21.62)6>V"3NGS+VKE2 T+ECN.2B17\KP7ISN* B"* B * ;O+KB.2 T3EV 3N	T+RCE7DOI+KJ!3\?G+TCO.3B5.MJJ*1B0+ICF3S
E2$F(.$F,*,&3*<J>3D3E6"R 3H;E. J260C\3R;I+TJ * B 2 > *.;K6 R +HCE7ESN3IWR2 	D+SGK2"
\3O?T. V3"0*M.2B22 [I2 WS+G"$+A2$.1R,.):<6"SS+OKP2 T+ECN.2B37\KP7ISN* B"* B 2 T3EZ +UCN+ICS7JOU7TN 7TKA3T;I+GJ!3\?G+TCO"5*M.2B32 [I2 WS+G"$+A2$.1N,.):<6"	B+EB"3TWH/NJ 64203P	R+NCT*"B * B +N3O2 ?Y3UN +A
N3T2 7E[A3E: +OGW2"
\3O?T" 65.JR220& 7FN +ESG*(SA*,21.52)2>""3E3L+OB"3TWH/NN 60203P	R+NCT*"B * B 2 WW+L3L2 	H2 ?T2 ?Y7UR +OGO2"
\3O?T"5*M.3B06 KP7ISN7\KP7ISN6 ^"7HSA*?J?3\?G+TCO"5*M.3B5. 7X3RSN*(&0.MNJ*5B5+ICF+X:<.9"92 ?G+TCO.3B5.MRJ*0B03P	R+NCT*"R*%Z&*&&(*=.*.?2>+MOH.!2(2<C20*)3FWT+^?^*/*/*)&)*)V$.5"67NZ+TJ%.MRJ*1B03P	R+NCT6"	S3SWT3M" +ACS7JOU7TJ 3E?C7VKE+ECD3F?R3MF 6 KC3AS6.2"7G
O/OV .M&J*9B93ESN&M*J*8B03R7E* **6*J 3EWV3RWS6 KW7IST+ECN+BCY3BKO2 3A3BWR7CSH6,B 7ECO+L
E3SN 7OCM3UWT3RN O*M*9B03R7E* **2*6 3O	D3FWI3DF +NCD3C;O7VKE3TSE2 ?T2 GB3SOI2-3P+UCS+BCY7D[A+ICD3A3H.M&J65J 3EGM3RGK7B	L6 KT7AON7LSA+ECD+TCO/OS2 GB3SOI6 	B2 GK7YJ 2.Z 3IS+ECR*.:.3DOE.MFJ*0B03P	R7N3T3P	R+NCT2"WR7VKE+SCE*-B-3A^ 3AWM2 [O2 /S3I3L6"C\3R;IT*M.1
22 GR3N?D7M+IE*M.1B32 	D3MF .(B2")*M.1B42 WR+M* **B*3N:=3UKM+ECR+OCF3N7U7BKES*M.1B5. 7N29
\6=20/T61"0*M.1B66 KP7ISN2 R"7O& +OCU3W;A7TR +HCE3R3U+ECS2(WY3S> 3R: +OJ)2;	\7NWP3TF "$*M.1B82 [I* SA2=:"+OB"3TWH/NJ "160.J&120^ 7OWS/B^ "160.JB260J +ECM****2 GM+KCE7AJ 3ASN+OCM7LOI3TF *(&12 ?T* AN6).JF220F *(&12=;I+T"(/NF-6)J*+ND*0&)"+62.JJ220Z +OCR/KJ=2
?T" 7N.JN220F *(	K2=;I3T:(2*;R/DB(*).)"1*M.2B42 ?F3R* *=B1+TCO/KF-.MJJ*5B0+ICF3A.(2)F=*(	J2 T+ECN.2B3.MJJ*6B07NE3T* 3\WN+XCTK*M.2B82 WR+M* **B*3P	R+NCT3O	R3G	N+ACL7LOI3TF +NCD3SGT+RCT3G7AE*M.2B96 KP7ISN7\KP7ISN2 ""3EWR2 WW2 ?G* :.6.R +HCE7LOI3T& +SJ:.MNJ*
B0/TB=.MNJ*2B07GOO+UCB.6B1.MNJ*3B03P	R+NCT2"?H3W6 7A	N2 S3A3L* CI7R[E7EOR/E."3\;I7PSU" 7R.JR320& 7FJ .<F>2 T+ECN.3B57\KP7ISN2 >"7OOP*!B 3OWN2 ?D3E;S*	CT+DCO7A	N3T	H+N;G2 F 3G	A+N:.6.2"7GSO/ON "360.JV320& 7FJ *=B03TWH/NV "360.JZ320& 7FJ 2<:=2 T+ECN.3B9.MNJ
7B03P	R+NCT2"?O+PGS2 ?T3O6 7A	N* B-3IN +ACN7R[E7EOR3EF 3T6 7OSS6"3N7GSO/ON "360.J&360R *=/T"1*M.4B02 WR+M* **B*7R[E7EOR7EJ 6 WN3MWB+RCS3ASN6 KP7ISN2 WN3W2 7ISS.MRJ*1B07FKO. 7K61R 3O& +NT/RJ/")*M.4B2. 7Z3A.(")*M.4B3* A/K6)7AJ(*-/K"16).JR420F *(7R/KF+6)*=.M
J*5B07NE3T. .MRJ*6B07GOO+UCB.6B1.MRJ*7B03R7E* **2*N 3HOE3KZ +OCR7A^ I7N.J"420Z +OCR/KF=2 ?T" 7N.J&420& 3FF *(	K2<.>2 T+ECN.3B3.MVJ*0B07NE3T. .MVJ*1B03P	R+NCT2"?Y7U^ +OCN+ICT+IKN.;/T2"?M7VOE* F!6!2"3P	RN7T.JJ520^ *=/G61S\61R=61R+.MVJ*3B03P	R+NCT6"KT3YF 3G	
+N" 7YOE6 KO2 ?N.)."3\;I7PSU* SA.MVJ*5B0+ICF/A6$2"WY+SB"3TWH/NJ "160.JZ560B 3R;I7T2 3P	R+NCT2"?Y7UB 7L	A+EKD.;/G2"GG7MOE2 ;A7DJ 3EWV3RWS7DR +HCE7LOI+TCS+ICN+AKN.MVJ*7B03P	R+NCT6"[A3EGR+GCE+OKF.;GT.//G2"?M7VOE2 WP3R^ 3AWM*.B 7HCO7E& +OCU3HSA6 WF+NJ!3\?G+TC
.9&9.MZJ*0B03R7E* **6*N 7UKB7OSU3IWN2 ?T6 KP7ISN2 	LS7T.JF660B 3R;I3T[\+OCR/KF=2 ?T6 3N3P	R+NCT3A.(6)2;7NE3T. .MZJ*5B03P	R7N3T3P	R7N3T7RSE3U;R.M^J*0B03R7E* **6*N 7UKB7OSU3IWN2 ?T6 KP7ISN2 T7EJ 3UWLS*M.7B16 KP7ISN7\KP7ISN6 R"7HOI6 OI2 T3E^ 3AWM2 [O6 J	3EWV
RWS*	B.+TCO3W;I2,F +LCL7YWO2 GH+VKE.M^J*2B03P	R+NCT2"?T2 ?D6 OI6 KA3R;A+GCE3A2 7ISS2 [O6 WN3MWB+RCS*(B17TKH3O
U3H:	*	J).M^J*3B03P	R+NCT2";I6 WN7MKE3IGC3L> 3RWD3RZ 3R7O2 WL+FCT+TCO3R
I+H;T2 ?T2 ?M+V3E2 ?YU6".JR760B 3R;I+TJ 3T3E3L6 3E" +OCW3M;A3Y: 3UKM7EOR2 N(3O;U3T;I3GZ 3R7O2 T3E2 7ESF6)R O6".JV760B 3R;I+TJ 7R[E7EOR+EB.7FKO6 E7ACM+L3E2 [I2 T3EN 7UKR7ESN2 	L+SCT/I+S""*M.7B66 KP7ISN7\KP7ISN. J"* B3.4V * B1.6^ * B8"96".J^760B 3R;I7TC\3R;
+TJ 3ASN2 ?Y7UJ 3EWV3RWS* 242 T7EJ 7EWS+LCT3W3I3LJ +EJ:.M^J*8B03P	R7N3T3P	R+NCT*"B5.4N * B2.1Z * B7.8& ""*M.7B96 KP7ISN7\KP7ISN2 :"+O3W2 [I2 ?Y7UJ 3EWV3RWS* 252 ?Y7U^ +IGN""*M.8B06 KP7ISN7\KP7ISN. F"* B2.3R * B5.6^ * B8692"3P	RN7T.JF860B 3R;I+TJ +NCO7DWO+
CT7YWO2 	W+LCL3L/I7ER 7HOI2 GG+MCE+OCF3S	K+L3L6 WBT6".JJ860B 3R;I+TJ +ICF7YWO2 GW+NCT+TCO3Q	U+TB,7R[E7EOR/EB 6 *(3E?R*)J.7\KP7ISN3\WR7TKUN*M.9&92 ;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