Listing of file='ASKAPARM' on disk='vmedia/bsc_3271_rel_1.14.04.wvd.zip'
# Sector 613, program filename = 'ASKAPARM' 0010 REM ASKAPARM 02/21/84 12/01/81 ASK EMULATOR PARAMETER SETTINGS : GOTO 1100 : ON AGOTO 175 0020 COM Z1$64 : DIM C$(10)1,A$(1)20,M$(1)2,D$(15)32,D$64,D8$20,D9$64 0100 RETURN 0110 A$=" " : IF C3=0THEN 100 : SELECT PRINT 005 : PRINT STR(D8$,1,A+D) : PRINTUSING 140," "," "," " : RETURN 0140 % # ###################### ############################### 0160 PRINT STR(D8$,1,A+D);BOX(1,63); : PRINTUSING 140,"#",A$,D$(MAX(1,VAL(C$(A)))) : PRINT STR(D8$,1,A+D);TAB(5); 0170 KEYIN C$,,330 0175 MAT SEARCHA$()<1,13>,=C$TO M$() : C=VAL(STR(M$(1),2)) : IF C<5THEN 200 : D$=D$(C-4) : IF D$=" "THEN 160 : PRINT STR(D8$,1,A+D);STR(D9$,1,33);STR(D$,1,31) : AND (C$,0F) : C$(A)=C$ : C=1 0200 IF C=0THEN 170 : PRINT STR(D8$,1,A+D);BOX(-1,-63); : PRINTUSING 140," " 0210 E=0 : ON C-1GOTO 260,350 0240 A=A+1 : IF A<=P9THEN 280 : A=1 : GOTO 280 0245 IF C$<>HEX(08)THEN 240 0260 A=A-1 : IF A>0THEN 280 : A=P9 0280 E=0 : GOSUB 2010 : IF A$=" "THEN 245 : PRINT STR(D8$,1,D+P9+D1+5);TAB(63);HEX(0D); : IF A>1THEN 290 : PRINT TAB(45);HEX(0E);"--RUN--" 0290 IF E=-1THEN IF D$(2)=" "THEN 400 : PRINT STR(D8$,1,D+P9+D1);"OPTIONS FOR -- ";A$;TAB(41) : C9=0 : IF D$(2)=" "THEN 305 0300 C9=C9+1 : IF D$(C9)=" "THEN 310 : PRINT C9;D$(C9);TAB(41) : GOTO 300 0305 C9=2 : PRINT D$(1);TAB(41) 0310 IF C9>9THEN 400 : PRINT TAB(40) : C9=C9+1 : IF L=80THEN 310 : IF P9+C9<14THEN 310 : GOTO 400 0330 C=VAL(C$) : IF C=0THEN 380 : IF C=15THEN 1110 : GOTO 170 0350 IF A<>1THEN 280 : FOR A=1TO P9 : B$=C$(A) : AND (B$,0F) : OR (B$,30) : C$(A),STR(Z$,P0+A,1)=B$ : NEXT A : B=1 : RETURN 0380 DEFFN'0 : W$=" " : LOAD DC T#0,N$(1) 0400 IF E=-2OR D$(2)<>" "THEN 160 : PRINT STR(D8$,1,D+P9+D1+2);D$(3) : IF E<2OR E=4THEN 410 : B=4 0408 PRINT D$(B) : B=B+1 : IF D$(B)<>" "THEN 408 0410 PRINT STR(D8$,1,A+D);BOX(1,63); : PRINTUSING 140,"#",A$,D$(1) : PRINT STR(D8$,1,A+D);STR(D9$,1,33); : B=1 : IF E=-1THEN 465 0418 SELECT PRINT 005(80) 0420 KEYIN C$,,480 : GOTO 430 0425 IF C>0THEN 440 : GOTO 418 0428 IF NUM(C$)=1THEN 440 : GOTO 418 0430 MAT SEARCHA$(),=C$TO M$() : C=VAL(STR(M$(1),2)) : ON CGOTO 460,470,460,438 : ON E+1GOTO 440,485,425,425,428 0438 ON E-1GOSUB 740,740 : ON BGOTO 460 0440 STR(D$(1),B,1)=C$ : PRINT C$; : B=B+1 0445 IF B<=C2THEN 418 0460 ON E-1GOSUB 1200,1200,1300 : C$(A),STR(Z$,C1,C2)=STR(D$(1),1,C2) : IF A+P0<>CTHEN 465 : C$(A)=HEX(01) 0465 SELECT PRINT 005 : PRINT STR(D8$,1,A+D);BOX(-1,-63);TAB(8); : GOTO 210 0470 ON BGOTO 460 : B=B-1 : PRINT C$; : GOTO 418 0480 IF C$=HEX(00)THEN 380 : IF C$=HEX(0F)THEN 1110 : GOTO 420 0485 MAT SEARCHD$()<97,64>,=C$TO M$() : IF M$(1)=HEX(0000)THEN 400 : GOTO 440 0490 E=0 : A=1 : GOSUB 2030 : A$(1)=HEX(0D0882) : STR(A$(1),5)="1234567890ABCDEF" : A=(64-LEN(D$))/2 : PRINT HEX(030E);TAB(A);D$ : D$="PARAMETER" : OR (STR(D$,1,9),80) : PRINT TAB(9);D$; : D$="CURRENT SELECTION" : OR (STR(D$,1,17),80) : PRINT TAB(32);D$ : PRINT STR(D8$,1,1+D); : FOR A=1TO P9 : C$=STR(Z$,P0+A,1) : IF C$>HEX(2F)AND C$<HEX(3A)THEN 610 : C$="1" 0610 AND (C$,0F) : C$(A)=C$ : E=0 : GOSUB 2010 : D$=D$(MAX(1,VAL(C$))) : IF E=1THEN D$=D$(1) : IF D$=" "THEN D$=D$(1) : PRINTUSING 140," ",A$,D$ : NEXT A : IF B$="L"THEN 990 0670 PRINT STR(D8$,1,D+P9+D1);TAB(45);"ACTIVE KEYS --" : PRINT TAB(45);"--DIGITS--" : PRINT TAB(45);"--RETURN--" : PRINT TAB(45);"--BACKSPACE--" : PRINT TAB(45);"--RECALL--" : A=1 0730 KEYIN C$,730,730 : RETURN 0740 IF B=C2THEN 100 : RETURN CLEAR : IF (B+E)/(E+1)<>INT((B+E)/(E+1))THEN 440 : B=B+E+1 : PRINT STR(D9$,2,E+1); : GOTO 445 0770 DEFFN'33 : C3=0 : INIT(09)D9$ : STR(D9$,1,1)=HEX(00) : D=3 : D1=2 : GOSUB 490 : IF B$="L"THEN 980 : C3=1 : GOSUB 670 : A=1 : GOSUB 280 : B=P0 : GOSUB 1010 : RETURN 0980 RETURN CLEAR 0990 PRINT : LOAD DC T#0,N$(7) 1010 FOR A=1TO 9 : B$=STR(Z$,A+P0,1) : IF B$<>" "THEN 1020 : B$="1" 1020 AND (B$,0F) : C$(A)=B$ : NEXT A : RETURN 1100 Z1$=Z$ 1110 Z$=Z1$ : LOAD DC T#0,N$(5)1500 1200 IF POS(STR(D$(1),1,C2)="h")>0THEN 1220 : B=1 1210 IF POS(STR(D$(1),B,E)=" ")>0THEN 1220 : MAT SEARCHD$()<97,196>,=STR(D$(1),B,E)TO M$()STEP 1 : IF M$(1)=HEX(0000)THEN 1220 : B=B+E+1 : IF B>C2THEN 1240 : IF STR(D$(1),B-1,1)=" "THEN 1210 1220 RETURN CLEAR : GOTO 400 1240 IF E=C2THEN 100 : B=1 1250 MAT SEARCHD$()<B+E+1,C2-(B+E)>,=STR(D$(1),B,E)TO M$()STEP E+1 : IF M$(1)>HEX(0000)THEN 1220 : B=B+E+1 : IF B+E<C2THEN 1250 : RETURN 1300 CONVERT D$(1)TO C9 : ERRORGOTO 1220 1310 CONVERT D$(4)TO C : IF C9<CTHEN 1220 : CONVERT D$(5)TO C : IF C9>CTHEN 1220 : RETURN 1500 STOP 2010 RETURN 2030 RETURN