File MATHDI.BA (BASIC source file)

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

*1B02 WR+M* **B*3C;O7VKE3TSE2 ?T6 OR+T?S3EJ 3YR 3A	V3DF +H3L2 	D7GSIA7L.JB22 WR3M6-3AT3DOI+E****" 7BOA+ICC3P?R3GGR3MJ 3E	G+NCS+ACT3L;I/EF *0&02 GW7SB 3R
O3R7A3MSE.MNJ60J +E7M+BCY3J7I2 WG3R	R+S3H2 ?F7USR3H^ 3RSA7ER 3EOA7HKE6 SA2 T3EJ 3E;R3IWC* ;A2 GRY*M*4B03R7E2-OS3H?O+LB,3H;A3OWV+RB,7N
E2 GH7MOP7HKI+EB.2 GL+SCT3CGH3NWG.:N ./F2./J7".*M*5B03R7E.MZJ60J +E7M3P?R3GGR7MB 3E[R3O7R7SB 7ISC3OGR3LR 3R3I3L> 3NF 3D	D3T?I3NZ 7ASC7SV 3S;IG*M*7B03R7E6-KP7ISN+ECD3DOI+EB,+NCO3RGE3D;I3G& 3N?V3LWV+DB.2 ?G+OCD7FKO2 WB3G;I3N;IG*M*8B03R7E2-SA7DSI3I;O6,N 3ION
EF 7N
S+ECR3C;A2 WB2 WD3R	R3VSE6 KF+OCM7CWO3N	T+NCG3S?PT7S.JB92 WR3MR-3IWC6 OA2 WW+LCL+ACS+BCY3M7E3O	R3Z;I3G6 3AT2 GF7COT6 KO6 
A3AWR7NOES*M.1B02 WR3M>-3F: 3UKM+ECR3C;O7CCE+T;S.MFJ*1B03R7E"-*M.1B26 KP7ISN2"T+ICS3P?R3GGR3M^ 3EWN7RSA+ECS3SOU7COE7S[I7EB 7ISC3UWR3S> 7FR +WCO3DOI+EJ..MFJ*3B03P	R+NKT3WWH7NR +WCO3DOI3EF +NCD+ACN7EWQ+ACL3S
I3NZ 3O3L3OWW3DJ 3YF 6 WQ7ESS3I;O""*M.1B46 KP7ISN2"GM+RCK7H[A3EJ 3E;E6 KP7ISN+E3D6 	T+PCE7YWO3RF 7N
S+ECR3ASN2 T7EJ 7EWT+RCN7K	E".6".JV160B 3R;I7TR"3ON 3OON3LSU7ER +HCE7LOE3S;O6,R 3YWP6 SC+R?L3CF 7S& 7OKU2 ;A3SWW+RJ..MFJ*6B03P	RN7T.J^160B 3R;IT*M.1B82 GR3N?D7M+IE*M.1B92 WL3T: *=/N"1*M.2B02 WL3TR 2=;I7TJ(+ND*0*).6F+")*M.2B12 WL3TR 21&=+NT3RSN*(&0**.6"16)
JJ260R *=/DD61.JN220& 7FR *>B23TWH/NJ "860.JR220^ 7OWS/BF .4B13\?G3SKU. V163207GOO+UCB.1F460C\3R;IT*M.2B52 ?G3SKU. R165207GOO+UCB.1F520
\7OWS/BF .4B57\KP7ISN.MJJ*6B07GOO+UCB.1F420
\7OWS/BF .5B33\?G3SKU. R161203P	RN7T.J^220^ 3O?T. J1"560.J"220& 7FR *>B33TWH/NN "360.J&220^ 7OWS/BF .4B13\?G3SKU. V163207GOO+UCB.1N460C\3R;IT*M.3B02 ?G3SKU. R165207GOO+UCB.1F520
\7OWS/BF .4B17\KP7ISN.MNJ*1B07GOO+UCB.1F420
\7OWS/BF .5B33\?G3SKU. R167203P	RN7T.JJ320^ 3O?T. J1"560.JN320& 7FR .<J12 T+ECN.3B8.MNJ*4B07GOO+UCB.1&420
\7OWS/BF .5B33\?G3SKU. R169203P	RN7T.JV320^ 7OWS/BF .4B93\?G3SKU. V161207GOO+UCB.1&460C\3R;IT*M.3B62 ?G3SKU. R169207GOO+UCB.1N520
\7OWS/BF .4B97\KP7ISN.MNJ*7B07GSO/OF .2B5.MNJ*8B0+ICF/TF<61R 3H;E. N4"0*M.3B92 ?G3SKU. R169207GOO+UCB.1N520
\7OWS/BF .4B97\KP7ISN.MRJ*0B07GOO+UCB.1V420
\7OWS/BF .5B13\?G3SKU. R169203P	RN7T.JF420^ 7OWS/BF .4B93\?G3SKU. V163207GOO+UCB.1&460C\3R;IT*M.4B22 ?G+TCO.1V2"0*M.4B32 [I. ;T64R 3H;E. N5"0*M.4B42 [I. 7D+DB13TWH/NR "960.JV420^ 7OWS/BR161207GOO+UCB.1N520
\7OWS/BF .4B37\KP7ISN.MRJ*6B07GOO+UCB.1V420
\7OWS/BF .5B13\?G3SKU. R165203P	RN7T.J^420^ 7OWS/BF .4B13\?G3SKU. V163207GOO+UCB.1^460C\3R;IT*M.4B82 ?G+TCO.1V2"0*M.4B92 ?G3SKU. R163207GOO+UCB.1N520
\7OWS/BF .4B37\KP7ISN.MVJ*0B07GOO+UCB.1F420
\7OWS/BF .5B13\?G3SKU. R161203P	RN7T.JF520^ 7OWS/BF .4B73\?G3SKU. V163207GOO+UCB.1^460C\3R;IT*M.5B22 ?G+TCO.1V2"0*M.5B32 [I. ;T65R 3H;E. N6"0*M.5B42 [I2 KA3SR(.-GD.)F=2 T+ECN.5B9.MVJ*5B07GOO+UCB.1F420
\7OWS/BF .5B33\?G3SKU. R169203P	RN7T.JZ520^ 7OWS/BF .4B53\?G3SKU. V161207GOO+UCB.1F460C\3R;IT*M.5B72 ?G3SKU. R161207GOO+UCB.1N520
\7OWS/BF .4B97\KP7ISN.MVJ*8B07GSO/OF .2B5.MVJ*9B07GOO+UCB.1N420
\7OWS/BF .5B33\?G3SKU. R163203P	RN7T.JB620^ 7OWS/BF .4B13\?G3SKU. V161207GOO+UCB.1V460C\3R;IT*M.6B12 ?G3SKU. R167207GOO+UCB.1N520
\7OWS/BF .4B77\KP7ISN.MZJ*2B07GSO/OF .2B5.MZJ*3B0+ICF/TZ>2 T+ECN.7B7.MZJ*4B0+ICF/D:<+DB13TWH/NZ "960.JV620^ 7OWS/BF .4B33\?G3SKU. V163207GOO+UCB.1N460C\3R;IT*M.6B62 ?G3SKU. R165207GOO+UCB.1F520
\7OWS/BF .4B57\KP7ISN.MZJ*7B07GOO+UCB.1^420
\7OWS/BF .5B33\?G3SKU. R167203P	RN7T.J"620^ 3O?T. J1"560.J"625& 3FF +BS3DR-.16)64R 3H;E. N7"0*M.6B92 ?G3SKU. R163207GOO+UCB.1N520
\7OWS/BF .4B37\KP7ISN.M^J*0B07GOO+UCB.1V420
\7OWS/BV161207GOO+UCB.1V460C\3R;IT*M.7B12 ?G3SKU. R167207GOO+UCB.1N520
\7ON +UCB.1^460C\3R;IT*M.7B22 ?G/TGO.2B5.M^J*3B07GOO+UCB.1F420
\7OWS/BF .5B33\?G3SKU. R169203P	RN7T.JR720^ 7OWS/BF .4B53\?G3SKU. V161207GOO+UCB.1V460C\3R;IT*M.7B52 ?G3SKU. R161207GOO+UCB.1N520
\7OWS/BF .4B97\KP7ISN.M^J*6B07GSO/OF .2B5.M^J*7B0+ICF/T^>2 T+ECN.9B2.M^J*8B0+ICF7AOB*(7D+D&1*>B13TWH/N" "360.J&720^ 7OWS/BF .4B33\?G3SKU. V163207GOO+UCB.1&460C\3R;IT*M.8B02 ?G3SKU. R165207GOO+UCB.1F520
\7OWS/BF .4B17\KP7ISN.M"J*1B07GOO+UCB.1^420
\7OWS/BF .5B33\?G3SKU. R169203P	RN7T.JJ820^ 3O?T. J1"560.JN820& 3FF +BS3DR-.1:)63R 3H;E. "8"0*M.8B42 ?G3SKU. R163207GOO+UCB.1N520
\7OWS/BF .4B97\KP7ISN.M"J*5B07GOO+UCB.1F420
\7OWS/BF .5B13\?G3SKU. R165203P	RN7T.JZ820^ 7OWS/BF .4B73\?G3SKU. V163207GOO+UCB.1&460C\3R;IT*M.8B72 ?G+TCO.1V2"0*M.8B82 ?G3SKU. R161207GOO+UCB.1N520
\7OWS/BF .4B97\KP7ISN.M"J*9B07GOO+UCB.1V420
\7OWS/BF .5B13\?G3SKU. R169203P	RN7T.JB920^ 7OWS/BF .4B13\?G3SKU. V163207GOO+UCB.1&460C\3R;IT*M.9B12 ?G+TCO.1V2"0*M.9B22 [I. ;T68R 3H;E. B1"760.JN920& 3FR 2<R>61R 3H;E. "9"0*M.9B42 ?G3SKU. R169207GOO+UCB.1N520
\7OWS/BF .4B97\KP7ISN.M&J*5B07GOO+UCB.1F420
\7OWS/BF .5B13\?G3SKU. R161203P	RN7T.JZ920^ 7OWS/BF .4B93\?G3SKU. V163207GOO+UCB.1&460C\3R;IT*M.9B72 ?G+TCO.1V2"0*M.9B82 [I2 KA3SR(.-GD.)J>2 T+ECN.1N0"0*M.9B92 ?G3SKU. R163207GOO+UCB.1N520
\7OWS/BF .4B97\KP7ISN.MFJ.0B02 ?G3SKU. R165207GOO+UCB.1F520
\7OWS/BF .4B57\KP7ISN.MFJ.0B12 ?G3SKU. R167207GOO+UCB.1N520
\7OWS/BF .4B97\KP7ISN.MFJ.0B22 ?G+TCO.1V2"0*M.1N020^ 7OWS/BF .4B33\?G3SKU. V163207GOO+UCB.1&460C\3R;IT*M.1R020^ 7OWS/BF .4B13\?G3SKU. V161207GOO+UCB.1&460C\3R;IT*M.1V020^ 7OWS/BF .4B73\?G3SKU. V163207GOO+UCB.1&460C\3R;IT*M.1Z020^ 3O?T. J1"560.JB1*7B0+ICF/
&>2 T+ECN.1^1"0*M.1"020& 3FF +BS3DR-.1:)61R 3H;E. F1"360.JB1*9B07GOO+UCB.1&420
\7OWS/BF .5B33\?G3SKU. R169203P	RN7T.JF1*0B07GOO+UCB.1F420
\7OWS/BF .5B13\?G3SKU. R165203P	RN7T.JF1*1B07GOO+UCB.1&420
\7OWS/BF .5B33\?G3SKU. R169203P	RN7T.JF1*2B07GSO/OF .2B5.MFJ.1B32 ?G3SKU. R163207GOO+UCB.1N520
\7OWS/BF .4B97\KP7ISN.MFJ.1B42 ?G3SKU. R165207GOO+UCB.1F520
\7OWS/BF .4B97\KP7ISN.MFJ.1B52 ?G3SKU. R167207GOO+UCB.1N520
\7OWS/BF .4B97\KP7ISN.MFJ.1B62 ?G+TCO.1V2"0*M.1^120& 3FR .=GD2 T+ECN.1J2"0*M.1"120^ 7OWS/BF .4B93\?G3SKU. V163207GOO+UCB.1&460C\3R;IT*M.1&120^ 7OWS/BF .4B13\?G3SKU. V161207GOO+UCB.1&460C\3R;IT*M.1B220^ 7OWS/BF .4B93\?G3SKU. V163207GOO+UCB.1&460C\3R;IT*M.1
220^ 3O?T. J1"560.JJ1*2B07GOO+UCB.1&420
\7OWS/BF .5B33\?G3SKU. R169203P	RN7T.JJ1*3B07GOO+UCB.1V420
\7OWS/BF .5B13\?G3SKU. R165203P	RN7T.JJ1*4B07GOO+UCB.1&420
\7OWS/BF .5B33\?G3SKU. R169203P	RN7T.JJ1*5B03P	R+NCT*"B * B . 6 . .".MFJ.2B62 ;I7PSU. GT.MFJ.2B72 [I. GT*=CT3TWH/NF .3B4.MFJ.2B86 KP7ISN2 :"+OB,7CWO+NCT3TWH6 CS7OOT2 ;A3D^ 3IWV2 ;A3OT+ECR7AON7WKE".6".JJ1*9B03P	R+NCT*"B * B . 6 . .".MFJ.3B02 ;I7PSU. KT.MFJ
3B12 [I. KT*=CT3TWH/NF .3B4.MFJ.3B26 KP7ISN2 :"+OB,3TWH2 ;A3SWW3R& +SJ ";7T.JN1*3B07GSO/OF .3B5.MFJ.3B46 KP7ISN6 J"3IG+TJ!.MFJ.3B56 KP7ISN.MFJ.3B66 KP7ISN6 R"+HCE3DOI7EJ 3O3L2 
A3A;I*.:.*.J..MFJ.3B76 KP7ISN.MFJ.3B82 WL3T: "=60.JN1*9B07GSO/OF "860.JR1*0B03S?TP*M.1F460B 3R;I+TJ +IB * B +I2".MFJ.4B22 WR7TKUN*M.1N460B 3R;I+TJ +IB** B +I2".MFJ.4B42 WR7TKUN*M.1V460B 3R;I+TJ +IB **B +I2".MFJ.4B62 WR7TKUN*M.1^460B 3R;I+TJ +IB * * +I2".M
J.4B82 WR7TKUN*M.1&460B 3R;I+TJ +I* * B*+I2".MFJ.5B02 WR7TKUN*M.1F560B 3R;I+TJ *+2".MFJ.5B22 WR7TKUN*M.1N560B 3R;I+TJ * 2".MFJ.5B42 WR7TKUN*M.1V520V N7DBJBZ

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