prgmcmdPRGM:  .db "PRGM", 0
prgmcmdPRGMo: .dw $0100
prgmcmdPRGMm: .db "help", 0
prgmcmdPRGMu: .db "PRGM", 0
prgmcmdPRGMf:
prgmcmdPRGMfCheckArgs: 
 ld hl, FshCmdArgFlags
 bit 0, (hl)
 jr z, prgmcmdPRGMfArg0Get
 bit 1, (hl)
 jr z, prgmcmdPRGMfExe
 ld hl, ErrUsageo
 call ErrSet
 call ErrCatch
prgmcmdPRGMfArg0Get:
 ld hl, prgmcmdPRGMfPrompt
 call printprompt

 ld hl, FshCmdArg0
 ld de, 8
 call inputstr
 call _NewLine

prgmcmdPRGMfExe:
 ld hl, fshCmdArg0
 ld de, prgmcmdPRGMSprgm + 1
 call strcpy

 ld hl, prgmcmdPRGMSprgm
 call _Mov9ToOP1

 jp prgmrun

prgmcmdPRGMSprgm: .db ProgObj, 0, 0, 0, 0, 0, 0, 0, 0, 0
prgmcmdPRGMfPrompt: .db "Prgm=", 0