image of READY prompt

Wang2200.org

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