[Info-vax] Suggestion: Enhance DCL to support proper escape quoting.

[Tony Nicholson]

On Monday, January 24, 2022 at 4:16:42 PM UTC+11, Johnny Billquist wrote:
[snip]

> Well, I should say that it might not work in RSTS/E. RSTS/E were more 
> limited than RSX in many ways. This might very well be one of those cases. 
> I think that in RSX, the interactive stuff makes use of an additional 
> process. And that's not really possible to do with RSTS/E since each 
> terminal only have one process. 
> 
> But I haven't tried (or can't remember). I haven't played much in RSTS/E 
> in a long time. 

It does work under RSTS/E too - just like RSX11M-Plus.

$ sys/a

RSTS V10.1-L PDP11/70 PiDP11 status at 25-Jan-22, 09:11 AM Up: 3 00:23:41

Job    Who    Where     What    Size    State     Run-Time   RTS
 7     1,42   KB0      DCL       4K     ^C            0.3    DCL   
 8    11,42   KB13!    SYSTAT   17K     RN Lck       49.3    ...RSX
$ basic/bp2

PDP-11 BASIC-PLUS-2 V2.7-00

BASIC2

print ert$(i%) for i%=1% to 5%

??Bad directory for device
?Illegal file name
?Account or device in use
?No room for user on device
?Can't find file or account

BASIC2

old ox3d.b2s

BASIC2

compile ox3d/obj/chain/nowarn
OX3D    09:12 AM        25-Jan-22

BASIC2

build ox3d

BASIC2

$ switch dcl
$ tkb @ox3d
$ dir ox3d.*/fu

 Name .Typ    Size    Prot  Access      Date     Time   Clu  RTS    Pos  Op/rr
SY:[11,42]
OX3D  .BAC      19C  <124> 19-Feb-96 19-Feb-96 10:45 AM  64 BASIC   3062  0/0  
OX3D  .BAS       7   < 60> 19-Feb-96 19-Feb-96 10:45 AM  64 BASIC   3063  0/0  
OX3D  .B2S       7   < 60> 25-Jan-22 25-Jan-22 08:44 AM  64 ...RSX  5202  0/0  
OX3D  .OBJ      27   < 60> 25-Jan-22 25-Jan-22 09:12 AM  64 ...RSX  5216  0/0  
 RF:VAR=128  FO:SEQ   USED:27:390       RECSI:126   CC:IMP
OX3D  .CMD       1   < 60> 25-Jan-22 25-Jan-22 09:12 AM  64 ...RSX  5217  0/0  
OX3D  .ODL       1   < 60> 25-Jan-22 25-Jan-22 09:12 AM  64 ...RSX  5219  0/0  
OX3D  .TSK      48C  <124> 25-Jan-22 25-Jan-22 09:13 AM  64 RSX     4993  0/0  
 RF:FIX      FO:SEQ   USED:49:0         RECSI:512

Total of 110 blocks in 7 files in SY:[11,42]

$ type ox3d.cmd
SY:OX3D=SY:OX3D/MP
UNITS = 13
ASG = SY:5:6:7:8:9:10:11:12
EXTTSK =  512 
//
$ type ox3d.odl
        .ROOT USER
USER:   .FCTR SY:OX3D-LIBR
LIBR:   .FCTR LB:[1,1]BP2OTS/LB
        .END
$ run ox3d.tsk

MOVE 1 ? 
8 DINGO::KB13    OX3D+...RSX   KB(0R)       12(64)K+0K      57.1(+10.5)
         1,1,1
               O.K. - ( 1 , 1 , 1 )
MY MOVE  1 IS TO CELL ( 4 , 4 , 4 )

   O . . .   . . . .   . . . .   . . . .
   . . . .   . . . .   . . . .   . . . .
   . . . .   . . . .   . . . .   . . . .
   . . . .   . . . .   . . . .   . . . X


MOVE 2 ? 

Tony