DECsystem-20 SIMULA  %4A(310)               25-JAN-1981  18:37				 PAGE    1
DSK:MIDEDB.SIM	   2-APR-1979  13:59	

	00030	OPTIONS(/l); COMMENT DISPLAY EDITOR. See
	00060	VISTA.MAN for explanations on the routines used in this program;
	00090	COMMENT Copyright (c) Swedish National Defense Research Institute;
	00120	COMMENT The Author and the Swedish National Defense Research
	00150	Institute take no responsibility for errors in this program or other
	00180	files connected with it;
B1	00210	BEGIN
	00240	
	00270	COMMENT%IF callmac;
	00300	EXTERNAL PROCEDURE vtmcur, vtsynk, vtisng;
	00330	COMMENT%IFEND CALLMAC;
	00360	EXTERNAL PROCEDURE outche, tshift, pgcopy, vdccin, vdccout;
	00390	EXTERNAL INTEGER PROCEDURE iondx, vdlno;
	00420	COMMENT the external procedures below are described in the
	00450	DECsystem-10 SIMULA Language Handbook part 3;
	00480	EXTERNAL TEXT PROCEDURE tmpin, conc, front, storbokstav, litenbokstav,
	00510	compress, skip, rest, filspc, inline, frontstrip, scanto, from, upto,
	00540	today, tmpnam, maketext;
	00570	EXTERNAL CHARACTER PROCEDURE findtrigger, fetchar;
	00600	EXTERNAL INTEGER PROCEDURE search, scanint, rename;
	00630	EXTERNAL INTEGER PROCEDURE sscan;
	00660	EXTERNAL REF (infile) PROCEDURE findinfile;
	00690	EXTERNAL REF (outfile) PROCEDURE findoutfile;
	00720	EXTERNAL CHARACTER PROCEDURE getch;
	00750	EXTERNAL INTEGER PROCEDURE trmop, gettab, checkint;
	00780	EXTERNAL BOOLEAN PROCEDURE puttext, numbered, tmpout, rescan,
	00810	dotypeout, bokstav;
	00840	EXTERNAL PROCEDURE depchar, outstring, forceout, echo, abort, exit,
	00870	outchr, run;
	00900	COMMENT%IF debugslow
	00930	EXTERNAL PROCEDURE sleep;
	00960	COMMENT%IFEND debugslow;
	00990	EXTERNAL BOOLEAN PROCEDURE meny;
	01020	EXTERNAL CLASS termty;
	01050	COMMENT%IF CALLMAC;
	01080	EXTERNAL CLASS mmista, mided1, mided2, mided3;
B2	01110	mided3 BEGIN
	01140	COMMENT%IFNOT CALLMAC
	01170	EXTERNAL CLASS mvista, vided1, vided2, vided3;
	01200	COMMENT%IFNOT CALLMAC
	01230	vided3 BEGIN
	01260	COMMENT%IFEND CALLMAC;
E2	01290	END of vided3 BEGIN block;
E1	01320	END of dummy main program of vided;


SWITCHES CHANGED FROM DEFAULT:

  -A NO CHECK OF ARRAY INDEX
  -D NO SYMBOL TABLE GENERATED FOR DEBUG
  -Q NO CHECK OF QUALIFICATION

NO ERRORS DETECTED

DECsystem-20 SIMULA  %4A(310)               25-JAN-1981  18:37				 PAGE    2
DSK:MIDEDB.SIM	   2-APR-1979  13:59		LINE NUMBER TABLE

    0	000567

  210	000575

 1110	000577

 1290	000601

 1290	000602

 1320	000603

 1321	000605