There are 4 other files named getvis.sim in the archive. Click here to see a list.
00010 ! written by Mats Wallin, FOA 142, 78-07-25 ;
00030 EXTERNAL BOOLEAN PROCEDURE meny, rescan, tmpout;
00040 EXTERNAL INTEGER PROCEDURE checkint, search, sscan;
00050 EXTERNAL TEXT PROCEDURE compress, conc, scanto, storbokstav, tmpin;
00060 EXTERNAL REF (Infile) PROCEDURE findinfile;
00070 EXTERNAL CLASS termty;
00090 ! This procedure is used to get values for some of the parameters
00100 ! before a call of the (external) class vista. The procedure tries
00110 ! to determine the TTY-type by looking in the following places:
00120 ! (in ascending priority order)
00140 ! 1. File SWITCH.INI on user ppn, line labeled TERMINAL
00150 ! 2. TMPCORE file TMP:TRM
00160 ! 3. The monitorcommand starting the program, using rescan.
00170 ! 4. If not yet found, or false info, ask the user.
00190 ! In addition, if there is no info on TMP:TRM or info is provided
00200 ! by the user via rescan or directly by this procedure the procedure
00210 ! creates TMP:TRM and writes on it the info found.
00230 ! NOTE: If you would like to use rescan in your program,
00240 ! instead of the expression: IF rescan THEN ...
00250 ! you should use the expression:
00260 ! IF Sysin.Image.Strip =/= NOTEXT THEN ...
00270 ! and then NOT call Inimage, as that is already done by this procedure.
00280 ! That is possible only if info was found according to 1-3 above.
00300 ! Example of use:
00320 ! .
00330 ! .
00340 ! INTEGER a, b, c;
00350 ! TEXT t;
00360 ! getvistaparameters(a, b, c, t);
00370 ! vista (a, b, Sysin, Sysout, FALSE, c, t, NOTEXT) BEGIN
00380 ! .
00390 ! .
00410 ! Extra external procedures required: (not in vista)
00420 ! boolean rescan, integer search, sscan,
00430 ! text compress, conc, ref (infile) findinfile;