File MATRIX.BA (BASIC source file)

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

.1B02 	D3M. *(25*2&0*,A.1B2.,J22).,.$&(.,R22)",.$^(*22)+F"$*220*12)+D"$*82)+Z"$"16).JN120Z 3IWL.*36"SD/A*17MOS+H;I+BKA.MFJ*3B57ICN+UOT23R:6$",.MFJ*4B07ICN+UOT23Z:*,3A7X",.MFJ*5B07FKO. 7I61R 3OZ .MFJ*6B07ICN+UOT23Z:2$&(")*M.1B72 WN3X	T3\;I7PSU.*3X*M.1B82 ?
3R& *=B0+TCO25[\+OCR/JF=2 ?T" 7F.JB220& 7NWP/TN*:K3I*,2)	\3FV +NCD*B33TWH/NJ "460.JF220: 7ESX6 3J7ICN+UOT63":6,3X7NE3T& .MJJ*4B03C?L+SOE"3*M.2N4* SZ6=SS+R"$A6).JR225Z 3IWL.*16"SD/A*17KKA3T;E*.Z"+ZZ$Z6$.JV220Z +OCR/IF=2 ?T. J13\;I7PSU.*17H2$7NE3T& .MJJ*8B0
FKO. 7I60R /O& .MJJ*9B07ICN+UOT21.:2$&(2)	\3FV +NOD61R 3H;E. J3"0*M.3B02 WN+XCTI*M.3B12 ?G+TCO.3B3.MNJ*2B0/S61"1*M.3V2. 7Z/ZF-.MNJ*3B07Z*=*+/I"1*M.3B42 ?F3R* *=B0+TCO7IN-"1*M.3B52 [I. 7A3V3A2(WS+G"$+K"$+J2).1F,*)B)3TWH/NN "760.JZ360B 3R;I7TN"7CWH3EWL3R: +
B.6"N;+ESG*(SK*(	J*,21.4.)6"^ 3ISR2 
I7NKO7IKE+TJ!.MNJ*6B57Z*="-61.J^320: 2=GV7LN(+ESG*(SK*(	J*,22*4&).MNJ*8B03A:(*,&0"=7N.J&320Z +OCR/J6161R 3OZ +\A3N*,.16)20;\7ESX. GJ.MRJ*0B07FKO. 7L61R 3OZ .MRJ*1B0/H6$3S
E2$.(2$*(2)2,*+24/LR+")*M.4B22 [I* SH*<J>* B"3TWH/NR "460.JN420F *(3N/L6)602 7GSO/OR "960.JR420Z +OCR/MB=2 ?T" 69.JV420& 3FF +SC+H&$.<F>*+*37MR 3H;E. ^4"0*M.4B6* A3N2,*)6=/MF-3\?G+TCO.4B9.MRJ*7B07NE3T6 .MRJ*8B03A:(*,	L2=GV3L"("$6).J&420: 7ESX" 7L.JB520: 7
SX" 7J.JF520& 7FN .1:<61R 3H;E. "2"0*M.5B22 3C3OWS"61.JN520Z +OCR/IF=2 ?T. J120	\3FF *(3I.06)60R 3H;E. Z5207\"=7I.JZ520: 7ESX" 7I.J^520^ 7OWS/B^ "660.J^525Z 3IWL/VJ6:N"/Y+S7MOS7MSA*.Z"+ZZ$Z6$.J"560B 3R;I/TJ*:3Z3MZ,.MVJ*9B07FKO. 7I61R 3O6 3\?F3R* *=B0+TCO/
F+7\KP7ISN.*23A&(*,	J2;;\7ESX" 7J.JN660B 3R;I/TJ*:A3IZ,*+&23\WN+XCT3IO\7LOO/EJ.MZJ*6B03P	R7N3T3P	R7N3T3P	RN7T.JZ665B 3R;I+TJ 3UKE7EOR3IC+TB 2"R;"$*M.6B76 KP7ISN2"OS3HWU7LKE3ZA/L."Z*M.6B86 KP7ISN6"KG7OOE3SWT2 OS3HWU7LKE3N7U7MKE2"6;.MZJ*8B53P	R+NCT.MZJ*9B03
	R+NKT3SC+N;R*"J,3S3O7LSS+D2"6"OI7TSSD6".JB720Z +OCR/IF=2 ?T" 7M.JF720& 3FF *(3I.06)60R 3H;E. N7"0*M.7B26 KP7ISN* A/IB,2)F+.*B1*0203A&(*,/F*12)3A&(*,/F"26).JN720: 7ESX" 7I.JN725^ 7OWS/BJ .0B0.M^J*4B03CGH+ICN6"	S3S6:3FWR+Q;U+BKA.M^J*5B03S?TP*M.7B62 WR7MN 3
3L* B&7ISS.M^J*7B07FKO. 7I61R 3O6 .M^J*8B0/H6220\.3B=/\KS"=60.J&720Z +OCR/JF=2 ?T" 7F.JB820" 21F=*(3IJ6).JF820" 25F=+BS+H&1.M"J*2B0/H643S;G.(WH")*M.8B32 ?G3SKU. V9"0*M.8B42 [I2 KA3SF(*(3I+J&)*>B43TWH/N" "860.JV820" 22"=22"+24.**(21J6).JZ820" 23"=23"+24.**
22J6).J^820^ 3O?T. F9"0*M.8B8. KH.=KH.+SH**K24*,")*M.8B9. OH.=OH.+SH**K25*,")*M.9B0* A3I*,2)"="1*M.9B12 WN+XCTJ*M.9B2* A3IZ,*+&1.=KH+\A3IZ,*+&2.=OH.M&J*3B07NE3T& .M&J*4B07RSE3U;R.M&J*5B03R7E2 ?K7NKT3O3LE*M.9B62 [I. WH2<.=*(20+JB)3TWH/NF .0B6.M&J*7B0+ICF/H
564R 3H;E. B1"460.J"920& 7FN .2B>2 T+ECN.1B0"0*M.9B96 KP7ISN6 C\3R;I+TJ 3SC3U3E+ECR2"&;*++A.1B060R;+AB*3&0*;SD.MFJ.0B06 KP7ISN6"WK+RCS2"Z;2$*(6)N;+TSR.(WH*)J;6 E7ISS7IKE3T: 3ICT6".JB1*1B0/H6420\.1B=.MFJ.0B2. KS"=61.JB1*3B07GSO/OF .0B6.MFJ.0B42 [I. WH.<R=*
K23*,6)R 3H;E. B1"660.JB1*5B07GSO/O& "860.JB1*6B07RSE3U;R.MJJ.0B02 WR3M. 7UOR3FWR3Q;E3Z;E3UKE7EOR3ICT*M.2F060* .1B=/\KZ6=203P	R7N3T3P	RN7T.JB2*1B23P	R+NCT6"WK3RKS3EWL3G;U7GWS3EWB3R	S7CSH. ."7D2$3P	RN7T.JB2*1B33P	R+NCT6"WK+RKS6,N"7CWH3EWL+R;Z""*M.2F025Z 3O
R.1F=3T[O3\?F/ROI6=R07ON37TCE23[\3O	R.2F=*+*4+I>323?T3K&(23&,*1.)24&*.3N/.MJJ.0B42 ?F/RCI6=R17O3M3IGF+BS3A&(20&,*1&)2<&>22T/EKN.0B8/\GZ.=GZ6+213IGF.(CI.,GI.)B>3TWH/NB2"860.JB2*7B0/Z62+Z.2"1*M.2"020: 7ESX. CI.MJJ.0B96 KP7ISN* SF.(GI6)N&+TSR.(KI6)*,*1J,.*."
62.JF2*0B5/Z6160+\.2B=3\WN+XCT7I227NE3T& 23;\7ESX. GI3\WR7TKUN*M.3B020V 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