
     1  !!%EXTERNALROUTINESPEC DDELAY(%INTEGER secs)
     2  %externalroutine DDELAY(%integer secs)
503 @ 4405:         LINE   2 "regression-compile-tmp/haunt.imp"
504 @ 4441:         DEF    DDELAY (_DDELAY) p1=V_0081 a/tf=7 b/format=0 c/ostate=23  type=0 (<type:0>) form=7 (routine) special=0 (<special:0>) linkage=3 (external) spec=0 indirect=0 unass=1
505 @ 4459:            START  ( FORMAL PARAMETERS  {lev=1 --> 2, nested=0 --> 1}
506 @ 4460:               DEF    SECS p1=V_0082 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
507 @ 4476:            FINISH ) {lev=1}

     3    %systemroutinespec SLEEP %alias "sleep"(%integer secs)
508 @ 4477:            LINE   3 "regression-compile-tmp/haunt.imp"
509 @ 4513:            ALIAS  "sleep"
510 @ 4520:            DEF    SLEEP (_DDELAY_SLEEP) p1=V_0083 a/tf=7 b/format=0 c/ostate=2c  type=0 (<type:0>) form=7 (routine) special=0 (<special:0>) linkage=4 (system) spec=1 indirect=0 unass=1
511 @ 4537:            START  ( FORMAL PARAMETERS  {lev=1 --> 2, nested=0 --> 1}
512 @ 4538:               DEF    SECS p1=V_0084 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
513 @ 4554:            FINISH ) {lev=1}

     4    SLEEP(secs)
514 @ 4555:            LINE   4 "regression-compile-tmp/haunt.imp"
515 @ 4591:            PUSH   SLEEP
516 @ 4594:            PUSH   SECS
517 @ 4597:            ASSPAR
518 @ 4598:            CALL  

     5  %end
     6  
     7  !!%EXTERNALROUTINESPEC PROMPT(%STRING(15) s)
     8  !!%EXTERNALROUTINESPEC NOTIFY(%STRING(255) who what)
     9  
519 @ 4599:            LINE   5 "regression-compile-tmp/haunt.imp"
520 @ 4635:         END    _DDELAY {lev=1 --> 0}

    10  %EXTERNALROUTINE HAUNT(%STRING(255) dummy)
521 @ 4636:         LINE   10 "regression-compile-tmp/haunt.imp"
522 @ 4672:         DEF    HAUNT (_HAUNT) p1=V_0082 a/tf=7 b/format=0 c/ostate=23  type=0 (<type:0>) form=7 (routine) special=0 (<special:0>) linkage=3 (external) spec=0 indirect=0 unass=1
523 @ 4689:            START  ( FORMAL PARAMETERS  {lev=1 --> 2, nested=0 --> 1}
524 @ 4690:               DEF    DUMMY p1=V_0083 a/tf=31 b/format=ff c/ostate=0  type=3 (string) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
525 @ 4707:            FINISH ) {lev=1}

    11    %INTEGERFN REM(%INTEGER NUM,DEN)
526 @ 4708:            LINE   11 "regression-compile-tmp/haunt.imp"
527 @ 4744:            DEF    REM (_HAUNT_REM) p1=V_0084 a/tf=18 b/format=1 c/ostate=10  type=1 (integer) form=8 (function) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=1 unass=0
528 @ 4759:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
529 @ 4760:                  DEF    NUM p1=V_0085 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
530 @ 4775:                  DEF    DEN p1=V_0086 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
531 @ 4790:               FINISH ) {lev=2}

    12       %RESULT=NUM-NUM//DEN*NUM
532 @ 4791:               LINE   12 "regression-compile-tmp/haunt.imp"
533 @ 4827:               PUSH   NUM
534 @ 4830:               PUSH   NUM
535 @ 4833:               PUSH   DEN
536 @ 4836:               QUOT  
537 @ 4837:               PUSH   NUM
538 @ 4840:               MUL   
539 @ 4841:               SUB   
540 @ 4842:               RESULT

    13    %END
541 @ 4843:               LINE   13 "regression-compile-tmp/haunt.imp"
542 @ 4879:            END    _HAUNT_REM {lev=2 --> 1}

    14     %CONST %INTEGER max victims = 10
543 @ 4880:            LINE   14 "regression-compile-tmp/haunt.imp"

    15     %CONST %INTEGER max messages = 303
544 @ 4916:            LINE   15 "regression-compile-tmp/haunt.imp"

    16     %CONST %INTEGER minutes = 1
545 @ 4952:            LINE   16 "regression-compile-tmp/haunt.imp"

    17     %STRING(15) %ARRAY victim(1:max victims)
546 @ 4988:            LINE   17 "regression-compile-tmp/haunt.imp"
547 @ 5024:            DEF    VICTIM p1=V_0085 a/tf=3b b/format=f c/ostate=100  type=3 (string) form=11 (array) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
548 @ 5042:            PUSHI  #0x00000001
549 @ 5047:            PUSHI  #0x0000000a
550 @ 5052:            DIM    0001 0001

    18     %INTEGER proc no, num victims, this victim, times, delay, max times
551 @ 5058:            LINE   18 "regression-compile-tmp/haunt.imp"
552 @ 5094:            DEF    PROCNO p1=V_0086 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
553 @ 5112:            DEF    NUMVICTIMS p1=V_0087 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
554 @ 5134:            DEF    THISVICTIM p1=V_0088 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
555 @ 5156:            DEF    TIMES p1=V_0089 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
556 @ 5173:            DEF    DELAY p1=V_008a a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
557 @ 5190:            DEF    MAXTIMES p1=V_008b a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

    19     %INTEGER selected
558 @ 5210:            LINE   19 "regression-compile-tmp/haunt.imp"
559 @ 5246:            DEF    SELECTED p1=V_008c a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

    20     %OWNSTRING(31) blurb
560 @ 5266:            LINE   20 "regression-compile-tmp/haunt.imp"
561 @ 5302:            DEF    BLURB p1=V_008d a/tf=31 b/format=1f c/ostate=21  type=3 (string) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
562 @ 5319:            INIT   1

    21     %STRING(15) proc name
563 @ 5322:            LINE   21 "regression-compile-tmp/haunt.imp"
564 @ 5358:            DEF    PROCNAME p1=V_008e a/tf=31 b/format=f c/ostate=0  type=3 (string) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

    22     delay = 10
565 @ 5378:            LINE   22 "regression-compile-tmp/haunt.imp"
566 @ 5414:            PUSH   DELAY
567 @ 5417:            PUSHI  #0x0000000a
568 @ 5422:            ASSVAL

    23     max times = 60 // delay * minutes         ;! One minutes worth...
