image of READY prompt

Wang2200.org

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