Google
 

Trailing-Edge - PDP-10 Archives - tops10and20_integ_tools_v9_3-aug-86 - tools/crc/ind/indtlk.exe
There are no other files named indtlk.exe in the archive.
?p0`?h&?x " 
 
<++2	`0"ex&/2ep'h:'P='p?(B(HE)I'PL'pN(Q(HT*pW'PY'p](`N,8d'Pe'pi(m(Hq.Hu/y'P|/h0(0x10.H<,^,^[[Z,R@,.\,<9187@H++*,8,D7`H+! ",. ",.[HZ[,R\"#\H[HZ[8,R\"$\H@,.8,~@, ",. ",.,y " $,R\"#\"$ " $,R\"$\"$ " $,R\"#\"& " $,R\"$\"& " $,R\"#\"( " $,R\"$\"( " $,R\"#\"( " $,R\"$\"( " $,R\"#\"( " $,R\"$\"( " $,R\"#\"* " $,R\"$\"* "	 $,R\"#\"$ "	 $,R\"$\"$ ",@,.,~,~, $ ",R\",,< $ ",R\"/,< $ ",R\"5,< $ ",R\"7,< $ ",R,m $ ",R,m $ ",R\";,< $ ",R ",. ?1B+$,>,> ", ",s,^,^B ",>,#,^+\" &J4?7@ $d,>@,. $ ",R,m $ ",R,m\"\$@@f4B,^$$( &J4C $ ",R,m $ ",R,m $ ",R\",<,,~ Advantages of TAKE files o Less typing o Less thinking o Less room for error o Permanent record for othersDisadvantages of TAKE files o Fixed set of commands o Only EXEC commands allowed o No interaction with user o No loops or tests@Possible solutions o Modify the EXEC - extra commands o Enhance the MIC program o Design a new utility :PGoals of IND o Provide all facilities of TAKE o Provide for 'Parameters' for files o Provide for loops, tests, error trap o Provide for user interaction o Ease of use - power + simplicity0What an IND file can contain o EXEC commands o Program commands o Messages for the terminal o Directives to control IND o Requests for user input o Comments o Subroutines	 o VariablesIND variables - types o Logical, numeric, string or file o May appear anywhere in command file o User input or program control o Tested, compared, or 'substituted' o Range checks and defaults for input	 o Special variables for username etc.What an IND file containsEXEC commands - as in TAKE filesIND directives - precede by .Messages - precede by ;Comments - precede by .;Classes of IND directivesRequests for input: .ASKS,.ASKTests, comparisons: .IF, .IFTControl: .GOTO,.GOSUB,.CALLVariable definition: .INC,.SETS,SETTFile handling: .OPEN,.DATA,.TESTFILETime-based commands:.DELAY,.PAUSEInput commands.ASK var Yes or no question Asks a yes/no question, sets var.ASKN var Numeric question Asks a question with numeric answer.ASKS var Question Asks a question and records text answer.ASKF var Question Asks a question with a filename answer
.ASKN, .ASKS have upper/lower limitsLogical test directives.IFT var command Executes command if var is true.IFF var command Executes command if var is false.IFDEF var command Executes command if var is defined.IFNDEF var command Executes command if var is not defined Command can be anything, including .IFComparison directives.IF var relop expression command Execute command if comparison is trueVar is numeric or string variableExpression is numeric or stringRelop is one of following: =,<,=<,>,>=,~= Also permitted are: EQ,LT,LE,GT,GE,NE
 Strings are compared ignoring caseVariable definition.SETN var expression.SETS VAR expression Sets variable to value of expression.SETF var (or .SETT var) Sets logical variable true or false.INC var (or .DEC var) Increments or decrements numeric variableExamples:.ASKS NAME What is your name ?.IF NAME EQ "PANAY" .GOTO HELP;	Hello, 'name'CONNECT <'NAME'>Program control directives.GOTO label - jumps to label.GOSUB label - subroutine call.RETURN - from .GOSUB.CALL filename - nest IND files .CALL preserves all variables.RUN program data Runs a program with input from terminalFile control directives.OPEN filename, .OPENA filename Opens output data file (possibly for append).DATA text Sends text to current data file.CLOSE Closes current data file.TESTFILE filename Checks for existence of file. Returns: Exists, not exists, Invisible, offline, deletedControl operating mode.ENABLE/.DISABLE keywordEXTENDED-EXECESCAPECONTROL-Z-EXITSSUBSTITUTIONQUIETTRACEDATA .ENABLE DATA only stopped by .DISABLE DATA|p~,8,D,H<8,H8+@#3#4aaaaa  a   a  aaa    a    aa  a  a  a   a    a a a  a   a  a    a  aa  a  a 	      Substitution at work.ASKN [1:1000:200] BFAC Number of Records per block: .SETN WORDS BFAC*RECLENSET TAPE RECORD-LENGTH 'WORDS' * Records per block [R:1:1000 D:200] :H,K@SET TAPE RECORD-LENGTH ,K,K "   " "\"{ " U$@+ + \"},~,C<\"}+K.p5>S,>p,p+R,^/:x,~,^/,~/pPp,>/`|+T+N,> .p5>\,p+ Z,^:x,~/pPp,>/`|+]+Y,> .5>hh,p+ Z,^:x,~,>,p7:,^,~,>,>,p7:,^,^,~,>,>,>,>,p7:~,^,^,^,^,~.5>