569 @ 5423:            LINE   23 "regression-compile-tmp/haunt.imp"
570 @ 5459:            PUSH   MAXTIMES
571 @ 5462:            PUSHI  #0x0000003c
572 @ 5467:            PUSH   DELAY
573 @ 5470:            QUOT  
574 @ 5471:            PUSHI  #0x00000001
575 @ 5476:            MUL   
576 @ 5477:            ASSVAL

    24     %CONST %STRING(22) %ARRAY message(0:max messages) = %C
    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"
577 @ 5478:            LINE   24 "regression-compile-tmp/haunt.imp"
578 @ 5514:            PUSHI  #0x00000000
579 @ 5519:            PUSHI  #0x0000012f
580 @ 5524:            BOUNDS
581 @ 5525:            DEF    MESSAGE p1=V_008f a/tf=3b b/format=16 c/ostate=112  type=3 (string) form=11 (array) special=0 (<special:0>) linkage=2 (constant) spec=0 indirect=1 unass=0
582 @ 5544:            PUSHS  "We hates Pascal!!!"
583 @ 5564:            INIT   8
584 @ 5567:            PUSHS  "Weeble"
585 @ 5575:            INIT   1
586 @ 5578:            PUSHS  "SYN SYN SYN NAK"
587 @ 5595:            INIT   1
588 @ 5598:            PUSHS  "SYN SYN SYN ACK"
589 @ 5615:            INIT   1
590 @ 5618:            PUSHS  "SYN SYN SYN WABT"
591 @ 5636:            INIT   1
592 @ 5639:            PUSHS  "(CADDDDDADADADADR X)"
593 @ 5661:            INIT   1
594 @ 5664:            PUSHS  "*device timeout"
595 @ 5681:            INIT   1
596 @ 5684:            PUSHS  "%CLI-W-INSFPRM"
597 @ 5700:            INIT   1
598 @ 5703:            PUSHS  "MAKE 'FRED :JIM"
599 @ 5720:            INIT   1
600 @ 5723:            PUSHS  "Hack an Ent today"
601 @ 5742:            INIT   1
602 @ 5745:            PUSHS  "**HOST DOWN"
603 @ 5758:            INIT   1
604 @ 5761:            PUSHS  "PASCAL: No Thanks"
605 @ 5780:            INIT   1
606 @ 5783:            PUSHS  "Supermac is Back."
607 @ 5802:            INIT   1
608 @ 5805:            PUSHS  "Vangelis isn't Dutch"
609 @ 5827:            INIT   1
610 @ 5830:            PUSHS  "DTE -> DCE SARM F (B)"
611 @ 5853:            INIT   1
612 @ 5856:            PUSHS  "3-space indentation??"
613 @ 5879:            INIT   1
614 @ 5882:            PUSHS  "CHR(7) - rings a bell?"
615 @ 5906:            INIT   1
616 @ 5909:            PUSHS  "Gimme back my 10p!!"
617 @ 5930:            INIT   1
618 @ 5933:            PUSHS  "A Masochist on a diet?"
619 @ 5957:            INIT   1
620 @ 5960:            PUSHS  "Turn the tape over.."
621 @ 5982:            INIT   1
622 @ 5985:            PUSHS  "Have an index card."
623 @ 6006:            INIT   1
624 @ 6009:            PUSHS  "Device type:"
625 @ 6023:            INIT   1
626 @ 6026:            PUSHS  "Its frothy man."
627 @ 6043:            INIT   1
628 @ 6046:            PUSHS  "Quine-McWHO????"
629 @ 6063:            INIT   1
630 @ 6066:            PUSHS  "Try chasing the dream."
631 @ 6090:            INIT   1
632 @ 6093:            PUSHS  "Tangram Time!"
633 @ 6108:            INIT   1
634 @ 6111:            PUSHS  "Hi there Stan"
635 @ 6126:            INIT   1
636 @ 6129:            PUSHS  "Sod ML (attrib [MID])"
637 @ 6152:            INIT   1
638 @ 6155:            PUSHS  "HALT INST EXECUTED"
639 @ 6175:            INIT   1
640 @ 6178:            PUSHS  "ISYS80 V3.17"
641 @ 6192:            INIT   1
642 @ 6195:            PUSHS  "WSLXVANMAT for pres."
643 @ 6217:            INIT   1
644 @ 6220:            PUSHS  "R0 = 00000804"
645 @ 6235:            INIT   1
646 @ 6238:            PUSHS  "Symbolic stack dump:"
647 @ 6260:            INIT   1
648 @ 6263:            PUSHS  "@173000G"
649 @ 6273:            INIT   1
650 @ 6276:            PUSHS  "This must be Thursday?"
651 @ 6300:            INIT   1
652 @ 6303:            PUSHS  "What a party..."
653 @ 6320:            INIT   1
654 @ 6323:            PUSHS  "Confirmed."
655 @ 6335:            INIT   1
656 @ 6338:            PUSHS  "Right? ... Check!"
657 @ 6357:            INIT   1
658 @ 6360:            PUSHS  "$ SET NOCONTROL_Y"
659 @ 6379:            INIT   1
660 @ 6382:            PUSHS  "Noohoosferra Burzi??"
661 @ 6404:            INIT   1
662 @ 6407:            PUSHS  "Welcome to VAX/VMS v^O"
663 @ 6431:            INIT   1
664 @ 6434:            PUSHS  "Mostly Harmless..."
665 @ 6454:            INIT   1
666 @ 6457:            PUSHS  "VAX user service resu"
667 @ 6480:            INIT   1
668 @ 6483:            PUSHS  "prepare to die"
669 @ 6499:            INIT   1
670 @ 6502:            PUSHS  "Ecce Ecce F'tang"
671 @ 6520:            INIT   1
672 @ 6523:            PUSHS  "page owner violation"
673 @ 6545:            INIT   1
674 @ 6548:            PUSHS  "We wants a shrubbery"
675 @ 6570:            INIT   1
676 @ 6573:            PUSHS  "European or African??"
677 @ 6596:            INIT   1
678 @ 6599:            PUSHS  "Can I have a synopsys?"
679 @ 6623:            INIT   1
680 @ 6626:            PUSHS  "Kohilla Kohilla Splugh"
681 @ 6650:            INIT   1
682 @ 6653:            PUSHS  "Conversing..."
683 @ 6668:            INIT   1
684 @ 6671:            PUSHS  "%PAS-F-CASSELBOU"
685 @ 6689:            INIT   1
686 @ 6692:            PUSHS  "Baroque is Beautiful"
687 @ 6714:            INIT   1
688 @ 6717:            PUSHS  "WSLXVANMAT"
689 @ 6729:            INIT   1
690 @ 6732:            PUSHS  "**END**"
691 @ 6741:            INIT   1
692 @ 6744:            PUSHS  "Heeee-Haw."
693 @ 6756:            INIT   1
694 @ 6759:            PUSHS  "Kirk to Enterprise..."
695 @ 6782:            INIT   1
696 @ 6785:            PUSHS  "Zot!"
697 @ 6791:            INIT   1
698 @ 6794:            PUSHS  "You must be joking"
699 @ 6814:            INIT   1
700 @ 6817:            PUSHS  "[] : *a list"
701 @ 6831:            INIT   1
702 @ 6834:            PUSHS  "false : bool"
703 @ 6848:            INIT   1
704 @ 6851:            PUSHS  "47 : num"
705 @ 6861:            INIT   1
706 @ 6864:            PUSHS  "- : elephant"
707 @ 6878:            INIT   1
708 @ 6881:            PUSHS  "[-;-] : butterfly list"
709 @ 6905:            INIT   1
710 @ 6908:            PUSHS  "You need more monkeys."
711 @ 6932:            INIT   1
712 @ 6935:            PUSHS  "Have a gorilla.."
713 @ 6953:            INIT   1
714 @ 6956:            PUSHS  "Have a chocolate frog."
715 @ 6980:            INIT   1
716 @ 6983:            PUSHS  "->@putslice(1:0,fred)"
717 @ 7006:            INIT   1
718 @ 7009:            PUSHS  "POSITIVE shields!!!"
719 @ 7030:            INIT   1
720 @ 7033:            PUSHS  "WHAT WHAT WHAT WHAT??"
721 @ 7056:            INIT   1
722 @ 7059:            PUSHS  "what what What WHAT??"
723 @ 7082:            INIT   1
724 @ 7085:            PUSHS  "addr(253)"
725 @ 7096:            INIT   1
726 @ 7099:            PUSHS  "* Form          |"
727 @ 7118:            INIT   1
728 @ 7121:            PUSHS  "SWITCH,SWITCH,SWITCH"
729 @ 7143:            INIT   1
730 @ 7146:            PUSHS  "TICK,TICK,TICK,TICK"
731 @ 7167:            INIT   1
732 @ 7170:            PUSHS  "string(addr(p_p1))=\"\""
733 @ 7193:            INIT   1
734 @ 7196:            PUSHS  "Failure: m0"
735 @ 7209:            INIT   1
736 @ 7212:            PUSHS  "Mind if I smoke?"
737 @ 7230:            INIT   1
738 @ 7233:            PUSHS  "External missing"
739 @ 7251:            INIT   1
740 @ 7254:            PUSHS  "Int:."
741 @ 7261:            INIT   1
742 @ 7264:            PUSHS  "BDBDBD Hi there, Buck."
743 @ 7288:            INIT   1
744 @ 7291:            PUSHS  "0000 *a*"
745 @ 7301:            INIT   1
746 @ 7304:            PUSHS  "0 files"
747 @ 7313:            INIT   1
748 @ 7316:            PUSHS  "Hi there, Steve."
749 @ 7334:            INIT   1
750 @ 7337:            PUSHS  "Cif:"
751 @ 7343:            INIT   1
752 @ 7346:            PUSHS  "Weebles wobble."
753 @ 7363:            INIT   1
754 @ 7366:            PUSHS  "Stopped."
755 @ 7376:            INIT   1
756 @ 7379:            PUSHS  "You Have Mail."
757 @ 7395:            INIT   1
758 @ 7398:            PUSHS  "Play it again, Sam."
759 @ 7419:            INIT   1
760 @ 7422:            PUSHS  "Play it again, Sid."
761 @ 7443:            INIT   1
762 @ 7446:            PUSHS  "You have been Warned."
763 @ 7469:            INIT   1
764 @ 7472:            PUSHS  ">%c"
765 @ 7477:            INIT   1
766 @ 7480:            PUSHS  ">(l0(f1/!/l40\f/!/)0)0"
767 @ 7504:            INIT   1
768 @ 7507:            PUSHS  "Apologies accepted."
769 @ 7528:            INIT   1
770 @ 7531:            PUSHS  "Push the button, Max."
771 @ 7554:            INIT   1
772 @ 7557:            PUSHS  "Try Oiling it."
773 @ 7573:            INIT   1
774 @ 7576:            PUSHS  "Caimbridge, caimbridge"
775 @ 7600:            INIT   1
776 @ 7603:            PUSHS  "Dont Panic. Dont Panic"
777 @ 7627:            INIT   1
778 @ 7630:            PUSHS  "Coffee time..."
779 @ 7646:            INIT   1
780 @ 7649:            PUSHS  "Time to feed the alien"
781 @ 7673:            INIT   1
782 @ 7676:            PUSHS  "Complexity = O(nlog(n)"
783 @ 7700:            INIT   1
784 @ 7703:            PUSHS  "Disk reversal error."
785 @ 7725:            INIT   1
786 @ 7728:            PUSHS  "PDS is on the bridge"
787 @ 7750:            INIT   1
788 @ 7753:            PUSHS  "PSR has been and gone"
789 @ 7776:            INIT   1
790 @ 7779:            PUSHS  "We'd better call Stan."
791 @ 7803:            INIT   1
792 @ 7806:            PUSHS  "Sid is innocent!"
793 @ 7824:            INIT   1
794 @ 7827:            PUSHS  "Oh no, not again."
795 @ 7846:            INIT   1
796 @ 7849:            PUSHS  "Beep-beep."
797 @ 7861:            INIT   1
798 @ 7864:            PUSHS  "Page Page Page"
799 @ 7880:            INIT   1
800 @ 7883:            PUSHS  "Swap Swap Swap"
801 @ 7899:            INIT   1
802 @ 7902:            PUSHS  "Oh, Good grief"
803 @ 7918:            INIT   1
804 @ 7921:            PUSHS  "Get the Purple One"
805 @ 7941:            INIT   1
806 @ 7944:            PUSHS  "Put it in the curry"
807 @ 7965:            INIT   1
808 @ 7968:            PUSHS  "Rooner Spools OK"
809 @ 7986:            INIT   1
810 @ 7989:            PUSHS  "Slide rules OK"
811 @ 8005:            INIT   1
812 @ 8008:            PUSHS  "Dyslexia rules KO"
813 @ 8027:            INIT   1
814 @ 8030:            PUSHS  "Queen rules UK"
815 @ 8046:            INIT   1
816 @ 8049:            PUSHS  "Apathy might rule OK"
817 @ 8071:            INIT   1
818 @ 8074:            PUSHS  "Cannot open input."
819 @ 8094:            INIT   1
820 @ 8097:            PUSHS  "%SYSTEM-F-ABORT,abort"
821 @ 8120:            INIT   1
822 @ 8123:            PUSHS  "NO."
823 @ 8128:            INIT   1
824 @ 8131:            PUSHS  "Phasers locked on."
825 @ 8151:            INIT   1
826 @ 8154:            PUSHS  "Shields are now dead."
827 @ 8177:            INIT   1
828 @ 8180:            PUSHS  "*indentation       |"
829 @ 8202:            INIT   1
830 @ 8205:            PUSHS  "No more room in cube"
831 @ 8227:            INIT   1
832 @ 8230:            PUSHS  "Filename:"
833 @ 8241:            INIT   1
834 @ 8244:            PUSHS  "Invalid Password."
835 @ 8263:            INIT   1
836 @ 8266:            PUSHS  "SET [ DEAD ]"
837 @ 8280:            INIT   1
838 @ 8283:            PUSHS  "SET [ **EOT** ]"
839 @ 8300:            INIT   1
840 @ 8303:            PUSHS  "My brain hurts"
841 @ 8319:            INIT   1
842 @ 8322:            PUSHS  "*T .BG;CA"
843 @ 8333:            INIT   1
844 @ 8336:            PUSHS  "Reel..Zot..Clamp"
845 @ 8354:            INIT   1
846 @ 8357:            PUSHS  "Trund!!"
847 @ 8366:            INIT   1
848 @ 8369:            PUSHS  "Beware of the Trund"
849 @ 8390:            INIT   1
850 @ 8393:            PUSHS  "Illegal opcode"
851 @ 8409:            INIT   1
852 @ 8412:            PUSHS  "Dont even Bother"
853 @ 8430:            INIT   1
854 @ 8433:            PUSHS  "WET PAINT"
855 @ 8444:            INIT   1
856 @ 8447:            PUSHS  "** CONSOLE FAILURE"
857 @ 8467:            INIT   1
858 @ 8470:            PUSHS  "** OUTPUT LOST"
859 @ 8486:            INIT   1
860 @ 8489:            PUSHS  "Are you sure ?"
861 @ 8505:            INIT   1
862 @ 8508:            PUSHS  "Delete?"
863 @ 8517:            INIT   1
864 @ 8520:            PUSHS  "** Too many externals"
865 @ 8543:            INIT   1
866 @ 8546:            PUSHS  "Host:v"
867 @ 8554:            INIT   1
868 @ 8557:            PUSHS  "Number 149"
869 @ 8569:            INIT   1
870 @ 8572:            PUSHS  "Rivet. Rivet."
871 @ 8587:            INIT   1
872 @ 8590:            PUSHS  "Try typing <return>"
873 @ 8611:            INIT   1
874 @ 8614:            PUSHS  "Type Q to quit"
875 @ 8630:            INIT   1
876 @ 8633:            PUSHS  "SYN SYN SYN RABBIT"
877 @ 8653:            INIT   1
878 @ 8656:            PUSHS  "%diagnose 2<<14+255"
879 @ 8677:            INIT   1
880 @ 8680:            PUSHS  "//EXEC FORT"
881 @ 8693:            INIT   1
882 @ 8696:            PUSHS  "Beam me up, Scotty!!"
883 @ 8718:            INIT   1
884 @ 8721:            PUSHS  "Glad to be of service."
885 @ 8745:            INIT   1
886 @ 8748:            PUSHS  "Tap out the code...."
887 @ 8770:            INIT   1
888 @ 8773:            PUSHS  "Wretched, isn't it?"
889 @ 8794:            INIT   1
890 @ 8797:            PUSHS  "MCR>PIP *.*;*/DE"
891 @ 8815:            INIT   1
892 @ 8818:            PUSHS  "X.IMP deleted"
893 @ 8833:            INIT   1
894 @ 8836:            PUSHS  "...a collum matrix..."
895 @ 8859:            INIT   1
896 @ 8862:            PUSHS  "PHUT-THINK-CLICK"
897 @ 8880:            INIT   1
898 @ 8883:            PUSHS  "%endofprogramme"
899 @ 8900:            INIT   1
900 @ 8903:            PUSHS  "1 statements compiled"
901 @ 8926:            INIT   1
902 @ 8929:            PUSHS  "Coojagoa Burzi??"
903 @ 8947:            INIT   1
904 @ 8950:            PUSHS  "I/O Silver."
905 @ 8963:            INIT   1
906 @ 8966:            PUSHS  "OKOKOKKO @"
907 @ 8978:            INIT   1
908 @ 8981:            PUSHS  ".LT1 *A*"
909 @ 8991:            INIT   1
910 @ 8994:            PUSHS  "Hello lift"
911 @ 9006:            INIT   1
912 @ 9009:            PUSHS  ".KJOB"
913 @ 9016:            INIT   1
914 @ 9019:            PUSHS  "your days are numbered"
915 @ 9043:            INIT   1
916 @ 9046:            PUSHS  "** CRASH IMMINENT"
917 @ 9065:            INIT   1
918 @ 9068:            PUSHS  "Wargle Wargle"
919 @ 9083:            INIT   1
920 @ 9086:            PUSHS  "57 varieties"
921 @ 9100:            INIT   1
922 @ 9103:            PUSHS  "_OPA0: \"Backup"
923 @ 9119:            INIT   1
924 @ 9122:            PUSHS  "Regardez, gentlemen.."
925 @ 9145:            INIT   1
926 @ 9148:            PUSHS  "What, pray tell??"
927 @ 9167:            INIT   1
928 @ 9170:            PUSHS  "So what, Mark?"
929 @ 9186:            INIT   1
930 @ 9189:            PUSHS  "Fiddle-de-dee"
931 @ 9204:            INIT   1
932 @ 9207:            PUSHS  "42"
933 @ 9211:            INIT   1
934 @ 9214:            PUSHS  "Forty-Two"
935 @ 9225:            INIT   1
936 @ 9228:            PUSHS  "42=7*9"
937 @ 9236:            INIT   1
938 @ 9239:            PUSHS  "RND(X) = 17 for all X"
939 @ 9262:            INIT   1
940 @ 9265:            PUSHS  "xxx~~~//][()?"
941 @ 9280:            INIT   1
942 @ 9283:            PUSHS  "Live long and prosper"
943 @ 9306:            INIT   1
944 @ 9309:            PUSHS  "Pass your maths, guyyz"
945 @ 9333:            INIT   1
946 @ 9336:            PUSHS  "Space, it says, is BIG"
947 @ 9360:            INIT   1
948 @ 9363:            PUSHS  "We've got you covered"
949 @ 9386:            INIT   1
950 @ 9389:            PUSHS  "NEGATIVE shields."
951 @ 9408:            INIT   1
952 @ 9411:            PUSHS  ">M-*k*;%c"
953 @ 9422:            INIT   1
954 @ 9425:            PUSHS  "Chewbacca is cuddly"
955 @ 9446:            INIT   1
956 @ 9449:            PUSHS  "Apathetic bloddy panic"
957 @ 9473:            INIT   1
958 @ 9476:            PUSHS  "Metaphysical Imagery.."
959 @ 9500:            INIT   1
960 @ 9503:            PUSHS  "I'm running out of Ink"
961 @ 9527:            INIT   1
962 @ 9530:            PUSHS  "BNAG!!!!!"
963 @ 9541:            INIT   1
964 @ 9544:            PUSHS  "HNAG!!!!!"
965 @ 9555:            INIT   1
966 @ 9558:            PUSHS  "Fs link HNUG?"
967 @ 9573:            INIT   1
968 @ 9576:            PUSHS  "CODE+GLAP+DIAGS=0"
969 @ 9595:            INIT   1
970 @ 9598:            PUSHS  "** corrupt diags"
971 @ 9616:            INIT   1
972 @ 9619:            PUSHS  "** diagnostics looping"
973 @ 9643:            INIT   1
974 @ 9646:            PUSHS  "**execution error:ille"
975 @ 9670:            INIT   1
976 @ 9673:            PUSHS  "** Segment error"
977 @ 9691:            INIT   1
978 @ 9694:            PUSHS  "LIB - *FATAL*"
979 @ 9709:            INIT   1
980 @ 9712:            PUSHS  "Edwin error 14."
981 @ 9729:            INIT   1
982 @ 9732:            PUSHS  "[0 XACTIONS AFFECTED]"
983 @ 9755:            INIT   1
984 @ 9758:            PUSHS  "I am lying."
985 @ 9771:            INIT   1
986 @ 9774:            PUSHS  "Coruscate, coruscate"
987 @ 9796:            INIT   1
988 @ 9799:            PUSHS  "Geezanarra DECtape"
989 @ 9819:            INIT   1
990 @ 9822:            PUSHS  ".("
991 @ 9826:            INIT   1
992 @ 9829:            PUSHS  "Type YES to continue"
993 @ 9851:            INIT   1
994 @ 9854:            PUSHS  "SAY \"XYZZY\""
995 @ 9867:            INIT   1
996 @ 9870:            PUSHS  "SAY \"PLUGH\""
997 @ 9883:            INIT   1
998 @ 9886:            PUSHS  "Clams got arms!"
999 @ 9903:            INIT   1
1000 @ 9906:            PUSHS  "Clams got livers!"
1001 @ 9925:            INIT   1
1002 @ 9928:            PUSHS  "*CRASH*"
1003 @ 9937:            INIT   1
1004 @ 9940:            PUSHS  "FRED OBJ not on DT2"
1005 @ 9961:            INIT   1
1006 @ 9964:            PUSHS  "Alarm set for 08:00"
1007 @ 9985:            INIT   1
1008 @ 9988:            PUSHS  "The Bells...."
1009 @ 10003:            INIT   1
1010 @ 10006:            PUSHS  "*** Spelling errur"
1011 @ 10026:            INIT   1
1012 @ 10029:            PUSHS  "* Processor head crash"
1013 @ 10053:            INIT   1
1014 @ 10056:            PUSHS  "mouldy breadboard err"
1015 @ 10079:            INIT   1
1016 @ 10082:            PUSHS  "sliced breadboard err"
1017 @ 10105:            INIT   1
1018 @ 10108:            PUSHS  "greasy chip error"
1019 @ 10127:            INIT   1
1020 @ 10130:            PUSHS  "Resistance is Useless!"
1021 @ 10154:            INIT   1
1022 @ 10157:            PUSHS  "Production rules OK"
1023 @ 10178:            INIT   1
1024 @ 10181:            PUSHS  "ZZZZZZZZZZzzzzzzzz...."
1025 @ 10205:            INIT   1
1026 @ 10208:            PUSHS  "Merde alors"
1027 @ 10221:            INIT   1
1028 @ 10224:            PUSHS  "Foute-moi le camp!"
1029 @ 10244:            INIT   1
1030 @ 10247:            PUSHS  "Scheiss ab!"
1031 @ 10260:            INIT   1
1032 @ 10263:            PUSHS  "Va t'en faire baiser"
1033 @ 10285:            INIT   1
1034 @ 10288:            PUSHS  "Pisse-toi, salaud!"
1035 @ 10308:            INIT   1
1036 @ 10311:            PUSHS  "`X' (attrib Schulze)"
1037 @ 10333:            INIT   1
1038 @ 10336:            PUSHS  "----------------------"
1039 @ 10360:            INIT   1
1040 @ 10363:            PUSHS  "PASCAL is good AS CLAP"
1041 @ 10387:            INIT   1
1042 @ 10390:            PUSHS  "Zaphod's just zis guy."
1043 @ 10414:            INIT   1
1044 @ 10417:            PUSHS  "Dis is vot ve find...."
1045 @ 10441:            INIT   1
1046 @ 10444:            PUSHS  ".BLISS is ignorance"
1047 @ 10465:            INIT   1
1048 @ 10468:            PUSHS  "Pickle a squirrel"
1049 @ 10487:            INIT   1
1050 @ 10490:            PUSHS  "Eat a beaver"
1051 @ 10504:            INIT   1
1052 @ 10507:            PUSHS  "We hates it..."
1053 @ 10523:            INIT   1
1054 @ 10526:            PUSHS  "Ian was here"
1055 @ 10540:            INIT   1
1056 @ 10543:            PUSHS  "TANSTAAFL"
1057 @ 10554:            INIT   1
1058 @ 10557:            PUSHS  "Elbereth"
1059 @ 10567:            INIT   1
1060 @ 10570:            PUSHS  "Haunting you is fun..."
1061 @ 10594:            INIT   1
1062 @ 10597:            PUSHS  "You need another quote"
1063 @ 10621:            INIT   1
1064 @ 10624:            PUSHS  "EEEEXXXXXcellent !!"
1065 @ 10645:            INIT   1
1066 @ 10648:            PUSHS  "HAUNT HAUNT !!"
1067 @ 10664:            INIT   1
1068 @ 10667:            PUSHS  "TJ's for BMs OK!"
1069 @ 10685:            INIT   1
1070 @ 10688:            PUSHS  "Sauron Lives"
1071 @ 10702:            INIT   1
1072 @ 10705:            PUSHS  "Zap a Balrog - TODAY"
1073 @ 10727:            INIT   1
1074 @ 10730:            PUSHS  "Its a FEATURE!!!"
1075 @ 10748:            INIT   1
1076 @ 10751:            PUSHS  "I shall return..."
1077 @ 10770:            INIT   1
1078 @ 10773:            PUSHS  "Let us pray"
1079 @ 10786:            INIT   1
1080 @ 10789:            PUSHS  "%MOUSES-I-HI_THERE"
1081 @ 10809:            INIT   1
1082 @ 10812:            PUSHS  "Ho, Hummmmmm"
1083 @ 10826:            INIT   1
1084 @ 10829:            PUSHS  "Have a nasty day!"
1085 @ 10848:            INIT   1
1086 @ 10851:            PUSHS  "I WANNA COOKIE!!!"
1087 @ 10870:            INIT   1
1088 @ 10873:            PUSHS  "Share and enjoy"
1089 @ 10890:            INIT   1
1090 @ 10893:            PUSHS  "P_dsno = P_ssno+17"
1091 @ 10913:            INIT   1
1092 @ 10916:            PUSHS  "Suicide is painless"
1093 @ 10937:            INIT   1
1094 @ 10940:            PUSHS  "Laura rules!"
1095 @ 10954:            INIT   1
1096 @ 10957:            PUSHS  "Polly wants a biscuit"
1097 @ 10980:            INIT   1
1098 @ 10983:            PUSHS  "It's the rugby club"
1099 @ 11004:            INIT   1
1100 @ 11007:            PUSHS  "Time for moussaka"
1101 @ 11026:            INIT   1
1102 @ 11029:            PUSHS  "%SLART-E-BARFAAST"
1103 @ 11048:            INIT   1
1104 @ 11051:            PUSHS  "I'm a FORTRAN man!!!"
1105 @ 11073:            INIT   1
1106 @ 11076:            PUSHS  "Nibble a happy warthog"
1107 @ 11100:            INIT   1
1108 @ 11103:            PUSHS  "T. Dream time!!"
1109 @ 11120:            INIT   1
1110 @ 11123:            PUSHS  "Ve are ze robots!!"
1111 @ 11143:            INIT   1
1112 @ 11146:            PUSHS  "yojne dna erahS"
1113 @ 11163:            INIT   1
1114 @ 11166:            PUSHS  "FrreeeyyyOOOWWWW!!!"
1115 @ 11187:            INIT   1
1116 @ 11190:            PUSHS  "Structured BASIC ????"
1117 @ 11213:            INIT   1
1118 @ 11216:            PUSHS  "%Rms-e-korsakoff"
1119 @ 11234:            INIT   1
1120 @ 11237:            PUSHS  "NOPR-ERR"
1121 @ 11247:            INIT   1
1122 @ 11250:            PUSHS  "Clams got legs!!!"
1123 @ 11269:            INIT   1
1124 @ 11272:            PUSHS  "Wheeeeeeeeeeeee!!"
1125 @ 11291:            INIT   1
1126 @ 11294:            PUSHS  "EM Char in stmt"
1127 @ 11311:            INIT   1
1128 @ 11314:            PUSHS  "Mouses rules OK"
1129 @ 11331:            INIT   1
1130 @ 11334:            PUSHS  "IMP yourself today"
1131 @ 11354:            INIT   1
1132 @ 11357:            PUSHS  "Hi there"
1133 @ 11367:            INIT   1
1134 @ 11370:            PUSHS  "Yummmmmmmmm"
1135 @ 11383:            INIT   1
1136 @ 11386:            PUSHS  "Mouses rules OK"
1137 @ 11403:            INIT   1
1138 @ 11406:            PUSHS  "Have a nice day!"
1139 @ 11424:            INIT   1
1140 @ 11427:            PUSHS  "Friend or foe???"
1141 @ 11445:            INIT   1
1142 @ 11448:            PUSHS  "EMAS is great (honest)"
1143 @ 11472:            INIT   1
1144 @ 11475:            PUSHS  "%MTHLIB-E-FLOOVEMAT"
1145 @ 11496:            INIT   1
1146 @ 11499:            PUSHS  "Another silly message"
1147 @ 11522:            INIT   1
1148 @ 11525:            PUSHS  "As you wish, so be it."
1149 @ 11549:            INIT   1
1150 @ 11552:            PUSHS  "You may call me Mazda."
1151 @ 11576:            INIT   1
1152 @ 11579:            PUSHS  "Groovy, man."
1153 @ 11593:            INIT   1
1154 @ 11596:            PUSHS  "%control K'101011'"
1155 @ 11616:            INIT   1
1156 @ 11619:            PUSHS  "PROCESS RUNNING"
1157 @ 11636:            INIT   1
1158 @ 11639:            PUSHS  "movl #^xDEAD, r0"
1159 @ 11657:            INIT   1
1160 @ 11660:            PUSHS  "movl #^xB00B, r0"
1161 @ 11678:            INIT   1
1162 @ 11681:            PUSHS  "Filestore down til 11"
1163 @ 11704:            INIT   1
1164 @ 11707:            PUSHS  "Error: ';' expected"
1165 @ 11728:            INIT   1
1166 @ 11731:            PUSHS  "Another layer of metal"
1167 @ 11755:            INIT   1
1168 @ 11758:            PUSHS  "You have mail from SM"
1169 @ 11781:            INIT   1
1170 @ 11784:            PUSHS  "TEXT FOR F?"
1171 @ 11797:            INIT   1
1172 @ 11800:            PUSHS  "AV nowhere to be found"
1173 @ 11824:            INIT   1
1174 @ 11827:            PUSHS  "BDKH:BAD SEGMENT"
1175 @ 11845:            INIT   1

   322     %INTEGER %FN random messno
