Listing of file='B327040L' on disk='vmedia/bsc_3271_rel_1.14.04.wvd.zip'
# Sector 659, program filename = 'B327040L' 0010 REM B327040L 3270 get # vaus spooled 11/03/82 0012 A$="32WPRECM32WPRECI" : LOAD DC T#0,<2>A$4000,9999BEG 100 : COM B2$(4)5,B2(4) : DIM V0$(25)80,V1$(24)82,V0,R1$1 : DIM V0,R1$1 0100 FOR S1=1TO 4 : GOSUB '220(S1-1,1,1,1,1) : ON POS(HEX(00282520)=R1$)GOTO 110,110,110,110 : STOP "Error"# 0110 IF V0<1THEN V0=0 : B2(S1)=V0 : CONVERT V0TO B2$(S1),(#####) : NEXT S1 : LOAD T#0,N$(5)