CLS
PRINT "  ********************************************************************"
PRINT "  *                                                                  *"
PRINT "  *                    WEdit v.1.0 -- CircleMUD                      *"
PRINT "  *                     World Off-line Creator                       *"
PRINT "  *                                                                  *"
PRINT "  *              Created on late night in January, 1997              *"
PRINT "  *                            by Silk                               *"
PRINT "  *                                                                  *"
PRINT "  *  If you find this program useful, do me a favor and send me      *"
PRINT "  * an email message to silk@ici.net. I'll be changing it a bit, and *"
PRINT "  * would appreciate input.                                          *"
PRINT "  *                                                                  *"
PRINT "  * THIS SOFTWARE IS PUBLIC DOMAIN AND MAY BE COPIED AND/OR MODIFIED *"
PRINT "  * AS LONG AS THIS MESSAGE REMAINS INTACT. Feel free to add to it   *"
PRINT "  * below. =) 1/97, Silk.                                            *"
PRINT "  *                                                                  *"
PRINT "  ********************************************************************"
PRINT
PRINT "Press ESCAPE to contine..."
DO
LOOP UNTIL INKEY$ = CHR$(27)
CLS
INPUT " Zone # of the world to edit"; zon$
fil$ = zon$ + ".wld"
OPEN fil$ FOR OUTPUT AS #1
CLS
10 INPUT " Room #"; rm
PRINT #1, "#"; rm
INPUT " Room Name"; name$
PRINT #1, name$; "~"
PRINT " Enter the room description, ended by a ~ on a line all of its own."
DO
INPUT "] ", d$
PRINT #1, d$
LOOP UNTIL d$ = "~"
CLS
PRINT " The following options can be chosen as room flags."
PRINT " Enter a string made by concatenating the flags (as"
PRINT " in abcdef). If you do not wish the room to have any"
PRINT " flags, enter a 0."
PRINT ""
PRINT " a - DARK          g - !TRACK"
PRINT " b - DEATH         h - !MAGIC"
PRINT " c - !MOB          i - TUNNEL"
PRINT " d - INDOORS       j - PRIVATE"
PRINT " e - PEACEFUL      k - GODROOM"
PRINT " f - SOUNDPROOF    l - HOUSE"
PRINT
INPUT " Roomflags"; roomf$
CLS
PRINT " What sector type is it?"
PRINT
PRINT " 0.) Inside"
PRINT " 1.) City"
PRINT " 2.) Field"
PRINT " 3.) Forest"
PRINT " 4.) Hills"
PRINT " 5.) Mountains"
PRINT " 6.) Water (Swim)"
PRINT " 7.) Water (Boat)"
PRINT " 8.) Underwater"
PRINT " 9.) Flying"
PRINT
INPUT " Sector type"; sector
PRINT #1, zon$; " "; roomf$; sector
DO
CLS
PRINT " 0.) Add an exit north."
PRINT " 1.) Add an exit east."
PRINT " 2.) Add an exit south."
PRINT " 3.) Add an exit west."
PRINT " 4.) Add an exit up."
PRINT " 5.) Add an exit down."
PRINT " 6.) Add an extra description."
PRINT " 7.) Exit this exit menu."
INPUT " Choice:", choice
IF choice = 6 THEN
  INPUT " Description keywords?", keywords$
  PRINT #1, "E"
  PRINT #1, keywords$; "~"
  PRINT " Enter the extra description, ended by a ~ on a separate line."
  DO
   INPUT "] ", d$
   PRINT #1, d$
  LOOP UNTIL d$ = "~"
END IF
IF (choice <> 6) AND (choice <> 7) THEN
  PRINT #1, USING "D#"; choice
  PRINT " Enter the short exit description, ended by a ~ on a separate line."
  DO
   INPUT "] ", d$
   PRINT #1, d$
  LOOP UNTIL d$ = "~"
  INPUT " Description keywords?", keywords$
  PRINT #1, keywords$; "~"
  INPUT " Exit is attatched to what room"; rm
  PRINT #1, "0 -1 "; rm
END IF
LOOP UNTIL choice = 6
PRINT #1, "S"
INPUT " Another room? (<N>,Y)", anot$
IF anot$ = "y" OR anot$ = "Y" THEN GOTO 10
PRINT #1, "$~"
CLOSE all
END