1176 @ 11848:            LINE   322 "regression-compile-tmp/haunt.imp"
1177 @ 11884:            DEF    RANDOMMESSNO (_HAUNT_RANDOMMESSNO) p1=V_0090 a/tf=18 b/format=1 c/ostate=10  type=1 (integer) form=8 (function) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=1 unass=0
1178 @ 11908:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
1179 @ 11909:               FINISH ) {lev=2}

   323        %OWN %INTEGER k1 = 0
1180 @ 11910:               LINE   323 "regression-compile-tmp/haunt.imp"
1181 @ 11946:               PUSHI  #0x00000000
1182 @ 11951:               DEF    K1 p1=V_0091 a/tf=11 b/format=1 c/ostate=21  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
1183 @ 11965:               INIT   1

   324        %INTEGER k2
1184 @ 11968:               LINE   324 "regression-compile-tmp/haunt.imp"
1185 @ 12004:               DEF    K2 p1=V_0092 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

   325        %CYCLE
1186 @ 12018:               LINE   325 "regression-compile-tmp/haunt.imp"
1187 @ 12054:               LOCATE L_0003

   326           k1 = (k1*125 + 1) & 16383
1188 @ 12057:               LINE   326 "regression-compile-tmp/haunt.imp"
1189 @ 12093:               PUSH   K1
1190 @ 12096:               PUSH   K1
1191 @ 12099:               PUSHI  #0x0000007d
1192 @ 12104:               MUL   
1193 @ 12105:               PUSHI  #0x00000001
1194 @ 12110:               ADD   
1195 @ 12111:               PUSHI  #0x00003fff
1196 @ 12116:               AND   
1197 @ 12117:               ASSVAL

   327           k2 = IMOD(k1)
