home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p045 / 1.img / KILLELM.UCM < prev    next >
Encoding:
Text File  |  1994-05-05  |  752 b   |  30 lines
  1.         MSG 'CFKill all the element fit fence criteria'
  2. ASK:    MSG 'PRD..Continue, R..Exit'
  3.         GET P,CONT,R,EXITUC
  4.         GO ASK
  5. CONT:   TST     FENCE,NE,0,FEN
  6.         MSG     'PRPLACE FENCE'
  7.         CMD     PFENCB
  8.         MSG     'ER 1st POINT'
  9. LOWG:   GET     P,LOW,R,EXITUC
  10.         GO      LOWG
  11. LOW:    PNT
  12.         MSG     'EROTHER POINT'
  13. HIGG:   GET     P,HIG
  14.         GO      HIGG
  15. HIG:    PNT
  16. FEN:    MSG     'ER '
  17.         MSG     'PRDeleting element'
  18.         CMD     FNCLOC
  19. LOOP:
  20.         PNT
  21.         TST     RELERR,EQ,21,EXITUC
  22. ;       SET     DGNBUF(1)=DGNBUF(1) ! @100000
  23. ;       WRT     CUREBL,CUREBY
  24.         key 'mdl load killelm'
  25.         GO      LOOP
  26. EXITUC:
  27.         MSG 'CF'
  28.         MSG 'PR'
  29.         END
  30.