Subversion Repositories wimsdev

Rev

Rev 23 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 23 Rev 546
Line 13... Line 13...
13 
 error=double_reply
 13 
 error=double_reply
14 
 !exit
 14 
 !exit
15 
!endif
 15 
!endif
16 
 
 16 
 
17 
!if $status=$empty
 17 
!if $status=$empty
18 
 !read proc/exo.init
 18 
 !read dialog/exo.init
19 
!endif
 19 
!endif
20 
 
 20 
 
21 
!if $status!=waiting
 21 
!if $status!=waiting
22 
 !distribute item $ into solution,hint
 22 
 !distribute item $ into solution,hint
23 
!endif
 23 
!endif
Line 31... Line 31...
31 
!endif
 31 
!endif
32 
 
 32 
 
33 
!if $status!=waiting
 33 
!if $status!=waiting
34 
 !reset asklist promptlist storename storeval
 34 
 !reset asklist promptlist storename storeval
35 
 !read $deffile init
 35 
 !read $deffile init
36 
 !read proc/var.prep
 36 
 !read dialog/var.prep
37 
!else
 37 
!else
38 
 !distribute line $storeval into $storename
 38 
 !distribute line $storeval into $storename
39 
!endif
 39 
!endif
40 
 
 40 
 
41 
!read $deffile info
 41 
!read $deffile info
42 
 
 42 
 
43 
!if $cmd=reply and $status=waiting
 43 
!if $cmd=reply and $status=waiting
44 
 !if $ask!=$empty
 44 
 !if $ask!=$empty
45 
  !read proc/var.proc.ask
 45 
  !read dialog/var.proc.ask
46 
  !if $badask!=yes
 46 
  !if $badask!=yes
47 
   !goto end
 47 
   !goto end
48 
  !endif
 48 
  !endif
49 
 !else
 49 
 !else
50 
  !read proc/var.proc.ans
 50 
  !read dialog/var.proc.ans
51 
  !if $partial=yes
 51 
  !if $partial=yes
52 
   !goto end
 52 
   !goto end
53 
  !endif
 53 
  !endif
54 
 !endif
 54 
 !endif
55 
 !advance reply_cnt
 55 
 !advance reply_cnt