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