image of READY prompt

Wang2200.org

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