image of READY prompt

Wang2200.org

Listing of file='IDS2P013' on disk='vmedia/701-2725B.wvd.zip'

# Sector 113, program filename = 'IDS2P013'
1000 REM IDS2P013 - MANAGE SYSTEM PERIPHERALS
1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
   : DIM J0$8,D0$3,D5$7,D6$2
   : DIM J1$(10)7
   : J1$()="2231W  2231W-62233   2235   2245   2261   Other  2281   DW/22-2Oth
     er"
   : GOSUB '32("IDS2s008")
   : A=(R0-#PART)/16+1
   : F5$="IDS2fsXX"
   : CONVERT ATO STR(F5$,7,2),(##)
   : GOSUB '39(F5$,2)
   : J0=A
1060 IF Q<2THEN 2000
   : MAT REDIM E4$(256)1
   : DATA LOAD BA T#2,(J0+3)E4$()
   : E$()=STR(E4$(),50,200)
   : J0$=STR(E4$(),,8)
   : GOSUB '36
   : J1=F0
   : IF E$()=" "THEN 1100
   : ELSE GOTO 1220
   : F=0
1100 F=F+1
   : IF F>J1THEN 1220
1110 GOSUB '34(F)
   : ON MOD(F,6)GOTO 1132,1150,,1175,1210
   : GOTO 1100
1132 MAT SEARCH"204211212213214215216",=E$TO F9$STEP 3
   : IF F9$>HEX(0000)THEN 1100
   : IF E$=" "THEN 1140
   : GOSUB '35("Invalid device address - must be 204,211,212,213,214,215 or 21
     6")
   : GOTO 1110
1140 GOSUB '45(F+1," ")
   : GOSUB '45(F+2,"Not used")
   : FOR I=3TO 5
   : GOSUB '45(F+I," ")
   : NEXT I
   : F=F+5
   : GOTO 1100
1150 IF Q>0AND Q<11THEN 1158
   : D0$=E$
   : GOSUB '43(F-1)
   : IF D0$=" "AND E$=" "THEN 1100
   : GOSUB '35("Invalid type - must be one of those specified")
   : GOTO 1110
1158 D5$=" "
   : GOSUB '43(F)
   : I=F
   : IF Q>0THEN D5$=J1$(Q)
   : IF D5$="2231W"OR D5$="2261"THEN D6$="N"
   : ELSE D6$="Y"
   : MAT SEARCH"2233   2235   2245   Other  DW/22-2",=D5$TO F9$STEP 7
   : IF F9$=HEX(0000)THEN STR(D6$,2)="N"
   : ELSE STR(D6$,2)="Y"
   : GOTO 1100
1175 D5$=" "
   : GOSUB '43(F-2)
   : IF Q>0AND Q<11THEN D5$=J1$(Q)
   : GOSUB '43(F)
   : A=10
   : IF D5$="Other"THEN 1180
   : IF D5$="2231W"THEN 1185
   : MAT SEARCH"2231W-6DW/22-22281W  2281P  ",=D5$TO F9$STEP 7
   : IF F9$>HEX(0000)THEN A=12
   : IF D5$="2233"OR D5$="2235"THEN A=12.2
   : IF D5$="2245"THEN A=16.5
   : IF Q<>10AND Q<>ATHEN 1190
1180 J4=Q
   : GOTO 1100
1185 IF Q=10OR Q=12OR Q=14.4THEN 1100
   : GOSUB '35("Invalid pitch selection - must be 10.0, 12, or 14.4")
   : GOTO 1110
1190 E$="Invalid pitch selection - must be 10.0 or ####"
   : CONVERT ATO STR(E$,POS(E$="#"),4),(##.#)
   : GOSUB '35(E$)
   : GOTO 1110
1210 IF Q>=0AND Q<3THEN 1100
   : GOSUB '35("Invalid font selection - must be 0,1 or 2")
   : GOTO 1110
1220 GOSUB '53(" EXEC to accept, FN '01 to '04 to edit, '31 to cancel")
   : GOSUB '34(250)
   : IF Q>0AND Q<5THEN 1230
   : ON Q-30GOTO 1950,1500
   : GOTO 1220
1230 F=(Q-1)*6
   : J1=F+5
   : GOTO 1100
1500 DIM J1$(10)7
   : J1$()="2231W  2231W-62233   2235   2245   2261   Other  2281   DW/22-2Oth
     er"
   : FOR I=0TO 3
   : GOSUB '43(I*6+2)
   : J=Q
   : IF J<1OR J>10THEN 1515
   : GOSUB '45(I*6+6,J1$(J))
1515 NEXT I
   : MAT REDIM E4$(256)1
   : DATA LOAD BA T#2,(J0+3)E4$()
   : STR(E4$(),50,200)=E$()
1530 IF STR(E4$(),,8)=J0$THEN 1540
   : STOP
   : GOTO 1530
1540 DATA SAVE BA T#2,(J0+3)E4$()
   : FOR I=1TO 4
   : F=I*6-5
   : GOSUB '43(F)
   : IF E$=" "OR STR(E$,,1)<>"2"THEN 1560
   : SELECT #1<STR(E$,,3)>
   : X=I
   : J5=0
   : GOSUB 2590
1560 NEXT I
1950 MAT REDIM E3$(9)83
   : DATA LOAD DA T#2,(J0)E3$()
   : E$=STR(E3$(),#PART*45-17,3)
   : SELECT #1<STR(E$,,3)>
   : MAT REDIM E3$(24)83
2000 MAT REDIM E4$(16)16
   : GOSUB '39(R3$(),4)
   : LOAD T#P,R3$(1)1000,
2510 DIM D5$7
   : J5=0
   : A=(R0-#PART)/16+1
   : F5$="IDS2fsXX"
   : CONVERT ATO STR(F5$,7,2),(##)
   : GOSUB '39(F5$,2)
   : J0=A
   : IF Q<2THEN 2630
   : MAT REDIM E4$(256)1
   : DATA LOAD BA T#2,(J0+3)E4$()
   : E$()=STR(E4$(),50)
   : MAT SEARCHE$(),=E$TO F9$STEP 42
   : IF F9$=HEX(0000)THEN 2630
   : IF E0$<>"IDS2s008"THEN GOSUB '33("IDS2s008")
   : X=INT(VAL(F9$,2)/42)+1
2590 X=X*6-5
   : GOSUB '43(X+5)
   : D5$=E$
   : GOSUB '43(X+3)
   : J1=Q
   : GOSUB '43(X+4)
   : J2=Q
   : IF D5$<>"2231W-6"THEN 2610
   : GOSUB 2650
   : GOTO 2630
2610 IF D5$<>"2233"AND D5$<>"2235"THEN 2620
   : GOSUB 2690
   : GOTO 2630
2620 IF D5$<>"2245"THEN 2630
   : GOSUB 2730
   : GOTO 2630
2630 RETURN
2650 ON INT(J1/2-4)GOTO 2660,2670
   : RETURN
2660 E0$()=HEX(030201)
   : GOSUB 2800
   : RETURN
2670 E0$()=HEX(030202)
   : GOSUB 2800
   : RETURN
2690 ON INT(J1/2-4)GOTO 2700,2710
   : RETURN
2700 E0$()=HEX(050202000F)
   : GOSUB 2800
   : E0$()=HEX(08020901020A000F)
   : GOSUB 2800
   : RETURN
2710 E0$()=HEX(050202020F)
   : GOSUB 2800
   : E0$()=HEX(08020901020C000F)
   : GOSUB 2800
   : RETURN
2730 ON J2+1GOSUB 2740,2750,2760
   : IF J1=10THEN GOSUB 2770
   : IF J1=16.5THEN GOSUB 2780
   : RETURN
2740 E0$()=HEX(050202000F)
   : GOSUB 2800
   : RETURN
2750 E0$()=HEX(050202020F)
   : GOSUB 2800
   : RETURN
2760 E0$()=HEX(050202040F)
   : GOSUB 2800
   : RETURN
2770 E0$()=HEX(08020901020A000F)
   : GOSUB 2800
   : RETURN
2780 E0$()=HEX(080209010210100F)
   : GOSUB 2800
   : RETURN
2790 IF STR(E8$,10,1)<>HEX(10)THEN RETURN
   : GOSUB '35("Specified printer not available")
   : J6=1
   : RETURN
2800 F6$(11)="N"
   : E8$(6)=HEX(00)
   : GOSUB '49(0)
   : F6$(11)="Y"
   : E8$(6)=" "
   : RETURN