Listing of file='ASK?2741' on disk='vmedia/701-2358C.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