']-=Rommel=-['s Quake cfg maker v 0.2
'3-2-00
'http://www.quakeclan.net/IFL
SCREEN 12
CLS
COLOR 4
LOCATE 10, 35
PRINT "Welome to the Quake Config maker!"
DO WHILE INKEY$ = ""
LOOP
CLS
DIM balias$(101)
x = 0

DO UNTIL UCASE$(balias$(x)) = UCASE$("stop")
   x = x + 1
   PRINT "Remember only 100 aliases/binds."
   INPUT "Please enter bind/alias"; balias$(x)
   CLS
   IF x = 100 THEN
     balias$(x) = UCASE$("stop")
     x = x - 1
   END IF
LOOP

OPEN "autoexec.cfg" FOR OUTPUT AS #1
FOR count = 1 TO x - 1
    PRINT #1, balias$(count)
NEXT count
CLOSE
END