1 <BLOAT 100000 10000 100 1200 50>
3 <DEFINE CHANNEL-OP!- (CHAN TYPE "TUPLE" STUFF)
4 <COND (<==? .TYPE READ-BUFFER!->
5 <READSTRING <1 .STUFF> .CHAN !<REST .STUFF>>)
6 (<==? .TYPE WRITE-BUFFER!->
7 <PRINTSTRING <1 .STUFF> .CHAN !<REST .STUFF>>)
9 <COND (<EMPTY? .STUFF> <17 .CHAN>)
10 (ELSE <ACCESS .CHAN !.STUFF>)>)>>
11 <FLOAD "<MIM.20C>FILE-INDEX.FBIN">
12 <FLOAD "<MIM.20C>FILE.FBIN">
13 <FLOAD "<MIM.20C>PART1.FBIN">
14 <FLOAD "<MIM.20C>ACVAR.FBIN">
15 <FLOAD "<MIM.20C>STRMAN.FBIN">
16 <FLOAD "<MIM.20C>OTHGEN.FBIN">
17 <FLOAD "<MIM.20C>JSYS.FBIN">
18 <FLOAD "<MIM.20C>PEEP.FBIN">
19 <FLOAD "<MIM.20C>NEWGC.FBIN">
20 <FLOAD "<MIM.BOOT>BOOT.COMPIL">
21 <FLOAD "<MIM.20C>ASK.NBIN">
22 <SETG NO-AC-FUNNYNESS <>>
26 <FEATURES "COMPILER" ("MACHINE" "TOPS20") ("SUBSYSTEM" "MIMOC")
27 ("ENVIRONMENT" "MDL") ("TARGET-MACHINE" "TOPS20")>
28 <ACTIVATE-CHARS <STRING <ASCII 7>>>