Listing of file='3270OFFL' on disk='vmedia/bsc_3271_rel_1.14.04.wvd.zip'
# Sector 9, program filename = '3270OFFL' 0010 REM 3270OFFL 11/02/82 0020 COM D8$20,N$64,N$(16)8,A$64,B$1,C$1,A,B,C,W$64,Z$64 : DIM A1$(16)16 : W$="Checkout....." : A$=STR(N$,01) : IF STR(A$,#TERM,1)<>"."THEN 80 : W$="Configuration" : A$=STR(N$,17) : IF STR(A$,#TERM,1)<>"."THEN 80 : W$="Supervisor..." : A$=STR(N$,33) : IF STR(A$,#TERM,1)<>"."THEN 80 : W$="Operator....." : A$=STR(N$,49) 0080 A1$=A$ : SELECT CI 001,INPUT 001,LIST 005(80),CO 005(80),PRINT 005(80) : INIT(0A)D8$ : STR(D8$,1,1)=HEX(01) : Z$=" " : DIM E$64 : A=1 : RESTORE 2 : READ E$ : N$(1)="ASKAWHAT" : N$(2)="ASKACALL" : N$(6)="ASKASAVE" : N$(3)="ASKAEMUL" : N$(4)="ASKAPARM" : N$(7)="ASKALOAD" 0140 PRINT HEX(030E);" Wang 2200 / 3270 system off-line functions" : PRINT "TO OPERATE -- Press S.F. KEY or DIGIT corresponding to name," : PRINT "or position # via RETURN, SPACE or BACKSPACE and key RUN" : PRINT TAB(9);W$;" functions from terminal ";#TERM; : D=5 : D1=2 : GOSUB 550 : ON IGOTO 230 0210 % ' ## to ######################################## 0220 GOSUB 280 0230 E$=A1$(A) : W$=" " : B$=STR(E$,9,1) : N$=STR(E$,20) : LOAD DC T#0,STR(E$,1,8) 0260 DEFFN'0 : W$=" " : LOAD DC T#0,N$(1) 0280 DIM A$(1)12,M$(1)2 : A$(1)=HEX(080D2082313233343536373839) : A=1 : GOTO 450 0320 KEYIN C$,,490 : MAT SEARCHA$(),=C$TO M$() : C=VAL(STR(M$(1),2)) : IF C=0THEN 320 : PRINT STR(D8$,1,A+D-1);BOX(-1,-55);TAB(D1+1) : ON CGOTO 440,420,420,520 : AND (C$,0F) : GOTO 490 0420 A=A+1 : IF A<=ITHEN 450 : A=1 : GOTO 450 0440 A=A-1 : IF A>0THEN 450 : A=I 0450 PRINT STR(D8$,1,A+D-1);BOX(1,55);TAB(D1);"#";HEX(08); : SELECT PRINT 005 : GOTO 320 0490 IF C$=HEX(00)THEN 260 : C=VAL(C$) : IF C>ITHEN 450 : PRINT STR(D8$,1,A+D-1);BOX(-1,-55);TAB(D1+1) : A=C 0520 PRINT STR(D8$,1,A+D-1);BOX(1,7);TAB(D1);"*"; : RETURN 0550 I=0 : RESTORE : PRINT : B=8 0560 READ E$ : IF E$=" "THEN RETURN : B=B+1 : IF STR(A1$,B,1)="."THEN 560 : A1$(I+1)=E$ : A$=STR(E$,10) : I=I+1 : PRINTUSING 210,I,A$ : GOTO 560 : DATA "B327040 LList spooled print files" : DATA "B327040 RList spooled print files (REMOTE)" : DATA "B327040 DDelete from spooled print files" 0630 DATA "B327050 FFlush and renew WP system file" : DATA "B3270WP Examine WP system file" : DATA "B327040 QExamine print queues" : DATA "B327035 Clear cluster & stop 2228D controller" : DATA " "