BANCStar (2000)
This is as far as I got.. It seems to display some question and waits for a key input.
Check if it&#x27;s N, then it executes some dos command. If it was Y it seems to return from this subroutine.<p><pre><code>  8607,,,1                    ; deactivate F7
  11547,15475,22002,22002     ; clear pause flag # var1547 is the pause flag
  1316,1629,1,1649            ; var1316 = displayPromptAndGetInput(loc: [29,16], numChars: 1, cursorLoc: [49,16])
  3001,1316,3,30078           ; if var1316 == &#x27;N&#x27;
  11528,22052,22002,22002     ;     var1528 = 5
  9301,0,1528,1528            ;     ??? put to data model, prompt1: var1528, prompt2: var1528
  31568,10001,800,107         ;     var1568 = tableTransfer(800, 10).item ?
  8560,,,1568                 ;     execDOSCommand(var1568)
  8550,210,,                  ;     ??? Combination goto
  3001,,,                     ; end if
  3100,1316,3,30089           ; proceedIf var1316 == &#x27;Y&#x27;
  11547,15475,22002,22002     ; clear pause flag
  3001,1316,3,30089           ; if var1316 == &#x27;Y&#x27;
  3001,1317,3,10000           ; and if len(var1317) == 0
  8400,,,                     ;     save address # for return
  8550,700,801,               ;     ??? Combination goto
  3001,,,                     ; end
  9301,0,522,522              ; ??? put to data model, prompt1: var522, prompt2: var522
  3000,1284,3,10001           ; if var1284 == -1
  8500,,3,                    ;   goto label3
  8500,,5,                    ; goto label5
  1547,,1,-2301               ; ???  pauseFlag = getInput(numChars: -2301?)</code></pre>