File ROCKT2.BA (BASIC source file)

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

67J +ECM3L;U+ACR21& 3SF 2 ;I7TKE7ASC3IWV2 GG+MCE3TGH7TN 3T7I3UGL7TOE* CA3L;UA7R*JB83R7E2 GL3N	D+NCG3S7I3IGL7RR 7OR 7HSA2 [O2 T3EF 3P3O+LCO3P?R3GGRM6.*JB93R7E2 T3EWR6 OI2 KA3S3O3UWT+LCY+NCO3CGH3NWC2 ;I3V3O3VSE".*M*1B07LSE* SZ2=^"O6".JF12 	D3M: .$F("16).JV1
 WL3TJ .1F=.MJJ202 +ECT/MF=.7&."5*M*2B57LSE. GF*=:5"265.JB32 WL3T: *=:7"5*M*3B57LSE. CR.=J9"6*M*4B07LSE. CV*=:1"269.JV42 WL7TR "=60.JB52 WL3T" .0Z="0*M*5B57LSE. 7R+R.0H60.JB62 WL3TF .=N-..J4"5*M*6B57LSE. GR"=60.JB72 WL3TF .1"=..R8.3F6/EB-"4*M*7B57LSE. OR"
60.JB82 WL3TF .3B=.M"J252 +ECT/M61.7R."5*M*9B07LSE. CM.=GM.M&J252 +ECT/B^="560.JB1202 +ECT/T61"0*M.1V02 WL3TZ "=60.JF1202 +ECT/PB=.MFJ*1B57LSE. 7N"1*M.1B22 WL3T6 .2B=.MFJ*2B57LSE. 7S"0*M.1B32 WL3TN "=60.JN125& 7F* *$J=7YOE6"R 3H;E. F1"560.JR160B 3R;IT*M.1
46 KP7ISN2 2"3UGN3R2 3ASN3I
N2 	S3M3U3A	T+OKN.MFJ*5B03P	RN7T.JV165B 3R;I+TJ 7H[A7E& +OCU3F?L+WCN+OCN+ACN3A?P3L?L2/WL3M6 7IOS3I;O2 WB7FKO+EJ";*M.1B66 KP7ISN* ""7YOE6 KO2 ?N.).".MFJ*6B57ICN+UCTQ6$.J^120& 7FF *$J=7YOE6"R 3H;E. &1"0*M.1V72 [I* SQ2=:"+OB"3TWH/NJ "065.J"160B 3R;I+TJ 7JOU3
F 7N
S+ECR3TWH6 WQ7ESS3I;O6,B 3LGE+SKE";*M.1V82 ?G+TCO.1B6.MFJ*9B03P	RN7T.J&165B 3R;I+TJ 7ESN+ECR3MGE7SKU3EWM+NCT7OSP3I;O6 WN3MWB/R.".MJJ*0B07GSO/OJ "265.JB265B 3R;IT*M.2B16 KP7ISN6 ^"3HOI7HN 7YSS+ECM+OCF3MGE7SKU3EWM+NCT+DCO7YWO6 KP3EWF+RJ?.MJJ*1B53P	R+NCT."F 
=WM3T	R+CB * B 20V=3N3G3IS""*M.2B26 KP7ISN2 V"3NWT7RR +HCE7ACP7RCO3RGI+TCE3N7U7BKE""6;.JJ225& 7NWP3T. .MJJ*3B03P	RN7T.JN225& 3F. *=B03TWH/NJ "860.JR220& 3F. *=B13TWH/NJ "560.JR225^ 3O?T. J2"0*M.2B52 WL7T* .="1*5:2"8*M.2V52 WL3T6 *$J=7MSE7EOR""*M.2B62 WL3T
 .3N=".66.JZ2252 +ECT/N6$2". 3I?L7MSE7EOR""*M.2B72 WL3T^ .5F=.0B0.MJJ*7B57GSO/ON "065.J"2202 +ECT/ZZ=.0B8.MJJ*8B57LSE* SM2=Z"7ESE""*M.2B92 WL3T^ *3:=.5J9.MJJ*9B57LSE* SN*=B"3M3I+EKS.MNJ*0B07LSE. WG"=7Z.JB325& 3FJ .1N=2 T+ECN.6B7.MNJ*1B0+ICF/Q6$2"WY+SB"3TW
/NR "865.JF365B 3R;IT*M.3B26 KP7ISN* B"7YWO6 KA3E> 3NF 6 WL7NKA2 GL3N	D+NCG7MOI3S?I+NB.+ACS3TWH2 	P7LSO2 [O""*M.3V26 KP7ISN6 R"+HCE3L;U+ACR3EOX7UOR3I;O2 ?M3D3U+EB,7YWO2 	W+LCL+BCE7ECX7ESC+ECD+TKO.MNJ*3B03P	R+NCT2"	G+VCE7CKE3T	A3NN 3O7M3ASN7SR 7OR +HCE3MSO
UWL2 GN3V
I3A	T+OCN7SOY3T7E".6".JN365B 3R;I+TJ 2 T3E> 3NJ 7OKA3DN 7OCM3UWT7R^ 3I3L2 	G+VCE7AJ 3U;N3I
N2 OA7CWO+NKT.MNJ*4B03P	R+NCT2"[O2 ;I7FKO7MSA3I;O2 WN3EWD7DR 3O: 3A	V7GSA7ER +HCE3S	H+PJ..MNJ*4B53P	RN7T.JV360B 3R;IT*M.3V56 KP7ISN6 R"+HCE7AST7IWT+DCE3A
N+LCE3C3A3LSE2 ?F3R& 3SR 3EOS3RKI+ECD+ACS3F3O7L
O+SJ-.MNJ*6B03P	R+NCT*"B++OCR.-"120R 7EKG7EOE6 OI2 	D3ROE7T	L6 
A+ACY3F?R7MR +HCE3M?ON6".JZ365B 3R;I+TJ .-B92 WD3GWR+ECS+ICS+OCN7AR 3A
N7ESN2 ;I2 T3ER 3IWR3C	T+OCN+OCF3OKR+IKT.MNJ*7B03P	R+NCT."B92 WD3GWR+ECS+ICS+OCN7AR 3A
N7ESN6 KF+OCM3TWH2 	D3ROE3T?I3N> 3F> 3R	BT6".J^365B 3R;I+TJ *0" 7ZKE+OB)3D
E3RWE3S& 3SR 3IWR3C3T7YR 3OGW+RCD3TWH2 ?M+OKN.MNJ*8B03P	RN7T.J"365B 3R;I7TR +AB*3&0*;6".1B8.,"1"06".J&360B 3R;I7TR +AB*3&46;:"""*M.3V96 KP7ISN2 GT/BJ(.7.)."&-.02 * .-.-: . B9""*M.4B06 KP7ISN2 GT/BN(.4.)*"J!.MRJ*0B53P	R+NCT3TKA.(R3*)J;"06".JF460B 3R;I7TR +
B*2&3.;2"2<R 3IWR3C	T+OCN+OCF3OKR+ICT*<J<.MRJ*1B53P	RN7T.JJ460B 3R;I7TR +AB*2&76;N"3U[R3AWC2 [O2 ?M+OKN.MRJ*2B53P	RN7T.JN460B 3R;IT*M.4V36 KP7ISN2 F"+LCL3A
N7LOE2 WB3TWW+ECN.-"120F +NCD.1B82 WD3GWR+ECS3AWR2 OA7CCE3TSE".6".JR460B 3R;IT*M.4V46 KP7ISN. F"6 WF+ECL3U	N/T6 * B13SOE2.F 3T6 +A;X2 T7ROUT6".JV460B 3R;I+TJ 7A	N2 	D7SKC3EGP3N	C+ECS3AWR2 OA7CWO3NWT3DZ +OCR+ICN3TWH6 OU3E> 3FZ 3U3E""*M.4V56 KP7ISN2 Z"+OCR+
CN7AST7IWT+DCE3CGH3NWG".6".JZ460B 3R;I+TJ 3AGV3IGL3BWL2 ;E3G;I7EB 3OWW+RB:*0" 7ZKE+OB)3ASN2 ;A7YZ 7AWL3EJ 7E
T3E;E""*M.4V66 KP7ISN. F"20F +NCD.1B02 WP3RWC+NKT.MRJ*7B03P	RN7T.J^465B 3R;I+TJ 3N
E3A	T+VCE7TKH7USS6 KO2 	T+MCE+ICS3P?R3HKI3IWTD6".J"460B 3R;IT*M.4V86 KP7ISN.MRJ*9B03P	R+NCT2";I7PSU6:R 3IWM2 ;I7TKE3V3A2 ;I2 WS3C;O+DCS*-6-*-6-6 R(")6".J&465B 3R;I+TJ * B * B 2 WP3RWC3NGT+GCE+OCF7TKH7USS* 6-*-6-*-6-*-B-*(	P""*M.5B06 KP7ISN* B"* B * B 7AST
IWT+DCE3A
N+LCE+ICN3D
E3RWE+S6 *-6-*-" +AJ).MVJ*0B53P	RN7T.JF520& 7FF *$J=7YOE6"R 3H;E. N5"5*M.5V16 KP7ISN2 Z"+OCR3EGX3M3P+EJ:.MVJ*2B03P	R+NCT*"3T3PF,.?B1.,V6.,Z-"06".JJ565B 3R;I+TJ +TCO3A?B+RCT3TWH2 	M3S	S+OCN+ACT7A	N2 	T+M3E2 ;E7TKE* 20.0B,""*M.5B36 KP7ISN.MVJ*3B53P	R+NCT6"W
7TWP+TB:7TSO+ACL3T7I3EV 7LCA3SSE2 ;I2 WS3C;O+DKS.MVJ*4B03P	R+NCT*"B * B * B 3H	E7GSH2 ;I. ."M6$.JR565B 3R;I+TJ * B * B 2 R 7ISS3AON3EZ 3R7O2 GL3N	D+NCG7SSI3E& +NJ *;SM.MVJ*5B03P	R+NCT*"B * B * B 7VKE3TOI+ACL3V3E3O	C+TCY+ICN2"6;*$J;2/WS3C;OD6".JV565B 3R;I+
J * B * B 2 " 3O	R3Z;O3T3A2 WV3LOO7I	T2 ;I. ."/M.$6"N/3E?C+NKD.MVJ*6B03P	R+NCT*"B * B * B 3FWU7LV 7NSI7SJ 3EGM3I	N+NKG.MVJ*6B53P	RN7T.J^520^ 3O?T. ^6"0*M.5V76 KP7ISN.MVJ*8B03P	R+NCT*"3T3PF,""6;.J"525& 7NWP7TR 21Z,",7P.J&5202 +ECT3FZ=./B1"0*M.5V92 [I. GT*<
03TWH/N& "065.JB620& 7FR .1B=2 T+ECN.1&0"0*M.6V02 [I2 KA3SZ(.-B..5:)61R 3H;E. R9"5*M.6B12 [I2 KA3SZ(.-B..52)..V02 T+ECN.9V4.MZJ*1B5+ICF7AOB*(	P.>"160R 3H;E. J9"5*M.6B22 WL3T: .=B2.MZJ*2B5+ICF/T21.4B02 T+ECN.6V3.MZJ*3B07LSE. 7N+T>1"260.JN6252 +ECT/T61+T>1N
M.6B42 WL7TB *=+P.3F..4V1.9F/"860.JR6252 +ECT7SN=+INP6).JV6202 +ECT3CN=+OSP6).JV6252 +ECT/M62+M*0+T*13FJ/.MZJ*6B07LSE. OR*=:-65J**0"*.(CV*/	R+^&2*++R+A*1A61.JZ6252 +ECT/A63*-*2+R*1+A>1R*M.6B72 ?F3R& *=B1+TCON*M.6V72 [I. GM*=B03TWH/N^ "165.J"6202 +ECT/M61+
61M62.J"625& 3F6 .1B>2 T+ECN.7V2.MZJ*9B07LSE. 7F+F"*216+216/"26).J&6252 +ECT/M62+M.1M62.JB760B 3R;I+TJ 7YWO6 KA3E> +UCT+OCF3FWUL6".JB7252 +ECT/M61"0*M.7B12 ?G+TCO.7V2.M^J*1B57LSE. 7F"0*M.7B22 WL3T6 .2B=.M^J*2B57LSE. 7M+M:-256*"2*M.7B32 WL7TJ 64J="3*M.7V32
WL7TJ *36=*.*5+R*06(Z(60J/.)K^6)J+.*GA.*GA.M^J*4B07LSE. KR.=N(.*OR.-SR.)J/.+B..0J526Z*21Z***?CM*M.7V42 WL3TF 24F="3*M.7B52 WL3TF *36=62J*21F*61J/.M^J*5B57LSE. KA.=N(.*OA.-SA.)J/.+B..0J526Z*21Z***?S*(+MR6).JZ7202 +ECT7XJ=61R**1:+65J*62R*61R*"1*M.7V62 WL7TJ
*=/RX*M.7B72 WL3T" 20"=60"+.M^J*7B57LSE. GR.=GR.+KR.*GT.M^J*8B07LSE. 7A3AF+61R**1:+25F*62R*61R*"1*M.7V82 WL3TF 21F=21F+62R*"1*M.7B92 WL3T6 *=7M*.*5M62.J&7252 +ECT7TR=.+GT.M"J*0B0+ICF/H20.3J..8"722V8.-R02 T+ECN.8B1.M"J*0B57NE3T& .M"J*1B07LSE. 7H+H*0Z*M.8V1
 WL3T" 61J=61**.M"J*2B07LSE. 7D+R*07A**.M"J*2B57LSE. GD*=+R+A*1Z*M.8B32 WL7TR 226=21J*./CM.M"J*3B53P	R+NCT3TKA*(&1.;/T3TKA.(B12)";2;GT/BJ(.3.)D6;.JR860B 3R;I7TR +AB*3&7.;GH2;GT/BR(.9.)/D.13TKA.(B66)R;"2*M.8V42 [I. CH*<:3.2^8.8"2/EB-64R 3H;E. "8"0*M.8B52 [
. CR.*;A.1R6..^4*3B63TWH/NF .0B5.M"J*5B5+ICF/M:160R 3H;E. "5"0*M.8B62 WL7TR .1J="2*M.8V62 WL3TZ "=60.J^8202 +ECT/PB=.M"J*7B57GSO/OZ "260.J"820& 7FJ *16<.8J..1V9*77E*0B43TWH/NF .0B2.M"J*8B5+ICF7AOB*(+R+A&1*>:4.9F3.7J4/EB-64R 3H;E. B1"260.J&820& 3F" *06<.3J
.8"722V8.-R02 T+ECN.1J0"0*M.8V92 [I2 KA3SR(.)F>60**2 T+ECN.1Z0"5*M.9B02 ?G+TCO.9V9.M&J*0B53P	RN7T.JF960B 3R;I+TJ 3T	H7SN 3POA7EKC7ASF6 OI2 ?N3TF 3BWL2 ?T2 	V3OGL+TCE3TWH6 CS3AWC.-.".M&J*1B53P	R+NCT2"	T+MCE3C;O3T;I+UKM.M&J*2B07GSO/OV "765.JJ965B 3R;IT*M.9B
6 KP7ISN2 &"7F& +OCU3W;A7TR 7ON 3P;I6 KA3O;U+DB,+GCO7OSU3SSI7ER +HCE3MSO3UWL""6;.JN965B 3R;I+TJ 7FKO2 ;A* ;E3VF.""*M.9B42 ?G+TCO.5V7.M&J*4B53P	RN7T.JV960B 3R;I+TJ 7ICM7OOS3I3B7ER 7HWR+S7T3V3A+UCE""6;.JV925& 3FZ *<B03TWH/N& "865.JZ920& 3FZ .-B.*5:<*0B53TWH
N& "765.JZ965B 3R;I+TJ 3T?O2 GL3RWG""*M.9B72 ?G+TCO.5V7.M&J*7B53P	R+NCT2"?T7ON 3M3AL6".J"920^ 3O?T. ^5"5*M.9V86 KP7ISN2 :"3EGG7T[IE6".J&920^ 3O?T. ^5"5*M.9V96 KP7ISN.MFJ.0B06 KP7ISN6 R"3R;A3Q	U7LSI3YJ 3AWS2 WH+RCE*-B-3TWH2 GE3GWL2 GH3S2 3ASN+EKD.MFJ.0V06 
P7ISN2 N"3O
N7RSA3UGL3T?I+NCS6-R 7HKE7E^ +ACS+NCO3SGP3COE3R[A3TR 3AGM+GKE.MFJ.0B16 KP7ISN6 &"+OCU7M	A2 ?N7WB 3ROO3ESE2 	W+TCH7SKU3FOA3EV 3X3P3OGR3T?I+NJ..MFJ.0V12 ?G+TCO.1B1"0*M.1J060B 3R;IT*M.1J065B 3R;I+TJ 3CGR+SCH*!F!*!F!*!F!"!6".JB1*3B03P	R+NCT2"?Y+UCR7ICM7ASC6 K
7ESA+ECD3AN 7RSA+EKR2;KA3S"(2)6;*$J;2 WD+EKP.MFJ.0V3. GX6=GS3RR(21R*21"+21"**1*)G63.JB1*4B03P	R+NCT6"SA2 ?C3NGT+CCT7YWO2 WW+RCE3TGR3V3E3L;I/G."/X.1/N.$2""/+RJ..MFJ.0V42 ?G+TCO.1B1"0*M.1V060B 3R;IT*M.1V065B 3R;I+TJ 7YWO2 GH+VCE3BWE3N2 7OSS2 ;I6 CS3AWC2 	W+
CH+NCO7HCO3E> 7FJ 3E?C7VKEY6".JB1*6B07GSO/OF .1B0.MFJ.0V66 KP7ISN6 &"+OCU3AWR2 ?D+WCN3S[A7E	L* B-""*M.1^065B 3R;IT*M.1"060B 3R;I+TJ 7BSU2 	M3SWS7DR +HCE3L;A3D;I7GN 3IWT6 	B2"F;+BS3D^/.5.)N6$.JB1*8B57GSO/OF .1B0.MFJ.0B96 KP7ISN.MFJ.0V96 KP7ISN2 6"7IOS3I;O2
KA7OSR+EKD.MFJ.1B06 KP7ISN.MFJ.1V06 KP7ISN2 R"7O& +OCU3W;A7TR 3OZ +LCY+ICT3AGG+ICN*?" 7YOE6 KO2 ?N.).".MFJ.1B12 ;I7PSU* SZ.MFJ.1V12 [I* SZ6=&"+EKS2 T+ECN"260.JF1*2B0+ICF/Z6$2"?N6"R 3H;E. F1"360.JF1*2B57GSO/OF .1V0.MFJ.1B36 KP7ISN.MFJ.1V36 KP7ISN6 R"+OCO3B
A6,R +HCE3SGP+CCE3P?R3GGR3M" 3AWT7SR 3O2 3OWS6 E7PKE3I;E3CSE""6;.JF1*4B03P	R+NCT2"F 7SKT3OGN7UOT".6".JF1*4B53S?TP*M.1V160B 3R;IT*M.1V165B 3R;I+TJ +O3K2 ?D2 ?Y7U^ 7ASN2 T3EN 7OCM7LSE3E& 7NSS3ROU3T?I+NCS+OCR3TWH2 ;I7PSU"-6".JF1*6B03P	R+NCT6"WO7TWP7TN 7TSA3E
M7NOT* J?.MFJ.1V66 KP7ISN. F"2=?C3M3P3EWT2 ;I7SKT7USC3I;OS6".JF1*7B03P	R+NCT."627ICN+U7T7OSU7PSU6 SS3AWT3M;E+TKS.MFJ.1V76 KP7ISN. N"2=WN3IT+EKR.MFJ.1B82 ;I7PSU. GB.MFJ.1V82 WL7TF *$J=+NKO.MFJ.1B92 [I. GB*=B13TWH/NJ "065.JF1*9B57LSE* SQ6=&"+EKS.MFJ.2B02 [I
 GB*=B23TWH/NF "960.JJ1*0B5+ICF/B6163R 3H;E. &1"0*M.1F220^ 3O?T. F1"665.JJ1*1B53ESN&M*J

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