File BOXING.BA (BASIC source file)

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

61J +ECM6 KP7OKG+ACM3SKU7MSI3TSE6 	B2 WJ3SWS6 	L3NC6,N 7TB.3A3U2,6 N6.*JB23R7E* **2*N 7O[N7ESR+ECD+TCO7RSS3SV/6 	B2 GD3VSI2 A+LB,3D
I3IGTL*M23* 6=20/LB=.MRJ2 GR3N?D7M+IE*M65B 3R;I+TJ 7O	L3M	P3CJ 3O	X+NCG*-B-63J 3O;U+DKS.M^J6 KP7ISN.M"J2 WR7MKA3KKA+LCY3TGR3N3S3AWT7DR 3O> +SB87BOA+ICC+BCY7K	A* ;R2 	F3SWH+R: 2.R.E7C*JB93D7I* SJ.(Z22)2,.$J("66).JB16 KP7ISN2 &"7NWP7T& 7OKU6 CO3P;O7ESN*	CS3
7AE6".JB22 ;I7PSU* SJ.MNJ60B 3R;I+TJ 7ICN+UCT7YWO3R6 +A
N3S: 3AWM""*M*4B07ICN+UCTL6$.JV46 KP7ISN.MVJ60B 3R;I+TJ 3D[I7FKE7ESN6 WP3NC+ECS3AWR* B13F3U7LN 3W;I/GJ 2 ?H+OCK63V 3PWP7RWC/TR 2 GJB6".JB66 KP7ISN6 ^"7HSA6 OI2 ?Y+UCR3M;A3SJ 7ESS""6;.JR62 ;I7PSU" 7B.JB76 KP7ISN2 F"+NCD3WGH3T& 3S" +ICS3V3U7NKE3A	B7LSI/Y.".
"J20& 7NWP3TR .M"J65B 3R;IT*M*9B0/B617ISN*(*43RSN*(&0*+&1.MFJ*0B0/D617ISN*(*43RSN*(&0*+&1.MFJ*1B0+ICF/B61+DB13TWH/N& "0*M.1B26 KP7ISN* SJ*;^"3SF 3DGV3NGT+GCE+IKS.;GB2;F"+NCD3V3U7NKE3A	B7L	T6 OI2 WS3CWRT6".JN120Z +OCR/RF=2 ?T" 63.JR120& 3F* *>B=62R 3H;E. B
"460.JV120& 3F2 .>J=2 T+ECN.1Z0"0*M.1B6. 7X"0*M.1B7. 7Y"0*M.1V76 KP7ISN.MFJ*8B03P	R+NCT2"?R3USN6"J;2;J"3E	G+N;S*.J..MFJ*8B13P	R+NCT""6".J"125Z +OCR/R61* B1+TCO"7*M.1B9. 7I7ISN.(B12*;R/DB(.)F+")*M.2B02 [I. ;I65R 3H;E. B6"0*M.2B16 KP7ISN* SL*;^"7SB 3UON/H."
MJJ*2B07ICN+UCTP*M.2F22 [I. 7P7BR 3H;E. J2"5*M.2J22 ?G2 ?T. N2"0*M.2V2. 7X/XJ+.MJJ*3B0+ICF/PF=2 T+ECN.3B4.MJJ*4B0+ICF/PJ=2 T+ECN.4B5.MJJ*5B0+ICF/PN=2 T+ECN.5B2.MJJ*7B03P	R+NCT/L.$2"* 7AOB6 SA. ."/J.$6"N	2 WH+ACD""6;.J^221& 3FR .1R=2 T+ECN.2B9.MJJ*7B53C&=+
T68J*+ND*0.)"16).J"220& 3FN *<B43TWH/NN "160.J&260" *=/X"3*M.3B02 ?G2 ?T. V9"0*M.3B16 KP7ISN2 &"+TCS3B?L3CWKD6".JN320^ 7OR /O& "560.JR360B 3R;I3T2 *$J;6 
S3I
N3SF +NCD""6;.JR321& 3FR .1R=2 T+ECN.4B1.MNJ*4B5/X637ISN.(B32*;R/DB(.)F+")*M.3B52 [I. OX.<B12 T+ECN.4B1.MNJ*6B03P	R+NCT2"" 3E6 7IOS+ECS""6;.J^325& 7F" *=B13TWH/N& "560.J"360B 3R;IT*M.3B96 KP7ISN.MRJ*0B0+GCO+TCO.3B0.MRJ*1B03P	R+NCT2"WH2 ?C3NWN7COT"!6".JJ42
& 7F" .>V32 T+ECN.9B8.MRJ*2B57X"=.+V1.MRJ*4B0+GCO+TCO.3B0.MRJ*5B03P	R+NCT/L.$2"^ 3IWV7SR +HCE3H?O+K:.*.B ""6;.JV425& 3FR .1J=2 T+ECN.4B8.MRJ*6B0/H617ISN*(*23RSN*(&0*+&1.MRJ*7B0+ICF/H6161R 3H;E. B5"0*M.4V76 KP7ISN2 N"3O;N7ESC+S:.".6".J"460" *=/X"7*M.4B92 ?
2 ?T. B3"0*M.5B06 KP7ISN2 J"+UCT+I
T3SJ 3LOO3KSE* F!*!F!*!F!*!J!.MVJ*1B0+GCO+TCO.3B0.MVJ*2B03P	R+NCT/L.$6"R 3RWI3SF 7NV 3PWP7RWC+TB . .".MVJ*3B0+ICF/D6163R 3H;E. ^5"0*M.5B4. WD2=;I/TF(*0*03RSN*(&0*+&1.MVJ*5B0+ICF/D25*5B13TWH/NV "760.JZ560B 3R;I+TJ 2 ;A3D& 7TN	2 3B3O/C+ECD6(WL7C	K2 3B3O/C*!
).MVJ*6B5+GCO+TCO.3B0.MVJ*7B03P	R+NCT2";A3D" 3EN 3O;N7ESC+SJ!.MVJ*8B07X"="+64.J&520^ 7OR /ON "060.JB620* 27&=+NT64J*+ND*0.)"16).JB621& 3F* .76 +BB13TWH/NZ "065.JB622^ 7OR /OZ "160.JB665& *=/Y"2*M.6B12 [I. 
J*=B13TWH/N^ "260.JJ620& 3F* .7J=2 T+ECN.8B1.MZJ*3B0+ICF+JB7*=B33TWH/N" "660.JR660B 3R;I3T* *$J;2 GJ+BCS3ASN. .".MZJ*4B5+ICF/DR=2 T+ECN.7B0.MZJ*5B0/Z647ISN*(*73RSN*(&0*+&1.MZJ*5B5+ICF/Z:464R 3H;E. &6"0*M.6B66 KP7ISN* B"+I
T3SJ 3LOO3KSE* J!.MZJ*7B0+GCO+TCO.3B0.MZJ*9B03P	R+NCT2"J 3L?O7DN 3P3I+LCS*!F!""*M.7B0. 7Y/YV+.M^J*1B0+GCO+TCO.3B0.M^J*2B03P	R+NCT/J.$6"R 3AWK3SF 6 WF+LCL3S	W+NCG3ASN""6;.JN720& 3FR *=B13TWH/N^ "760.JR760J 26&=+NT*6*03RSN*(&0*+&1.M^J*4B5+ICF+RB6.<B32 T+ECN
7B7.M^J*5B03P	R+NCT2"J +UCT+I
T3SJ 3LOO3KSE* J!.M^J*6B0+GCO+TCO.3B0.M^J*7B03P	R+NCT6"B +OGW*!F!2!" 3E" 7IOT2 	H7MJ 3IG3T& 7NR +HCE3FOA+EJ!.M^J*8B0+ICF/YN>65R 3H;E. B1"160.J&760& *=/Y"165.JB820^ 7OR /ON "060.JF860B 3R;I3T* *$J;2 WG+TCS2"2;*$J;2 ;I2 T3E* +ACW6(WO+CGH")6".JJ860& *=/Y"7*M
8B36 KP7ISN* :"*.:.3ASN2 
A3A;I"!6".JN865& *=/Y"5*M.8B42 [I. ;Y*3B53TWH/NF .0B1.M"J*5B03P	RN7T.JZ860B 3R;I3T2 *$J;6 OI6 SA3TOA3KSE6 	B2 ;A6 CU7PKE7CSU2 >(+HB,+O	H*.:.""*M.8V62 [I. 7D63R 3H;E. &8"0*M.8B7. SQ2=;I/TJ(*0*03RSN*(&0*+&1.M"J*8B0+ICF/Q:4*7B53TWH/N& "260.J&860B 3R;I+TJ 2 ;
+DJ *;SJ*;B"3C;O3NOE+T;S*.J..M&J*0B07Y&="+68.JF920^ 7OR /ON "060.JJ960B 3R;I+TJ 2 3B3O/C3SF +NCD7HSI+SJ *;SJ*;B"7WSI3HF 2 ?H+O;K""*M.9B3. 7X/XV+.M&J*4B0+GCO+TCO.3B0.M&J*5B07NE7TJ "1*M.9F52 [I. ;X7YR 3H;E. V9"5*M.9J56 KP7ISN* SJ*;B"3W;I7SJ 3O;U/D."R*M.9N5.
7J/JF+.M&J*5B4+GCO+TCO.9B6.M&J*5B53P	R+NCT/L.$6"^ 7ION2 ?R3USN6"J;.M&J*5B63L2="+61.JZ920: 7ESX" 7R.JZ921& 3F* *>B=62R 3H;E. B1"460.JZ922& 3F2 .>J=2 T+ECN.1Z0"0*M.9B86 KP7ISN* SJ*;B"+ICS3K?N3CWK3DN 3OSL2 ;A+DJ *;SL*;B"+ICS3TWH2 	W3NWN3RF +NCD3CGH+MCP""6;.J
1*0B0+GCO+TCO.1"0"0*M.1F060B 3R;I3T2 *$J;6 OI2 ;K3O/C+ECD3C3O3DF +NCD2"*;*$J;6 OI2 T7E^ 3I;N+ECR3ASN2 C7ACM. .".MFJ.0B32 ?G2 ?T. B1"060.JB1*4B03P	R+NCT/J.$6"^ 7ION2 :(3IWC2 ?G3I
N*)J *;SJ.MFJ.0B52 ?G2 ?T. B1"060.JB1*6B03P	R+NCT/L.$2"F 7M+A3I
N+LCY3W;I+SB ""*M.1^020^ 7OR /OF .0B0.MFJ.0B86 KP7ISN.MFJ.1B12 ;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