image of READY prompt

Wang2200.org

Listing of file='B327030' on disk='vmedia/bsc_3271_rel_1.14.04.wvd.zip'

# Sector 1195, program filename = 'B327030'
0010 REM B327030 8/15/80  Detach from 3270 cluster
0020 SELECT @PART"3270UNIV"
   : IF @Z$=" "THEN 200
   : N$(5)="ASK?327D"
   : LOAD DC T#0,N$(4)
0200 GOSUB '99(5,"No cluster is loaded")
   : LOAD DC T#0,N$(1)
9390 DEFFN'99(A,A$)
   : PRINT HEX(03);BOX(5,79);HEX(0A0A0E);TAB(40-LEN(A$)/2);A$
   : FOR A=ATO 0STEP -1
   : PRINT A;HEX(0C)
   : $GIO(75FF,A$)
   : NEXT A
   : RETURN