# MakePRC.bas

draw -1



draw "Memo name:",1,30

form fld 60,30,60,12, "#",1



draw "PRC name:",1,45

form fld 60,45,60,12, "",1



draw "Creator ID:",1,60

form fld 60,60,60,12, "",1



qbtn$="Quit"

form btn 0,160,0,0, qbtn$, 1

form btn 117,147,40,12, "Enter",1



top:

x=asc(input$(1))

if x=3 then k=fn launch("lnch", -1)

if x=17 then



#input "Type memo name",t$

#r = db.find("memo", s$(0))

#input "Name of PRC",name$

#input "Unique Creator ID",creator$

#s$(49) = name$

#s$(50) = creator$

#s$(51) = "appl"



r = db.find("memo", s$(0))

s$(49) = s$(1)

s$(50) = s$(2)

s$(51) = "appl"



if (r > 0) then errno = fn makelauncher(r, 0)

print r, errno

endif



goto top:

end