image of READY prompt

Wang2200.org

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)