1198 @ 12118:               LINE   327 "regression-compile-tmp/haunt.imp"
1199 @ 12154:               PUSH   K2
1200 @ 12157:               PUSH   IMOD
1201 @ 12160:               PUSH   K1
1202 @ 12163:               ASSPAR
1203 @ 12164:               CALL  
1204 @ 12165:               ASSVAL

   328           k2 = REM(k2,max messages+1)
1205 @ 12166:               LINE   328 "regression-compile-tmp/haunt.imp"
1206 @ 12202:               PUSH   K2
1207 @ 12205:               PUSH   REM
1208 @ 12208:               PUSH   K2
1209 @ 12211:               ASSPAR
1210 @ 12212:               PUSHI  #0x0000012f
1211 @ 12217:               PUSHI  #0x00000001
1212 @ 12222:               ADD   
1213 @ 12223:               ASSPAR
1214 @ 12224:               CALL  
1215 @ 12225:               ASSVAL

   329           %RESULT = k2 %IF 0 <= k2 <= max messages
1216 @ 12226:               LINE   329 "regression-compile-tmp/haunt.imp"
1217 @ 12262:               PUSHI  #0x00000000
1218 @ 12267:               PUSH   K2
1219 @ 12270:               JUMPIFD > L_0007
1220 @ 12274:               PUSHI  #0x0000012f
1221 @ 12279:               JUMPIF > L_0007
1222 @ 12283:               PUSH   K2
1223 @ 12286:               RESULT
1224 @ 12287:               LOCATE L_0007

   330        %REPEAT
