File PRGSPL.BA (BASIC source file)

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

*1B03D7I* SD.(J72).,.(B3.0V,2)6,.(B4.,B16)B,.$R(.5N,2)Z,.$F(.3F,6)V,.$N(.,B12)6,.1R(.0F,"06).JV12 	F7L[E.*46"CL+TJ:.MNJ60B 3R;I/TR2:^"3EGS7MCT3L;A6 WF+ECR3DWI6 WM3ESN3LOI+HCE3A	B7TKU7PWR7EWF+NKG7\KP7ISN.*4.MNJ65B 3R;I/TR6:C\3R;I/TR6:C\3R;I/TR":*M*5B03F3I/
F2:R"/TGA6:KP3K7O2.GB2"	\7NWP/TF*:3Z3H",.MZJ20Z +OCR/I6161R 7O* 3\?F3R& .2F=2 ?T6 257ICN+UOT21.:.(GI.,KI2);\7ESX. KI.MZJ24& 7NWP/TF*:3H3H	\3FV +NOD61R 3H;E. Z6.MZJ26: 7ESX. GI.M^J20N 7LOO/EF+\SD2=R"3E3F3K
N3MOP7BOR""*M*8B03F3I/EJ6:N"/Y+S3P7R+A;T+BKA.M&J20Z +OCR/I6161R /OR 20[\+OCR/I6261R /OF 20	\7NWP/TJ*:M+I21+I&23\WN+XCTI62.JR92 ;I7PSU.*23H",3\[I2 ;E/DJ2 T+ECN"966.JV92 ?F3R& .2F=2 ?T. B13\;I7PSU.*2+M"1+I21+I&23\WN+XCT7I227ICN+UOT22":6,3H+ICF3ESN*B23TWH/N&
"6*M*9B67NE3T& "1*M.1B02 3C3OWS6227FKO. 7I61R /OF 23[\2$&(6)N=+ESG*(SD*,3I7I2)7NE3T& .MFJ*1B03F3I/EN2:R"/TGA6:KP3LWP3RJ.7A2"7ICN+UOT63*:21",",7H.JJ120Z +OCR/IF=2 ?T. GZ3\;I7PSU.*3+P"$+I2)3H	\3FV +NOD63R 3H;E. N120;\7ESX" 7I.JN120N 7LOO/EN+\SU*(&16=Z"7OOR6
2"+U"$.26)6"KP3U[E6"W\.$N(*)J=3P?R+TJ..MFJ*4B07GOO+UCB.1B0"0*M.1B52 ?F3R& .1F=2 ?T. B47\KP7ISN. R.:GI2;GT/BR(*)J;7IN 3C;H3R& ""6;.JV123Z +OCR/I6261R /OF "0*M.1V5* SD*=SS.MFJ*6B07FKO. [I*=B1+TCO232-+EN7SKT2$.(*(M+I21+I&2*,&16)2)/D6$+DZ$*"J 3\WN+XCTI66.J^12
& 3F6 .(GI.,KI.)B=2 T+ECN.1B9.MFJ*8B0/D6$+DZ$7SKT2$.(*(M+I21+I&2*,&12)
\3O?T. B2"0*M.1B9* SD*=B"* J .MJJ*0B03P	R+NOT*4J:. ."/D.$2"& 6"2;7NE3T& 62C\3R;I/TR6:C\3R;I/TR*:B"2 & 2 GF+CCH* KI";*M.2B12 ?F3R& .2F=2 ?T. B13\[I* M+I21+I&2*=B03TWH/NJ "360.JJ220R 2$Z=2$.(*(M+I21+I&2*,&22)
\3O?T. R2"0*M.2B3* SD*=B"""*M.2B46 KP7ISN.*4*"B 2"R;*$J;2 & 6"2;7NE3T& 62C\3R;I/TR":*M.2B52 ?F3R& .2F=2 ?T6 233P	R+NOT*4J:* B +IJ *;SU.(KI*)J;* KI";*M.2B62 ?F3R& .3F=2 ?T. B13\[I* M+I21+I&3*=B03TWH/NJ "860.J^220R 6$B=2$.(*(M+I21+I&3.,KI*+&22)[\+OCR/I6461R
/ON 2-WL3NR(6$2)/D6$+DZ$*"J 3\WN+XCTI64.J^225^ 3O?T. &2"0*M.2B8* SD*=B"* J .MJJ*9B03P	R+NOT*4J:. ."/D.$2"& 6"2;7NE3T& 63C\3R;I/TR2:;\7ESX. KI.MJJ*9B17FKO. KI*=B1+TCO62C\3R;I/TR*:B"2 & * B * B * KI2;[\+OCR/I6361R /OF "0*M.2J9* SD6=SS+R"$+M"1+I21+I&32)[\+OC
/I6461R /OR 2-WL3NR(6$2)/D6$*"J0*&SD3\WN+XCTI64.J&223F 2=GV7LN(+ESG*(SD.,KI**6221&,.2J*6)2)+ICF/AB=2 T+ECN.2V93\[I. ;A64R53H;E.1R020S\6$B=2$F(")*M.2R92 ?F3R& .4F=2 ?T* 633L;E*(SD2)S\2$R=*$J&6 2"7NE3T& 24
\3O?T. &2"6*M.2V9* SD*=B"* J .MJJ*9B63P	R+NOT*4J:. ."/D.$2"& ""6;.J&227: 7ESX. OI7\KP7ISN.*43\WN+XCT7I227GOO+UCB.1B0"0*M.3B02 WN+XCT7I217FKO. GI*=B1+TCO61253P	R+NOT642:7NE3T& 21O\7LOO/ER7\SSO7P.JB1*0B07FKO. 7I61R /O^ 22	\3F& *=B43TWH/NF .0B23\[I. 7I66R 3H
E. B1"160.JB1*0B1+ICF/IZ-2*;I3T&(*/&6*=B03TWH/NF .0B2.MFJ.0B16 KP7ISN.*4*"J-2;
\3O?T. B1"360.JB1*2B03P	R+NOT*4J:/I.".MFJ.0B32 WN+XCT7IC\3R;I/TR6:K\7EWTR7N.JB1*4B0/D6$*"F!6"N&+TSR*(	A*&F"7I2"3P	R+NCT.*47D2$7GSO/OJ "967.JB2*0B03ESN"M2JBZ

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