home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #6 / amigamamagazinepolishissue1998.iso / coders / jËzyki_programowania / oberon / killoberon < prev    next >
Text File  |  1977-12-31  |  234b  |  10 lines

  1. status >env:KillOberon1
  2. search env:KillOberon1 Oberon nonum >env:KillOberon2
  3. if not "$KillOberon2" eq ""
  4.  echo "$KillOberon2" first=9 len=2 >env:KillOberon1
  5.  break $KillOberon1 all
  6. endif
  7. delete env:KillOberon1
  8. delete env:KillOberon2
  9.  
  10.