Listing of file='B327035' on disk='vmedia/bsc_3271_rel_1.14.04.wvd.zip'
# Sector 1198, program filename = 'B327035' 0010 REM B327035 4/21/81 0020 DIM D$3 0030 SELECT @PART"3270UNIV" 0040 SELECT PRINT 005 : PRINT HEX(03);A$ 0050 IF @C$=" "THEN PRINT "No configuration loaded" : ELSE PRINT "Loaded configuration = ";@C$ 0060 C$="N" : LINPUT "Key Y for Yes else No",C$ 0070 IF C$<>"Y"THEN 140 0080 D$="0" : STR(D$,2)=STR(@C$,25,2) 0090 IF @C$<>" "THEN 110 0100 D$="01D" : LINPUT "TC BOARD ADDRESS ",-D$ 0110 @A$,@C$,@Z$,@P$()=" " 0120 SELECT #6<D$> 0130 $GIO #6(4580,Z$) 0140 LOAD DC T#0,N$(1)