Trailing-Edge
-
PDP-10 Archives
-
decuslib20-04
-
decus/20-0135/comp/midedb.sim
There are 2 other files named midedb.sim in the archive. Click here to see a list.
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;
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;
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;
01290 END of vided3 BEGIN block;
01320 END of dummy main program of vided;