Listing of file='ASK?2200' on disk='vmedia/731-0111.wvd.zip'
# Sector 302, program filename = 'ASK?2200' 0010 REM ASK?2200 11/24/81 : GOTO 1500 : ON A GOTO 2010,2030 1490 REM %Prompt screen 1 1500 P0=40 : P=1 : GOSUB '33 : GOSUB 2430 1620 STR(N$,21)="via Search System over 8K" 1630 STR(W$,17)="CIO*095" 1650 LOAD DC T#0,N$(6) 1990 REM %..ASKAPARM - 2200-2200 ? interface 2000 REM ..... 2200 I/O Ask Parameters 2010 GOSUB 2080 : RETURN 2030 GOSUB 2060 : RETURN 2050 REM %^ ...QUESTIONS 2060 D$="2 2 0 0 - 2 2 0 0 P a r a m e t e r s" : P=1 : P9=4 2080 INIT(20)D$() : ON A GOTO 2130,2190,2260,2400 2090 REM . A$ - DESCRIPTION 2100 REM . D$( DESCRIPTION OF VALUE 2110 REM 2120 REM .? 1 2130 A$="MODEM TYPE" 2140 D$(1)="Synchronous 2000-4800" 2150 D$(2)="2400 BPS (null modem)" 2160 D$(3)="4800 BPS (null modem)" 2170 D$(4)="Synchronous (Drop DTR)" 2180 RETURN 2185 REM .? 2 2190 A$="MODEM OPERATES" 2200 D$(1)="Dial-up line" 2210 D$(2)="Leased line" 2220 RETURN 2259 REM . ? 3 2260 A$ ="T.C. BOARD ADDRESS" : D$(1)="1C" : D$(2)="1D" : D$(3)="1E" : D$(4)="1F" : RETURN 2390 REM . ? 4 2400 A$ ="REMOTE 2200 USES" : D$(1)="28B or C (release 6)" : D$(2)="28B or C (release 5)" : D$(3)="28D" : RETURN 2420 REM % SET COMMON MICROCODE VALUES 2430 INIT(00)STR(Z$,1,16) 2435 BIN(STR(Z$,1,1))=135 : REM /PRINT LINE LENGTH 2440 BIN(STR(Z$,2,1))=80 : REM /PUNCH LENGTH 2450 STR(Z$,3,2)=HEX(9001) : REM /BLOCK LENGTH 2460 REM ? 1 ***CLKFLG*** MODEM TYPE 2470 A$=HEX(00000180) : STR(Z$,6,1)=STR(A$,VAL(C$(1))) 2480 REM ? 2 ***FDXFLG*** MODEM OPERATES 2490 A$=HEX(0001) : STR(Z$,12,1)=STR(A$,VAL(C$(2))) 2520 REM No ? ***RECS/BLK*** RECORD BLOCKING 2530 A$=HEX(0701) : STR(Z$,5,1)=STR(A$,VAL(C$(4))) 2540 REM No ? *** *** CONVERT TRANSPARENCY? 2550 STR(Z$,13,1)=HEX(00) 2555 STR(Z$,7,4)=HEX(16161616) 2556 STR(W$,6)="B/C" : IF STR(Z$,44,1)="1"THEN 2560 : STR(W$,6)="D" 2558 IF STR(Z$,44,1)="3"THEN 2560 : STR(W$,6)="T" 2560 STR(W$,9)="BSC*010A" : REM /MICROCODE NAME 2780 2570 N$="2200 to 2200" 3000 REM %.Operator may modify the following before saving configuration. 3010 STR(Z$,51)=HEX(5BC75DC35CCC5FC45CA15F822020) : RETURN 3020 REM ...........[sin]cos\pi _exp\Lod_Run 3030 REM .Special symbols are keyed by the following keys. 3040 REM .. x'5B' [ or SIN( x'5D' ] or COS( x'5E' ^ 3050 REM .. x'5C' \ PI or LOAD x'5F' _ EXP( or RUN