image of READY prompt

Wang2200.org

Listing of file='ASK?WPS' on disk='vmedia/731-0111.wvd.zip'

# Sector 798, program filename = 'ASK?WPS'
0010 REM ASK?WPS  02/05/81
   : GOTO 1500
   : ON A GOTO 2010,2030
1490 REM %Prompt screen 1
1500 P0=40
   : P=1
   : GOSUB '33
   : GOSUB 2430
1620 STR(N$,21)="TC/WPS FORM DISK FILE TC/WPS FORM DISK FILE"
1630 STR(W$,17)="CIOVWPS"
1650 LOAD DC T#0,N$(6)
1990 REM %..ASKAPARM - 2200-WPS  ? interface
2000 REM ..... 2200  I/O  Ask Parameters
2010 GOSUB 2080
   : RETURN
2030 GOSUB 2060
   : RETURN
2050 REM %^ ...QUESTIONS
2060 D$="2 2 0 0 - W P S    P a r a m e t e r s"
   : P=1
   : P9=3
2070 IF L=80THEN 2080
   : D1=1
   : D=1
2080 INIT(20)D$()
   : ON A GOTO 2130,2190,2260
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
2259 REM . ? 3
2260 A$ ="T.C. BOARD ADDRESS"
   : D$(1)="1C"
   : D$(2)="1D"
   : D$(3)="1E"
   : D$(4)="1F"
   : 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))=249
   : REM /PUNCH LENGTH
2450 STR(Z$,3,2)=HEX(0002)
   : REM /BLOCK LENGTH = 512
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 No ? ***RECS/BLK***  RECORD BLOCKING
2530 STR(Z$,5,1)=HEX(01)
2540 REM No ? ***        ***  CONVERT TRANSPARENCY?
2550 STR(Z$,13,1)=HEX(00)
2555 STR(Z$,7,4)=HEX(16161616)
2560 STR(W$,9)="BSC*020A"
   : REM /MICROCODE NAME 3780 SC
2570 N$="2200/WPS mode"
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