DataMuseum.dk

top - metrics - download

    Length: 1280 (0x500)
    Types: TextFile
    Names: »DEFTRAP.LOG«

└─⟦0c23030ba⟧ Bits:30005892 LPA Prolog rel 2.0 (RC855)
    └─⟦this⟧ »DEFTRAP.LOG« 

TextFile

deftrap-mod ("?ERROR?") (q c is-told tell)
((COPYRIGHT 1983 LPA LTD (V 29-1)))
((P-code 0 "Arithmetic overflow"))
((P-code 1 "Arithmetic underflow"))
((P-code 3 "Control error"))
((P-code 4 "Error in adding sentence"))
((P-code 5 "File error"))
((P-code 6 "Too many files opened")) 
((P-code 7 "Close all files first"))
((P-code 8 "Bad data in file"))
((P-code 9 "Write error"))
((P-code 10 "Disk or directory is full"))
((P-code 11 "Break !"))
((P-code 12 "Illegal use of modules"))
((P-code X (Error X)))
(("?ERROR?" 4 (ADDCL ((XøY)øZ) øx))
  (P "Cannot add sentences to" X)(PP)
  ABORT) 
(("?ERROR?" 2 (YøY1))/
  (PP No definition for Y)(PP trying: Y Y1)
  (P "error&(? for info)") (R x)
  (respond x (YøY1))
  )
(("?ERROR?" X (YøY1))
  (P-code X x)(P x)(PP)
  (PP trying :Y Y1)
  ABORT)
((respond q X)
  (ABORT))
((respond tell (XøX1))/
  (is-told  X X1))
((respond c X)
 / X)
((respond / X)/
  (R x)(R Y)
  (x Y)
  (P "error&") (R Z)/
  (respond Z X))
((respond z (YøY1))
  (PP to quit enter: q )
  (PP or enter :tell(see manual))
  (P or enter: / "<any command>" (eg / add (sentence), / load file))(PP)
  (PP to continue enter: c)
  (P "error&")(R x)
  (respond x (YøY1)))
CLMOD
«eof»