File STAT1.BA (BASIC source file)

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

.1B02 	D7MN .(B16)F,.(B12):,.(B5"06).JF120R +ECF3FGN.(GZ.,KZ6)N=+QR+Z>1.(KZ*-&1")*M.1B22 WD3FZ +NB+Z21+Z22+Z&3.=GZ.-KZ.*KZ./OZ.MFJ*3B07GSO/OJ "160.JR160B 3R;I7TC\3R;I+TC\3P	R+NCT6"CO3T?I3N: /R2 29Z +OCR3H3E+PJ>";*M.1B52 ;I7PSU" 7O.JZ120& 3F> *=B93TWH/N& "
60.J^120& 3F> *=B13TWH/N^ "160.J"120& 3F> *=B23TWH/N^ "860.J&120& 3F> *=B43TWH/N& "060.JB220& 3F> .<B>2 T+ECN.1B4.MJJ*1B03P	R+NCT6"KG7OCU6 KN* 2".MJJ*2B07ICN+UCTN60.JN220& 3F: .0B=2 ?G+TCO.2B1.MJJ*4B0+ICF/N:0*1B07GSO/OJ "160.JV220: 21:="0*M.2J5. CN2=KA3S:
"06).JV225& 3F: .(CN.)B=7GSO/ON "360.JZ260B 3R;I3T&"7NWP/T& 69R 3ON 3LGE3RR 3AGT""6;.J^220& 7NWP3T> .MJJ*8B0+ICF/O2 .>& 69R 3H;E. F3"0*M.2B9* S+N&0"=60.JB320> 6=217GSO/ON "360.JF360B 3R;I+TJ 7ICN+UCT61R 3OF +DCD7DSA/AJ 2 ?T2 WD7LSE+EJ ";*M.3B22 ;I7PSU" 7O
JN320& 3F: .1B<2 ?G+TCO.5B2.MNJ*4B03P	R+NCT2"?N2 [O2 GD+TCA6"2;2 ;I7PSU" 7M.JV320: *=N+N&0.MNJ*6B0+ICF/OJ=2 T+ECN.4B4.MNJ*7B07FKO. 7I/NF+2 ?T* /NM*M.3B82 ;I7PSU" 7X.J&360N .(CN6)N=.(CN6)"+.MRJ*0B03Q:(.06)3Q:(*0.)7X"*.MRJ*1B07NE3T& .MRJ*2B03N:(.06)3N:(*0.)
*M.4B32 ?G+TCO.1B4.MRJ*4B07FKO. 7I7NR 3O: *-/M61N 7TCE. F-.MRJ*5B07ICN+UCTX*M.4B6* S+N&0*=S+N&0"-7X.J^460F .(CN6)F=.(CN6)"-"*7X.J&420: 7ESX" 7I.JB520: .(CN2):=.(CN2)6-.MVJ*1B07GSO/OF "460.JJ560J +ECM7ICN+UCT+ICN3TWH2 ?F+RCM+OCF3N6,2,SS6 KO2 WSM*M.5B46 KP7
SN6 N"+ECM+OCR+SCD7BSU2 ?N3TJ 3OT2 GM3YJ 7E* 3E?R""*M.5B56 KP7ISN2 &"7NWP3T: *,3M3S7E2,SS6"2,7ICN+UCT3N6,*,3SS61.JZ520& 7FN .1B>2 ?G+TCO.5B8.MVJ*7B0/S617SN*+QRN6).J"560N *=+MN*M.5V82 [I. GS2=^03O?T. R5"0*M.5B9. 7Q+S*1+S*1*(7N*1.)7SN*"/7N.JB620& 3F> .<J>3T
H/NR6"0*M.6B1. 7N"-7N.JJ660N 6=N-.MZJ*3B0+Q6=Q*M.6B4* N+N&0*=N+N&0"+7N.JV660N .(CN6)N=.(CN6)N+.MZJ*6B03Q:(.06)3Q:(*0.)Q*M.6B72 ?G+TCO.1B4.M^J*1B03P	R+NCT6"KG7OCU*"J,3N7U7BKE*"J,3MGE+N2"2"WS+M2"2"SS""*M.7B22 ?F3R: .0F=2 ?T. B1.M^J*3B0+ICF3N:(.02)23^ 3O?T. 
7"0*M.7B4. 7S3FGN2(;F7BF(.(CN6)N,.(CN2):,.(CN*)2)3N:(*0&)/\KS*=?S7SKQ*(N+N&0")*M.7B56 KP7ISN. CN*,N+N&0*,S+N&0*/N+N&0.,KS",7S.JZ720: 7ESX. CN.M^J*7B07GSO/OF "460.J"760B 3R;I+TJ 7TR 7ESS2 SS6 GE3U3A6 R(3YWP* &1""*M.7B96 KP7ISN2 ^"7RWO+PCS+NCR""6,.JB820& 7N
P3T& ",7J.JF820: 21:=*(	I/\KN*=NJ6).JJ820& 3F: .12 * B37GSO/O" 6320+ICF+NB2.<N 2 ?G+TCO.8B33\?G+TCO.8B4.M"J*3B03P	R+NCT2"GB3DR 3AGT6 2"7GSO/OF "460.JR860N 21Z=+NB3Q&(6)N,*(	I.,GN")*M.8B5. KS2=;F7BF(*(	J*,S+J2)+N&2.M"J*6B0+S"=+S.1+S&22/:(21:+.2J-")*M.8B7. 
T*(S+I>)+N613S*(2):/*2>)7SKQ*(+S*(>1+N.121:/*2&).M"J*8B03P	R+NCT."7T* 2"3T:,21:+.2J-*;B"3D
E3RWE3S> 3FZ 3RWE3D7O""*M.8B92 ?G+TCO.1B4.M&J*0B03P	R+NCT6 Z"3A	R3A3B+EJ 6,N"+UKM6,N"7UOM+Q2"6"WS3M> 7FN 3QGU7ROE""*M.9B12 ?F3R: .0F=2 ?T. B1.M&J*2B0+ICF3N:(.06)20^ 3O?T. R9"0*M.9B36 KP7ISN. CN*,S+N&0*,Q+N&02,;F7BF(.(CN6)N,.(CN2):,.(CN")6).JR920: 7ESX. CN
M&J*5B07GSO/OF "460.JZ960B 3R;I+TJ 7OSP3I;O3SF +RKE.M&J*7B03P	R+NKT. 602 WN3WR 3AGT2 N<+ACN+BCE3ASD+ECD+OCR3D3E3EWT+DJ>.M&J*8B03P	R+NKT. 612 WM7AON6 SEC6".J&960B 3R;I+TJ *2B=7TR-7ESS""*M.1B060B 3R;I+TJ *4B=3S7U+SJ .MFJ.0B12 ?G+TCO.1B4.MFJ.0B22 ;ED*M"ZB"B"
"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B

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