File ROCKET.BA (BASIC source file)

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

61J +ECM****6 KW7IST+ECN+BCY3J7I6 SS3OWR+RB,7LE3I
N3T;O6 OH.MJJ2 WR+M* **B*3C;O7VKE3TSE6 KF+OCM3FOO+ACL+TCO7BOA+ICC+BCY2 GD3VSI2 A+LB,3D
I3IGTL*M65J 3EGM3RGK7B	L6 KT7AON7LSA+ECD+TCO/OS2 GB3SOI6 	B2 GK7YJ 2.Z 3IS+ECR*.:.3DOE.MFJ20WR3M2 3UGN3R6 7OWD+LCE3P?R3GGR+MJ 3ROO7KSE""*M*2B03P	R7N3T3P	R7N3T3P	R+NCT2"?C7NKT+OCL3C3A3L;I3G2 3UGN3R6 7OWD+L;E6.2"3P	RN7T.JV33P	R+NKT7YWO2 GM7YN +ECT3TWH6 WF+E
L7RSA+E" +KB)+TCO7ZKE3O> 3RF +NCY3V3A+UKE.MRJ60KP7ISN2"WB3TWW+ECN28F +NCD.2B02 KL7SB +ECR3SOE3OSN*.B 3A: 3EGG7T[I3EZ 3U3E""*M*5B03P	R+NCT2"GR+TCE3W3I3LF 7BKO7TR +HCE3L;A3D;I+GB,3U3N7EOS2 T7EJ 3AWT""*M*5B53P	R+NCT6"OI. J-2,& 7N^ 3HOI3HN 3AWS2 T3EN 7UKR7ESN
 ?P7SSI3I;O6 OI" 6".J^56 KP7ISN6 N"3AWV3DZ +OCR7LSA+ECR3ROE3A3L6 CU+OCN7ROE7TKA+TJ.* C\3P	RN7T.JB63P	R+NKT7YWO2 GH+VCE.1B6*0B07LOB2 [O6 WF+E;L""*M67B03R;I3TV"3S	T7MSA+ECD3FWR3EZ 3A3L2 7I3POA7TR 3IWM6 OI. J160N 3E?C7NOD".6".JB83P	R+NKT7CCA3S3U7E^ 3E
I+HCT+ICS*322.5B02 KL+SJ..M&J60B 3R;I7TC\3R;I+TJ 7FKI+SCT3RSA+ACR3CWH+CCK3C7O3I
N6 CU*.:.""*M.1B06 KP7ISN2 J"3E	G3N2 3ASN3I
N6 KP3OWC7DKU7E2"3P	R7N3T3P	RN7T.JF160KP7ISN2"	T+ME3SOE+SJ)2,""3E
I+HT+M	I*"J,3V3E3O	C+TY3MP*)2"6"WF+EL7LOB*)2"6"WF+ECL7RSAE6".JJ1202 +ECT/LB=3\WL3TF .=J1203\+ECT/VF=3\WL3T6 .=J3.5B03\WL3T: .=Z1.5B0.MFJ*7B07LSE. 7G..B0213\+ECT/ZF=".68.JF260B 3R;I3T& +NT+L:+*52)7AZ,.*Z3*0203M:-2,."""6;.JJ220& 7NWP3T. .MJJ*2B57LSE. 7T"160
JJ227& 3F. . :<. J-2 T+ECN.2B3.MJJ*2B8/M617M2 . GL*=CL7\Z 61Z=* C\/A617A2 6 KP7ISN6 N"3AWV7D& 7OKU2 ?P7SSI3I;O6"2 2 ?G+TCO.2B2.MJJ*3B0+ICF/KB<2 ?G2 ?T. &5"0*M.2V32 [I. 7K20^ 3O?T. F3"0*M.2B42 [I. 3K68R 3H;E. Z2"0*M.2B52 [I. 3K.=B220^ 7OR /ON "160.JZ260B 3
;I+TJ 7NSO2 ?P3S	S3BWL*"2,*,J,/K.".MJJ*7B07ICN+UCT7K2 2 ?G+TCO.2B3.MNJ*1B0+ICF3M:-.-B.*0B1.<B=2 ?G/TSO"160.JJ320& 7FR .<B.*0B17GSO/OJ "160.JN3202 +ECT7SR=3\[I* /N3S.*2<6=2 ?G2 ?T. V3"0*M.3B42 WL7TN 2=6(*-	N"/7K.JV3202 +ECT/I60612 2 ?G+TCO.9B0.MNJ*6B0+ICF/
2 .=B 2 ?G3T> . F7"0*M.3B72 [I. 3V*=B0+GCO+TCO.3B8.MNJ*7B5+ICF/JB<2 ?G+TCO.8B1.MNJ*8B07LSE. CI6=217GSO/OB6"0*M.4B16 KP7ISN6"WF+ECL7OSU6 SA. ."+LJ;3SOE+SJ..MRJ*2B07LSE. 7S6(Z-6+GS7RZ(**/V22F***	G2)^/.MRJ*3B07LSE* CV6=Z *++GS*M.4B42 WL3T2 *=/LS*M.5B16 KP7IS
2";O2 T3E6 3O;O6 SA. ."+LJ;3SOE+SJ..MVJ*1B17LSE* CW.=N .6B0"*7V.JF564B 3R;I+TJ 7ICM7ASC2 WV3LOO7I	T2 [O. ."+WJ;7MB.*.;H""*M.5B26 KP7ISN2 Z"3U3E2 WL+FCT2"6;.-/N2"KL+SJ..MVJ*3B0+ICF/W6>21^ 3O?T. V5"0*M.5B46 KP7ISN6 B"3E[R7ESC2 GL3N	D+NGG2 N 3O
N7RSA3UGL3T?I+NGS6!2"2 ?G+TCO.5B9.MVJ*5B0+ICF/W: .=B12 T+ECN.5B6.MVJ*5B23P	R+NCT2"WV+RCY3G?O3D2 3ASN3I
N2,: +OCT7PKE3FOE7T& +E;T2"
\3O?T.5B9.MVJ*6B0+ICF/W: .=J 65R 3H;E. ^5"0*M.5J66 KP7ISN2 F"2 GF+ICR3L;A3D;I+GB,+NCO3CGR+FCT3D7A3AWG6.2"7GSO/O&5"0*M.5B72 [I* CW*>B=*6B03TWH/N"5"0*M.5J76 KP7ISN2 N"3R[A3TR 3AGM+GCE*-B-7BSE7TKE6 WL+CCK7NE7TR 3IWM6.2"7GSO/OV "960.J"560B 3R;I+TJ 7SKO+R3Y6 W
7TR 7HKE7E^ 3EWR2 ?N6 WS3R	V7VKO+SJ..MVJ*8B53P	R+NCT2";I2 GF+CCT7YWO2 3B7ASS+ECD3A: +ECW3L;U+ACR3CGR7TKE. ."+W:*.2^7.7^7*;B"3FWE3TR 7ECE".6".J&560B 3R;I7TC\3R;I7TC\3R;I+TJ 7T	R2 
A3A;I*?" 3Y:,2,WR3SGT+R3T6 KO2 ?L7W^ 3ISN+O	W""6;.J&522& 7NWP7TJ 6$K\6$N=+ESG*(SR*,21"16).J&523& 7FJ *$J=+YB"3TWH/N& 602 2 [I* SR6=J"6"R 3H;E. J1*0B03\& 7FJ *$J=+LB"3TWH/NF .1B0.MVJ*9B53P	R7N3T6 KP7ISN2 N"7OSN3R3O6 WO+TB"3\^ 3O?T. "1"060.JB6202 +ECT3L2="+
S.JF6202 +ECT/T6 * 7TS*M.6B22 WL3T6 *=7M3S.*.MZJ*3B07LSE. 7AI*M.6B42 WL7TZ "=7J.JV620& 3F& .0F=2 ?G2 ?T. F3"0*M.6B62 [I. CI*=B3+GCO+TCO.8B5.M^J*1B0+ICF+SB<..B025^ 7OR /OV "160.JJ7202 +ECT+SB=22F*6/Z(6+GS7RZ(**/V22F*2*^(*-+Z3K6/*)&).M^J*3B07LSE. CI*=B23\?G
TCO.9B0.M"J*1B07LSE. 7W*(613M^*6/*(**	K.)J/.M"J*2B07LSE. 7S7MZ*6/*(**+K*(/W7SKQ*(+W7WZ+*/	Z*).)..V0.M"J*2B57LSE. CI*=B33\?G+TCO.9B0.M"J*3B0+ICF/I6<60R 3H;E. F7"0*M.8B42 ?G+TCO.6B0.M"J*5B0+ICF/J6>60R 3H;E. F3"0*M.8B62 [I. 3V*=B0+GCO+TCO.3B1.M"J*7B07GSO/O" 
160.JB9202 +ECT7QN=**?KM*M.9V02 [I. 3Q*=B03TWH/NF .0B0.M&J*1B07LSE. 7J3V^+**/S+Z"**-7Q6(;Q*2>)*2"-/QO^.)N/6-F(+^&4*/646(;Q*5>)"56).JJ9202 +ECT3IF=*-+G7SN**/627VN**++Z+S"*/QJ/6+;Q.2Z/6+;Q.3F/62F++^>4*2.0/QW^./B3")*M.9B32 [I. CI*=B17GSO/ON "660.JR920& 3F& .
J=2 ?G+TCO.6B0.M&J*5B0+ICF/I6023^ 3O?T. N8"0*M.1B0202 +ECT7JZ=*++GS*M.1F0202 +ECT3IF=*-+G7SN**/627VN*.MFJ.0B22 ?G/T	O"360.JF1*0B07LSE. 7L.1B4.MFJ.1B12 WL3TF *=:2.3J8.3J4.MFJ.1B22 WL7TZ .=F..2^5.5"5.MFJ.1B32 WL3T6 .="1.5B0.MFJ.1B42 WL3T: .=Z1.5B0.MFJ.1B52 
G+TCO.1B7.MFJ.2B0. 7M+MB13\2 .=GL* C\7VZ=612 . 7A+AB13\^ 3O?T. F2"0*M.1B820V +NCD&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