File SEXTA.BA (BASIC source file)

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

*1B03D7I* ST.(R2.,J12)R,.$J(.4J,*02)+H"$*7&0*,SB.(B22)J,.$J(.4J,*02)+K"$*7&0*,SJ*(&2.MJJ60R .$F(*)J=+NKA+\ST*(&26=Z"7O2"+T"$.36)2"WG3SCL6".JB3* ST*(&46=B"+L[Z+WKO+\ST*(&56=N"+T[R7HKN6"S\.$Z(*)J=3T3E""*M*4B0+T"$.76)2"WG3BGD7T2"+T"$.86)2"WG7BKO7T2"+T"$.96)2
?K+NKF.MVJ60R .$F(.06)6"KE3ZWB7RZ 3AGN6"S\.$F(.16)*"B * B * B 2 ?V""*M*6B0+T"$*1&3*=B"* B * B 3M;UA6".JB7* ST.(J1*)J=* B * B 2 J +EKR+\ST.(Z1*)J=+E;B+A;D7P+L2&?W""*M*8B0+T"$*1&7*=B"* B 6 SS3R"&+NKR+\ST.(R16)R=.$F(612)+T"$*1&5*=ST.(J1")*M*9B0+T"$*1&82=."+I
Z+\ST.(&1*)J=3GKE7J2"+T"$*2&02=J"3E	H+NKD.MFJ*0B0+T"$*2&12=Z"7AKH7K2"+T"$*2&26=Z"+OCN3SC3UWL""*M.1B1* ST.(N2*)J=3SC3U+L2 	B+SKH+\ST.(R2*)J=3B7E+KKG.MFJ*2B03P	R+NCT2"GD3T7U2"\*$J=.0B0602"7ICN3UT2$+\6$N=+ESG*(SH*,25662)/H6$3S
E2$"(.$F,*,&4.MFJ*3B03P	R+NKT7VKO+MB.3OWD3R: 3AC+MJ.";*M.1B42 ;I7PSU* SK+\SK2=WS+G"$+K2$.1J,")*M.1B56 KP7ISN2"WB7NSU7ZKE6"2,7ICN+UCTB6$.JZ120J .=R2+\SS*=*"**J*/\7Z"0*M.1B7* SK2=F"+NJ:*&SH*&SK*&:"+BKA.MFJ*8B03F3I+EOV21.:"$*M.1B96 KP7ISN2"	D3ER 3AWT7N^ 3ESR
ECN3A[U2 	F+LCE6"N;+ESG*(SK*,24.9.)2"^ 7ECS3EOI7HKET6".JB260B 3R;I7TC\3R;I7TC\3R;IT*M.2B16 KP7ISN.*17B2$3P	R+NOT61N:+TSR*(	B7\KP7ISN.*1+SZ$+SZ$S6$.JJ220F 6=217FKO. 7I61R /OJ 24S\2$&(*)J=.0B0602"7NE3T& .MJJ*3B07Z*="+61.JR220Z +OCR3IF=2 ?T" 7B.JV260B 3R;I+T
T*(	I2;	\7NWP3T" 2$	\3F" *$J=.0B02"T+ECN.3B4.MJJ*6B07GOO+UCB.5B3.MJJ*6B5+ICF/W6161R 3H;E. V2"0*M.2^62 [I. KW*=B13TWH/NJ "460.J^220R 2$&(2)"="$*M.2B82 WN+XCTI*M.2B92 ?F3R& .=F 2 ?T. R2.MNJ*0B03P	R+NOT21R:2$&(")*M.3B12 WN+XCTI*M.3B26 KP7ISN7\KP7ISN7\KP7ISN7
KP7ISN7\KP7ISN.MNJ*3B07GSO/OJ "260.JR360B 3R;I/TF*:SS*&SS*&SS*&SS7\KP7ISN.*17SKT6$*(*-&13\3C3OWS"61.JV360B 3R;I+T7Z*1J;7DSA7EON7ASE+ZCE7WKU3D;E6 WA3FZ 3IWL. ."3S
E2$.(.$R,*,&9";*M.3B66 KP7ISN2"^ 7ECS3EOI7HKET6".J^360B 3R;I7TC\3R;I7TC\3R;I7TC\3R;I7TC\3R;IT*M.3B86 KP7ISN2"?F3LWG3NWD2 OS3HWU7LKE6 WW3RWD3NF +MJ ";*M.3B96 KP7ISN2 WS+G"$+K2$.4V,*)J;..."3S
E2$.(.$Z,*,&7*;:"*1J9*;SJ*;B"6"N;+ESG*(SK*,28"96).JB460B 3R;I3TJ"+ECI2"J;*$J;2 ;A3G7E3ESL+EKT.MRJ*1B03P	RN7T.JJ420	F+LOE21.:2$	\7NWP/TF*:SB*,SB*,SB.MRJ*3B07FKO. 7I61R 7O* "-61.JR420Z +OCR/KF=2 ?T6 247ICN+UOT21J:2$.(2);\7ESX" 7K.JV460B 3R;I3TJ .$F(6)R;+AB*
&2*;SB*(&22;GT/BR(.4.)+B"$"46).JZ420Z +OCR/JF=2 ?T. B23\;I7PSU.*17H2$7NE3T* .MRJ*7B0+ICF/IN/20&-+NT/IN/.02)*>B03TWH/NR "960.J"420^ 7OWS/BZ "060.J&420: 7ESX" 7I.JB560B 3R;I7TC\3R;I+TJ 3ESNE6".JF520N 7LOO+EN "1*M.5B26 SSO7P.JN560J +ECM3SKU7RB.3RWUF*M.5V3. G
6=20/W62"0*M.5B42 [I2 WL3N"(.$2).=B22 T+ECN.5B6.MVJ*5B03P	R+NKT3ME3RF +LCS*2B03Z	E3CWH3NV,3R	B3TWT6 WK7E+R3EWR2 	E3NGG+BKE/\GW6=217GSO/O&5"0*M.5B62 [I* SH*<J>+^B"3TWH/NV "860.J^520F *=7I61
\.2F=3\[I. ;A20T/EWN6920/AF=3\?G/TWO"960.J"520& 3F" .$:<3S
E2$"(.$F,.,F-2)T/EWN6920/H6$*"J03\?G/TWO"960.J&560J 7EWTR7N.JB620Z +OCR/LF=2 ?T. ^17\KP7ISN3\WN+XCTL*M.6B12 ?F3R2 *=B1+TCO62203P	R+NKT.-."3\WN+XCT7LC\3R;I7TC\3R;I7TC\3R;I7TC\3R;IT*M.6B22 WR7TKUN*M.6B32 ;ED*MBLBZ

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