Listing of file='IDS2PRX0' on disk='vmedia/701-2725B.wvd.zip'
# Sector 17, program filename = 'IDS2PRX0'
1000 REM "IDS2PRX0"
1020 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
: IF E$="\B2\CE\C4\A0\CC\CF\C1\C4"THEN J0=0
: ELSE J0=1
: IF F6$(53)="R"THEN F6$(53)="Y"
: E8$(6)=HEX(00)
: J1=J0
: DIM D5$7,D6$2
: IF STR(E$(),850,3)="SYS"THEN STR(E$(),850,3),E$=F4$
: GOSUB '33("IDS2sR12")
: F3$=STR(E$(),850)
: F6$(11)="Y"
: IF E$(853)="N"OR J0=0THEN 1350
1100 IF J0=1THEN PRINT AT(13,12);BOX(-9,-54);
: GOSUB '32("IDS2sR12")
: STR(E$(),1695,24)="005204211212213214215216"
: FOR I=1TO 3
: GOSUB '37(I)
: NEXT I
: FOR I=0TO 5
1140 GOSUB '43(I+4)
: IF E$=" "THEN 1180
: SELECT #1<E$>
: $OPEN 1170,#1
: ERRORGOTO 1220
1170 $CLOSE#1
: GOSUB '37(I+4)
: PRINT AT(R,C+4);"(System printer)";
1180 NEXT I
: GOSUB 1200
: IF J0=0THEN 1350
: GOTO 1230
1200 D5$=" "
: GOSUB '43(1)
: IF E$="005"THEN 1210
: DATA LOAD BA T#2,(@E2$(1))E4$()
: MAT SEARCHE4$()<50,>,=E$TO F9$STEP 42
: IF F9$=HEX(0000)THEN 1210
: I=VAL(F9$,2)
: F0$=STR(E4$(),49+I,42)
: D5$=STR(F0$,36)
: GOSUB '45(10,STR(F0$,31,4))
: J4=Q
: GOSUB '45(11,STR(F0$,35,1))
: J5=Q
1205 IF D5$="2231W"OR D5$="2261"THEN D6$="N"
: ELSE D6$="Y"
: MAT SEARCH"2233 2235 2245 Other 1205 ",=D5$TO F9$STEP 7
: IF F9$=HEX(0000)THEN STR(D6$,2)="N"
: ELSE STR(D6$,2)="Y"
: RETURN
1210 GOSUB '45(10," ")
: GOSUB '45(11," ")
: D6$="NN"
: RETURN
1220 IF I=5THEN GOSUB '45(I+4," ")
: ELSE STR(E$(),I*3+1701,18-I*3)=STR(E$(),I*3+1704,15-I*3)
: GOTO 1140
1230 IF J0=0THEN 1350
: F0$="EXEC = accept, "
: IF STR(D6$,,1)="Y"THEN F0$=F0$&" FN '00 = pitch,"
: IF STR(D6$,2)="Y"THEN F0$=F0$&" FN '01 = font,"
: F0$=F0$&" EDIT = printer"
: GOSUB '53(F0$)
: GOSUB '34(250)
: IF Q=32THEN 1350
: IF Q=33THEN 1330
: IF D6$="NN"THEN 1260
: IF Q=0AND STR(D6$,,1)="Y"THEN 1280
: IF Q=1AND STR(D6$,2)="Y"THEN 1310
1260 PRINT HEX(07);
: GOTO 1230
1280 GOSUB '34(10)
: GOTO 1285
: IF Q=10OR Q=12OR Q=12.2OR Q=16.5THEN 1290
: GOSUB '35("Invalid pitch selection - must be 10, 12, 12.2 or 16.5")
: GOTO 1280
1285 A=10
: MAT SEARCH"2231W-61205 2281W 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=10OR Q=ATHEN 1290
: ELSE GOTO 1295
1290 J4=Q
: GOTO 1230
1295 E$="Invalid pitch selection - must be 10.0 or ####"
: CONVERT ATO STR(E$,POS(E$="#"),4),(##.#)
: GOSUB '35(E$)
: GOTO 1280
1310 GOSUB '34(11)
: IF Q>=0AND Q<3THEN 1320
: GOSUB '35("Invalid font selection - must be 0, 1, or 2")
: GOTO 1310
1320 J5=Q
: GOTO 1230
1330 GOSUB '34(1)
: MAT SEARCHE$()<1695,24>,=STR(E$,,3)TO F9$STEP 3
: IF F9$>HEX(0000)THEN 1340
: GOSUB '35("Invalid address - Please select one of those listed above.")
: GOTO 1330
1340 GOSUB 1200
: GOTO 1230
1350 GOSUB '43(1)
: X,I=0
: E4$()=ALL(00)
: SELECT #1<E$>
: HEXPACKE8$(7)FROMSTR(E$,2,2)
1353 $OPEN 1370,#1
: ERRORGOTO 1370
1355 GOTO 1430
1370 J1=J1+1
: ON J1GOTO 1100
: ON J0GOTO 1380
: IF X=0THEN PRINT HEX(07);
: E$="Printer "&STR(E$(),850,3)&" not available. Check printer, wait,"
: IF E$(853)="Y"THEN E$=E$&" EDIT address,"
: E$=E$&" or '31 to cancel"
: GOSUB '63(STR(E$,,16),STR(E$,17)," ")
: GOTO 1390
1380 IF X=0THEN PRINT HEX(07);
: E$="Printer "&STR(E$(),850,3)&" not available now. EXEC to continue,"
: IF E$(853)="Y"THEN E$=E$&" EDIT address,"
: E$=E$&" or '31 to cancel"
: GOSUB '63(STR(E$,,16),STR(E$,17)," ")
: GOTO 1390
1390 KEYIN E6$,1400,1410
1400 IF E6$=HEX(0D)THEN E6$=HEX(82)
: IF E6$=HEX(82)AND J0=1THEN 1435
: $BREAK5
: X=MOD(X+1,9)
: I=0
: GOTO 1353
1410 IF E6$<>HEX(1F)THEN 1420
1415 MAT REDIM E$(E8)1,F$(E9)1,E0$(249)1,E4$(16)16,E2$(250)9
: COM CLEAR F()
: $CLOSE#1
: SELECT #1<STR(F4$,,3)>
: HEXPACKE8$(7)FROMSTR(F4$,2,2)
: GOSUB '40(R3$(1))
1420 IF E6$<>HEX(F0)OR E$(853)<>"Y"THEN 1350
: PRINT AT(23,0,80);
: GOTO 1330
1430 IF POS(D6$="Y")>0THEN GOSUB 1500
1435 PRINT HEX(0F06);
: FOR I=13TO 23
: PRINT AT(I,0,80);
: NEXT I
: Z=LEN(STR(E1$(),1))/56
: B=VAL(STR(E1$(Z),43),2)+1
: E=VAL(STR(E1$(Z),27))+4
: IF J0=0THEN F6$(53)="R"
: E8$(6)=" "
: IF J0=1THEN LOAD T#2,"IDS2PBX3"1000,1994
: LOAD T#2,"IDS2PRX1"1000,1994
1480 STOP #
1500 J6=0
: IF D5$<>"2231W-"THEN 1510
: GOSUB 1530
: GOTO 1520
1510 IF D5$<>"2233"AND D5$<>"2235"THEN 1515
: GOSUB 1550
: GOTO 1520
1515 IF D5$<>"2245"THEN 1520
: GOSUB 1570
: GOTO 1520
1520 RETURN
1530 ON INT(J4/2-4)GOTO 1535,1540
: RETURN
1535 E0$()=HEX(030201)
: GOSUB 1700
: RETURN
1540 E0$()=HEX(030202)
: GOSUB 1700
: RETURN
1550 ON INT(J4/2-4)GOTO 1555,1560
: RETURN
1555 E0$()=HEX(050202000F)
: GOSUB 1700
: E0$()=HEX(08020901020A000F)
: GOSUB 1700
: RETURN
1560 E0$()=HEX(050202020F)
: GOSUB 1700
: E0$()=HEX(08020901020C000F)
: GOSUB 1700
: RETURN
1570 ON J5+1GOSUB 1575,1580,1585
: IF J4=10THEN GOSUB 1590
: IF J4=16.5THEN GOSUB 1595
: RETURN
1575 E0$()=HEX(050202000F)
: GOSUB 1700
: RETURN
1580 E0$()=HEX(050202020F)
: GOSUB 1700
: RETURN
1585 E0$()=HEX(050202040F)
: GOSUB 1700
: RETURN
1590 E0$()=HEX(08020901020A000F)
: GOSUB 1700
: RETURN
1595 E0$()=HEX(080209010210100F)
: GOSUB 1700
: RETURN
1600 IF STR(E8$,10,1)<>HEX(10)THEN RETURN
: GOSUB '35("Specified printer not available")
: J6=1
: RETURN
1700 GOSUB '49(0)
: IF E8$(5)=HEX(1F)THEN 1415
: RETURN
1990 %
1992 DEFFN'68
: RETURN
1994 ON XGOTO 1990,1994
: ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
: E$="IDS2PRX0"
: IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
: STOP "ERROR"