1225 @ 12290:               LINE   330 "regression-compile-tmp/haunt.imp"
1226 @ 12326:               REPEAT L_0003

   331     %END
1227 @ 12329:               LINE   331 "regression-compile-tmp/haunt.imp"
1228 @ 12365:            END    _HAUNT_RANDOMMESSNO {lev=2 --> 1}

   332     %IF dummy="" %THEN %START
1229 @ 12366:            LINE   332 "regression-compile-tmp/haunt.imp"
1230 @ 12402:            PUSH   DUMMY
1231 @ 12405:            PUSHS  ""
1232 @ 12407:            JUMPIF # L_0004

   333        num victims = 0
1233 @ 12411:            LINE   333 "regression-compile-tmp/haunt.imp"
1234 @ 12447:            PUSH   NUMVICTIMS
1235 @ 12450:            PUSHI  #0x00000000
1236 @ 12455:            ASSVAL

   334        PROMPT("Victim:")
1237 @ 12456:            LINE   334 "regression-compile-tmp/haunt.imp"
1238 @ 12492:            PUSH   PROMPT
1239 @ 12495:            PUSHS  "Victim:"
1240 @ 12504:            ASSPAR
1241 @ 12505:            CALL  

   335        %WHILE num victims <= max victims %CYCLE
1242 @ 12506:            LINE   335 "regression-compile-tmp/haunt.imp"
1243 @ 12542:            LOCATE L_0006
1244 @ 12545:            PUSH   NUMVICTIMS
1245 @ 12548:            PUSHI  #0x0000000a
1246 @ 12553:            JUMPIF > L_0007

   336           proc name = ""
