Wang2200.org

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

# Sector 831, program filename = 'ASKASTR1'
0010 REM ASKASTR1 08/31/81
0020 COM D8$20,N$64,N$(16)8,A$64,B$1,C$1,A,B,C,W$64,Z$64
   : SELECT CI 001,INPUT 001,LIST 005(64),CO 005(64),PRINT 005(64)
   : PRINT HEX(03);" LOAD WANG 2200 COMMUNICATIONS EMULATOR"
   : IF B$=" "THEN 60
0043 READ A$
   : IF STR(A$,1,1)<>B$THEN 43
   : PRINT HEX(030E);" Load ";STR(A$,20)
0060 PRINT "TO OPERATE -- Press S.F. KEY or DIGIT corresponding to name, or"
   : PRINT "position # via RETURN or BACKSPACE and key RUN"
   : D=5
   : D1=2
   : INIT(0A)D8$
   : STR(D8$,1,1)=HEX(01)
   : B=0
   : GOSUB 650
0110 %    '##  ###### ########################################
0115 ON I+1GOTO 800,180
   : GOSUB 290
   : GOTO 180
0140 RETURN
0180 DATA LOAD DC OPEN T#0,N$(2)
   : A=VAL(STR(D$,A))
   : IF A=2THEN 210
   : DSKIP #0,A-2
0210 DATA LOAD DC #0,N$,W$,Z$
   : RESTORE
   : ON BGOTO 235
   : B$="L"
0235 READ A$
   : IF STR(A$,1,1)<>STR(Z$,31,1)THEN 235
   : N$(5)=STR(A$,11)
   : LOAD DC T#0,N$(4)
0290 DIM A$(1),M$(1)2
   : A$(1)=HEX(080D2082313233343536373839)
   : A=1
   : GOTO 460
0330 KEYIN C$,,500
   : MAT SEARCHA$(),=C$TO M$()
   : C=VAL(STR(M$(1),2))
   : IF C=0THEN 330
   : PRINT STR(D8$,1,A+D-1);BOX(-1,-56);TAB(D1+1)
   : ON CGOTO 450,430,430,530
   : AND (C$,0F)
   : GOTO 510
0430 A=A+1
   : IF A<=ITHEN 460
   : A=1
   : GOTO 460
0450 A=A-1
   : IF A>0THEN 460
   : A=I
0460 PRINT STR(D8$,1,A+D-1);BOX(1,56);TAB(D1);"#";HEX(08);
   : SELECT PRINT 005
   : GOTO 330
0500 IF C$=HEX(00)THEN 720
0510 C=VAL(C$)
   : IF C>ITHEN 460
   : PRINT STR(D8$,1,A+D-1);BOX(-1,-56);TAB(D1+1)
   : A=C
0530 PRINT STR(D8$,1,A+D-1);BOX(1,7);TAB(D1);"*";
   : RETURN
0650 PRINT STR(D8$,1,D);
   : C,I=1
   : DATA LOAD DC OPEN T#0,N$(2)
0680 DATA LOAD DC #0,N$,W$,Z$
   : IF END THEN 715
   : IF W$=" "THEN 715
   : C=C+1
   : IF B$=" "THEN 708
   : IF STR(Z$,31,1)<>B$THEN 680
0708 BIN(STR(D$,I,1))=C
   : PRINTUSING 110,I,"Load - ",N$
   : I=I+1
   : GOTO 680
0715 A=1
   : I=I-1
   : RETURN
0720 DEFFN'0
   : LOAD DC T#0,N$(1)
0800 PRINT HEX(03);"No Configuration made up for emulation specified"
   : STOP
   : DATA "1TTY      ASK?TTY  Teletype Emulator"
   : DATA "2TTT      ASK?2741 IBM 2741 (Selectric)"
   : DATA "3HASP     ASK?HASP Multi-leaving Hasp"
   : DATA "42780     ASK?2780 IBM 2780"
   : DATA "53780     ASK?3780 IBM 3780"
9060 DATA "63741     ASK?3741 IBM 3741"
   : DATA "72200-2200ASK?2200 Wang 2200 to 2200"
   : DATA "8MXD mode ASK?MXD  MVP-MXD Interface"
   : DATA "9OFF-LINE ASK?I/O  Off-line Utility"
   : DATA ":Monitor  ASK?MON  Communications Monitor Utility"
9110 DATA ";DTS      ASK?DTS  Data Terminal Systems Interface"
   : DATA "<3270     ASK?3270 the 3270 Cluster"
   : DATA " "