Listing of file='ASK?2780' on disk='vmedia/731-0111.wvd.zip'
# Sector 288, program filename = 'ASK?2780' 0010 REM ASK?2780 09/17/81 : GOTO 1500 : ON A GOTO 2010,2030 1490 REM %Prompt screen 1 1500 P0=40 : P=1 : GOSUB '33 : GOSUB 2430 1550 LOAD DC T #0,"ASK?I/O" 1500 1990 REM %..ASKAPARM - 2780 question interface 2000 REM ..... 2780 I/O Ask Parameters 2010 GOSUB 2080 : RETURN 2030 GOSUB 2060 : RETURN 2050 REM %^ ...QUESTIONS 2060 D$="2 7 8 0 P a r a m e t e r s" : P=1 : P9=7 : $IF ON /000,2070 : P9=4 2070 IF L=80THEN 2080 : D1=1 : D=1 2080 INIT(20)D$() : ON A GOTO 2130,2190,2230,2280,2320,2360,2383 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 2225 REM .? 3 2230 A$="RECORD BLOCKING" 2240 D$(1)="Multi-record" 2250 D$(2)="Single record" 2260 RETURN 2270 REM .? 4 2280 A$="RECEIVE TRANSPARENCY?" 2290 D$(1)="To disk in ASCII" 2300 D$(2)="To disk w/o translation" 2310 RETURN 2315 REM ?5 2320 A$="MULTIPOINT?" 2330 D$(1)="No" 2340 D$(2)="Yes" 2350 RETURN 2355 REM IF ?5 answer =1 (No) then ask ?7 2356 REM ?6a 2360 IF C$(5)=HEX(01) THEN 110 2370 GOSUB '202 ("TERMINAL ID",27,1) 2380 E=1 : D$(3)="Key 1 character (A-Z or a-z)" : D$(4)= "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdef" : D$(5)="ghijklmnopqrstuvwxyz" : RETURN 2382 REM ?7 2383 IF C$(5)=HEX(02)THEN 110 2384 A$="LINE CODE" 2385 D$(1)="EBCDIC" 2386 D$(2)="ASCII" 2387 RETURN 2388 REM Arg 1 (A$) = question parameter 2389 REM Arg 2 (C1) = position of response in Z$ 2390 REM Arg 3 (C2) = length of response 2391 DEFFN '202(A$,C1,C2) : D$(1)=STR(Z$,C1,C2) : 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 ? 3 ***RECS/BLK*** RECORD BLOCKING 2530 A$=HEX(0701) : STR(Z$,5,1)=STR(A$,VAL(C$(3))) 2540 REM ? 4 *** *** CONVERT TRANSPARENCY? 2550 A$=HEX(0100) : STR(Z$,13,1)=STR(A$,VAL(C$(4))) 2552 GOSUB 3010 : REM /.set special console keyboard keys 2555 STR(Z$,7,4)=HEX(16161616) 2560 IF P9=4 THEN 2565 : IF C$(5)=HEX(02) THEN 2570 : IF C$(7)=HEX(02)THEN 2580 2565 STR(W$,9)="BSC*010A" : N$="2780 PT-PT EBCDIC" : RETURN 2570 STR(Z$,10,1)=STR(Z$,27,1) : STR(W$,9)="BSC*011A" : N$="2780 MULTIPT EBCDIC" : RETURN 2580 STR(W$,9)="BSC*012A" : N$="2780 PT-PT ASCII" : RETURN 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