seppdroid/Digital-Research-Source-Code
1
0
Fork 0
mirror of https://github.com/SEPPDROID/Digital-Research-Source-Code.git synced 2025-10-26 18:04:07 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Upload

Browse Source 
Digital Research
This commit is contained in:
Sepp J Morris
2020-11-06 18:50:37 +01:00
parent 621ed8ccaf
commit 31738079c4
8481 changed files with 1888323 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
CPM OPERATING SYSTEMS/CPM 86/CONCURRENT/CCPM-86 2.0 SOURCE/commands/setdef.com Normal file
View File

@@ -0,0 +1,14 @@
$ 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