Listing of file='ASKASTRT' on disk='vmedia/731-0110A.wvd.zip'
# Sector 25, program filename = 'ASKASTRT'
0010 REM ASKASTRT 04/05/83
0020 COM D8$20,N$64,N$(16)8,A$64,B$1,C$1,A,B,C,W$64,Z$64
: DIM Y$(4)62
0030 SELECT CI 001,INPUT 001,LIST 005(64),CO 005(64),PRINT 005(64)
: PRINT HEX(03);" WANG 2200 TELECOMMUNICATIONS EMULATORS ASC Release 07.00.
00."
: N$(1)="ASKASTRT"
: N$(2)="ASKACALL"
: N$(6)="ASKASAVE"
: N$(3)="ASKAEMUL"
: N$(4)="ASKAPARM"
: N$(7)="ASKALOAD"
0060 PRINT "TO OPERATE -- Press S.F. KEY or DIGIT corresponding to name, or"
: PRINT "position # via RETURN or BACKSPACE and key RUN, DELETE or RECALL"
: B$=" "
: D=5
: D1=2
: INIT(0A)D8$
: STR(D8$,1,1)=HEX(01)
: B=0
: GOSUB 650
0110 % '## ###### ########################################
0120 GOSUB 290
: ON AGOTO 160
: GOTO 180
0140 RETURN
0160 N$,W$,Z$=" "
: LOAD DC T#0,N$(3)
0180 DATA LOAD DC OPEN T#0,N$(2)
: 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)
0270 DEFFN'31
: N$,W$,Z$=" "
: DATA LOAD DC OPEN T#0,N$(2)
: FOR A=1TO 14
: DATA SAVE DC #0,N$,W$,Z$
: NEXT A
: DATA SAVE DC #0,END
: Y$()=" "
: DATA LOAD DC OPEN T#0,"3270CALL"
: ERRORGOTO 275
0274 FOR A=1TO 14
: DATA SAVE DC #0,Y$()
: NEXT A
: DATA SAVE DC #0,END
0275 GOSUB 740
: RETURN
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
: IF C$=HEX(0F)THEN 610
: IF C$=HEX(09)THEN 560
0510 C=VAL(C$)
: IF C>ITHEN 460
0520 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
0560 ON AGOTO 595
: DATA LOAD DC OPEN T#0,N$(2)
: IF A=2THEN 575
: DSKIP #0,A-2S
0575 IF A=ITHEN 590
: DSKIP #0,1S
: FOR B=A+1TO I
: DATA LOAD DC #0,N$,W$,Z$
: DBACKSPACE #0,2S
: DATA SAVE DC #0,N$,W$,Z$
: DSKIP #0,1S
: NEXT B
: DBACKSPACE #0,1S
0590 N$,W$,Z$=" "
: DATA SAVE DC #0,N$,W$,Z$
: GOTO 30
0595 C=9
: IF I>8THEN 520
: GOTO 460
0610 PRINT STR(D8$,1,D);
: ON BGOTO 630
: B=1
: PRINT HEX(0E);
: PRINTUSING 110,1,"RECALL","FOR SYSTEM GENERATION"
: GOTO 460
0630 B=0
: PRINT HEX(0E);
: PRINTUSING 110,1,"CREATE","A NEW CONFIGURATION"
: GOTO 460
0650 PRINT STR(D8$,1,D);
: PRINT HEX(0E);
: PRINTUSING 110,1,"CREATE","A NEW CONFIGURATION"
: I=1
: DATA LOAD DC OPEN T#0,N$(2)
0680 DATA LOAD DC #0,N$,W$,Z$
: IF END THEN 140
: IF W$=" "THEN 140
: I=I+1
: PRINTUSING 110,I,"Load - ",N$
: GOTO 680
0720 DEFFN'0
: COM CLEAR
: LOAD DC T#0,"START"
0740 DATA LOAD DC OPEN T#0,N$(2)
0850 RETURN
9010 DATA "1TTY ASK?TTY Teletype Emulator"
: DATA "2TTT ASK?2741 IBM 2741 (Selectric)"
: DATA "3HASP ASK?HASP Multileaving HASP"
: DATA "42780 ASK?2780 IBM 2780"
: DATA "53780 ASK?3780 IBM 3780"
: DATA "63741 ASK?3741 IBM 3741"
9070 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"
: DATA ";DTS ASK?DTS Data Terminal Systems Interface"
9120 DATA "<3270 ASK?3270 IBM 3270"
: DATA "=WPS mode ASK?WPS 2200-WPS mode"
: DATA ">Async ASK?ASY Generalized Async"
: DATA " "