Blank = ^A" "
StringDesc: .ASCID "                    "  ; 20-character buffer
Temp:       .BLKB  6                       ; Packed decimal buffer
Value:      .BLKL  1                       ; Final value
        ;. . .
       PUSHAW  StringDesc                  ; Input a numerical
       CALLS   #1, G^Lib$Get_Input         ;   string
       SKPC    #Blank, #20, @StringDesc+4  ; Find leading sign
       MOVW    R0, R6                      ; Save remaining bytes
       MOVL    R1, R7                      ; Save address of sign
       LOCC    #Blank, R0, (R1)            ; Find end of number
       SUBW2   R0, R6                      ; Find number of bytes
       DECW    R6                          ; Find number of digits
       CVTSP   R6, (R7), R6, Temp          ; Convert to packed
       CVTPL   R6, Temp, Value             ; Convert to longword