image of READY prompt

Wang2200.org

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