File MATHE3.BA (BASIC source file)

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

*1B03P	R+NCT2"WR7A	D2"S\+ICM+A"$*7&0*,SB.(B72)N,.$^(*02)+D"$*7&0*,E.1B06)&,.(V5"06).JB26 KP7ISN6 B"7AOS7WKO+DB:* B . ."3\;I7PSU* SA3\[I* SA2=>"/S"/6"R 3H;E. B4.MNJ60B 3R;I7TC\3R;I+TJ 7I[N3A	L7DB 7AOS7WKO7D2"3P	R+NCT3TKA.(J2*)J;3C3A3LV 7XSI6"O\7TCO.MRJ60* 
=203P	R+NCT2"WR7A	D6"C\3R;I3T	\7NWP3TF 2$
\3O?T. B3"0*M*7B0/LB=3\?F3R& *=B1+TCO6720/B6$3S
E2$F(2$&,*,	I.M^J25& 3FJ .$:<*"J2 T+ECN67277GOO+UCB.7B07\KP7ISN6 *"7WOI3CWH7NWS3MWM*:B 6"*;3\?G+TCO.2B7.M^J27& 3FJ .$:<*"J 2 T+ECN68207GOO+UCB.7B0/\7Z3V3A*(SC2)
\3O?T. ^2"0*M*8B0+ICF/B2$*>."6"R 3H;E. B93\?G3SKU. B760+\*=/Z3V3A*(SC2)
\3O?T. ^2"0*M*9B0+ICF/B2$*>6"6"R 3H;E. B120
\7OWS/B^ 60207Z*=2-GV3LN(6$2)7GSO/OJ "760.JB120& 3FJ .$:<*"J*2 T+ECN.1B13\?G3SKU. B760+\*=+Z3V3A*(SC2)
\3O?T. ^2"0*M.1B12 [I* SB*<J>*/B"3TWH/NN120
\7OWS/B^ 6020+ICF3V3A*(SC.)B=2 T+ECN.7B2.MFJ*2B07Z*=2/GV3LN(6$2)7GSO/OJ "760.JN120& 3FJ .$:<*"K^2 T+ECN.1B43\?G3SKU. B760+\6=;Z3V3A*(SC6)2 7GSO/OJ "760.JR120& 3FJ .$:<*"KW2 T+ECN.1B53\?G3SKU. B760+\6=GS7RZ(+AL+C&$6)C\3R;I+TJ .=."3Z
\3O?T. B4.MFJ*5B0+ICF/B2$6>N"6"R 3H;E. Z120
\7OWS/B^ 60207ZN=+IN3V3A*(SC6)2)3P	R+NCT*"J=6;3Z7GSO/OR "0*M.1B62 [I* SB*<J>+CB"3TWH/NF 67207GOO+UCB.7B0/\7Z7COO2(GV3LN(*$&)7\KP7ISN. 6"6"*;3\?G+TCO"460.J^120& 3FJ .$:<*"KR2 T+ECN.1B93\?G3SKU. B720	\7NWP7T" /\7Z3V3A*(SC*)^61"/6)C\3R;IT*M.1B86 KP7ISN. /X2"
T6 WW3RWZ3LF +UKS2;GV3LN(.$.)2"& +SKT6;3Z7GSO/OR "0*M.1B92 [I* SB*<J>+LB"3TWH/NJ 60207GOO+UCB.7B0/\7Z3L
O2(GV3LN(*$&)**:0.4R362293P	RN7T.J&165B 3R;I+TJ 3D/E3A	D3SC+ECR3L
O3A	R3T7H+UCS7ISS6"*;3\?G+TCO"460.JB220& 3FJ .$:<*"KN2 T+ECN.2B13\?G3SKU. B760+\*=:2.7"162:82(GV3LN(*$>).0R..3J4"96).JB265B 3R;I+TJ 7NSA7UKE3LOI7HKE2 ?L7GKA3IT7MOU6 OI/T."7ZC\3R;I7TC\3R;I3T
\3O?T. B4.MJJ*1B0+ICF/B2$6>R"6"R 3H;E. J220
\7OWS/B^ 60203ZF=+TN3V3A*(SC6)2)3P	R+NCT*"J=6;3Z7GSO/OR "0*M.2B22 [I* SB*<J>+QB"3TWH/NJ 63207FKO. GI*=B1+TCO67203P	R+NCT*"J*2;;\7ESX. GI7\KP7ISN3\?G+TCO"460.JN220& 3FJ .$:<*"KA2 T+ECN.2B43\?G3SKU. B760+\2=KA7SZ(+AL+C&$6)C\3R;I+TJ .=."3Z
\3O?T. B4.MJJ*4B0+ICF/B2$.>6"6"R 3H;E. V260C\3R;I+TJ 3ESN3E
R3E;B/I+S. ."7ZC\3R;I3T
\3O?T. B4.MJJ*5B0+ICF/B2$2>6"6"R 3H;E. ^260C\3R;I+TJ 3SWP3IC3E;R2+> 7DKE* J-2;	\7NWP3TR "$*M.2B62 [I* SD*=."6"R 3H;E. Z225	\3FR .$:<*"J-2 T+ECN.2^67\KP7ISN6 N"3P	E3CWH3R: +RJ.";*M.2J62 ;I7PSU6 3H3Y"(6)&=*(	H6-3Z3P	R+NCT+ZJ;2 WG3SWP3IC7ESR6 KN..."3H
\3O?T. B4.MJJ*6B53P	R+NCT6"CS3EOI7HKE6 KN..."3\;I7PSU6 3H3Y"(6)&=*(	H6+3Z3P	RN7T.JZ266B 3R;I7T* *;B"7GOE3P	E3CWH+RCT+N;R2"";3\?G+TCO"460.JZ267B 3R;I+TJ 3I3L3EGG7LN 7YSN+AKX3\?G+TCO"460.J^220: 7ESX" 7I.J"260B 3R;I+TJ 3I3L3EGG7LN 7TSA3EWM+NKT3\?G+TCO"460.JB
20& 3FF .$:<2"	F+LKE2 T+ECN.3V03\?G+TCO.7B3.MNJ*0B5+ICF/A2$6>J"+MB"3TWH/NN 61203P	R+NCT6"CS3EOI7HKE3N7U7MKE.:."3\;I7PSU* SD.MNJ*0B6+ICF/D2$2>6"+AB"3TWH/NN 60293P	R+NCT6"SS7ASR2,;E/D."3\;I7PSU. GE.,KE3\?F3R& 21V=61R 3OV "2*M.3^06 KP7ISN6 N"3P	E3CWH3R: +RJ.
;GI*;Y+I&13\WN+XCTI61.JB368B 3R;I3T
\3O?T. B4.MNJ*0B97ICN+UCT7E213P	R+NCT6"CS3EOI7HKE6 KN..."+E213YV(612)7GSO/OR "0*M.3B12 [I* SA*<J>3S?T+PB"3TWH/NN 62203P	R+NCT3TKA.(J2*)J;3C3A3LV 7XSI6"O\7TCO.MNJ*2B0+ICF/A2$2>2"7OOE3CWH+NB"3TWH/NN 64203P	R+NCT6"CS3EOI7HKE3LWO3SC3U
N6 KN...".MNJ*3B07ICN+UCT7D2$+ICF/D2$2>N"+AB"3TWH/NN 63257FKO. GI*=B1+TCO.5B0+\Y+I&16=207NE3T& 21
\3O?T. B4.MNJ*3B57DZ=+AL+D&$3\[I. ;D.5B02 T+ECN.3^33\[I. 3D61R 3H;E. N367	\*(	D6=203P	RN7T.JN366B 3R;I+TJ 3SWP3IC+ECR7MSI6 WN3MWM+RJ:.;/D2"^ 3E?L3EOS+HKT/\7D20
\3O?T. B4.MNJ*3B73P	R+NCT6"WZ2 ?H+HCE7B
Z6.* 7UR 3I[E7EN 3P	E3CWH7RWN3MWM/RF .-B5602"7GSO/OR "0*M.3B42 [I* SA*<J>3GWL3IC3U
N6"R 3H;E. Z460C\3R;I+TJ 3GWL3IC3U
N3S	E3NGG+BCE+IKN.MNJ*5B03P	R+NCT2"?F3LWG3NWD3RZ 3O7R.:7Y3XG^*++X3BN+6"C\3R;IT*M.3B66 KP7ISN2 V"3I
N3AWB3R	E3H;E3F3O/G+E* 7X3M;I6," 2-GM+XB,+AB,+BB,C6".J^320& 7NWP7TJ *,3S7TV,",7V.J"320& 7FJ .<J-60R 3H;E. F420	\7FN .>B22 T+ECN.4B23\[I. ;T*1B53TWH/NR "560.J&320Z +OCR/I617RR 7ON /\7E.(GI+^	T2+&(61V*6)Z+.MRJ*0B03P	R+NCT*"CX.=."+I21*"CY.=."3E;\7ESX. GI7\KP
ISN3\?G+TCO"460.JF460B 3R;I+TJ 3X6-3I	N3M7U2 	L7ESG2 ;U7TKE. J-20: 3EWU2 	E3NGG+BKE3\?G+TCO.3B6.MRJ*2B03P	R+NCT*"7X7MA7IWM3M2 3I
E7TV 3EWB+RB *2B07NWE3EV 3I
N3AWB7N2"7GSO/ON "660.JV460B 3R;I+TJ 3HOO3HGZ+HCL3A& +SCT3G?R7EOS+ECR*1B53KWL3IWN+RCE3E;I3GKA7E2"7GSO/ON "660.JZ420& 3FF .$:<6"WK3RWV6"R 3H;E. V5"0*M.4B76 KP7ISN2 ^"3L	E7CWH7NOG3E;I3GKA3EZ 3O
L3ESN3E7R7AOS/E+N7Y"=+^/A3XJ**+KC.MRJ*7B53P	R+NCT*"7X3M;I* 7X7MA* CA3BN ""*M.4B82 ;I7PSU* 3R7SR,*,3UV*M.4B92 ?F3R& 61J=2 ?T6 3S/L61+L.121W\.(GL*)"=7I:1+T.)+I*17UZ+3\WN+XCT7I21/L61"0*M.5B02 ?F3R& 61J=2 ?T6 3S/L61+L.121	\3FV .(GL.)N>60R 3H;E. B620	\3FV .(GL
)6<*3B03TWH/NZ "060.JB525& 3F& .1N>60R 3H;E. B620	\3F& *16<*3B03TWH/NZ 60207NE3T& 213\.1B=.MVJ*1B07FKO. GI.=B32 ?T. N-60N 7TCE. F-3\?F3R& 62J=2 ?T" 7S.JJ5202 212=.1F+3\[I. GI2<&>+NT3E2(*1.).0V.6)R 3H;E. N560C\3R;I7TR +AB*3.5+I&2*;*"""*M.5B32 WN+XCT7I22/L6
20;\7ESX. GI3\?G+TCO"460.JR560B 3R;IT*M.5B52 ?G+TCO"760.JB660B 3R;I+TJ 3FWU3R. 7U[R3ESN3ROU7K* 3U" 3OWH6 KE3GKE7NOI+SCE3OWD3RV 3I
N3AWBN6".JF620^ 3O?T. ^4"0*M.7B02 WR7MN 7UKB7OSU3IWN2 WB3ROE7HWN+NCG7AOU2 WD+RR 6 WF3N	TO7N.JF720N 6$N=+ESG*(SA*,/L21&,*-&1/\7L7IK\7EWTR7N.JJ760B 3R;I+TJ 7D[I3I	S+OCN7DKU+CCH60V 3N?M3E3G3IC2"
\3O?T. B4.M^J*3B03P	R+NCT2"WR+ACD+OCR3W	R+TCE3F3I/E.".M^J*3B57ICN+UCT7D2$+ICF/D2$6>^"7RSI+EB"3TWH/N^ "560.JR720Z 3IWL/VF6:N"/Y+S7DSA+A:3+BKA.M^J*4B27FKO. 7J61R /OV 60203P	R+NOT61&:*(	J3\WN+XCT3JO\7LOO/EF.M^J*4B53P	R+NCT6"CS3EOI7HKE3IN7ASL3E& 3NZ 3IWL2:GD/
OA2.GB2 WG3SC3RWI3B;E2"
\3O?T. B4.M^J*5B03P	R+NCT2"WL3S;E2 ?V3NR 3AGT632"3F3I/EJ6:N"/Y+S7DSA+A:3+BKA.M^J*6B07FKO. GI*=B1+TCO.5B03\;I7PSU.*23Y&(612)+ICF3ESN*B23TWH/N^ "860.J^720: 7ESX. GI7\KP7ISN2 Z"3IWL2 WG7LOE+EKN7\KP7ISN.M^J*8B03C?L+SOE62C\3R;I+TJ 3IN7ASL2 GK+NCN3A[U2 WD7NN 3P
E3CWH+RCN3G3E3EWS7N^ 3ESR+EKN.M^J*9B07GSO/OR "0*M.8B06 KP7ISN2 GT/BF(.0.)2"GC+LCL3E	X7T2"3ESN&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