File BOAT.BA (BASIC source file)

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

64J 3EGM3RGK7B	L6 KT7AON7LSA+ECD+TCO/OS2 GB3SOI6 	B2 GK7YJ 2.Z 3IS+ECR*.:.3DOE.MVJ6 B 3R;I+TJ 3T	H3S& 7SR +HCE3G7A3E> 7F^ +ACR7BSE3WWE3NF 6 WS3BGM3R;I3EF +NCDA6".JB16 KP7ISN2 :"3AGV3L^ +UCN3BGO+TB.2 ?W3USL2 ?Y3U2 3IWK2 ;I7SKT7USC3I;O/S.".MFJ21& 7NWP7T" "$
M*1B2+ICF/X6$2"?N6"R 3H;E. B1"0*M*1B33P	R+NCT2"?Y3UF +RCE3TWH2 GC3PGT+ICN+OCF3TWH6 WS3BGM3R;I3EF +NCD3TWH""*M*1B43P	R+NCT2"?C7MWP7TKE6 OI2 T3EN 7ASP3A;I2 [O2 T3E^ +UCN3BGO+TJ..MJJ60B 3R;I+TJ 3TWH6 CS3ESE2 [O2 T3E^ +UCN3BGO7T^ 3I3L2 WB2 	G3V;E6 SA2 T3EJ 3E
G3N	N+NCG+OKF.MJJ65B 3R;I+TJ 3TWH2 GG+MCE3ASN2 ?Y3U" 3AWV2 ?T2 	H7TR +HCE3G;U2 ?B+ACT3T	W+CKE.MNJ60B 3R;I+TJ +ICN+ACT3LGE+SCT3T?W6 WV3LWN3RKA+LCE3PGL7COE2,> 3R> 3NWC2 ;I* KA.MNJ65B 3R;I+TJ 3V3U7NKE3A3B7EB 3LOA3EF +NCD3T	W+CCE+ICN7A	N6 SO7HKE2 GP+RCT+OCF3T
H""*M*4B03P	R+NCT6"WH+LCL+OCF3TWH6 WG3NJ 7OSA*.B 7BSU2 [I2 ?Y3U6 7IOS2 ;A3Y> +NCE3T7I7ER +HKE.MRJ65B 3R;I+TJ 3G;U2 ?B+ACT3W3I3L> 3P;E2 	F+RCE+OCN7YWO2 ;U3T3I6 SI2 	S7NOK2 ?Y3U> 7R& +OKU.MVJ60B 3R;I+TJ 3S;I7KR +HCE3G;U2 ?B+AGT6 & +OCU3W3I3LJ 3EF 3L?L3WSE2 
T2 GT+KCE7TKU+NCS7FKI+EJ-.MVJ65B 3R;I+TJ 3I
N6 SA2 T3E^ +UCN3BGO+T: *.:.2.^.3OSO6 WL+CCK2,6 3E;I6 WF3RWH+RF!*!F!*!F!"!6".JB120F "=60.JF120J "=60.JJ160J 3ASN3O	MZ7E.JR1202 +ECT/RF=*0*03RSN*(&0.MFJ*7B0+ICF/R6>*1B03TWH/NF "960.J"120^ 3O?T. R1"0*M.1B92 [I. 3R.=B42 T+ECN.2B1.MJJ*0B07GSO/OF "460.JF260B 3
;I+TJ 3TWH6 CS3ESE2 [O2 T3E^ +UCN3BGO3T& 3S: +OCW6"J;*;B"3K?N+TKS.MJJ*2B03R;A3D7O3IWZ.MJJ*4B07LSE. 7S.1B0*0*03RSN*(&0.MJJ*7B0+ICF/S6>.1B060R 3H;E. &2"0*M.2B82 ?G+TCO.2B4.MJJ*9B0+ICF/S6<.1B0*0B03TWH/NN "160.JB320^ 3O?T. R2"0*M.3B16 KP7ISN6 R"+HCE3R;A+GCE3F
R7MR +HCE3G;U2 ?B+ACT+TCO3TWH6 WS3BGM3R;I3E& S6".JJ360B 3R;I+TJ 7N
O. ."+SJ;2 GY7ROD".6".JN3202 +ECT3ZF=+TN*5>0R6).JR3202 +ECT/D63+Z"*.1B8*/:3.1F4*5&9.MNJ*4B53P	R+NCT2"T3EF 7PKP3O	X7MSA3EF 3N3G7E& +OCU3S?H3USL2 	F+RCE7YWO7RR 7OCR3E?D6 OI""*M.3Z46 KP7ISN2 J"7E
T3E;E. ."7ISN.(OD*-&2*;B"3ASN. ."7ISN.(OD*+&2*;B"3D
E3RWE+SJ..MNJ*5B07ICN+UCTD*M.3F52 WL7TR *=+D.3F..4V1.9F/"860.JZ3202 +ECT/R683SN/+OSZ6).J^3202 +ECT/Y63+R*83S;I*(	Z.MNJ*8B07LSE. 	Y.=R2*	S7NR(")*M.3B92 WL7T& 62&=.3J-"0*M.4B02 WL7T& 60&=.3R-"06 .JF4202 +ECT/Y64+Y.3"260.JJ4202 +ECT/Y65+Y.3"460.JN420& 7F& .9
>+YB03TWH/N^ "160.JN422^ 3O?T. J5"0*M.4V32 [I. 	Y.<KY2 T+ECN.8B1.MRJ*5B07GSO/OR "760.JV423& 7F& 69&<62R 3H;E. F8"06 .JZ420^ 3O?T. V8"0*M.4B72 [I. 	Y6>&=63R 3H;E. &4"0*M.4B82 ?G+TCO.8B9.MRJ*9B0+ICF/Y29+YB43TWH/N& "360.JJ560B 3R;I+TJ 7YWO2 	M3SWS+DJ!.MVJ*3B
3R;A3D7O3IWZ.MVJ*4B07LSE. 	Y2=;R/DB(")*M.5B52 WL7T^ .=B1.0B0.*	Y.MVJ*6B03P	R+NCT2"T7EN 7HSO2 	F3RSE6 KF+OCM3TWH6 WG3NJ 7OSA2 ?T2 T7EN 3U7B3A	R+NKE.MVJ*7B03P	R+NCT2"GW7S^ 3IT+IKN2;KA7S^(*-	S**>2.1B0*0J;7YKA+D;S*.:.*.:.""*M.5B82 [I2 KA7S^(*-	S.>J=.0B02 ?G+T
O.1B2.MVJ*9B03P	R+NCT2"?Y3UF +RCE3S;U3K6 3E;I6 KF3I;E+DJ!.MVJ*9B57GSO/OF .9B0.MZJ*1B03P	RN7T.JF662B 3R;IT*M.6N16 KP7ISN* *"**********B*7YWO2 GM+DCE7AZ /U?L3NZ?3RKA+LCE7SKT3IWK*!* ****************""*M.6B2. 7A/AF+.MZJ*3B0+ICF/A6>22^ 3O?T. B7"0*M.6B42 ?G+TCO
1B2.MZJ*5B03P	RN7T.JV661B 3R;IT*M.6J56 KP7ISN* *"**********B*7YWO2 GD3M
A+ECD3TWH6 WG3NJ 7OSA*!* ******************J*.MZJ*6B03BJ="+61.J^620& 3FJ .>N=2 ?G+TCO.7B0.MZJ*8B0+ICF3AJ+.>N=2 T+ECN.7B0.MZJ*9B07GSO/OF "260.JB760B 3R;I+TJ 3IF 7MN 3U/N*!:.*.:.2.^.3OSO6 	B3EN 3RWU7L^ 3O3R+D:.*.".7GWL+B:.7GWL+B:.")6".JB725^ 3O?T. "1"060.JF
60B 3R;I+TJ * B * B * * **********B** B * ***+B * B "!6".JJ760B 3R;I+TJ * B * B * B * ************B *****+.***B "!6".JN760B 3R;I+TJ * B * B * B * B * B * B * B * B 2 H+HB "!6".JR760B 3R;I+TJ * B * B * B * B * B * B * B * B 6 WU+UB *!. *+.+*+J).M^J*5B03P	R
NCT*"B * B * B * B * B * B * B * B 6 Z 7V[V.=6=3O>=*=KO.M^J*6B03P	R+NCT*"B * B * B * B * B * B * B * B * B +L6-*-6-*-6-*-KI.M^J*7B03P	R+NCT*"B * B * B * B * B * B * B *->-+DCR3I	I3I	I3I	I* B 2/SD+V6-""*M.7B86 KP7ISN* B"* B * B * B * B * B * B * " .=6=.=6=
=6=.=6=.=6=.=6=.=6=*=&=""*M.7B96 KP7ISN* B"* B * B *-6-2-R/7DKD* B 2 "/3HH2 > 2 > 2 > * B +OB +OB 3HH+HCV* > 3PSD+D7V"-6".JB820^ 3O?T. N4"5*M.8B13P	R+NKT* B * B * B * B 3EWE3EWE3EWE7E[E*.:.*.:.*.:.*.:.*.:.*.:.2.V/3EWE3EWE3EWE3EWE3EWE"/6".JJ860KP7ISN*"B * 
 * B * B 2 WE3EWE3EWE3EWE3EWE3EWE3EWE3EWE3EWE3EWE3EWE+ECE* CO2 WE3EWE3EWE"/6".JN860KP7ISN*"B * B * B** B 2 V 3EWE3EWE3EWE3EWE3EWE3EWE3EWE3EWE3EWE3EWE3EWE3EWE3EWE3EWE+E?E""*M.8B42 ?G+TCO.6B1.M"J65B03R;I7TZ"3EWE3EWE3EWE3EWE3EWE3EWE3EWE7E[E*.:.*.:.*.:.*.:.*.
.*.:.2.V/3EWE3EWE3EWE3EWE3EWE+EJ/.M"J66B03R;I+TB"3VWE3EWE3EWE3EWE* B * B * B 2 WE3EWE3EWE3EWE3EWE3EWE3EWE3EWE3EWE2 > 2 V 3EWE3EWE"/6".J^860KP7ISN*"B 3VWE3EWE+ECE* B * B * B** B 2 V 3EWE3EWE3EWE3EWE3EWE3EWE3EWE3EWE3EWE3EWE3EWE+EJ/.M"J*8B07GSO/OZ "560.J&860
P7ISN2"WV3EWE3EWE3EWE3EWE3EWE3EWE3EWE+E;V*.:.*.:.*.:.*.:.*.:.*.:.2/WE3EWE3EWE3EWE3EWE3EWE"/6".JB960KP7ISN6"Z 3EWE3EWE3EWE3EWE3EWE3EWE* B * B * B * B * B * B * B * B 3EWE+ECE* CO2 WE3EWE+E?E""*M.9B13P	R+NKT6 Z 3EWE3EWE3EWE3EWE3EWE* B * B * B * B * B * B * 
 * B 2 V 3EWE3EWE3EWE3EWE3EWE"/6".JJ920^ 3O?T. F6"0*M.9B33P	R+NKT3VWE3EWE3EWE3EWE3EWE3EWE3EWE3EWE+V:.*.:.*.:.*.:.*.:.*.:.*.>.3EWE3EWE3EWE3EWE3EWE+E?E""*M.9B53P	R+NKT2 WV3EWE3EWE3EWE3EWE3EWE3EWE3EWE3EWE3EWE3EWE3EWE3EWE3EWE3EWE3EWE3EWEE6".JZ960KP7ISN*"B 3VW
3EWE3EWE3EWE3EWE3EWE3EWE3EWE3EWE3EWE3EWE3EWE3EWE3EWE3EWE3EWE* B * B * J*.M&J*7B07GSO/OZ "560.J"1*0B03P	R+NCT*"B * B * B * B * B * B * B * B * B * B * B * B . F/""*M.1B861B 3R;I+TJ * B * B * B * B * B * B * B * B * B * B * B 2/"/+HJ1.MFJ.8J06 KP7ISN* B"* B
* B * B * B * B * B * B * B 6 " *>B 3T"/3HH"16".J"1*0B33P	R+NCT*"B * B * B * B * B * B * B * B * ********************************************J*.MFJ.8R06 KP7ISN.MFJ.9B06 KP7ISN6 ^"3O3U7D& +OCU3L/I7ER 7OR +RCY3AGG+IKN";*M.1B921& 7NWP7T* "$*M.1B922& 7F* *$J=
YOE6"R 3H;E" 65.JB2*0B03ESN&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