File QUEEN.BA (BASIC source file)

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

61J +ECM3PGL+YCS3QWU+ECN3G7AE6,*JB23R7E3A/R3A3B7YR 3R;A3SGL3TSE2 ?T6 OO28J 3A	S3CJ 3Y. +ACY+RB.7FOI7HKE* :.2.WDC*M63B 3R;I+TJ +DCO7YWO2 GW+NCT7ION7TWR3C	T7OON""6;*JB93R;A3D7O3IWZ.MFJ20R +ICM/SZ("46).JF12 ?F3R& *=B1+TCO"664.JJ12 WR+ACD3S&(")*M*1B37NE3T& .M
J24R 3AGT. " *1B,. F7*,B *621. V *1B,. F4*,B *321. J *1B,. F1.MFJ25R 3AGT. & *2B,. J8*,B *722. Z *2B,. J5*,B *422. N *2B,. J2.MFJ26R 3AGT. B1*3B,. N9*,B *823. ^ *3B,. N6*,B *523. R *3B,. N3.MFJ27R 3AGT. F1*4B,.1R0*,B *924. " *4B,. R7*,B *624. V *4B,. R4.M
J28R 3AGT. J1*5B,.1V1.,F *025. & *5B,. V8*,B *725. Z *5B,. V5.MFJ29R 3AGT. N1*6B,.1Z2.,F *126. B1*6B,. Z9*,B *826. ^ *6B,. Z6.MJJ20R 3AGT. R1*7B,.1^3.,F *227. F1*7B,.1^0*,B *927. " *7B,. ^7.MJJ21R 3AGT. V1*8B,.1"4.,F *328. J1*8B,.1"1.,F *028. & *8B,. "8.M
J22& 7NWP7T^ "$*M*2B3+ICF/W6$2"?N6"R 3H;E. B3.MJJ24& 7F^ *$J=7YOE6"R 3H;E. "2.MJJ65B 3R;I+TJ 3ION7OKR7ESC2 ;A3SWW+RB,3PWL3AWS6 	T+PCE2	WY+SB	+OCR2	?N.	.".MJJ26^ 3O?T. J2.MJJ28^ 7OWS/BV .0B0.MJJ29^ 3O?T. B1"0*M*3B07GOO+UCB.5V1"0*M*9B03R7E6 KE7RKO2 C3E/CS6,
JB160B 3R;I+TJ 3WWH+RCE7WWO+LCD7YWO2 	L+KCE+TCO3SGT+RKT";*M.1B12 ;I7PSU. GM.MFJ*1B5+ICF/M6160R 3H;E. N2"2*M.1B22 WL7TR 21&=+NT+M>1*1&0.MFJ*3B07LSE. GU.=GM.-B1.*GT.MFJ*4B0+ICF/U6161R 3H;E. B2"0*M.1B52 [I. GU.=GT2 T+ECN.2B0.MFJ*6B03P	R+NCT2"3P7EOA7EJ 3ESA2 
3ER 3IWR3C	T7OON2 
A3A;I".6".JZ165B 3R;I+TJ 7YWO2 GH+VCE3B
E+UCN3I3L3EGG7L	L".6".J^160B 3R;IT*M.1B82 ?G+TCO.1B0.MJJ*0B07GOO+UCB.2B0"0*M.2B16 KP7ISN2 6"3AC3IWN2 ?M7VOE2 ?T6 GS7UKA/E."M*M.2V12 [I. 7M.1"52 T+ECN.3B4"0*M.2B26 KP7ISN6 ^"7HSA6 OI2 ?Y+UCR7M[O/E.".MJJ*3B07ICN+UCTM61.JN221& 3F6 .1:<60R 3H;E. N2"9*M.2J36 K
7ISN.MJJ*3B33P	R+NCT6"SI2 ?L7OOK2 	L+KCE7I^ +OCN+BCY7FKO3F	E+TJ..MJJ*3B43P	RN7T.JN225^ 3O?T. B4"060.JN229& 3F6 .16<7MR 3H;E. J3"060.JR2202 +ECT/T617ISN.(GM./B1")*M.2B52 WL7TV 216=.1F-60R*"1*M.2B62 WL7TB .=GU"-7U.J^220& 7FB .<B>2 T+ECN.3B0.MJJ*8B07LSE. 7L+
61T*M.2B92 [I. 3L*=B03TWH/NN .2B0.MJJ*9B57GSO/OJ "060.JB320& 7FR 61R-6<B>2 T+ECN.3B2.MNJ*1B07GSO/OJ "060.JJ320& 7FR 61R-.<J>**CP3TWH/NN .2B0.MNJ*3B07GSO/OJ "060.J&1*9B03R7E2 ?L7CSA3E6 3OWV2 ?F3R6 3AC3IWN",*M.2B020& 3F6 .1R=61R 3H;E. F2"860.JB2*1B0+ICF/M61
4B43TWH/NJ .1B8.MJJ.0B22 [I. GM.=N72 T+ECN.2"1"0*M.2N020& 3F6 .1^=65R 3H;E. F2"860.JB2*4B0+ICF/M61.1Z22 T+ECN.2"1"0*M.2V020& 3F6 .1F=*2B73TWH/NJ .1B8.MJJ.0B62 [I. GM.=V168R 3H;E. N3"060.JB2*6B57LSE. 7C"0*M.2^020Z +OCR/K^=2 ?T* B13SWT+P6 "1*M.2"0202 +ECT7U
="1*M.2&0202 +ECT7TR=21.+.MJJ.1B02 ?G3SKU. V3"060.JF2*0B5+ICF/CF=2 T+ECN.2Z1"0*M.2F1202 +ECT7UV="+7K.JF2*2B07GOO+UCB.3B5"0*M.2J125& 3FN *=B13TWH/NJ .1B6.MJJ.1B32 WL7TR *=/TK*M.2R120^ 7OWS/BN .5B0.MJJ.1V42 [I. 7C61R 3H;E. F2"660.JF2*5B07NE3T. .MJJ.1V52 ?G+
CO.2"1"0*M.2Z1202 +ECT/CB=.MJJ.1B72 WR7TKUN*M.2"120^ 7OWS/BN .0B0.MJJ.1B92 WR7TKUN*M.2&960J +ECM3R;A3D7O2 ?M+V3E.MNJ.0B02 WL7T* 2=;R/DB(")*M.3F020& 7F* .>Z.2 T+ECN.3F1"0*M.3J020& 7F* .>N.2 T+ECN.3^0"0*M.3N0202 +ECT7UV="1*M.3R0202 +ECT7TR="1*M.3V0202 +ECT/
F=60R*"+7U.JB3*6B07RSE3U;R.MNJ.0B72 WL7TV .=GU"+61.JB3*8B07LSE. 7T+T.1"2*M.3&0202 +ECT/MF=60R*"+7U.JF3*0B07RSE3U;R.MNJ.1B12 WL7TV .=GU"+61.JF3*2B07LSE. 7T+T.1"1*M.3N1202 +ECT/MF=60R*"+7U.JF3*4B07RSE3U;R.MNJ.1B92 WR3M& 3LWL3G3A2 ?M+VCE7MOE3S
AE6,.JJ3*0B03P	RN7T.JJ3*1B03P	R+NCT*"CY7OV 2 N * CH3EF * CT*.: * B.7T	R2 
A3A;I""6;.JJ3*2B07GSO/OJ "360.JJ3*9B03R7E2 3P3AWY7R^ 7ION",*M.3B360B 3R;IT*M.3F360B 3R;I+TJ 3C> * CN7GJ * CA7TV * CL7AR * CI3O: * CS*.: * B.""*M.3J360B 3R;IT*M.3N360B 3R;I+TJ 7YWO2 GH+VCE3W;O6-Z-7E	R2 WW+LCL3PGL3YSE".6".JN3*4B03P	R+NCT6"SI2 ?L7OOK2 	L+KCE
I" 3AWV2 WM3T6 3Y6 3AOT+HJ..MNJ.3B56 KP7ISN6 R"3H;A+KCS7FKO2 3P3A	Y+N7G*-CI3C;A*	CT3W;I2 3A7LR +HCE3T7I+EJ..MNJ.3B66 KP7ISN.MNJ.3B72 ?G+TCO.4B0"0*M.3&360J +ECM3MOA3H;I7E^ 7ION",*M.3B460B 3R;IT*M.3F460B 3R;I+TJ 3NOI7ER +R3Y6 WB3T& 3T2 3O/O3S2 3IWK* CI7H[A7
^ +O;N""*M.3J460B 3R;I+TJ 3TGH7NOK2 ?F7RB 7L	A3I
N".6".JR3*3B03P	RN7T.JR3*4B07GSO/OR .0B0.MNJ.4B92 WR7MR 7ESS2 ?F3R6 3AC3IWN2 ?M+V3E.MNJ.5B02 WL3T6 .=B1**/TU*M.3F520& 3F6 .=V168R 3H;E. V3"760.JV3*2B0+ICF/MF=*2B73TWH/NN .5B7.MNJ.5B32 [I. 7M.1Z22 T+ECN.3^5"0*M.3R520& 3F6 .=V72 T+ECN.3^5"0*M.3V520& 3F6 .=N
2 T+ECN.3^5"0*M.3Z560J 7EWTR7N.JV3*7B07LSE. 7C"1*M.3"520^ 3O?T. V3"660.J&3*9B03R7E2 ;A3OT+ECR3G7AE6?.JB4*0B03P	R+NCT2";A3Y;O3EV 3LWS2 GC+RCE+TCO7T	R""6;.JB4*2B07ICN+UCTQ6$.JB4*3B03P	RN7T.JB4*4B0+ICF/Q6$2"WY+SB"3TWH/NF "060.JB4*4B2+ICF/Q6$2"?N6"R 3H;E. B4"
60.JB4*4B53P	R+NCT2";I7CKO3ROE3TF 7N
S+E3R2 3P7EOA7ER 3YWP6 &	+E
S6 KO2 :	+OJ	";*M.4R026^ 3O?T. B4"260.JB4*5B03P	R+NCT2"/O* B-6-R 3H;A+KCS3AGG+I;N""*M.4Z060N 7TCO.MRJ.9B92 WR3MR 3IWR3C	T7OON2,V +TCC*.: " 6..JB5*0B03P	R+NCT2"WW6 KA3E^ 3O;I7GR 7OB 7L	A* CA3G7A3EJ 3AWS3D> 3N> +NCE+OCF3TWH2 C7EOS2 ?M7VOE".6".JB5*1B03P	R+NC
6"WO7RF 3UWE7N^ 3I3L2 WB2 KA+LCE+TCO7M[O3E> 7N	L2 ?T2 T3E2 7ESF",6".JB5*2B03P	R+NCT2"?D+W3N2 ;A3DR 3I
A3OGN7L	L2 ?D+WCN+TCO3TWH2 WL+F;T""*M.5N060B 3R;IT*M.5R060B 3R;I+TJ 3TWH2 KO3JOE3T> 7FR +HCE3G7A3E& 7SR 7OB 3LOA7ER +HCE3QWU+ECN+ICN3TWH""*M.5V060B 3R;I+TJ 7L
O+ECR3L[E3T"-3ASN6 GS7UKA3EJ 3YF 3LWT3RGN3T;I3G6 3OWV3SJ 7E
T3E;E""*M.5Z060B 3R;I+TJ 7YWO2 ;A7DR +HCE3MOA3H;I+EB/3TWH2 	F7RSS2 ;O7ER 7OB 3LOA7ER +HCE3QWU+EKN.MVJ.0B76 KP7ISN6 R"7HKE+EB,3W;I+SJ..MVJ.0B86 KP7ISN.MVJ.0B96 KP7ISN6 &"+OCU+GCO7FKI+SCT3ASN2 3P3AWC2 T7EF 3UWE3N& 3NF +NCY3OWN2 [O2 TE6".JF5*0B03P	R+NCT6"GS7
KA+ECS+OCN3TWH2 ?T7PJ +OCW+OCR3TWH2 	R7GSH2-GH+NCD3C3O3U;M".6".JF5*1B03P	R+NCT2"T+ACT3W3I3LJ 7E& 7OKU2 	F7RSS2 ?M+V;E""*M.5J160B 3R;I+TJ +WCE3W3I7LR 3H;E2 3A7TKE7NSA3E6 3OWV+SJ..MVJ.1B36 KP7ISN6 &"+OCU7M	A2 ?F3RWF+ICT+ACT7A	N2 	T+MCE+BCY7TCY3I
N. B	2	F 7S& 7OKU2 ?M+V;E""*M.5R160B 3R;I+TJ +BCE7SKU7ER 7OB 3US2 T+E^ 7RSE3U;R2	. +ECY7ASF+ECR3EOA7HJ 7ECS7OON+EJ..MVJ.1B56 KP7ISN.MVJ.1B62 ?F3RF *=B0+TCO"7*M.5^120Z +OCR/BF=2 ?T" 68.JF5*8B07LSE. 7I28F*"+7B.JF5*9B03P	R+NCT3S&(")6;.JJ5*0B07NE3TJ .MVJ.2B16
KP7ISN.MVJ.2B26 KP7ISN.MVJ.2V26 KP7ISN.MVJ.2B32 WN+XCTA*M.5R260B 3R;IT*M.5V260J 7EWTR7N.J&9.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