image of READY prompt

Wang2200.org

Listing of file='ASKASAVE' on disk='vmedia/731-0111.wvd.zip'

# Sector 20, program filename = 'ASKASAVE'
0010 REM ASKASAVE  SAVEIT? 12/02/81
0020 DIM E$64,N1$64,W1$64,Z1$64,Y$(4)62
0030 PRINT HEX(03);" SAVE IT OR RUN?       --  Key SF '0 to exit"
   : PRINT "TO OPERATE -- Press S.F. KEY or DIGIT corresponding to option,"
   : PRINT "or position # via RETURN, SPACE or BACKSPACE and key RUN."
   : D=5
   : D1=2
   : GOSUB 500
0080 %   ' ## FOR ########################################
0090 GOSUB 230
   : ON AGOTO 120,540
   : DATA "RUN CREATED VERSION"
0120 IF STR(Z$,31,1)="<"THEN 30
   : A$,STR(W$,33)=STR(W$,1,8)
   : B$="L"
   : LOAD DC T#0,N$(4)
0180 DATA "SAVE CREATED VERSION"
   : DATA " "
0200 DEFFN'0
   : W$=" "
0210 LOAD DC T#0,N$(1)
0230 DIM A$(1)12,M$(1)2
   : A$(1)=HEX(0D200882313233343536373839)
   : A=1
   : GOTO 400
0270 KEYIN C$,,440
   : MAT SEARCHA$(),=C$TO M$()
   : C=VAL(STR(M$(1),2))
   : IF C=0THEN 270
   : PRINT STR(D8$,1,A+D-1);BOX(-1,-55);TAB(D1+1)
   : ON CGOTO 370,370,390,470
   : AND (C$,0F)
   : GOTO 440
0370 A=A+1
   : IF A<=ITHEN 400
   : A=1
   : GOTO 400
0390 A=A-1
   : IF A>0THEN 400
   : A=I
0400 PRINT STR(D8$,1,A+D-1);BOX(1,55);TAB(D1);"#";HEX(08);
   : SELECT PRINT 005
   : GOTO 270
0440 IF C$=HEX(00)THEN 200
   : C=VAL(C$)
   : IF C>ITHEN 400
   : PRINT STR(D8$,1,A+D-1);BOX(-1,-55);TAB(D1+1)
   : A=C
0470 PRINT STR(D8$,1,A+D-1);BOX(1,7);TAB(D1);"*";
   : RETURN
0500 I=0
   : RESTORE
   : PRINT
   : IF STR(Z$,31,1)<>"<"THEN 510
   : PRINT "   '  0 TO EXIT WITHOUT SAVING CONFIGURATION"
   : I=1
   : READ E$
0510 READ E$
   : IF E$<>" "THEN 520
   : RETURN
0520 I=I+1
   : PRINTUSING 80,I,E$
   : GOTO 510
0540 IF W$=" "THEN 200
   : DATA LOAD DC OPEN T#0,N$(2)
   : PRINT HEX(03);"      SAVE THE PARAMETERS YOU HAVE GENERATED"
   : PRINT
   : PRINT "EXISTING CALLS--"
   : INIT(00)E$
0590 DATA LOAD DC #0,N1$,W1$,Z1$
   : IF END THEN 630
   : IF W1$=" "THEN 640
   : IF STR(Z1$,31,1)<>"<"THEN 620
   : STR(E$,I,1)=STR(Z1$,24,1)
0620 PRINTUSING 80,I,N1$
   : I=I+1
   : GOTO 590
0630 STOP "NO ROOM FOR VERSION IN ASKnCALL FILE"
0640 DBACKSPACE #0,1
   : PRINT
   : PRINT "THESE PARAMETERS--"
   : PRINT "Emulator type    --- ";STR(N$,1,20)
   : IF STR(Z$,31,1)="7"THEN 780
   : PRINT "Input capability --- ";STR(N$,21,22)
   : PRINT "Output capability -- ";STR(N$,43,21)
0690 A$=" "
   : PRINT
   : PRINT "KEY 1-40 BYTE....!....1....!....2....!....3....!....4"
   : LINPUT "DESCRIPTION?",?-STR(A$,,40)
   : IF STR(A$,1,1)=HEX(82)THEN 740
   : IF A$="RUN"THEN 740
   : IF A$<>" "THEN 750
0740 PRINT HEX(0C);TAB(20);HEX(0D);
   : GOTO 690
0750 N$=A$
   : IF STR(Z$,31,1)="<"THEN 800
   : DATA SAVE DC #0,N$,W$,Z$
   : GOTO 210
0780 PRINT "I/O capability--- ";STR(N$,21)
   : GOTO 690
0800 C$="A"
0810 IF POS(STR(E$,2,14)=C$)=0THEN 830
   : ADD(C$,01)
   : GOTO 810
0830 A=POS(STR(E$,2,14)=HEX(00))+1
   : STR(Z$,24,1)=C$
   : DATA SAVE DC #0,N$,W$,Z$
   : DATA LOAD DC OPEN T#0,"3270CALL"
   : IF C$="A"THEN 880
   : DSKIP VAL(C$)-65S
0880 DATA SAVE DC #0,Y$()
   : GOTO 210