Listing of file='IDS2PU22' on disk='vmedia/701-2725B.wvd.zip'
# Sector 292, program filename = 'IDS2PU22' 1000 REM "IDS2PU22" - DATA FILE CROSS-REFERENCE UTILITY SET-UP MODULE 1200 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM" : COM J0$40,J1$8,J2$8,J3$8,J4$8,J5$1,J6$3,J7$4,J8$2,J9$3,J0(5),J0$(16)8 : DIM F2$(256)1 : E$()=" " : IF R3$(1)="IDS2PU28"THEN 1280 : E$=R3$() : R3$()="IDS2PU28 "&E$ 1280 GOSUB '32("IDS2sS74") 1290 F=0 1300 F=F+1 1310 IF F>F0THEN 1430 : GOSUB '34(F) : ON FGOTO 1350,1400,1400,1400,,,,,,,,1420 : GOTO 1300 1350 F0$=STR(E$,,8)OR ALL(20) : IF F0$=E$THEN 1370 : GOSUB '39(F0$,5) : IF A=0THEN 1360 : MAT REDIM E4$(256)1 : DATA LOAD BA T#P,(A)E4$() : IF STR(E4$(),,4)=HEX(8201D3E3)THEN 1380 1360 GOSUB '63("The data file co","ntrol file does not exist please re-enter o r cancel","!") : GOTO 1310 1370 GOSUB '63("Illegal entry; t","here must be at least one upper case charac ter","!") : GOTO 1310 1380 MAT REDIM F$(24)83 : DATA LOAD DA T#P,(A)F$() : MAT REDIM F$(E9)1 : J8$=BIN(A,2) : J9$=STR(F$(),90,3) : CONVERT STR(F$(),10,1)TO Q : ON QGOTO ,1390,1390 : GOTO 1300 1390 J0$()=STR(F$(),275) : J0(5)=INT((LEN(J0$())+1)/8) : GOTO 1300 1400 IF STR(E$(),17,1)<>"N"OR STR(E$(),42,2)<>"NN"THEN 1410 : GOSUB '63("At least one of ","the above file types must be indicated with 'Y' or 'y'","!") : F=F-2 : GOTO 1310 1410 IF POS("YyNn"=E$)=0THEN 1310 : E$=OR HEX(20) : GOTO 1300 1420 IF E$>"1"OR E$<"0"THEN 1310 : GOTO 1300 1430 GOSUB '53("Touch EXECUTE to accept, EDIT to modify, or FN'31 to CANCEL") : GOSUB '34(250) : IF Q<>31THEN 1470 1460 LOAD T#2,R3$(1)1000, 1470 IF Q=33THEN 1290 : IF Q<>32AND Q<>130THEN 1400 1490 $OPEN 1520,#1 : ERRORGOTO 1520 1500 GOTO 1540 1520 KEYIN E6$,1520,1530 : GOSUB '63("Printer not avai","lable. Wait or CANCEL"," ") : GOTO 1490 1530 IF E6$=HEX(1F)THEN 1460 : GOTO 1520 1540 $OPEN #1 : GOSUB '63(" "," "," ") : J0$=STR(E$(),45,8) : STR(J0$,9),E9$(1)=STR(F$(),22,32) : IF STR(E$(),17,1)="Y"THEN J0(1)=1 : ELSE J0(1)=0 : IF STR(E$(),42,1)="Y"THEN J0(2)=1 : ELSE J0(2)=0 : IF STR(E$(),43,1)="Y"THEN J0(3)=1 : ELSE J0(3)=0 : J1$=E$() : IF J1$=" "THEN J1$=ALL(00) : J2$=STR(E$(),9) : IF J2$=" "THEN J2$=ALL(FF) 1620 J3$=STR(E$(),18) : IF J3$=" "THEN J3$=ALL(00) : J4$=STR(E$(),26) : IF J4$=" "THEN J4$=ALL(FF) : J5$=STR(E$(),34) : J6$=STR(E$(),35) : J7$=STR(E$(),38) : CONVERT STR(E$(),44,1)TO J0(4) : LOAD T#2,"IDS2PU23"1000, 3699 ON ERRORE1$,E2$GOTO 3700 3700 DEFFN'31 : E$="IDS2PU22" : IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000, : STOP "ERROR"