Menu nicklist,channel,@channelrider,status {
  .-
  ADD ASCII REQUEST :{
    set %ascnick $?="Please type in the Nick who did a request ?"
    if (%ascnick == $null) { /goto end }
    set %asctype $?="Please type in the Type of request (ASCII/DIZ/FTP/LAYOUT) ?"
    if (asctype == $null ) { /goto end }
    set %asctitle $?="Please type in the Title of the request ?"
    if (asctitle == $null ) { /goto end }
    set %asccontact $?="Please type in how/where to contact the requester ?"
    if (asccontact == $null ) { /goto end }
    set %ascnfo $date $time %ascnick %asctype * %asctitle * %asccontact
    /msg # %ascnfo
    /write asciireq.txt %ascnfo
    :end
  }
  dialog ASCII { dialog -m ASCII ASCII }
}

dialog ASCII {
  title "ASCII REQUEST MENU"
  size 0 80 800 230
  button "Done!",1,10 195 70 25, ok
  text "       DATE              TIME           REQUESTER               TYPE                                   TITLE                                              CONTACT", 2, 10 25 780 20
  list 3,10 50 80 90
  text "(Double Click to Delete)",4, 10 160 145 18
  list 5,95 50 60 90
  list 6,160 50 120 90
  list 7,285 50 65 90
  list 8,355 50 250 90
  list 9,610 50 180 90
}
On *:DIALOG:ASCII:init:0:{ 
  initascii
}

alias -l initascii {
  did -r ascii 3
  did -r ascii 5
  did -r ascii 6
  did -r ascii 7
  did -r ascii 8
  did -r ascii 9
  set %i 0
  :checking
  inc %i
  set %currentascii $read -l $+ %i $mircdirasciireq.txt 
  set %currentascii1 $gettok(%currentascii,1,32)
  set %currentascii2 $gettok(%currentascii,2,32)
  set %currentascii3 $gettok(%currentascii,3,32)
  set %currentascii4 $gettok(%currentascii,4,32)
  set %currentascii5 $gettok(%currentascii,2,42)
  set %currentascii6 $gettok(%currentascii,3,42)
  if (%currentascii == $null) {
    .unset %i
    goto end
  }
  else {
    did -a ascii 3 %currentascii1
    did -a ascii 5 %currentascii2
    did -a ascii 6 %currentascii3
    did -a ascii 7 %currentascii4
    did -a ascii 8 %currentascii5
    did -a ascii 9 %currentascii6
    goto checking 
  }
  :end
}
On *:DIALOG:ASCII:dclick:3: write -dl $+ $did(3).sel $mircdirasciireq.txt | initascii
On *:DIALOG:ASCII:dclick:5: write -dl $+ $did(5).sel $mircdirasciireq.txt | initascii
On *:DIALOG:ASCII:dclick:6: write -dl $+ $did(6).sel $mircdirasciireq.txt | initascii
On *:DIALOG:ASCII:dclick:7: write -dl $+ $did(7).sel $mircdirasciireq.txt | initascii
On *:DIALOG:ASCII:dclick:8: write -dl $+ $did(8).sel $mircdirasciireq.txt | initascii
On *:DIALOG:ASCII:dclick:9: write -dl $+ $did(9).sel $mircdirasciireq.txt | initascii
