image of READY prompt

Wang2200.org

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

# Sector 261, program filename = 'ASKAPARM'
0010 REM ASKAPARM 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 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