|}~,p7:|~}
|/,~:x,~
? JSYS ERROR: 
PROGRAM CANNOT CONTINUE
7Z,^,~/,>,>,>,>+b@+s,>,>,>110B++"N%ld%4pO@\$2&#4p2.a@@11D+1D++,",B1+O@1\"M,2."#4pf!l 2.G4p,^,^,^,~7"+M+"+M[?7lx1,r,p7@,~7`+27@1+34B\14"*\"4=d(,~,>H5\$5@4p,^7&J4p\$6@4p\"4,~"+M,"+MAH4H21,r7@1+B,>,> 6+$MH41,r7@1+\",~ "+M[?3l1,r7@1+\",~ "+M[?3h1,r p7@1+#4B"\"$,~\"%,~ "+M[?5l[?5h1,r <["h  ,>,>,.,^8,^=h*,~7@1+8,> 9\$9@4p,^ &J4p\$:@4p\"4,~ "+MH41,r\#p7@1+D,>,>\"E,^\"F\"F,^\"F,~ "+M#3
#41,r7@1+L " #4pl$
(G4p,~ "+M+O B+V,~ B\"W\# S\"Y<Y^adfk "+M
?VTSUBS - 
Incompatible version of VTSTOR and VTSUBSTerminal not a supported typeBad scrolling region parametersVTINIT not calledTerminal is not a VT100 - cannot perform functionIllegal negative parameter for cursor movement\"u " U$@``<
?Monitor error from VTSUBS -
1,r7@1+|\"},~ "+M(01,r7@1+\",~ "+M(B66`3]:~:}V F:V 32V SV V 4V (PZPZPYPYxb1;,~PPPPPP
P
P	P	}3]: y: xV F:V 32V SV V 4V (PZPZPYPYxb1;,~PPPPPP
P
P	P	xPHheXpV F:V 32V SV V 4V (PZPZPYPYxbPPPPPP
P
P	P	
`RPX_|0pPHhe3].OX]zMV F:V 32V SV V 4V (PZPZPYPYxb1;,~PPPPPP
P
P	P	M3]-GH-GGV F:V 32V SV V 4V (PZPZPYPYxb1;,~PPPPPP
P
P	P	GPHhe3]<:V F:V 32V SV V 4V (PZPZPYPYxb1;,~PPPPPP
P
P	P	:3]F.y*F&V F:V 32V SV V 4V (PZPZPYPYxb1;,~PPPPPP
P
P	P	&3^2y" \V F:V 32V SV V 4V (PZPZPYPYxb1;,~PPPPPP
P
P	P	3\Y~YV F:V 32V SV V 4V (PZPZPYPYxb1;,~PPPPPP
P
P	P	X\t?|tV F:V 32V SV V 4V (PZPZPYPYxb1;,~PPPPPP
P
P	P	3](`(`V F:V 32V SV V 4V (PZPZPYPYxb1;,~PPPPPP
P
P	P	3]XsXqV F:V 32V SV V 4V (PZPZPYPYxb1;,~PPPPPP
P
P	P	q(-mV F:V 32V SV V 4V (PZPZPYPYxb1;,~PPPPPP
P
P	P	#-| l0#RRV F:V 32V SV V 4V (PZPZPYPYxb1;,~PPPP
P
P	P	^|O(-bDV F:V 32V SV V 4V (PZPZPYPYxb1;,~PPPP'&CPP
P
P	P	#-b|C(Gt8V F:V 32V SV V 4V (PZPZPYPYxb1;,~PPPP'&6PP
P
P	P	
P^<?7z#,P^<?|6(Iy#V F:V 32V SV V 4V (PZPZPYPYxb1;,~PPPPPP
P
P	P	Iy{p"O
tyO
zO8TOj:VF:V32VSVV4V (Mo+G#xMo+Mo+BMo+xxPZPZPYPY
P
P	P	
{a(T<#Pb*zPo[Wi;Y>#sM>#OkdrkblkblkahkaeIYO`GOX OOrc OOqh Pzd"OTI@O< xO%?OLZWPk"PimO/L`OE0^OE!"OD~wODpODJGODF*
OD9
OD9OD9OD9
OD9
OD9	OD9	OD9
OD9
OD9OD9OD9OD9OD9OD9OD7,OD7OD3QOD17OD,'>OD,?>9[_>3;cPHhfPHhePHhePHgLA$5C AP N:pN9XhxN9WF|N9&m{3!]_q$\mzt9YVS$SVSTVSMNVSXR8Qz1;,~zM',2M'*hM'(@M&~(M&rI@M&NtM&NM&<]M&<\ M&4
M&/DM&-)K
T,Kz)0C
St,Cl <	LJ"hX RD89w+z#,Z9b897r CPHhePK{3
PT'C#1P:s<6n{1H,1%+1F81e(bn~
KP9]xs^+41;,~P4*K5
nK)PP
P
P	P	
T,K(&2@dz@>Aj<	KHY4}*2&gze8u3>al'}*l')+
P_2
K&w3
K%k6JGJrz#,0jDGN.0H.0^^kwP0\B:/\>X\>5'\7N+\2g'r'I(\)8*\)7\	\	)\+,\6.\.,[rO.O[mNO[mO[m	O[l|[l{&O[l+O[kO[kO[j]O[jRO[i%r%H([Z[X%[Qgr%0[Ms/[M"-[M	+[L,[FG[@v*r#eOD^w'dw]!+{0