Listing of file='3277DISC' on disk='vmedia/bsc_3271_rel_1.14.04.wvd.zip'
# Sector 2424, program filename = '3277DISC' 0010 REM 3277DISC 02/01/83 - detach a 2200/3277 station on term.line drop. 0020 REM .NOTE -- This logic is for detaching a 3277TERMinal if attached. 0030 REM .If an MXE terminal controller is used put this logic in "@DISCNCT" 0040 DIM A$64,B$1,C$1 0050 A$=$PSTAT(1) : IF STR(A$,17,8)="3270UNIV"THEN GOSUB 1010 0060 REM .LOAD T "@CONNECT" or : LOAD RUN 1000 REM %.2200/3270 system is loaded in system 1010 SELECT @PART"3270UNIV" 1020 BIN(B$)=#TERM+48 : BIN(C$)=#PART+48 1030 N=POS(STR(@A$,13,8)=C$) : A=0 1040 IF N=0 THEN RETURN : IF STR(@A$,24+N,1)<>B$ THEN RETURN 1050 REM %.User's terminal and partition was attached 1060 IF @T$(N)=HEX(00)THEN 1080 : A=A+1 : $BREAK : IF A<99THEN 1060 : @T$(N)=HEX(00) : $BREAK10 1070 REM %.Detach user from the system 1080 STR(@D$(N),2)=HEX(00) : @T$(N)=HEX(03) 1090 REM %.Clear attached indications 1100 $BREAK10 : STR(@A$,12+N,1),STR(@A$,24+N,1),STR(@A$,38+(3*N),3)=" " 1110 RETURN