File WEKDAY.BA (BASIC source file)

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

"16".JF52 ;ED*MBZ61J +ECM3M;O3O?P+LCY3G7A3EJ 3YR 3A	V3DJ 3A/R+E3R2 ?S3UT7EOA7TKE7NN 7TSA3EN 3O3L3EWG2,R 3UGR+N3T2 /O.MJJ2 WR7MN 3L
I+HCT3P?R3GGR3M6 3O	D3FOI3A	T7OON6 	B2 GD3VSI2 A+LB,3D
I3IGTL*M63J 3EGM3RGK7B	L6 KT7AON7LSA+ECD+TCO/OS2 GB3SOI6 	B2 GK7YJ 2.Z 3IS+ECR*.:.3DOE.MRJ* M.16).1B5207\*(&2.=V16020/IF(.)B=+\I.26)20S\+ICM+A"$*226*2&1*,SB.(Z2.,F22)",.(B4")*M25	D+MSO.(&12)^,.$R(.0J,*12)/LR(*02)/PR(*02)/RR(*02)+C"$*120*3&9*,SZ.(B1.,"32)6
.$J(.0Z,"06)*JB6/P6$2"?H3W6 7A	N2 ?H3UWS3SF +TR 2"?\*$J=2 GE+CCH+DCO7YWO2 GW+NCT+OKN.M^J2 WD3FZ +NR3H&,*,3Z/R6)*(H7I*(*)*)3R&(*(	Z.)F*"06)*JB87FKO. 7I61R /OR 203\*(	I6=203H&(.)B=3\WN+XCTI*M29Z +OCR/IF=2 ?T6 283U&(.)B=3\WN+XCTI*M*1B03F3I+EN *1J:3RKK206:7OC
+L;Y+BJ1.MFJ21Z +OCR/IF=2 ?T. B43\;I7PSU. F*:SG*(	I3\WN+XCTI*M*1B27FKO. 7I61R /OJ 20	\7NWP+TN 216:2$&(2);\7ESX" 7I.JN12 ?F3R& *=B1+TCO61207ICN+UCT.*1+C"$7I2)7NE3T& .MFJ24Z +OCR/IF=2 ?T. B13\;I7PSU. F*:SZ*(	I3\WN+XCTI*M*1B53P	R+NCT+M"$612)3P	R7N3T3P	R7N3T3
	R+NKT6*J*3UWL+S**6"C\3R;I3T6 .$J(")*M*1B63P	R+NCT+M"$632)3P	R+NCT+M"$642)3P	R+NCT+M"$652)3C?L+SCE"61.J^12 ?F3R& *=B1+TCO64203RGE7DB *(	I*,R7I2)7NE3T& .MFJ28R 3AGT. B6*,22.0B,.,B6*,24.0B,.,B2.0J,.5F,*020.6B,*,20.1B0*,26.1B2*,28.0B,.MFJ29R 3AGT. R1.0F,.0F,
520*325.1B4.,B1.,Z1.0F,.2J,*020*225.1B8.,R1*,20"0*M*2B07DSA/AF *820*124.2B0.,Z1*,20.0J,*220*128.0B,.,J2.0F,.8J,*420*220.2B0.,V2.MJJ21R 3AGT. Z2.0J,.2J,*620*222.1B5.,V3.,"2.0J,.4B,*,20.3B0.,Z2.,B3.0J,.6B,",60.JJ22 GD+TCA.3B2.,"2.,B2.0J,.5B,*,20.3B5.,V3*,20
0R,*020*520.0B,.MJJ63J 7ESS3OWR.MJJ24R +ICM+V"$*2&1.MJJ25R +ICM+P"$*2&0.MJJ26R +ICM+N"$.2",")*M*3B03P	R+NKT3W?H6 OI2 3P3AWY+RN .1."3\;I7PSU* SN*(&1.MRJ60B 3R;I7T^"+HCO+ICS3PGL7YKE. J6"2;7ICN+UCT* SN*(&2.MFJ*0B03P	R7N3T3P	R+NCT*"**2":;.$F(*)J;*	CS7TKU+N***
********J*/\7F"0*M.1J0. 7Z21
\7OWS/BF .0B0.MFJ*0B37GOO+UCB.2B0"0*M.1V12 [I. 3D.>GD2 ?G+TCO.1^1/\7F/FF+3\[I. 7F*>B37GSO/OF 61273P	R3N7T.$&(2)
\3O?T. B1"2*M.1^12 [I. 3F*>B37GSO/OJ 60203P	R+NCT+M"$*1&0+\I/Z6)61207M*(2)6=*(	Z.-B5.MJJ*0B03P	R7N3T3P	R+NKT**J**;SN*(&2*;^"7SR 3U;R************6*2"/FB=.MJJ*0B2/ZJ=3\?G3SKU. B1"060.JB223^ 7OWS/BJ .0B0.MJJ*1B5+ICF/D:<+DB17GSO/OJ 61273FZ=6+21+ICF/F6>23^ 3O?
. F267C\3R;I+TSM*(&93\?G/TKO"062.JF227& 3FZ .<N>7GSO/OJ265C\3R;I3T6 .$F(602)7I*(.)F=207\*(	Z*=M+Z6)"560.JJ265B 3R;I3T6 .$F(.1.)3\;I7PSU* SF3\[I* SF6=F"7USI6"R 3H;E. B3.0B03\?G+TCO.1B0.M&J*9B93R7E2 	D+CCE3R3OL*M.1B060B 3R;I3T6 .$Z(6)2;7ICN+UCT7F2$3R;A3D7O3
WZ/\7X3RSN*(&0/\7Y3RSN*(&0.MFJ.0R0. 7D7ISN*(+X.6F+2)S\21&=+NT/YZ**+&1.MFJ.0V16 KP7ISN6 &"+OCU3R3O3LSE* KA.;/D2";A3DF 2"R;21	\*(	Z*=I+Z.)*(/D+D&1.MFJ.0Z12 [I* I/Z6).<B47GSO/OB161277I*(2)&=*(	Z.-B4+\M/Z6)7M*(.)J+"060.JB1*1B77RSE3U;R.MFJ.9&92 WR7MB 3LOA3EWMN
T.JB2*0B03P	R+NKT7YWO6 KA3E> +NJ *;SG*(I+Z&).MJJ.0F02 WR3MN +OCM3CWHS7T.JB2*0B2+ICF7I*(.)J=2 T+ECN.4B120	\+FI/Z6)61R73H;E.4B120	\+FI/Z6)63R33H;E.4B1"0*M.2B063J +ECM3ION2 GTX*M.2B024& +FI/Z2)6>R43H;E.2B0267\*(	Z*=M+Z6).2B03\WR7TKUN*M.2B065J +ECM3CGH3NWC.MJ
.0Z02 [I7I*(.)^=3TWH/NR460203I	F*(	Z.=J23TWH/NR460203I	F*(	Z.=Z33TWH/NR4"060.JB2*0B73R7E2 	V7SSI2 ;I2 GJ+ICL+OCR3FWR7EB 3A/R3I
N.MJJ.0"02 [I7I*(.)F=20T/EKN.0R13\[I7I*(.)J=20T/EKN.0R1.MJJ.0&02 WR3M* 3A3I.MJJ.0B12 [I7I*(.):<63R03H;E.2F0217\*(	Z*=M+Z6)65207I*(.)F=60K\7EWTR7N.JB2*1B13I	F*(	Z.<N>28T/EKN.0J1+\M/Z6)7M*(.)^-65K\7EWT7R3N3R7E6 WL7XR A7X.JB2*1B23I	F*(	Z.<R>20T/EKN.0"1+\M/Z6
7M*(.)J+60207I*(.)B=3\WR7TKU7NK\+ECMG7O.JB2*1B47RSE3U;R.MJJ.0"12 [I3L&(*(	Z.):<7ZR 3H;E. B261293P	R+NCT+M"$*1&23\?G+TCO.3B1"0*M.2F029& +FH7I*(.)2)2>^03O?T.2J020	\+FL7I*(.)6)2<^03O?T.2J020	\+FL7I*(.)2)6>SZ3H;E.2J1"5*M.2J020& +FH7I*(.)6)2<^03O?T.2J022	\+FL7
*(.)6)2<^03O?T.2J022	\+FL7I*(.)2)6>SZ3H;E.2B1"0*M.2J062B 3R;I3T6 .$^(6)B;*(I+Z&)2;R"3O3L7AOR""*M.2J064B 3R;I3T6 .$"(6)2;7ICN+UCT7F2$2 [I* SF*<J>7B	U6"R 3H;E. F3"060.JB2*2B67M*(2)6=*(	Z*-P7I*(6)2)3P	R+NCT2"?Y3U: +OCW7H[A/E."7M*(*)J;3D3O7LKAS6".JB2*2B73L&(*
	Z6)*=3\?G+TCO.3B1"0*M.2B120& 7F* .<F>2 T+ECN.2B1217\*(	Z*=M+Z6)7FKN*(3H7I*,*,	R+\M.26)/MJ(2)Z++NR3H&,*,3ZR6).JF2*0B13P	R+NCT2"?Y3U> +WKE2;;F3R"(*,3I7ZJ,*)J;3D3O7LKA7SJ 7ESN6"K\7EWTR7N.JF2*0B2+ICF/Z:<62R 3H;E. F260237M*(2)6=*(	Z2-;F3R"(*,3I7ZJ,2)7\*(&1*=M
1.)7FKN*(3H7I*,*,	R.MJJ.1N06 KP7ISN6 &"+OCU3OWW2"Z;+NR3H&,*,3Z/R.)2"?D3LGL+RCS3R;E7T2"7RSE3U;R.MJJ.1V22 [I/Z:<61R 3H;E. F262267M*(2)6=*(	Z*-R7I*(6)2)/MJ(2)6=*(&2*+R7I*(")6).JF2*2B63P	R+NCT2"?Y3U> +WKE*;R7I*(.).)2"?D3LGL+RCS3R;E7T2"7RSE3U;R.MJJ.1^22 [I. 3Z
>B23TWH/NJ .1"2+\M/Z6)7M*(6)J-*(I+Z&)+\M.16)/MF(6)J+*(I+Z&).MJJ.1"26 KP7ISN6 &"+OCU3OWW6"J;*(I+Z&)2;R"3O3L7AOR2 WR+NKT3\WR7TKUN*M.3B160B 3R;I3T6 .$F(632)3P	R3N7T.$F(.4.)3\;I7PSU7F2$3I[F*$J=3S3E7LR"3H;E.3B1"2*M.3B121^ 3O?T. F3"065.JF3*0B27GOO+UCB.3V1"0*M.3
1

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