Listing of file='ASK?2741' on disk='vmedia/731-0110A.wvd.zip'
# Sector 108, program filename = 'ASK?2741' 0010 REM ASK?2741 03/31/83 : GOTO 1500 : ON AGOTO 2010,2030 1490 REM % Prompt 1500 P0=40 : P=1 : GOSUB '33 : GOSUB 2450 1550 REM .Save input selection 1560 A=3 : GOSUB 2150 : A=VAL(C$(3)) : STR(N$,21)=D$(A) 1570 ON A GOTO 1590,1580 : A=4 : GOTO 1590 1580 A=VAL(C$(5))+1 1590 GOSUB 2350 : STR(W$,17)=STR(D$(A),1,8) 1650 REM .Save output parameters 1660 A=4 : GOSUB 2150 : A=VAL(C$(4)) : STR(N$,43)=D$(A) 1670 ON A GOTO 1690 : A=VAL(C$(5))+1 1690 GOSUB 2390 : STR(W$,25)=STR(D$(A),1,8) 1800 LOAD DC T#0,N$(6) 1990 REM %..ASKAPARM - 2741 question interface 2000 REM ..... 2741 Ask Parameters 2010 ON P GOSUB 2150 : RETURN 2030 ON P GOSUB 2140 : RETURN 2100 REM %^ ...QUESTIONS 2110 REM . A$ - DESCRIPTION 2120 REM . D$( DESCRIPTION OF VALUE 2130 REM %.2741 (IBM Selectric) 2140 D$="2 7 4 1 P a r a m e t e r s" : P9=8 2145 IF L=80THEN 2150 : D1=1 : D=1 2150 INIT(20)D$() : ON A GOTO 2160,2170,2180,2190,2200,2210,2220,2230 2158 REM .? 1 2160 A$="CODE SET TO BE USED" 2162 D$(1)="Correspondence" : D$(2)="BCD" : D$(3)="EBCD" 2164 RETURN 2168 REM .? 2 2170 A$="TRANSMISSION RATE" 2172 D$(1)="134.5 Baud" : D$(2)="300 Baud" : D$(3)="1200 Baud" : D$(4)="7200 (null modem)" 2174 RETURN 2178 REM .? 3 2180 A$="SEND FROM" : D$(1)="Keyboard Only" : D$(2)="Disk" : RETURN 2182 D$(3)="Memory for testing" : RETURN 2188 REM .? 4 2190 A$="RECEIVE TO" : D$(1)="CRT/line printer only" : D$(2)="Disk" : RETURN 2198 REM .? 5 2200 IF C$(3)=HEX(02)THEN 2202 : IF C$(4)=HEX(01)THEN 110 2202 A$="DISK ACCESS METHOD" 2204 D$(1)="via Search" : D$(2)="via On Error" : RETURN 2208 REM .? 6 2210 A$="LINE PROTOCOL" 2212 D$(1)="2741 Terminal" : D$(2)="2741 Host" 2214 RETURN 2218 REM .? 7 2220 A$="T.C. BOARD TYPE" : D$(1)="2227B, 28B or 28C" : D$(2)="MXE" : RETURN 2228 REM .? 8 2230 A$="T.C. BOARD ADDRESS" : IF C$(7)=HEX(02)THEN 2240 : AND (C$(8),0F) : D$(1)="1C" : D$(2)="1D" : D$(3)="1E" : D$(4)="1F" : RETURN 2240 GOSUB '205("T.C. PORT ON MXE",29,2,"08") : RETURN 2250 DEFFN'205(A$,C1,C2,D1$) : E=2 : D$(3)="Use MXE port number 02-16" : D$(4)="02 03 04 05 06 07 08 09 10 11 12" : D$(5)="13 14 15 16" : BIN(C$)=1 : IF STR(Z$,C1,C2)=" "THEN STR(Z$,C1,C2)=D1$ : D$(1)=STR(Z$,C1,C2) : RETURN 2340 REM %.INPUT MODULES 2342 REM .1=KBD 2=DISK/SEARCH 3=DISK/ERROR 2350 D$(1)=" " : D$(2)="CIOA010" : D$(3)="CIOA070" 2355 D$(4)="CIO*180" 2370 RETURN 2380 REM %.OUTPUT MODULES 2382 REM .1=CRT 2=DISK/SEARCH 3=DISK/ERROR 2390 D$(1)=" " : D$(2)="CIOA040" : D$(3)="CIOA080" 2420 RETURN 2430 REM %^ SET PARAMETERS FROM RESPONSES 2440 REM % Set 2741 Communications Control Vector 2450 INIT(00)STR(Z$,1,20) 2460 STR(Z$,4,1)=HEX(5E) : REM /PARITY/FRAMING CHAR 2470 STR(Z$,6,1)=HEX(01) : REM /ENABLE END OF RECORD DETECTION 2480 STR(Z$,9,2)=HEX(120C) : REM /BREAK SEND/DETECT INTERVALS 2490 STR(Z$,1,1)=HEX(10) : REM /1 STOP BIT 2500 STR(Z$,2,1)=HEX(11) : REM /HALF W/DEL. BREAK ENABLED 2510 STR(Z$,3,1)=HEX(13) : REM /6 DATA BITS + ODD PARITY 2520 STR(Z$,7,2)=HEX(1C1F) : REM /UP/DOWN SHIFT CHARACTER (2741) 2530 REM ? 2 ***BAUD RATE** 134.5 300 1200 7200 2540 A$=HEX(0407090E) 2550 B$=STR(A$,VAL(C$(2))) : OR (STR(Z$,1,1),B$) 2560 REM ? 6 ***TERMINAL OR HOST*** 2570 N$="2741 TERMINAL" : W$="TTT*010B" 2575 IF STR(Z$,47,2)="10"THEN STR(Z$,48,1)="1" : REM /.Adjust TC board 0 to 1 2580 ON VAL(C$(6))GOTO 2610 2590 W$="TTT*020B" : STR(N$,6)="HOST" 2600 REM ? 1 CONVERSION TABLE CORR BCD EBCD 2610 ON VAL(C$(1))GOSUB 2630,2640,2650 : STR(W$,9,8)=E$ 2620 GOTO 2980 2630 E$="TTT*010E" : RETURN 2640 E$="TTT*010F" : RETURN 2650 E$="TTT*010G" : RETURN 2980 STR(Z$,51)=HEX(5BC75DC35CCC5FC45CA15F822020) 2990 REM ...........[sin]cos\pi _exp\Lod_Run 3000 REM .Special symbols are keyed by the following keys. 3010 REM .. 1B--5B [ or SIN( 1D--5D ] or COS( 1E--5E ^ 3020 REM .. 1C--5C \ PI or LOAD 1F--5F _ EXP( or RUN 3030 RETURN