basic: village name generator

This is my AmigaBASIC Village Names program for my campaign World, Crestar.

I have removed anything I felt was copyright. The prefixes and suffixes I used came from a Judges Guild booklet.

Just make a data set of suffixes and prefixes, read them in, and randomly generate a set of town and village names.

df2: is a floppy device on an Amiga computer, just change it to what ever is appropriate on your computer.

---

‘
‘  Village name generator
‘
part1 = 210
part2 = 461
DIM prefix$(part2), suffix$(800)
‘
FOR I = 1 TO part2
  READ prefix$(I)
NEXT I
‘
FOR I = 1 TO part1
  READ suffix$(I)
NEXT I
‘
‘ Prefixes
‘
DATA “”, “”, “”, “”, “”, “”, “”, “”, “”, “”
DATA “”, “”, “”, “”, “”, “”, “”, “”, “”, “”
DATA “”, “”, “”, “”, “”, “”, “”, “”, “”, “”
DATA “”, “”, “”, “”, “”, “”, “”, “”, “”, “”
DATA “”, “”, “”, “”, “”, “”, “”, “”, “”, “”
DATA “”, “”, “”, “”, “”, “”, “”, “”, “”, “”
DATA “”, “”, “”, “”, “”, “”, “”, “”, “”, “”
DATA “”, “”, “”, “”, “”, “”, “”, “”, “”, “”
DATA “”, “”, “”, “”, “”, “”, “”, “”, “”, “”
DATA “”, “”, “”, “”, “”, “”, “”, “”, “”, “”
‘
‘
‘ Suffixes
‘
DATA “”, “”, “”, “”, “”, “”, “”, “”, “”, “”
DATA “”, “”, “”, “”, “”, “”, “”, “”, “”, “”
DATA “”, “”, “”, “”, “”, “”, “”, “”, “”, “”
DATA “”, “”, “”, “”, “”, “”, “”, “”, “”, “”
DATA “”, “”, “”, “”, “”, “”, “”, “”, “”, “”
DATA “”, “”, “”, “”, “”, “”, “”, “”, “”, “”
DATA “”, “”, “”, “”, “”, “”, “”, “”, “”, “”
DATA “”, “”, “”, “”, “”, “”, “”, “”, “”, “”
DATA “”, “”, “”, “”, “”, “”, “”, “”, “”, “”
DATA “”, “”, “”, “”, “”, “”, “”, “”, “”, “”
‘
‘
‘INPUT “Would you like to write villages names to a file ?”; G$
‘
INPUT “How many village names ?”; G
‘
‘  IF G$ =“Y” THEN
‘
    OPEN “A”,#5,“df2:villages”
    FOR I = 1 TO G
‘
       RANDOMIZE TIMER
       H# = INT + 1
       PRINT #5, “ “
       PRINT #5, “    “; prefix$(H#);
       RANDOMIZE TIMER
       H# = INT + 1
       PRINT #5, suffix$(H#)
       PRINT #5, “ “
    NEXT I
    CLOSE #5
  END IF
‘
‘