image of READY prompt

Wang2200.org

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 " "