#include <perms.h>

                                                                //      1  !!%EXTERNALROUTINESPEC DDELAY(%INTEGER secs)
                                                                //      2  %externalroutine DDELAY(%integer secs)
#line 2 "regression-compile-tmp/haunt.imp"
void DDELAY( int SECS )
#line 2 "regression-compile-tmp/haunt.imp"
{
                                                                //      3    %systemroutinespec SLEEP %alias "sleep"(%integer secs)
#line 3 "regression-compile-tmp/haunt.imp"
extern void sleep( int SECS );
                                                                //      4    SLEEP(secs)
#line 4 "regression-compile-tmp/haunt.imp"
sleep(SECS);
                                                                //      5  %end
#line 5 "regression-compile-tmp/haunt.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block DDELAY at level 1
                                                                //      6  
                                                                //      7  !!%EXTERNALROUTINESPEC PROMPT(%STRING(15) s)
                                                                //      8  !!%EXTERNALROUTINESPEC NOTIFY(%STRING(255) who what)
                                                                //      9  
                                                                //     10  %EXTERNALROUTINE HAUNT(%STRING(255) dummy)
#line 10 "regression-compile-tmp/haunt.imp"
void HAUNT( _imp_string /*%string(255)*/ DUMMY )
#line 10 "regression-compile-tmp/haunt.imp"
{
                                                                //     11    %INTEGERFN REM(%INTEGER NUM,DEN)
#line 11 "regression-compile-tmp/haunt.imp"
int REM( int NUM, int DEN )
#line 11 "regression-compile-tmp/haunt.imp"
{
                                                                //     12       %RESULT=NUM-NUM//DEN*NUM
#line 12 "regression-compile-tmp/haunt.imp"
/* Remove %on %event handler here if present for this block */
return ((NUM) - (((((long)((long)((int)(NUM)) / (long)((int)(_Z(DEN)))))) * (NUM))));
                                                                //     13    %END
#line 13 "regression-compile-tmp/haunt.imp"
} // End of block REM at level 2
                                                                //     14     %CONST %INTEGER max victims = 10
                                                                //     15     %CONST %INTEGER max messages = 303
                                                                //     16     %CONST %INTEGER minutes = 1
                                                                //     17     %STRING(15) %ARRAY victim(1:max victims)
#line 17 "regression-compile-tmp/haunt.imp"
_imp_string /*%string(15)*/ VICTIM[10];
                                                                //     18     %INTEGER proc no, num victims, this victim, times, delay, max times
#line 18 "regression-compile-tmp/haunt.imp"
int PROCNO;
#line 18 "regression-compile-tmp/haunt.imp"
int NUMVICTIMS;
#line 18 "regression-compile-tmp/haunt.imp"
int THISVICTIM;
#line 18 "regression-compile-tmp/haunt.imp"
int TIMES;
#line 18 "regression-compile-tmp/haunt.imp"
int DELAY;
#line 18 "regression-compile-tmp/haunt.imp"
int MAXTIMES;
                                                                //     19     %INTEGER selected
#line 19 "regression-compile-tmp/haunt.imp"
int SELECTED;
                                                                //     20     %OWNSTRING(31) blurb
#line 20 "regression-compile-tmp/haunt.imp"
static _imp_string /*%string(31)*/ BLURB;
                                                                //     21     %STRING(15) proc name
#line 21 "regression-compile-tmp/haunt.imp"
_imp_string /*%string(15)*/ PROCNAME;
                                                                //     22     delay = 10
#line 22 "regression-compile-tmp/haunt.imp"
DELAY = 10;
                                                                //     23     max times = 60 // delay * minutes         ;! One minutes worth...
#line 23 "regression-compile-tmp/haunt.imp"
MAXTIMES = ((((long)((long)((int)(60)) / (long)((int)(_Z(DELAY)))))) * (1));
                                                                //     24     %CONST %STRING(22) %ARRAY message(0:max messages) = %C
#line 24 "regression-compile-tmp/haunt.imp"
const _imp_string /*%string(22)*/ MESSAGE[304] = { _imp_str_literal("We hates Pascal!!!"), _imp_str_literal("We hates Pascal!!!"), _imp_str_literal("We hates Pascal!!!"), _imp_str_literal("We hates Pascal!!!"), _imp_str_literal("We hates Pascal!!!"), _imp_str_literal("We hates Pascal!!!"), _imp_str_literal("We hates Pascal!!!"), _imp_str_literal("We hates Pascal!!!"), _imp_str_literal("Weeble"), _imp_str_literal("SYN SYN SYN NAK"), _imp_str_literal("SYN SYN SYN ACK"), _imp_str_literal("SYN SYN SYN WABT"), _imp_str_literal("(CADDDDDADADADADR X)"), _imp_str_literal("*device timeout"), _imp_str_literal("%CLI-W-INSFPRM"), _imp_str_literal("MAKE 'FRED :JIM"), _imp_str_literal("Hack an Ent today"), _imp_str_literal("**HOST DOWN"), _imp_str_literal("PASCAL: No Thanks"), _imp_str_literal("Supermac is Back."), _imp_str_literal("Vangelis isn't Dutch"), _imp_str_literal("DTE -> DCE SARM F (B)"), _imp_str_literal("3-space indentation??"), _imp_str_literal("CHR(7) - rings a bell?"), _imp_str_literal("Gimme back my 10p!!"), _imp_str_literal("A Masochist on a diet?"), _imp_str_literal("Turn the tape over.."), _imp_str_literal("Have an index card."), _imp_str_literal("Device type:"), _imp_str_literal("Its frothy man."), _imp_str_literal("Quine-McWHO????"), _imp_str_literal("Try chasing the dream."), _imp_str_literal("Tangram Time!"), _imp_str_literal("Hi there Stan"), _imp_str_literal("Sod ML (attrib [MID])"), _imp_str_literal("HALT INST EXECUTED"), _imp_str_literal("ISYS80 V3.17"), _imp_str_literal("WSLXVANMAT for pres."), _imp_str_literal("R0 = 00000804"), _imp_str_literal("Symbolic stack dump:"), _imp_str_literal("@173000G"), _imp_str_literal("This must be Thursday?"), _imp_str_literal("What a party..."), _imp_str_literal("Confirmed."), _imp_str_literal("Right? ... Check!"), _imp_str_literal("$ SET NOCONTROL_Y"), _imp_str_literal("Noohoosferra Burzi??"), _imp_str_literal("Welcome to VAX/VMS v^O"), _imp_str_literal("Mostly Harmless..."), _imp_str_literal("VAX user service resu"), _imp_str_literal("prepare to die"), _imp_str_literal("Ecce Ecce F'tang"), _imp_str_literal("page owner violation"), _imp_str_literal("We wants a shrubbery"), _imp_str_literal("European or African??"), _imp_str_literal("Can I have a synopsys?"), _imp_str_literal("Kohilla Kohilla Splugh"), _imp_str_literal("Conversing..."), _imp_str_literal("%PAS-F-CASSELBOU"), _imp_str_literal("Baroque is Beautiful"), _imp_str_literal("WSLXVANMAT"), _imp_str_literal("**END**"), _imp_str_literal("Heeee-Haw."), _imp_str_literal("Kirk to Enterprise..."), _imp_str_literal("Zot!"), _imp_str_literal("You must be joking"), _imp_str_literal("[] : *a list"), _imp_str_literal("false : bool"), _imp_str_literal("47 : num"), _imp_str_literal("- : elephant"), _imp_str_literal("[-;-] : butterfly list"), _imp_str_literal("You need more monkeys."), _imp_str_literal("Have a gorilla.."), _imp_str_literal("Have a chocolate frog."), _imp_str_literal("->@putslice(1:0,fred)"), _imp_str_literal("POSITIVE shields!!!"), _imp_str_literal("WHAT WHAT WHAT WHAT??"), _imp_str_literal("what what What WHAT??"), _imp_str_literal("addr(253)"), _imp_str_literal("* Form          |"), _imp_str_literal("SWITCH,SWITCH,SWITCH"), _imp_str_literal("TICK,TICK,TICK,TICK"), _imp_str_literal("string(addr(p_p1))=\"\""), _imp_str_literal("Failure: m0"), _imp_str_literal("Mind if I smoke?"), _imp_str_literal("External missing"), _imp_str_literal("Int:."), _imp_str_literal("BDBDBD Hi there, Buck."), _imp_str_literal("0000 *a*"), _imp_str_literal("0 files"), _imp_str_literal("Hi there, Steve."), _imp_str_literal("Cif:"), _imp_str_literal("Weebles wobble."), _imp_str_literal("Stopped."), _imp_str_literal("You Have Mail."), _imp_str_literal("Play it again, Sam."), _imp_str_literal("Play it again, Sid."), _imp_str_literal("You have been Warned."), _imp_str_literal(">%c"), _imp_str_literal(">(l0(f1/!/l40\\f/!/)0)0"), _imp_str_literal("Apologies accepted."), _imp_str_literal("Push the button, Max."), _imp_str_literal("Try Oiling it."), _imp_str_literal("Caimbridge, caimbridge"), _imp_str_literal("Dont Panic. Dont Panic"), _imp_str_literal("Coffee time..."), _imp_str_literal("Time to feed the alien"), _imp_str_literal("Complexity = O(nlog(n)"), _imp_str_literal("Disk reversal error."), _imp_str_literal("PDS is on the bridge"), _imp_str_literal("PSR has been and gone"), _imp_str_literal("We'd better call Stan."), _imp_str_literal("Sid is innocent!"), _imp_str_literal("Oh no, not again."), _imp_str_literal("Beep-beep."), _imp_str_literal("Page Page Page"), _imp_str_literal("Swap Swap Swap"), _imp_str_literal("Oh, Good grief"), _imp_str_literal("Get the Purple One"), _imp_str_literal("Put it in the curry"), _imp_str_literal("Rooner Spools OK"), _imp_str_literal("Slide rules OK"), _imp_str_literal("Dyslexia rules KO"), _imp_str_literal("Queen rules UK"), _imp_str_literal("Apathy might rule OK"), _imp_str_literal("Cannot open input."), _imp_str_literal("%SYSTEM-F-ABORT,abort"), _imp_str_literal("NO."), _imp_str_literal("Phasers locked on."), _imp_str_literal("Shields are now dead."), _imp_str_literal("*indentation       |"), _imp_str_literal("No more room in cube"), _imp_str_literal("Filename:"), _imp_str_literal("Invalid Password."), _imp_str_literal("SET [ DEAD ]"), _imp_str_literal("SET [ **EOT** ]"), _imp_str_literal("My brain hurts"), _imp_str_literal("*T .BG;CA"), _imp_str_literal("Reel..Zot..Clamp"), _imp_str_literal("Trund!!"), _imp_str_literal("Beware of the Trund"), _imp_str_literal("Illegal opcode"), _imp_str_literal("Dont even Bother"), _imp_str_literal("WET PAINT"), _imp_str_literal("** CONSOLE FAILURE"), _imp_str_literal("** OUTPUT LOST"), _imp_str_literal("Are you sure ?"), _imp_str_literal("Delete?"), _imp_str_literal("** Too many externals"), _imp_str_literal("Host:v"), _imp_str_literal("Number 149"), _imp_str_literal("Rivet. Rivet."), _imp_str_literal("Try typing <return>"), _imp_str_literal("Type Q to quit"), _imp_str_literal("SYN SYN SYN RABBIT"), _imp_str_literal("%diagnose 2<<14+255"), _imp_str_literal("//EXEC FORT"), _imp_str_literal("Beam me up, Scotty!!"), _imp_str_literal("Glad to be of service."), _imp_str_literal("Tap out the code...."), _imp_str_literal("Wretched, isn't it?"), _imp_str_literal("MCR>PIP *.*;*/DE"), _imp_str_literal("X.IMP deleted"), _imp_str_literal("...a collum matrix..."), _imp_str_literal("PHUT-THINK-CLICK"), _imp_str_literal("%endofprogramme"), _imp_str_literal("1 statements compiled"), _imp_str_literal("Coojagoa Burzi??"), _imp_str_literal("I/O Silver."), _imp_str_literal("OKOKOKKO @"), _imp_str_literal(".LT1 *A*"), _imp_str_literal("Hello lift"), _imp_str_literal(".KJOB"), _imp_str_literal("your days are numbered"), _imp_str_literal("** CRASH IMMINENT"), _imp_str_literal("Wargle Wargle"), _imp_str_literal("57 varieties"), _imp_str_literal("_OPA0: \"Backup"), _imp_str_literal("Regardez, gentlemen.."), _imp_str_literal("What, pray tell??"), _imp_str_literal("So what, Mark?"), _imp_str_literal("Fiddle-de-dee"), _imp_str_literal("42"), _imp_str_literal("Forty-Two"), _imp_str_literal("42=7*9"), _imp_str_literal("RND(X) = 17 for all X"), _imp_str_literal("xxx~~~//][()?"), _imp_str_literal("Live long and prosper"), _imp_str_literal("Pass your maths, guyyz"), _imp_str_literal("Space, it says, is BIG"), _imp_str_literal("We've got you covered"), _imp_str_literal("NEGATIVE shields."), _imp_str_literal(">M-*k*;%c"), _imp_str_literal("Chewbacca is cuddly"), _imp_str_literal("Apathetic bloddy panic"), _imp_str_literal("Metaphysical Imagery.."), _imp_str_literal("I'm running out of Ink"), _imp_str_literal("BNAG!!!!!"), _imp_str_literal("HNAG!!!!!"), _imp_str_literal("Fs link HNUG?"), _imp_str_literal("CODE+GLAP+DIAGS=0"), _imp_str_literal("** corrupt diags"), _imp_str_literal("** diagnostics looping"), _imp_str_literal("**execution error:ille"), _imp_str_literal("** Segment error"), _imp_str_literal("LIB - *FATAL*"), _imp_str_literal("Edwin error 14."), _imp_str_literal("[0 XACTIONS AFFECTED]"), _imp_str_literal("I am lying."), _imp_str_literal("Coruscate, coruscate"), _imp_str_literal("Geezanarra DECtape"), _imp_str_literal(".("), _imp_str_literal("Type YES to continue"), _imp_str_literal("SAY \"XYZZY\""), _imp_str_literal("SAY \"PLUGH\""), _imp_str_literal("Clams got arms!"), _imp_str_literal("Clams got livers!"), _imp_str_literal("*CRASH*"), _imp_str_literal("FRED OBJ not on DT2"), _imp_str_literal("Alarm set for 08:00"), _imp_str_literal("The Bells...."), _imp_str_literal("*** Spelling errur"), _imp_str_literal("* Processor head crash"), _imp_str_literal("mouldy breadboard err"), _imp_str_literal("sliced breadboard err"), _imp_str_literal("greasy chip error"), _imp_str_literal("Resistance is Useless!"), _imp_str_literal("Production rules OK"), _imp_str_literal("ZZZZZZZZZZzzzzzzzz...."), _imp_str_literal("Merde alors"), _imp_str_literal("Foute-moi le camp!"), _imp_str_literal("Scheiss ab!"), _imp_str_literal("Va t'en faire baiser"), _imp_str_literal("Pisse-toi, salaud!"), _imp_str_literal("`X' (attrib Schulze)"), _imp_str_literal("----------------------"), _imp_str_literal("PASCAL is good AS CLAP"), _imp_str_literal("Zaphod's just zis guy."), _imp_str_literal("Dis is vot ve find...."), _imp_str_literal(".BLISS is ignorance"), _imp_str_literal("Pickle a squirrel"), _imp_str_literal("Eat a beaver"), _imp_str_literal("We hates it..."), _imp_str_literal("Ian was here"), _imp_str_literal("TANSTAAFL"), _imp_str_literal("Elbereth"), _imp_str_literal("Haunting you is fun..."), _imp_str_literal("You need another quote"), _imp_str_literal("EEEEXXXXXcellent !!"), _imp_str_literal("HAUNT HAUNT !!"), _imp_str_literal("TJ's for BMs OK!"), _imp_str_literal("Sauron Lives"), _imp_str_literal("Zap a Balrog - TODAY"), _imp_str_literal("Its a FEATURE!!!"), _imp_str_literal("I shall return..."), _imp_str_literal("Let us pray"), _imp_str_literal("%MOUSES-I-HI_THERE"), _imp_str_literal("Ho, Hummmmmm"), _imp_str_literal("Have a nasty day!"), _imp_str_literal("I WANNA COOKIE!!!"), _imp_str_literal("Share and enjoy"), _imp_str_literal("P_dsno = P_ssno+17"), _imp_str_literal("Suicide is painless"), _imp_str_literal("Laura rules!"), _imp_str_literal("Polly wants a biscuit"), _imp_str_literal("It's the rugby club"), _imp_str_literal("Time for moussaka"), _imp_str_literal("%SLART-E-BARFAAST"), _imp_str_literal("I'm a FORTRAN man!!!"), _imp_str_literal("Nibble a happy warthog"), _imp_str_literal("T. Dream time!!"), _imp_str_literal("Ve are ze robots!!"), _imp_str_literal("yojne dna erahS"), _imp_str_literal("FrreeeyyyOOOWWWW!!!"), _imp_str_literal("Structured BASIC ????"), _imp_str_literal("%Rms-e-korsakoff"), _imp_str_literal("NOPR-ERR"), _imp_str_literal("Clams got legs!!!"), _imp_str_literal("Wheeeeeeeeeeeee!!"), _imp_str_literal("EM Char in stmt"), _imp_str_literal("Mouses rules OK"), _imp_str_literal("IMP yourself today"), _imp_str_literal("Hi there"), _imp_str_literal("Yummmmmmmmm"), _imp_str_literal("Mouses rules OK"), _imp_str_literal("Have a nice day!"), _imp_str_literal("Friend or foe???"), _imp_str_literal("EMAS is great (honest)"), _imp_str_literal("%MTHLIB-E-FLOOVEMAT"), _imp_str_literal("Another silly message"), _imp_str_literal("As you wish, so be it."), _imp_str_literal("You may call me Mazda."), _imp_str_literal("Groovy, man."), _imp_str_literal("%control K'101011'"), _imp_str_literal("PROCESS RUNNING"), _imp_str_literal("movl #^xDEAD, r0"), _imp_str_literal("movl #^xB00B, r0"), _imp_str_literal("Filestore down til 11"), _imp_str_literal("Error: ';' expected"), _imp_str_literal("Another layer of metal"), _imp_str_literal("You have mail from SM"), _imp_str_literal("TEXT FOR F?"), _imp_str_literal("AV nowhere to be found"), _imp_str_literal("BDKH:BAD SEGMENT"),  };
                                                                //     25        "We hates Pascal!!!" (8),
                                                                //     26        "Weeble",
                                                                //     27        "SYN SYN SYN NAK",
                                                                //     28        "SYN SYN SYN ACK",
                                                                //     29        "SYN SYN SYN WABT",
                                                                //     30        "(CADDDDDADADADADR X)",
                                                                //     31        "*device timeout",
                                                                //     32        "%CLI-W-INSFPRM",
                                                                //     33        "MAKE 'FRED :JIM",
                                                                //     34        "Hack an Ent today",
                                                                //     35        "**HOST DOWN",
                                                                //     36        "PASCAL: No Thanks",
                                                                //     37        "Supermac is Back.",
                                                                //     38        "Vangelis isn't Dutch",
                                                                //     39        "DTE -> DCE SARM F (B)",
                                                                //     40        "3-space indentation??",
                                                                //     41        "CHR(7) - rings a bell?",
                                                                //     42        "Gimme back my 10p!!",
                                                                //     43        "A Masochist on a diet?",
                                                                //     44        "Turn the tape over..",
                                                                //     45        "Have an index card.",
                                                                //     46        "Device type:",
                                                                //     47        "Its frothy man.",
                                                                //     48        "Quine-McWHO????",
                                                                //     49        "Try chasing the dream.",
                                                                //     50        "Tangram Time!",
                                                                //     51        "Hi there Stan",
                                                                //     52        "Sod ML (attrib [MID])",
                                                                //     53        "HALT INST EXECUTED",
                                                                //     54        "ISYS80 V3.17",
                                                                //     55        "WSLXVANMAT for pres.",
                                                                //     56        "R0 = 00000804",
                                                                //     57        "Symbolic stack dump:",
                                                                //     58        "@173000G",
                                                                //     59        "This must be Thursday?",
                                                                //     60        "What a party...",
                                                                //     61        "Confirmed.",
                                                                //     62        "Right? ... Check!",
                                                                //     63        "$ SET NOCONTROL_Y",
                                                                //     64        "Noohoosferra Burzi??",
                                                                //     65        "Welcome to VAX/VMS v^O",
                                                                //     66        "Mostly Harmless...",
                                                                //     67        "VAX user service resu",
                                                                //     68        "prepare to die",
                                                                //     69        "Ecce Ecce F'tang",
                                                                //     70        "page owner violation",
                                                                //     71        "We wants a shrubbery",
                                                                //     72        "European or African??",
                                                                //     73        "Can I have a synopsys?",
                                                                //     74        "Kohilla Kohilla Splugh",
                                                                //     75        "Conversing...",
                                                                //     76        "%PAS-F-CASSELBOU",
                                                                //     77        "Baroque is Beautiful",
                                                                //     78        "WSLXVANMAT",
                                                                //     79        "**END**",
                                                                //     80        "Heeee-Haw.",
                                                                //     81        "Kirk to Enterprise...",
                                                                //     82        "Zot!",
                                                                //     83        "You must be joking",
                                                                //     84        "[] : *a list",
                                                                //     85        "false : bool",
                                                                //     86        "47 : num",
                                                                //     87        "- : elephant",
                                                                //     88        "[-;-] : butterfly list",
                                                                //     89        "You need more monkeys.",
                                                                //     90        "Have a gorilla..",
                                                                //     91        "Have a chocolate frog.",
                                                                //     92        "->@putslice(1:0,fred)",
                                                                //     93        "POSITIVE shields!!!",
                                                                //     94        "WHAT WHAT WHAT WHAT??",
                                                                //     95        "what what What WHAT??",
                                                                //     96        "addr(253)",
                                                                //     97        "* Form          |",
                                                                //     98        "SWITCH,SWITCH,SWITCH",
                                                                //     99        "TICK,TICK,TICK,TICK",
                                                                //    100        "string(addr(p_p1))=""""",
                                                                //    101        "Failure: m0",
                                                                //    102        "Mind if I smoke?",
                                                                //    103        "External missing",
                                                                //    104        "Int:.",
                                                                //    105        "BDBDBD Hi there, Buck.",
                                                                //    106        "0000 *a*",
                                                                //    107        "0 files",
                                                                //    108        "Hi there, Steve.",
                                                                //    109        "Cif:",
                                                                //    110        "Weebles wobble.",
                                                                //    111        "Stopped.",
                                                                //    112        "You Have Mail.",
                                                                //    113        "Play it again, Sam.",
                                                                //    114        "Play it again, Sid.",
                                                                //    115        "You have been Warned.",
                                                                //    116        ">%c",
                                                                //    117        ">(l0(f1/!/l40\f/!/)0)0",
                                                                //    118        "Apologies accepted.",
                                                                //    119        "Push the button, Max.",
                                                                //    120        "Try Oiling it.",
                                                                //    121        "Caimbridge, caimbridge",
                                                                //    122        "Dont Panic. Dont Panic",
                                                                //    123        "Coffee time...",
                                                                //    124        "Time to feed the alien",
                                                                //    125        "Complexity = O(nlog(n)",
                                                                //    126        "Disk reversal error.",
                                                                //    127        "PDS is on the bridge",
                                                                //    128        "PSR has been and gone",
                                                                //    129        "We'd better call Stan.",
                                                                //    130        "Sid is innocent!",
                                                                //    131        "Oh no, not again.",
                                                                //    132        "Beep-beep.",
                                                                //    133        "Page Page Page",
                                                                //    134        "Swap Swap Swap",
                                                                //    135        "Oh, Good grief",
                                                                //    136        "Get the Purple One",
                                                                //    137        "Put it in the curry",
                                                                //    138        "Rooner Spools OK",
                                                                //    139        "Slide rules OK",
                                                                //    140        "Dyslexia rules KO",
                                                                //    141        "Queen rules UK",
                                                                //    142        "Apathy might rule OK",
                                                                //    143        "Cannot open input.",
                                                                //    144        "%SYSTEM-F-ABORT,abort",
                                                                //    145        "NO.",
                                                                //    146        "Phasers locked on.",
                                                                //    147        "Shields are now dead.",
                                                                //    148        "*indentation       |",
                                                                //    149        "No more room in cube",
                                                                //    150        "Filename:",
                                                                //    151        "Invalid Password.",
                                                                //    152        "SET [ DEAD ]",
                                                                //    153        "SET [ **EOT** ]",
                                                                //    154        "My brain hurts",
                                                                //    155        "*T .BG;CA",
                                                                //    156        "Reel..Zot..Clamp",
                                                                //    157        "Trund!!",
                                                                //    158        "Beware of the Trund",
                                                                //    159        "Illegal opcode",
                                                                //    160        "Dont even Bother",
                                                                //    161        "WET PAINT",
                                                                //    162        "** CONSOLE FAILURE",
                                                                //    163        "** OUTPUT LOST",
                                                                //    164        "Are you sure ?",
                                                                //    165        "Delete?",
                                                                //    166        "** Too many externals",
                                                                //    167        "Host:v",
                                                                //    168        "Number 149",
                                                                //    169        "Rivet. Rivet.",
                                                                //    170        "Try typing <return>",
                                                                //    171        "Type Q to quit",
                                                                //    172        "SYN SYN SYN RABBIT",
                                                                //    173        "%diagnose 2<<14+255",
                                                                //    174        "//EXEC FORT",
                                                                //    175        "Beam me up, Scotty!!",
                                                                //    176        "Glad to be of service.",
                                                                //    177        "Tap out the code....",
                                                                //    178        "Wretched, isn't it?",
                                                                //    179        "MCR>PIP *.*;*/DE",
                                                                //    180        "X.IMP deleted",
                                                                //    181        "...a collum matrix...",
                                                                //    182        "PHUT-THINK-CLICK",
                                                                //    183        "%endofprogramme",
                                                                //    184        "1 statements compiled",
                                                                //    185        "Coojagoa Burzi??",
                                                                //    186        "I/O Silver.",
                                                                //    187        "OKOKOKKO @",
                                                                //    188        ".LT1 *A*",
                                                                //    189        "Hello lift",
                                                                //    190        ".KJOB",
                                                                //    191        "your days are numbered",
                                                                //    192        "** CRASH IMMINENT",
                                                                //    193        "Wargle Wargle",
                                                                //    194        "57 varieties",
                                                                //    195        "_OPA0: ""Backup",
                                                                //    196        "Regardez, gentlemen..",
                                                                //    197        "What, pray tell??",
                                                                //    198        "So what, Mark?",
                                                                //    199        "Fiddle-de-dee",
                                                                //    200        "42",
                                                                //    201        "Forty-Two",
                                                                //    202        "42=7*9",
                                                                //    203        "RND(X) = 17 for all X",
                                                                //    204        "xxx~~~//][()?",
                                                                //    205        "Live long and prosper",
                                                                //    206        "Pass your maths, guyyz",
                                                                //    207        "Space, it says, is BIG",
                                                                //    208        "We've got you covered",
                                                                //    209        "NEGATIVE shields.",
                                                                //    210        ">M-*k*;%c",
                                                                //    211        "Chewbacca is cuddly",
                                                                //    212        "Apathetic bloddy panic",
                                                                //    213        "Metaphysical Imagery..",
                                                                //    214        "I'm running out of Ink",
                                                                //    215        "BNAG!!!!!",
                                                                //    216        "HNAG!!!!!",
                                                                //    217        "Fs link HNUG?",
                                                                //    218        "CODE+GLAP+DIAGS=0",
                                                                //    219        "** corrupt diags",
                                                                //    220        "** diagnostics looping",
                                                                //    221        "**execution error:ille",
                                                                //    222        "** Segment error",
                                                                //    223        "LIB - *FATAL*",
                                                                //    224        "Edwin error 14.",
                                                                //    225        "[0 XACTIONS AFFECTED]",
                                                                //    226        "I am lying.",
                                                                //    227        "Coruscate, coruscate",
                                                                //    228        "Geezanarra DECtape",
                                                                //    229        ".(",
                                                                //    230        "Type YES to continue",
                                                                //    231        "SAY ""XYZZY""",
                                                                //    232        "SAY ""PLUGH""",
                                                                //    233        "Clams got arms!",
                                                                //    234        "Clams got livers!",
                                                                //    235        "*CRASH*",
                                                                //    236        "FRED OBJ not on DT2",
                                                                //    237        "Alarm set for 08:00",
                                                                //    238        "The Bells....",
                                                                //    239        "*** Spelling errur",
                                                                //    240        "* Processor head crash",
                                                                //    241        "mouldy breadboard err",
                                                                //    242        "sliced breadboard err",
                                                                //    243        "greasy chip error",
                                                                //    244        "Resistance is Useless!",
                                                                //    245        "Production rules OK",
                                                                //    246        "ZZZZZZZZZZzzzzzzzz....",
                                                                //    247        "Merde alors",
                                                                //    248        "Foute-moi le camp!",
                                                                //    249        "Scheiss ab!",
                                                                //    250        "Va t'en faire baiser",
                                                                //    251        "Pisse-toi, salaud!",
                                                                //    252        "`X' (attrib Schulze)",
                                                                //    253        "----------------------",
                                                                //    254        "PASCAL is good AS CLAP",
                                                                //    255        "Zaphod's just zis guy.",
                                                                //    256        "Dis is vot ve find....",
                                                                //    257        ".BLISS is ignorance",
                                                                //    258        "Pickle a squirrel",
                                                                //    259        "Eat a beaver",
                                                                //    260        "We hates it...",
                                                                //    261        "Ian was here",
                                                                //    262        "TANSTAAFL",
                                                                //    263        "Elbereth",
                                                                //    264        "Haunting you is fun...",
                                                                //    265        "You need another quote",
                                                                //    266        "EEEEXXXXXcellent !!",
                                                                //    267        "HAUNT HAUNT !!",
                                                                //    268        "TJ's for BMs OK!",
                                                                //    269        "Sauron Lives",
                                                                //    270        "Zap a Balrog - TODAY",
                                                                //    271        "Its a FEATURE!!!",
                                                                //    272        "I shall return...",
                                                                //    273        "Let us pray",
                                                                //    274        "%MOUSES-I-HI_THERE",
                                                                //    275        "Ho, Hummmmmm",
                                                                //    276        "Have a nasty day!",
                                                                //    277        "I WANNA COOKIE!!!",
                                                                //    278        "Share and enjoy",
                                                                //    279        "P_dsno = P_ssno+17",
                                                                //    280        "Suicide is painless",
                                                                //    281        "Laura rules!",
                                                                //    282        "Polly wants a biscuit",
                                                                //    283        "It's the rugby club",
                                                                //    284        "Time for moussaka",
                                                                //    285        "%SLART-E-BARFAAST",
                                                                //    286        "I'm a FORTRAN man!!!",
                                                                //    287        "Nibble a happy warthog",
                                                                //    288        "T. Dream time!!",
                                                                //    289        "Ve are ze robots!!",
                                                                //    290        "yojne dna erahS",
                                                                //    291        "FrreeeyyyOOOWWWW!!!",
                                                                //    292        "Structured BASIC ????",
                                                                //    293        "%Rms-e-korsakoff",
                                                                //    294        "NOPR-ERR",
                                                                //    295        "Clams got legs!!!",
                                                                //    296        "Wheeeeeeeeeeeee!!",
                                                                //    297        "EM Char in stmt",
                                                                //    298        "Mouses rules OK",
                                                                //    299        "IMP yourself today",
                                                                //    300        "Hi there",
                                                                //    301        "Yummmmmmmmm",
                                                                //    302        "Mouses rules OK",
                                                                //    303        "Have a nice day!",
                                                                //    304        "Friend or foe???",
                                                                //    305        "EMAS is great (honest)",
                                                                //    306        "%MTHLIB-E-FLOOVEMAT",
                                                                //    307        "Another silly message",
                                                                //    308        "As you wish, so be it.",
                                                                //    309        "You may call me Mazda.",
                                                                //    310        "Groovy, man.",
                                                                //    311        "%control K'101011'",
                                                                //    312        "PROCESS RUNNING",
                                                                //    313        "movl #^xDEAD, r0",
                                                                //    314        "movl #^xB00B, r0",
                                                                //    315        "Filestore down til 11",
                                                                //    316        "Error: ';' expected",
                                                                //    317        "Another layer of metal",
                                                                //    318        "You have mail from SM",
                                                                //    319        "TEXT FOR F?",
                                                                //    320        "AV nowhere to be found",
                                                                //    321        "BDKH:BAD SEGMENT"
                                                                //    322     %INTEGER %FN random messno
#line 322 "regression-compile-tmp/haunt.imp"
int RANDOMMESSNO( void )
#line 322 "regression-compile-tmp/haunt.imp"
{
                                                                //    323        %OWN %INTEGER k1 = 0
#line 323 "regression-compile-tmp/haunt.imp"
static int K1 = 0;
                                                                //    324        %INTEGER k2
#line 324 "regression-compile-tmp/haunt.imp"
int K2;
                                                                //    325        %CYCLE
#line 325 "regression-compile-tmp/haunt.imp"
L_0002:;
                                                                //    326           k1 = (k1*125 + 1) & 16383
#line 326 "regression-compile-tmp/haunt.imp"
K1 = (((((int)((((int)(K1)) * (125)))) + (1))) & (16383));
                                                                //    327           k2 = IMOD(k1)
#line 327 "regression-compile-tmp/haunt.imp"
K2 = _imp_IMOD(K1);
                                                                //    328           k2 = REM(k2,max messages+1)
#line 328 "regression-compile-tmp/haunt.imp"
K2 = REM(K2, 304);
                                                                //    329           %RESULT = k2 %IF 0 <= k2 <= max messages
#line 329 "regression-compile-tmp/haunt.imp"
if ((((0) > (K2))) || (((K2) > (303)))) goto L_0005;
#line 329 "regression-compile-tmp/haunt.imp"
/* Remove %on %event handler here if present for this block */
return K2;
#line 329 "regression-compile-tmp/haunt.imp"
L_0005:;
                                                                //    330        %REPEAT
#line 330 "regression-compile-tmp/haunt.imp"
goto L_0002;
                                                                //    331     %END
#line 331 "regression-compile-tmp/haunt.imp"
} // End of block RANDOMMESSNO at level 2
                                                                //    332     %IF dummy="" %THEN %START
#line 332 "regression-compile-tmp/haunt.imp"
if ((_imp_strcmp(DUMMY, _imp_str_literal("")) != 0)) goto L_0003;
                                                                //    333        num victims = 0
#line 333 "regression-compile-tmp/haunt.imp"
NUMVICTIMS = 0;
                                                                //    334        PROMPT("Victim:")
#line 334 "regression-compile-tmp/haunt.imp"
_imp_PROMPT(_imp_str_literal("Victim:"));
                                                                //    335        %WHILE num victims <= max victims %CYCLE
#line 335 "regression-compile-tmp/haunt.imp"
L_0006:;
#line 335 "regression-compile-tmp/haunt.imp"
if (((NUMVICTIMS) > (10))) goto L_0007;
                                                                //    336           proc name = ""
#line 336 "regression-compile-tmp/haunt.imp"
PROCNAME = _imp_str_literal("");
                                                                //    337           SKIP SYMBOL %WHILE NEXT CH <= ' ' %AND NEXT CH # 25
#line 337 "regression-compile-tmp/haunt.imp"
L_0009:;
#line 337 "regression-compile-tmp/haunt.imp"
if (((_imp_NEXTCH()) > (32))) goto L_000a;
#line 337 "regression-compile-tmp/haunt.imp"
if (((_imp_NEXTCH()) == (25))) goto L_000a;
#line 337 "regression-compile-tmp/haunt.imp"
_imp_SKIPSYMBOL();
#line 337 "regression-compile-tmp/haunt.imp"
goto L_0009;
#line 337 "regression-compile-tmp/haunt.imp"
L_000a:;
                                                                //    338           %EXIT %IF NEXT CH = 25
#line 338 "regression-compile-tmp/haunt.imp"
if (((_imp_NEXTCH()) != (25))) goto L_000c;
#line 338 "regression-compile-tmp/haunt.imp"
goto L_0007;
#line 338 "regression-compile-tmp/haunt.imp"
L_000c:;
                                                                //    339           %WHILE NEXT SYMBOL # NL %CYCLE
#line 339 "regression-compile-tmp/haunt.imp"
L_000d:;
#line 339 "regression-compile-tmp/haunt.imp"
if (((_imp_NEXTSYMBOL()) == (10))) goto L_000e;
                                                                //    340              proc name = proc name . TO STRING(NEXT SYMBOL)
#line 340 "regression-compile-tmp/haunt.imp"
PROCNAME = _imp_join((_imp_string)PROCNAME,(_imp_string)_imp_TOSTRING(_imp_NEXTSYMBOL()));
                                                                //    341              SKIP SYMBOL
#line 341 "regression-compile-tmp/haunt.imp"
_imp_SKIPSYMBOL();
                                                                //    342           %REPEAT
#line 342 "regression-compile-tmp/haunt.imp"
goto L_000d;
#line 342 "regression-compile-tmp/haunt.imp"
L_000e:;
                                                                //    343           %EXIT %IF proc name = ".end" %OR proc name = ".END"
#line 343 "regression-compile-tmp/haunt.imp"
if ((_imp_strcmp(PROCNAME, _imp_str_literal(".end")) == 0)) goto L_000f;
#line 343 "regression-compile-tmp/haunt.imp"
if ((_imp_strcmp(PROCNAME, _imp_str_literal(".END")) != 0)) goto L_0010;
#line 343 "regression-compile-tmp/haunt.imp"
L_000f:;
#line 343 "regression-compile-tmp/haunt.imp"
goto L_0007;
#line 343 "regression-compile-tmp/haunt.imp"
L_0010:;
                                                                //    344           num victims = num victims + 1
#line 344 "regression-compile-tmp/haunt.imp"
NUMVICTIMS = (((int)(NUMVICTIMS)) + (1));
                                                                //    345           victim(num victims) = proc name
#line 345 "regression-compile-tmp/haunt.imp"
VICTIM[(((int)(NUMVICTIMS)) - (1))] = PROCNAME;
                                                                //    346        %REPEAT
#line 346 "regression-compile-tmp/haunt.imp"
goto L_0006;
#line 346 "regression-compile-tmp/haunt.imp"
L_0007:;
                                                                //    347     %FINISH %ELSE %START
#line 347 "regression-compile-tmp/haunt.imp"
goto L_0011;
#line 347 "regression-compile-tmp/haunt.imp"
L_0003:;
                                                                //    348        victim(1) = dummy
#line 348 "regression-compile-tmp/haunt.imp"
VICTIM[0] = DUMMY;
                                                                //    349        num victims = 1
#line 349 "regression-compile-tmp/haunt.imp"
NUMVICTIMS = 1;
                                                                //    350     %FINISH
#line 350 "regression-compile-tmp/haunt.imp"
L_0011:;
                                                                //    351     %CYCLE times = 1, 1, max times
#line 351 "regression-compile-tmp/haunt.imp"
{static int _initial, _increment, _final, _control;
_initial = 1; _increment = 1; _final = MAXTIMES; TIMES = _control = _initial;
if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle TIMES = 1, 1, MAXTIMES");
TIMES -= _increment; _control -= _increment;
L_0012:;
if (TIMES == _final) goto L_0013;
TIMES += _increment; _control += _increment;
if (TIMES != _control) _imp_signal(4,2,0,"Corrupt control variable TIMES"); /* FOR loop control variable corrupted */
}
                                                                //    352        D DELAY(delay)
#line 352 "regression-compile-tmp/haunt.imp"
DDELAY(DELAY);
                                                                //    353        %CYCLE this victim = 1, 1, num victims
#line 353 "regression-compile-tmp/haunt.imp"
{static int _initial, _increment, _final, _control;
_initial = 1; _increment = 1; _final = NUMVICTIMS; THISVICTIM = _control = _initial;
if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle THISVICTIM = 1, 1, NUMVICTIMS");
THISVICTIM -= _increment; _control -= _increment;
L_0015:;
if (THISVICTIM == _final) goto L_0016;
THISVICTIM += _increment; _control += _increment;
if (THISVICTIM != _control) _imp_signal(4,2,0,"Corrupt control variable THISVICTIM"); /* FOR loop control variable corrupted */
}
                                                                //    354           selected = random mess no
#line 354 "regression-compile-tmp/haunt.imp"
SELECTED = RANDOMMESSNO();
                                                                //    355           !!NOTIFY(victim(this victim)."""".message(selected))
                                                                //    356           printstring(message(selected)); newline
#line 356 "regression-compile-tmp/haunt.imp"
_imp_PRINTSTRING(MESSAGE[SELECTED]);
#line 356 "regression-compile-tmp/haunt.imp"
_imp_NEWLINE();
                                                                //    357        %REPEAT
#line 357 "regression-compile-tmp/haunt.imp"
goto L_0015;
#line 357 "regression-compile-tmp/haunt.imp"
L_0016:;
                                                                //    358     %REPEAT
#line 358 "regression-compile-tmp/haunt.imp"
goto L_0012;
#line 358 "regression-compile-tmp/haunt.imp"
L_0013:;
                                                                //    359  %END
#line 359 "regression-compile-tmp/haunt.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block HAUNT at level 1
                                                                //    360  
                                                                //    361  %begin
#line 361 "regression-compile-tmp/haunt.imp"
int main(int argc, char **argv) {
  _imp_initialise(argc, argv);
                                                                //    362    select output(0)
#line 362 "regression-compile-tmp/haunt.imp"
_imp_SELECTOUTPUT(0);
                                                                //    363    haunt("user")
#line 363 "regression-compile-tmp/haunt.imp"
HAUNT(_imp_str_literal("user"));
                                                                //    364  %end
#line 364 "regression-compile-tmp/haunt.imp"
/* Remove %on %event handler here if present for this block */
return 0;
} // End of block _imp_main at level 1
                                                                //    365  
                                                                //    366  %ENDOFFILE
#line 366 "regression-compile-tmp/haunt.imp"
// End of file
