- alias stijl {
- unset %hkjj
- unset %stijl2
- unset %haakje1
- set %hkjj 1
- var %stijl = $1-
- var %i = 1
- while (%i <= $len(%stijl)) {
- set %stijl2 $addtok(%stijl2,$stijl2($mid(%stijl,%i,1)),0)
- inc %i
- }
- return %stijl2
- unset %hkjj
- unset %haakj*
- }
- alias stijl2 {
- if ($chr(32) !isin $1) {
- if ($1 == $chr(40)) {
- set %haakje [ $+ [ %hkjj ] ] 1
- inc %hkjj
- return 07 $+ $chr(40)
- }
- elseif ($1 == $chr(41)) {
- unset %haakje [ $+ [ %hkjj ] ]
- dec %hkjj
- return 07 $+ $chr(41)
- }
- elseif ($1 isupper) && (%haakje $+ *) { return 03 $+ $1- }
- elseif ($1 islower) && (%haakje $+ *) { return 01 $+ $1- }
- elseif ($1 isupper) && (!%haakje $+ *) { return 14 $+ $1- }
- elseif ($1 islower) && (!%haakje $+ *) { return 14 $+ $1- }
- }
- else { return $+ $chr(160) }
- }
By: mike-creator | Date: Oct 6 2006 16:52 | Format: None | Expires: never | Size: 872 B | Hits: 1331
Latest pastes
1 hours ago
11 hours ago
1 days ago
2 days ago
2 days ago