1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
|
!distribute items $wims_read_parm into serial, prim, parm1, parm2, parm3, parm4
!set parms=!items 3 to -1 of $wims_read_parm
!if $prim=$empty or $prim iswordof def define comment
!exit
!endif
!if $prim notwordof reload resource calcform exercise tool example help adm
!changeto primitives/$prim.phtml
!endif
!goto $prim
:reload
!reset anchor
!if $parm2!=$empty
!set anchor=#$parm2
!endif
!href cmd=reply&job=read$anchor $parm1
!exit
:resource
!for w in $parms
!pedia $w
!next w
!exit
:calcform
!set gotcnt=!itemcnt $parms
!if $gotcnt<1
!exit
!endif
!set gotm=$parms
!read popup/search.phtml noremark
!exit
:exercise
:tool
:example
:help
:adm
!changeto primitives/target.phtml
|
