mirror of
https://github.com/SEPPDROID/Digital-Research-Source-Code.git
synced 2025-10-25 09:24:19 +00:00
15 lines
334 B
Plaintext
15 lines
334 B
Plaintext
$ if p2 .nes. "" then goto l2
|
|
$ if p1 .eqs. "" then goto l3
|
|
$ if 'f$locate(":",p1)' .ne. 'f$length(p1)' then goto l1
|
|
$ if 'f$locate("[",p1)' .ne. 'f$length(p1)' then goto l1
|
|
$ if 'f$locate("<",p1)' .ne. 'f$length(p1)' then goto l1
|
|
$ set def ['p1']
|
|
$ goto l3
|
|
$l1:
|
|
$ set def 'p1
|
|
$ goto l3
|
|
$l2:
|
|
$ set def 'p1':['p2']
|
|
$l3:
|
|
$ show default
|