Listing of file='ASK?3780' on disk='vmedia/731-0111.wvd.zip'
# Sector 564, program filename = 'ASK?3780' 0010 REM ASK?3780 03/19/81 : GOTO 1500 : ON A GOTO 2010,2030 1490 REM %Prompt screen 1 1500 P0=40 : P=1 : GOSUB '33 : GOSUB 2380 1550 LOAD DC T #0,"ASK?I/O" 1500 1990 REM %..ASKAPARM - 3780 question interface 2000 REM ...3780 Ask Parameters 2010 GOSUB 2060 : RETURN 2030 GOSUB 2050 : RETURN 2040 REM %^...QUESTIONS 2050 D$="3 7 8 0 P a r a m e t e r s" : P=1 : P9=8 : $IF ON /000,2055 : P9=6 2055 IF L=80THEN 2060 : D1=1 : D=1 2060 INIT(20)D$() : ON A GOTO 2100,2160,2200,2240,2280,2320,2340,2350 2070 REM . A$ - DESCRIPTION 2080 REM . D$( DESCRIPTION OF VALUE 2090 REM 2095 REM .? 1 2100 A$="MODEM TYPE" : D$(1)="Synchronous 2000-4800" : D$(2)="2400 BPS (null modem)" : D$(3)="4800 BPS (null modem)" 2140 D$(4)="Synchronous (Drop DTR)" : RETURN 2155 REM .? 2 2160 A$="MODEM OPERATES" : D$(1)="Dial-up line" : D$(2)="Leased line" : RETURN 2195 REM .? 3 2200 A$="RECORD BLOCKING" : D$(1)="Multi-record" : D$(2)="Single record" : RETURN 2235 REM .? 4 2240 A$="RECEIVE TRANSPARENCY?" : D$(1)="To disk in ASCII" : D$(2)="To disk w/o translation" : RETURN 2275 REM .? 5 2280 A$="RECEIVED DATA" : D$(1)="Space Compressed" : D$(2)="Horizontal Tabs" : RETURN 2315 REM .? 6 2320 IF C$(5)=HEX(02)THEN 110 2330 A$="TRANSMITTED DATA" : D$(1)="Compressed" : D$(2)="As Is" : RETURN 2335 REM .? 7 2340 A$="MULTIPOINT?" : D$(1)="No" : D$(2)="Yes" : RETURN 2345 REM .? 8 2350 IF C$(7)=HEX(01)THEN 110 : GOSUB '202("TERMINAL ID",27,1) : E=1 : D$(3)="Key 1 character (A-Z)" : D$(4)="ABCDEFGIHJKLMNOPQRSTUVWXYZ" : RETURN 2360 DEFFN'202(A$,C1,C2) : D$(1)=STR(Z$,C1,C2) : RETURN 2370 REM %^.SET MICROCODE VALUES 2380 INIT(00)STR(Z$,1,16) 2385 BIN(STR(Z$,1,1))=135 : REM /PRINT LINE LENGTH 2390 BIN(STR(Z$,2,1))=80 : REM /PUNCH LENGTH 2400 STR(Z$,3,2)=HEX(0002) : REM /BLOCK LENGTH 2410 REM ? 1 ***CLKFLG*** MODEM TYPE 2420 A$=HEX(00000180) : STR(Z$,6,1)=STR(A$,VAL(C$(1))) 2430 REM ? 2 ***FDXFLG*** MODEM OPERATES 2440 A$=HEX(0001) : STR(Z$,12,1)=STR(A$,VAL(C$(2))) 2442 REM ? 6 *** *** TRANSMITTED DATA 2444 STR(Z$,11,1)=STR(A$,VAL(C$(6))) 2470 REM ? 3 ***RECS/BLK*** RECORD BLOCKING 2480 A$=HEX(FF01) : STR(Z$,5,1)=STR(A$,VAL(C$(3))) 2490 REM ? 4 *** *** CONVERT TRANSPARENCY? 2500 A$=HEX(0100) : STR(Z$,13,1)=STR(A$,VAL(C$(4))) 2502 GOSUB 3010 : REM /.Set special keys for console entry 2505 STR(Z$,7,4)=HEX(16161616) 2510 REM . SET MICROCODE NAME AND DESCRIPTION 2512 IF P9=8 THEN 2555 2514 ON VAL(C$(5)) GOTO 2530 2520 STR(W$,9)="BSC*030A" : N$="3780 HT PT-PT" : RETURN 2530 STR(W$,9)="BSC*020A" : N$="3780 SC PT-PT" : RETURN 2555 ON VAL(C$(7))GOTO 2514 : STR(Z$,10,1)=STR(Z$,27,2) : ON VAL(C$(5))GOTO 2580 2570 STR(W$,9)="BSC*031A" : N$="3780 HT MULTIPT" : RETURN 2580 STR(W$,9)="BSC*021A" : N$="3780 SC MULTIPT" : 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