/* Wizard for creating CD Covers */

OPTIONS RESULTS

address metaview.0

newpic 21 29 0 CD COVER

amf_setfgpen 0 0 0
amf_setbgpen 255 255 255

amf_linetype 0
amf_drawline 3667 3390 27150 3390
amf_drawline 3667 16722 27150 16722
amf_drawline 3667 3390 3667 16722
amf_drawline 27150 3390 27150 16722
amf_linetype 1
amf_drawline 4681 3390 4681 16722
amf_drawline 26136 3390 26136 16722

amf_linetype 0
amf_drawline 4681 17513 23405 17513
amf_drawline 4681 30959 23405 30959
amf_drawline 4681 17513 4681 30959
amf_drawline 23405 17513 23405 30959

amf_setfont 800 0 "CGTimes.font"

requeststrings 1 1 TITLE """Please insert CD-Title""" HEADERS """Title"""
CD_TITLE = result

say CD_TITLE

position = pos('|', CD_TITLE)
wert = substr(CD_TITLE, 1, position - 1)

amf_drawtext 4670 16500 90 wert
amf_drawtext 26140 3612 270 wert

requeststrings 3 10 TITLE """Please insert Songs""" HEADERS """Title|Author|Time"""
SONG_TITLES = result

say SONG_TITLES

start = 1
do y=1 to 10
  do x=1 to 3
    position = pos('|', SONG_TITLES, start)
    wert = substr(SONG_TITLES, start, position - start)
    start = position + 1
    amf_drawtext 5000+((x-1)*7500) 4200+((y-1)*1000) 0 wert
  end x
end y

redrawpic