1247 @ 12557:            LINE   336 "regression-compile-tmp/haunt.imp"
1248 @ 12593:            PUSH   PROCNAME
1249 @ 12596:            PUSHS  ""
1250 @ 12598:            ASSVAL

   337           SKIP SYMBOL %WHILE NEXT CH <= ' ' %AND NEXT CH # 25
1251 @ 12599:            LINE   337 "regression-compile-tmp/haunt.imp"
1252 @ 12635:            LOCATE L_0009
1253 @ 12638:            PUSH   NEXTCH
1254 @ 12641:            CALL  
1255 @ 12642:            PUSHI  #0x00000020
1256 @ 12647:            JUMPIF > L_000a
1257 @ 12651:            PUSH   NEXTCH
1258 @ 12654:            CALL  
1259 @ 12655:            PUSHI  #0x00000019
1260 @ 12660:            JUMPIF = L_000a
1261 @ 12664:            PUSH   SKIPSYMBOL
1262 @ 12667:            CALL  
1263 @ 12668:            REPEAT L_0009
1264 @ 12671:            LOCATE L_000a

   338           %EXIT %IF NEXT CH = 25
1265 @ 12674:            LINE   338 "regression-compile-tmp/haunt.imp"
1266 @ 12710:            PUSH   NEXTCH
1267 @ 12713:            CALL  
1268 @ 12714:            PUSHI  #0x00000019
1269 @ 12719:            JUMPIF # L_000a
1270 @ 12723:            GOTO   L_0007
1271 @ 12726:            LOCATE L_000a

   339           %WHILE NEXT SYMBOL # NL %CYCLE
