Listing of file='B3270001' on disk='vmedia/bsc_3271_rel_1.14.04.wvd.zip'
# Sector 629, program filename = 'B3270001' 0010 REM B3270001 01/21/86 0020 COM D8$20,N$64,N$(16)8,A$64,B$1,C$1,A,B,C,W$64,Z$64 0030 INIT(0A)D8$ : STR(D8$,1,1)=HEX(01) 0040 SELECT @PART"3270UNIV" 0050 N$(1)="ASKAWHAT" : N$(2)="ASKACALL" : N$(6)="ASKASAVE" 0052 N$(3)="ASKAEMUL" : N$(4)="ASKAPARN" : N$(7)="ASKALOAD" 0060 IF N$=" "THEN LOAD DC T#0,N$(1) 0070 IF STR(N$,1,40)<>" "THEN 230 : Z$=" " : LOAD DC T#0,"B327010" 0230 B$="L" : REM /.for loading 0231 DATA LOAD DC OPEN T#0,N$(2) 0232 DATA LOAD DC #0,A$,W$,Z$ : IF END THEN STOP "emulation not found" 0233 IF STR(A$,1,40)<>STR(N$,1,40)THEN 232 0235 A$="<" : N$(5)="ASK?3270" 0240 LOAD DC T#0,N$(4)