image of READY prompt

Wang2200.org

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

# Sector 968, program filename = '3277ATCH'
0010 REM 3277ATCH  11/18/82 3277 AUTO ATTACH
0020 COM N$64
0030 SELECT @PART"3270UNIV"
   : X=ERR
   : ERRORGOTO 30
0035 PRINT "Waiting for cluster to load"
0040 N$=$PSTAT(2)
   : IF STR(N$,,8)<>"Active"THEN 40
   : PRINT "O.K."
0050 N$=" "
   : STR(N$,41)=HEX(8299)
   : REM /.ATTACH NEXT TERMINAL
0060 LOAD DC T#0,"B3270001"