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