1272 @ 12729:            LINE   339 "regression-compile-tmp/haunt.imp"
1273 @ 12765:            LOCATE L_0009
1274 @ 12768:            PUSH   NEXTSYMBOL
1275 @ 12771:            CALL  
1276 @ 12772:            PUSHI  #0x0000000a
1277 @ 12777:            JUMPIF = L_000a

   340              proc name = proc name . TO STRING(NEXT SYMBOL)
1278 @ 12781:            LINE   340 "regression-compile-tmp/haunt.imp"
1279 @ 12817:            PUSH   PROCNAME
1280 @ 12820:            PUSH   PROCNAME
1281 @ 12823:            PUSH   TOSTRING
1282 @ 12826:            PUSH   NEXTSYMBOL
1283 @ 12829:            CALL  
1284 @ 12830:            ASSPAR
1285 @ 12831:            CALL  
1286 @ 12832:            CONCAT
1287 @ 12833:            ASSVAL

   341              SKIP SYMBOL
1288 @ 12834:            LINE   341 "regression-compile-tmp/haunt.imp"
1289 @ 12870:            PUSH   SKIPSYMBOL
1290 @ 12873:            CALL  

   342           %REPEAT
1291 @ 12874:            LINE   342 "regression-compile-tmp/haunt.imp"
1292 @ 12910:            REPEAT L_0009
1293 @ 12913:            LOCATE L_000a

   343           %EXIT %IF proc name = ".end" %OR proc name = ".END"
