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