File WEKDAY.BA (BASIC source file)

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

*1B03P	R+NKT""*M*2B03R7E2 ?M3D[I3ISE2 ?T2 ?L+OCK7ROE3POE3TKA+LCE+OCN7PCD*-^83SJ 3Y. +ACY+RB.7FOI7HKE* :.2.WDC*M.1B23P	RN7T.JJ1242 +ECT+YB1.=F .9B7.MFJ*3B03P	R+NKT2 ;E7TKE2 ?T7D	A*	CS7DSA3E& 7NR 7HOI2 ?F/R+M2 ?M3NT2,GD+YB,3YGE/R.".MFJ*4B07ICN+UCT+M21+D21Y6
.JV120& 7F& .1F>*0B03TWH/NF "760.JZ1202 +ECT+YB16=& *1. . &1"060.J^120R +ECF3FGN*(	A2=;I3TF(*/&4.MFJ*8B03D7I* T*1&2.MFJ*9B03D[E2 ;F3BF(2)&=+NT/A^/")*M.2B12 ?F3R& .=F 2 ?T. J1.MJJ*2B03RGE7DR *(	I.MJJ*3B07NE3T& .MJJ*4B03P	RN7T.JR261KP7ISN2"T+ICS3P?R3GGR3MR 
E?M7NSS7RSA+ECS/OS2 GB3SOI2 ;A3DF 3L?S2 	G7VOE" 6".JR262KP7ISN2"GF7COT2 KA7OSU* CA7DSA3E> 3F& 3NWT7ROE7TR 7O& +OKU.MJJ*4B43P	RN7T.JR265B 3R;I3TV"3NWT3RR 3AWT2 [O2 	B3RT2 ;I2 T+ICS7FKO+MB:+M3O7D	A2,WY+AKR";*M.2B52 ;I7PSU* 3M7D&,.MJJ*6B03P	RN7T.J^220& 7F& *
B-*7B5*>B03TWH/NJ "860.J^2252 +ECT/Y6 * /Y.1B9"0*M.2B82 WL3T& .16 2 ;I+T"(/YF-.5B0.)F/*0&0.MJJ*9B0+ICF/YF-.5J8*<B03TWH/NF .3B0.MNJ*0B07LSE* CA2=& .1V*2+&(.1N+.)R/.MNJ2120+ECT+IB22=& +NT3AZ-+NB+A*)"76).JJ3*0B 7LSE. KY2=& +NT/YF/*0&0.MNJ*3B07LSE. OY* B=7ISN
(7Y+Y*2.1B0")*M.3B42 WL3TF * B=+Y>364&+23R+*+T+M.)I62.JV3202 +ECT/B6 2 ;I3TF(2-;F3BF(.)^*.)F+.MNJ*6B0+ICF/MJ>2 T+ECN.4B7.MNJ*7B02 [I. OY.=B 2 T+ECN.4B4.MNJ*8B07LSE. GT* B=7ISN*(7Y3FGN*(	Y**&4.MNJ*9B0+ICF/T21*>B 60R 3H;E. ^4"0*M.4B02 [I. 3B*>B03TWH/NR "260
JF4202 +ECT/B6 " 66.JJ4202 +ECT/B6 * 7B"1*M.4B32 ?G+TCO.4B7.MRJ*4B07LSE* CA2=& .1F-.MRJ*5B07LSE. GT* B=7ISN*(7A3FGN*(	A**&4.MRJ*6B0+ICF+TB1.=B 2 T+ECN.4B0.MRJ*7B0+ICF/B2 .>B 2 T+ECN.4B9.MRJ*8B07LSE* CB.=^ .MRJ*9B0+ICF.(GY.*J1.+GM.)N*21R+*1"</YF*226+.)N*21
+2 T+ECN.5B5.MVJ*0B0+ICF.(GY.*J1.+GM.)N*21R+*1"=/YF*226+.)N*21R+2 T+ECN.5B3.MVJ*1B03P	R+NCT+MJ;./."+DJ;./."+YJ;2 GW3SF . .".MVJ*2B07GSO/OV "760.JN560B 3R;I3T6 *;>"2"R;*;>"6"&;*;B"+ICS+AJ ";*M.5B42 ?G+TCO.5B7.MVJ*5B03P	R+NCT+MJ;./."+DJ;./."+YJ;2 	W+LCL+BCE
AJ ";*M.5B72 [I. 3B*>B13TWH/NV "960.J"560B 3R;I+TJ 3S;U7D	A""*M.5B92 [I. 3B*>B23TWH/NZ "160.JB660B 3R;I+TJ 3M;O7D	A""*M.6B12 [I. 3B*>B33TWH/NN6"0*M.6B26 KP7ISN6 R"7UOE7D	A""*M.6B32 [I. 3B*>B43TWH/NZ "560.JR660B 3R;I+TJ 3WSE7NOE7D	A""*M.6B52 [I. 3B*>B53TWH
NZ "760.JZ660B 3R;I+TJ 7TWH3RSS+AKY.MZJ*7B0+ICF/B:<66R 3H;E. &6"0*M.6B82 ?G+TCO.1V2"0*M.6B92 [I. 3B*>B73TWH/N^ "160.JB760B 3R;I+TJ 7SSA3USR+AKY.M^J*1B0+ICF.(GY.*J1.+GM.)N*21R+*1"=/YF*226+.)N*21R+2 T+ECN.1J1"0*M.7B22 WL3T& 65&=61&-.M^J*3B03P	RN7T.JR7202 +E
T/I66+M61M*M.7B52 WL3T& 27R=21R-.M^J*6B0+ICF/I:7*=B03TWH/N^ "960.J^7202 +ECT/I66+I66"1*M.7B82 WL3T& 27&=.7N+"0*M.7B92 [I. [I.>B=2 T+ECN.8B2.M"J*0B07LSE. WI.=WI"-61.JF8202 +ECT/I66+I.6"162.JJ820& 3F& .5B<2 T+ECN.1F3"0*M.8B32 [I. 
I.<B>2 T+ECN.8B5.M"J*3B5+ICF/I26*>B03TWH/N" "560.JR860B 3R;I+TJ ****2*GH7P	P2 	B3RT7D	A******J*.M"J*5B03P	R+NCT*"J *,B"*"J,3YGE+RKS2,6"7OSN+HKS2,R"7AOY""*M.8B66 KP7ISN6 &"7OKU2 
A+EB * B * B * B * B 2"&,25&,26&,"7*M.8B72 WL3TF *8B=.(WI.*Z3*5.).([I.*B32)&+27&++NT+I>6"26).J"8202 +ECT/K65I65.J&8202 +ECT/K66I66.JB9202 +ECT/K67I67.JJ9202 +ECT7E&=.+V6.M&J*4B07LSE. 7F..V3.M&J*5B03P	R+NCT2"?Y3U" 3AWV2 3S7ESP* 2".M&J*6B07GOO+UCB.1^3"0*M.9
72 WL3TZ .=F."7*M.9B86 KP7ISN6 &"+OCU7H[A3EV 3AWT+NJ ",*M.9B92 ?G3SKU. N1"760.JB1*0B07LSE. 7F..N2.MFJ.0B12 [I. WK* B>63R 3H;E. B1"460.JB1*2B03P	R+NKT7YWO2 GH+VCE3PGL3YSE* 2".MFJ.0B32 ?G+TCO.1"0"0*M.1R020& 3F. .5: * B93TWH/NF .0B7.MFJ.0B56 KP7ISN6 &"+OCU7H
A7EB 7L	A+E?D7SWT3DWI+D2".MFJ.0B62 ?G+TCO.1"0"0*M.1^060B 3R;I+TJ 7YWO2 GH+VCE7WKO3KSE6/SS3U	D+EKD",*M.1"020^ 7OWS/BF .3B7.MFJ.0B96 KP7ISN6 &"+OCU7H[A7EJ 3EGL3XSE* 2"+K25+K26K67.JF1*0B03P	RN7T.JF1*1B03P	R+NCT*"J *,*"2*?Y3U6 +ACY7RSE3IWR2 ;I2"V;*;*""*6".JF1
2B03P	RN7T.JF1*3B03P	R+NKT2 GC7LWC7LSA+ECD+BCY3TWH2 WB+SCT3M;I3I?C7MWP7TKE2 ?T7D	A* B-3TWH6 KG7ESA2 SP/P"-""*M.1R120Z +OCR/QF=2 ?T" 62.JF1*5B03P	RN7T.JF1*6B07NE7TF .MFJ.1B76 KP7ISN.MFJ.2B42 ?G+TCO.2B4.MFJ.2B52 [I. 7D*1B33TWH/NF .2B8.MFJ.2B66 KP7ISN2 Z"3RS
+ACY""*M.1^220^ 3O?T. F7"0*M.1"260B 3R;I+TJ 3F	R7D	A2 T7ER 7HKI3TWE3NCT*-6-7B
E3AWR"!6".JJ1*9B07GSO/O^ "160.JN1*0B03P	R+NCT2"?N7TB 7RCE3AWR7DR 3O^ 3IWV2 GD3Y> 7F^ 3E/E6 KP7IKO2 ?T2 SM7LCX3X	I* J-.MFJ.3V06 KP7ISN* B"* B 3TWH6 WC3RWR+NCT3C3A3ESN+ACR3DSI2 ?N3TV 7XOI3TJ 3E?F+RCE3TGH7T& 7EKA".6".JN1*1B07GSO/OF .1B4.MFJ.3B32 GD+TCA*0B,*3
,*3B,*6B,*1B,*4B,*6B,*2B,*5B,*0B,*3B,"5*M.1^3202 +ECT/K612 ;I3TZ(.*A")*M.1"3202 +ECT+IB52=& +NT+K>1.3V6")*M.1&3202 +ECT+KB12=. *1"-+I*5.3V6")*M.1B4202 +ECT+IB62=& +NT+K>1*3&0.MFJ.4B12 WL3T& .76 . GK2-&(.6N*"06).JR1*2B07LSE. WK* B=+K65I65.JR1*3B07LSE. [K* 
=+K66I66.JR1*4B07LSE. 
K* B=+K67I67.JR1*5B0+ICF+KB7*>B=60R 3H;E. R1"860.JR1*6B07LSE. 
K* B=+K.7"360.JR1*7B07LSE. [K* B=+K66"1*M.1"420& 3F. .6: * B03TWH/NF .5B1.MFJ.4B92 WL3T. .66 . [K.+J1.MFJ.5B02 WL3T. .56 . WK"-61.JV1*1B03P	R+NCT+I25+I26I67.JV1*2B07RSE3U;R.MFJ.5B32 [I. [K* B=*1B23TWH/NF .5B5.MFJ.5B42 ?G+TCO.1&0"0*M.1V5202 +ECT+KB52=. .5F
.MFJ.5B62 WL3T. .6B=.MFJ.5B72 ?G+TCO.1&0"0*M.1"520V 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