Listing of file='IDS2PUI1' on disk='vmedia/701-2715B.wvd.zip'
# Sector 44, program filename = 'IDS2PUI1'
1000 REM "IDS2PUI1" - INSTALLATION - MOD 2 - BEGUN 11/16/81 - TSCHETTER
1010 COM C5,C6$3,C7$1,D7,D8
: DIM C9$1,D1$2,D5$(20)9,D6$(14)8,D7$(14)8,D8$(14)1,D8$8,D9$8
: GOSUB 1430
: IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
1020 PRINT AT(3,1);
: LINPUT "Enter the destination disk address"?-C6$
: PRINT HEX(06)
: GOSUB 1360
: IF F1=0THEN SELECT #6<C6$>
: ELSE GOTO 1020
1030 PRINT AT(4,1);
: C7$="C"
: LINPUT "Do you want to just copy (C) or verify as well (V)?"?-C7$
: PRINT HEX(06)
: IF POS("CV"=C7$)=0THEN 1030
1040 PRINT AT(5,1);
: C9$="N"
: LINPUT "Do you need to copy the modules needed to convert from IDEAS1 (Y/
N)?"?-C9$
: PRINT HEX(06)
: IF POS("YN"=C9$)=0THEN 1040
: SELECT PRINT 005
: DATA LOAD DC OPEN T#2,"IDS2fREF"
: DATA LOAD DC #2,D5$()
: FOR J=1TO 20
: IF STR(D5$(J),,7)<>"IDS2fRF"THEN 1140
: GOSUB 1160
1140 NEXT J
: IF J5>0THEN GOSUB 1350
: SELECT #2<C6$>
: LOAD T#2,"IDS2PUI2"1000,
1160 IF J=1THEN 1170
: IF STR(D5$(J),9,1)<>STR(D5$(J-1),9,1)THEN 1300
: IF STR(D5$(J),5,4)="fRFC"AND C9$="N"THEN RETURN
1170 DATA LOAD DC OPEN T#2,STR(D5$(J),,8)
: ERRORJ4=ERR
: IF J4<>82THEN 1300
: PRINT STR(D5$(J),,8);" missing from source platter."
: END
1180 DATA LOAD DC #2,STR(D6$(),1),STR(D7$(),1),STR(D8$(),1)
: IF END THEN RETURN
: FOR J3=1TO 14
: IF D6$(J3)=" "THEN 1240
: LIMITS T#2,D6$(J3),X1,X2,X3,X4
: IF X4=0THEN 1310
: LIMITS T#6,D6$(J3),J1,J1,J1,J1
: J6=MAX(VAL(D8$(J3))-1,0)
: IF J1=0THEN MOVE T#2,D6$(J3)TO T#6,(J6)
: ERRORJ4=ERR
: GOTO 1320
1200 IF J1=0THEN 1220
: IF D6$(J3)="ids2f005"OR D6$(J3)="ids2fs00"THEN 1240
: SCRATCH T#6,D6$(J3)
: MOVE T#2,D6$(J3)TO T#6,()
: ERRORJ4=ERR
: IF J4<>81THEN 1320
: GOTO 1270
1220 J2=J2+1
: PRINT AT(23,0);"Now copying file number ";
: PRINT AT(23,25,);J2;": ";HEX(0E);D6$(J3);HEX(0F06);
: IF C7$="C"THEN 1240
1230 LIMITS T#6,D6$(J3),Y1,J1,Y3,J1
: IF X3<>Y3THEN 1260
: X3=X3+(1-SGN(X3-1))*(X2-X1)
: FOR J8=ABS(X4-2)TO X3-X4-1
: DATA LOAD BA T#2,(X1+J8)STR(E$(),,256)
: DATA LOAD BA T#6,(Y1+J8)STR(F$(),,256)
: IF STR(E$(),,256)<>STR(F$(),,256)THEN 1250
: NEXT J8
: PRINT AT(23,4,9);"verifying";HEX(06);
1240 NEXT J3
: GOTO 1180
1250 J8=X3-X4-1
: NEXT J8
1260 PRINT AT(23,0,);"File ";HEX(0E07);D6$(J3);HEX(0F);" does not verify. Key
RETURN to continue.";
: KEYIN E6$
: GOTO 1240
1270 D9$=DSC HEX(80808080)
: CONVERT STR(D9$,5,4)TO J5
: J5=J5+1
: CONVERT J5TO STR(D9$,5,4),(####)
: STR(D9$,5,4)=OR HEX(80808080)
: SAVE T#6,(D6$(J3))D9$1000,1000
: ERRORJ4=ERR
: IF J4<>83THEN 1320
: GOTO 1270
1280 SCRATCH T#6,D9$
: MOVE T#2,D6$(J3)TO T#6,(J6)
: ERRORJ4=ERR
: GOTO 1320
1290 GOTO 1220
1300 E$="Mount diskette #"&STR(D5$(J),9,1)&" at address "&C5$&", and THEN pres
s EXECUTE."
: GOSUB '63(STR(E$,,16),STR(E$,17),HEX(07))
: KEYIN E6$
: IF POS(HEX(0D82)=E6$)=0THEN 1300
: PRINT AT(23,0,);
: GOTO 1170
1310 GOSUB '63("Diskette does no","t contain the proper files.",HEX(07))
: END
1320 IF J4=85THEN E$="The index of the disk at "&C6$&" is full."
: IF J4=86OR J4=81THEN E$="No more room on the disk at address "&C6$&"."
: IF J4<>85AND J4<>86AND J4<>81THEN 1330
: GOTO 1340
1330 E$="Error . Software is not fully installed. Please CANCEL."
: CONVERT J4TO STR(E$,7,2),(##)
1340 GOSUB '35(E$)
: END
1350 SELECT PRINT 005
: PRINT HEX(020402000E);AT(13,1,);"Because of file size conflicts, ";J5;" s
cratched junk file";
: IF J5>1THEN PRINT "s";
: PRINT AT(14,1);
: IF J5=1THEN PRINT "Has";
: ELSE PRINT "Have";
: PRINT " been created on destination platter.";
: PRINT AT(15,1);"Press EXECUTE to continue.";HEX(0F)
: KEYIN E6$
: RETURN
1360 F1=0
: MAT SEARCH"310320330B10B20B30350360370B50B60B70D10D11D12D13D14D15D50D51D5
2D53D54D55D20D21D22D23D24D25D60D61D62D63D64D65D30D31D32D33D34D35D70D71D72
D73D74D75",=C6$TO D1$STEP 3
: PRINT AT(23,0,80);HEX(0F06);
1370 IF D1$<>HEX(0000)THEN 1380
: PRINT AT(23,0);HEX(07);C6$;" is not a valid disk address supported by IDE
AS. Enter new device address.";
: GOTO 1420
1380 SELECT #6<C6$>
: $OPEN 1400,#6
: GOTO 1410
1400 $CLOSE#6
: PRINT AT(23,0,80);HEX(07);"Device ";C6$;" is not currently available. Pl
ease check status and/or address.";
: GOTO 1420
1410 $CLOSE#6
: RETURN
1420 F,F1=F-1
: RETURN
1430 D8$="IDS2fs"
: D9$="\CA\D5\CE\CB\B0\B0\B0\B0"
: J2,J5=0
: RETURN