There are 4 other files named getvis.sim in the archive. Click here to see a list.
00100 ! GETVISTAPARAMETERS, written by Mats Wallin, FOA 142, 78-07-25 ;
00300 EXTERNAL BOOLEAN PROCEDURE meny, rescan, tmpout;
00400 EXTERNAL INTEGER PROCEDURE checkint, search, sscan;
00500 EXTERNAL TEXT PROCEDURE compress, conc, scanto, storbokstav, tmpin;
00600 EXTERNAL REF (Infile) PROCEDURE findinfile;
00700 EXTERNAL CLASS termty;
00900 ! This procedure is used to get values for some of the parameters
01000 ! before a call of the (external) class VISTA. The procedure tries
01100 ! to determine the TTY type by looking in the following places:
01200 ! (in ascending priority order)
01400 ! 1. File SWITCH.INI on user ppn, line labeled TERMINAL
01500 ! 2. TMPCORE file TMP:TRM
01600 ! 3. The monitor command starting the program, using RESCAN.
01700 ! 4. If not yet found, or false info, ask the user.
01900 ! In addition, if there is no info on TMP:TRM or info is provided
02000 ! by the user via RESCAN or directly by this procedure. The procedure
02100 ! creates TMP:TRM and writes on it the info found.
02300 ! NOTE: If you would like to use RESCAN in your program,
02400 ! instead of the expression: IF rescan THEN ...
02500 ! you should use the expression:
02600 ! IF Sysin.Image.Strip =/= NOTEXT THEN ...
02700 ! and then NOT call Inimage, as that is already done by this procedure.
02800 ! That is possible only if info was found according to 1-3 above.
03000 ! Example of use:
03200 ! .
03300 ! .
03400 ! INTEGER a, b, c;
03500 ! TEXT t;
03600 ! getvistaparameters(a, b, c, t);
03700 ! vista (a, b, Sysin, Sysout, FALSE, c, t, NOTEXT) BEGIN
03800 ! .
03900 ! .
04100 ! Extra external procedures required: (not in vista)
04200 ! BOOLEAN rescan, INTEGER search, sscan,
04300 ! TEXT compress, conc, REF (Infile) findinfile;