#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" { __label__ _imp_endofblock; // 3 %systemroutinespec SLEEP %alias "sleep"(%integer secs) _imp_current_line = 3; _imp_current_file = "regression-compile-tmp/haunt.imp"; #line 3 "regression-compile-tmp/haunt.imp" extern void sleep( int SECS ); // 4 SLEEP(secs) _imp_current_line = 4; _imp_current_file = "regression-compile-tmp/haunt.imp"; #line 4 "regression-compile-tmp/haunt.imp" sleep(SECS); // 5 %end _imp_current_line = 5; _imp_current_file = "regression-compile-tmp/haunt.imp"; #line 5 "regression-compile-tmp/haunt.imp" return; _imp_endofblock: ; } // 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" { __label__ _imp_endofblock; // 11 %INTEGERFN REM(%INTEGER NUM,DEN) _imp_current_line = 11; _imp_current_file = "regression-compile-tmp/haunt.imp"; #line 11 "regression-compile-tmp/haunt.imp" int REM( int NUM, int DEN ) #line 11 "regression-compile-tmp/haunt.imp" { __label__ _imp_endofblock; // 12 %RESULT=NUM-NUM//DEN*NUM _imp_current_line = 12; _imp_current_file = "regression-compile-tmp/haunt.imp"; #line 12 "regression-compile-tmp/haunt.imp" return ((NUM) - (((((((int)(NUM)) / ((int)(_Z(DEN)))))) * (NUM)))); // 13 %END _imp_current_line = 13; _imp_current_file = "regression-compile-tmp/haunt.imp"; #line 13 "regression-compile-tmp/haunt.imp" _imp_endofblock: ; } // End of block REM at level 2 // 14 %CONST %INTEGER max victims = 10 _imp_current_line = 14; _imp_current_file = "regression-compile-tmp/haunt.imp"; // 15 %CONST %INTEGER max messages = 303 _imp_current_line = 15; _imp_current_file = "regression-compile-tmp/haunt.imp"; // 16 %CONST %INTEGER minutes = 1 _imp_current_line = 16; _imp_current_file = "regression-compile-tmp/haunt.imp"; // 17 %STRING(15) %ARRAY victim(1:max victims) _imp_current_line = 17; _imp_current_file = "regression-compile-tmp/haunt.imp"; #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 _imp_current_line = 18; _imp_current_file = "regression-compile-tmp/haunt.imp"; #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 _imp_current_line = 19; _imp_current_file = "regression-compile-tmp/haunt.imp"; #line 19 "regression-compile-tmp/haunt.imp" int SELECTED; // 20 %OWNSTRING(31) blurb _imp_current_line = 20; _imp_current_file = "regression-compile-tmp/haunt.imp"; #line 20 "regression-compile-tmp/haunt.imp" static _imp_string /*%string(31)*/ BLURB; // 21 %STRING(15) proc name _imp_current_line = 21; _imp_current_file = "regression-compile-tmp/haunt.imp"; #line 21 "regression-compile-tmp/haunt.imp" _imp_string /*%string(15)*/ PROCNAME; // 22 delay = 10 _imp_current_line = 22; _imp_current_file = "regression-compile-tmp/haunt.imp"; #line 22 "regression-compile-tmp/haunt.imp" DELAY = 10; // 23 max times = 60 // delay * minutes ;! One minutes worth... _imp_current_line = 23; _imp_current_file = "regression-compile-tmp/haunt.imp"; #line 23 "regression-compile-tmp/haunt.imp" MAXTIMES = ((((((int)(60)) / ((int)(_Z(DELAY)))))) * (1)); // 24 %CONST %STRING(22) %ARRAY message(0:max messages) = %C _imp_current_line = 24; _imp_current_file = "regression-compile-tmp/haunt.imp"; #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 "), _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 ", // 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 _imp_current_line = 322; _imp_current_file = "regression-compile-tmp/haunt.imp"; #line 322 "regression-compile-tmp/haunt.imp" int RANDOMMESSNO( void ) #line 322 "regression-compile-tmp/haunt.imp" { __label__ _imp_endofblock; // 323 %OWN %INTEGER k1 = 0 _imp_current_line = 323; _imp_current_file = "regression-compile-tmp/haunt.imp"; #line 323 "regression-compile-tmp/haunt.imp" static int K1 = 0; // 324 %INTEGER k2 _imp_current_line = 324; _imp_current_file = "regression-compile-tmp/haunt.imp"; #line 324 "regression-compile-tmp/haunt.imp" int K2; // 325 %CYCLE _imp_current_line = 325; _imp_current_file = "regression-compile-tmp/haunt.imp"; #line 325 "regression-compile-tmp/haunt.imp" L_0002:; // 326 k1 = (k1*125 + 1) & 16383 _imp_current_line = 326; _imp_current_file = "regression-compile-tmp/haunt.imp"; #line 326 "regression-compile-tmp/haunt.imp" K1 = (((((int)((((int)(K1)) * (125)))) + (1))) & (16383)); // 327 k2 = IMOD(k1) _imp_current_line = 327; _imp_current_file = "regression-compile-tmp/haunt.imp"; #line 327 "regression-compile-tmp/haunt.imp" K2 = _imp_IMOD(K1); // 328 k2 = REM(k2,max messages+1) _imp_current_line = 328; _imp_current_file = "regression-compile-tmp/haunt.imp"; #line 328 "regression-compile-tmp/haunt.imp" K2 = REM(K2, 304); // 329 %RESULT = k2 %IF 0 <= k2 <= max messages _imp_current_line = 329; _imp_current_file = "regression-compile-tmp/haunt.imp"; #line 329 "regression-compile-tmp/haunt.imp" if ((((0) > (K2))) || (((K2) > (303)))) goto L_0005; #line 329 "regression-compile-tmp/haunt.imp" return K2; #line 329 "regression-compile-tmp/haunt.imp" L_0005:; // 330 %REPEAT _imp_current_line = 330; _imp_current_file = "regression-compile-tmp/haunt.imp"; #line 330 "regression-compile-tmp/haunt.imp" goto L_0002; // 331 %END _imp_current_line = 331; _imp_current_file = "regression-compile-tmp/haunt.imp"; #line 331 "regression-compile-tmp/haunt.imp" _imp_endofblock: ; } // End of block RANDOMMESSNO at level 2 // 332 %IF dummy="" %THEN %START _imp_current_line = 332; _imp_current_file = "regression-compile-tmp/haunt.imp"; #line 332 "regression-compile-tmp/haunt.imp" if ((_imp_strcmp(DUMMY, _imp_str_literal("")) != 0)) goto L_0003; // 333 num victims = 0 _imp_current_line = 333; _imp_current_file = "regression-compile-tmp/haunt.imp"; #line 333 "regression-compile-tmp/haunt.imp" NUMVICTIMS = 0; // 334 PROMPT("Victim:") _imp_current_line = 334; _imp_current_file = "regression-compile-tmp/haunt.imp"; #line 334 "regression-compile-tmp/haunt.imp" _imp_PROMPT(_imp_str_literal("Victim:")); // 335 %WHILE num victims <= max victims %CYCLE _imp_current_line = 335; _imp_current_file = "regression-compile-tmp/haunt.imp"; #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 = "" _imp_current_line = 336; _imp_current_file = "regression-compile-tmp/haunt.imp"; #line 336 "regression-compile-tmp/haunt.imp" PROCNAME = _imp_str_literal(""); // 337 SKIP SYMBOL %WHILE NEXT CH <= ' ' %AND NEXT CH # 25 _imp_current_line = 337; _imp_current_file = "regression-compile-tmp/haunt.imp"; #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 _imp_current_line = 338; _imp_current_file = "regression-compile-tmp/haunt.imp"; #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 _imp_current_line = 339; _imp_current_file = "regression-compile-tmp/haunt.imp"; #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) _imp_current_line = 340; _imp_current_file = "regression-compile-tmp/haunt.imp"; #line 340 "regression-compile-tmp/haunt.imp" PROCNAME = _imp_join((_imp_string)PROCNAME,(_imp_string)_imp_TOSTRING(_imp_NEXTSYMBOL())); // 341 SKIP SYMBOL _imp_current_line = 341; _imp_current_file = "regression-compile-tmp/haunt.imp"; #line 341 "regression-compile-tmp/haunt.imp" _imp_SKIPSYMBOL(); // 342 %REPEAT _imp_current_line = 342; _imp_current_file = "regression-compile-tmp/haunt.imp"; #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" _imp_current_line = 343; _imp_current_file = "regression-compile-tmp/haunt.imp"; #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 _imp_current_line = 344; _imp_current_file = "regression-compile-tmp/haunt.imp"; #line 344 "regression-compile-tmp/haunt.imp" NUMVICTIMS = (((int)(NUMVICTIMS)) + (1)); // 345 victim(num victims) = proc name _imp_current_line = 345; _imp_current_file = "regression-compile-tmp/haunt.imp"; #line 345 "regression-compile-tmp/haunt.imp" VICTIM[(((int)(NUMVICTIMS)) - (1))] = PROCNAME; // 346 %REPEAT _imp_current_line = 346; _imp_current_file = "regression-compile-tmp/haunt.imp"; #line 346 "regression-compile-tmp/haunt.imp" goto L_0006; #line 346 "regression-compile-tmp/haunt.imp" L_0007:; // 347 %FINISH %ELSE %START _imp_current_line = 347; _imp_current_file = "regression-compile-tmp/haunt.imp"; #line 347 "regression-compile-tmp/haunt.imp" goto L_0011; #line 347 "regression-compile-tmp/haunt.imp" L_0003:; // 348 victim(1) = dummy _imp_current_line = 348; _imp_current_file = "regression-compile-tmp/haunt.imp"; #line 348 "regression-compile-tmp/haunt.imp" VICTIM[0] = DUMMY; // 349 num victims = 1 _imp_current_line = 349; _imp_current_file = "regression-compile-tmp/haunt.imp"; #line 349 "regression-compile-tmp/haunt.imp" NUMVICTIMS = 1; // 350 %FINISH _imp_current_line = 350; _imp_current_file = "regression-compile-tmp/haunt.imp"; #line 350 "regression-compile-tmp/haunt.imp" L_0011:; // 351 %CYCLE times = 1, 1, max times _imp_current_line = 351; _imp_current_file = "regression-compile-tmp/haunt.imp"; #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) _imp_current_line = 352; _imp_current_file = "regression-compile-tmp/haunt.imp"; #line 352 "regression-compile-tmp/haunt.imp" DDELAY(DELAY); // 353 %CYCLE this victim = 1, 1, num victims _imp_current_line = 353; _imp_current_file = "regression-compile-tmp/haunt.imp"; #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 _imp_current_line = 354; _imp_current_file = "regression-compile-tmp/haunt.imp"; #line 354 "regression-compile-tmp/haunt.imp" SELECTED = RANDOMMESSNO(); // 355 !!NOTIFY(victim(this victim)."""".message(selected)) // 356 printstring(message(selected)); newline _imp_current_line = 356; _imp_current_file = "regression-compile-tmp/haunt.imp"; #line 356 "regression-compile-tmp/haunt.imp" _imp_PRINTSTRING(MESSAGE[SELECTED]); _imp_current_line = 356; _imp_current_file = "regression-compile-tmp/haunt.imp"; #line 356 "regression-compile-tmp/haunt.imp" _imp_NEWLINE(); // 357 %REPEAT _imp_current_line = 357; _imp_current_file = "regression-compile-tmp/haunt.imp"; #line 357 "regression-compile-tmp/haunt.imp" goto L_0015; #line 357 "regression-compile-tmp/haunt.imp" L_0016:; // 358 %REPEAT _imp_current_line = 358; _imp_current_file = "regression-compile-tmp/haunt.imp"; #line 358 "regression-compile-tmp/haunt.imp" goto L_0012; #line 358 "regression-compile-tmp/haunt.imp" L_0013:; // 359 %END _imp_current_line = 359; _imp_current_file = "regression-compile-tmp/haunt.imp"; #line 359 "regression-compile-tmp/haunt.imp" return; _imp_endofblock: ; } // End of block HAUNT at level 1 // 360 // 361 %begin #line 361 "regression-compile-tmp/haunt.imp" int main(int argc, char **argv) { __label__ _imp_endofblock; _imp_initialise(argc, argv); // 362 select output(0) _imp_current_line = 362; _imp_current_file = "regression-compile-tmp/haunt.imp"; #line 362 "regression-compile-tmp/haunt.imp" _imp_SELECTOUTPUT(0); // 363 haunt("user") _imp_current_line = 363; _imp_current_file = "regression-compile-tmp/haunt.imp"; #line 363 "regression-compile-tmp/haunt.imp" HAUNT(_imp_str_literal("user")); // 364 %end _imp_current_line = 364; _imp_current_file = "regression-compile-tmp/haunt.imp"; #line 364 "regression-compile-tmp/haunt.imp" return 0; _imp_endofblock: ; } // End of block _imp_main at level 1 // 365 // 366 %ENDOFFILE #line 366 "regression-compile-tmp/haunt.imp" // End of file