Listing of file='ASKASTRT' on disk='vmedia/731-0111.wvd.zip'
# Sector 32, program filename = 'ASKASTRT' 0010 REM ASKASTRT 01/30/81 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 BSC Rel. 06.00.02. " : 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 " "