1294 @ 12916:            LINE   343 "regression-compile-tmp/haunt.imp"
1295 @ 12952:            PUSH   PROCNAME
1296 @ 12955:            PUSHS  ".end"
1297 @ 12961:            JUMPIF = L_000b
1298 @ 12965:            PUSH   PROCNAME
1299 @ 12968:            PUSHS  ".END"
1300 @ 12974:            JUMPIF # L_000a
1301 @ 12978:            LOCATE L_000b
1302 @ 12981:            GOTO   L_0007
1303 @ 12984:            LOCATE L_000a

   344           num victims = num victims + 1
1304 @ 12987:            LINE   344 "regression-compile-tmp/haunt.imp"
1305 @ 13023:            PUSH   NUMVICTIMS
1306 @ 13026:            PUSH   NUMVICTIMS
1307 @ 13029:            PUSHI  #0x00000001
1308 @ 13034:            ADD   
1309 @ 13035:            ASSVAL

   345           victim(num victims) = proc name
1310 @ 13036:            LINE   345 "regression-compile-tmp/haunt.imp"
1311 @ 13072:            PUSH   VICTIM
1312 @ 13075:            PUSH   NUMVICTIMS
1313 @ 13078:            ACCESS
1314 @ 13079:            PUSH   PROCNAME
1315 @ 13082:            ASSVAL

   346        %REPEAT
1316 @ 13083:            LINE   346 "regression-compile-tmp/haunt.imp"
1317 @ 13119:            REPEAT L_0006
1318 @ 13122:            LOCATE L_0007

   347     %FINISH %ELSE %START
1319 @ 13125:            LINE   347 "regression-compile-tmp/haunt.imp"
1320 @ 13161:            GOTO   L_0003
1321 @ 13164:            LOCATE L_0004

   348        victim(1) = dummy
1322 @ 13167:            LINE   348 "regression-compile-tmp/haunt.imp"
1323 @ 13203:            PUSH   VICTIM
1324 @ 13206:            PUSHI  #0x00000001
1325 @ 13211:            ACCESS
1326 @ 13212:            PUSH   DUMMY
1327 @ 13215:            ASSVAL

   349        num victims = 1
1328 @ 13216:            LINE   349 "regression-compile-tmp/haunt.imp"
1329 @ 13252:            PUSH   NUMVICTIMS
1330 @ 13255:            PUSHI  #0x00000001
1331 @ 13260:            ASSVAL

   350     %FINISH
1332 @ 13261:            LINE   350 "regression-compile-tmp/haunt.imp"
1333 @ 13297:            LOCATE L_0003

   351     %CYCLE times = 1, 1, max times
1334 @ 13300:            LINE   351 "regression-compile-tmp/haunt.imp"
1335 @ 13336:            PUSH   TIMES
1336 @ 13339:            PUSHI  #0x00000001
1337 @ 13344:            PUSH   MAXTIMES
1338 @ 13347:            PUSHI  #0x00000001
1339 @ 13352:            FOR    L_0003

   352        D DELAY(delay)
1340 @ 13355:            LINE   352 "regression-compile-tmp/haunt.imp"
1341 @ 13391:            PUSH   DDELAY
1342 @ 13394:            PUSH   DELAY
1343 @ 13397:            ASSPAR
1344 @ 13398:            CALL  

   353        %CYCLE this victim = 1, 1, num victims
1345 @ 13399:            LINE   353 "regression-compile-tmp/haunt.imp"
1346 @ 13435:            PUSH   THISVICTIM
1347 @ 13438:            PUSHI  #0x00000001
1348 @ 13443:            PUSH   NUMVICTIMS
1349 @ 13446:            PUSHI  #0x00000001
1350 @ 13451:            FOR    L_0006

   354           selected = random mess no
   355           !!NOTIFY(victim(this victim)."""".message(selected))
1351 @ 13454:            LINE   354 "regression-compile-tmp/haunt.imp"
1352 @ 13490:            PUSH   SELECTED
1353 @ 13493:            PUSH   RANDOMMESSNO
1354 @ 13496:            CALL  
1355 @ 13497:            ASSVAL

   356           printstring(message(selected)); newline
1356 @ 13498:            LINE   356 "regression-compile-tmp/haunt.imp"
1357 @ 13534:            PUSH   PRINTSTRING
1358 @ 13537:            PUSH   MESSAGE
1359 @ 13540:            PUSH   SELECTED
1360 @ 13543:            ACCESS
1361 @ 13544:            ASSPAR
1362 @ 13545:            CALL  
1363 @ 13546:            LINE   356 "regression-compile-tmp/haunt.imp"
1364 @ 13582:            PUSH   NEWLINE
1365 @ 13585:            CALL  

   357        %REPEAT
1366 @ 13586:            LINE   357 "regression-compile-tmp/haunt.imp"
1367 @ 13622:            REPEAT L_0006
1368 @ 13625:            LOCATE L_0007

   358     %REPEAT
1369 @ 13628:            LINE   358 "regression-compile-tmp/haunt.imp"
1370 @ 13664:            REPEAT L_0003
1371 @ 13667:            LOCATE L_0004

   359  %END
   360  
1372 @ 13670:            LINE   359 "regression-compile-tmp/haunt.imp"
1373 @ 13706:         END    _HAUNT {lev=1 --> 0}

   361  %begin
1374 @ 13707:         LINE   361 "regression-compile-tmp/haunt.imp"
1375 @ 13743:         BEGIN  _lev0id0 {lev=0 --> 1}

   362    select output(0)
1376 @ 13744:            LINE   362 "regression-compile-tmp/haunt.imp"
1377 @ 13780:            PUSH   SELECTOUTPUT
1378 @ 13783:            PUSHI  #0x00000000
1379 @ 13788:            ASSPAR
1380 @ 13789:            CALL  

   363    haunt("user")
1381 @ 13790:            LINE   363 "regression-compile-tmp/haunt.imp"
1382 @ 13826:            PUSH   HAUNT
1383 @ 13829:            PUSHS  "user"
1384 @ 13835:            ASSPAR
1385 @ 13836:            CALL  

   364  %end
   365  
1386 @ 13837:            LINE   364 "regression-compile-tmp/haunt.imp"
1387 @ 13873:         END    _lev0id0 {lev=1 --> 0}

   366  %ENDOFFILE
1388 @ 13874:         LINE   366 "regression-compile-tmp/haunt.imp"
1389 @ 13910:         END     {lev=0 --> -1}
1390 @ 13911: 

