Listing of file='IDS2PU00' on disk='vmedia/701-2715B.wvd.zip'
# Sector 490, program filename = 'IDS2PU00'
1000 REM "IDS2PU00" - CHANGE SYSTEM RELEASE NUMBER
1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
: GOSUB '33("IDS2sM01")
: MAT REDIM E$(E8)1,F$(E9)1
: GOSUB '32("IDS2sU00")
: E$()=" "
: GOSUB '45(1,"Release 2.1")
1060 GOSUB '34(2)
: IF STR(E$(),1,11)<>STR(E$,1,11)THEN 1070
: GOSUB '35("New release number must be different from old one !")
: GOTO 1060
1070 GOSUB '53("Touch EXECUTE to accept, EDIT to modify, or FN'31 to cancel")
: GOSUB '34(250)
: IF Q=33THEN 1060
: IF Q=31THEN LOAD T#2,R3$(1)1000,
: IF Q<>32THEN 1070
: DATA LOAD BA T#2,(0)E4$()
: DIM F2$(32)8
: FOR I=0TO VAL(STR(E4$(),2))-1
: DATA LOAD BA T#2,(I)F2$()
: FOR J=2TO 32STEP 2
: IF STR(F2$(J),1,4)<>"IDS2"AND F2$(J)<>"IDEAS2"THEN 3000
1155 IF F2$(J)="IDS2fs00"OR STR(F2$(J),,6)="IDS2wS"OR F2$(J)="IDS2BUGS"THEN 30
00
: IF VAL(F2$(J-1))<>16THEN 3000
: PRINT HEX(0F06);AT(20,22);"Processing";
: IF VAL(STR(F2$(J-1),2))=0THEN PRINT " data ";
: ELSE PRINT " program";
: PRINT " file ";HEX(22);STR(F2$(J),1,8);HEX(22)
: LIMITS T#2,STR(F2$(J),,8),A,B,C,D
: IF D<1THEN 3000
: FOR K=A+2-DTO MIN(B,A+C-2)
1210 DATA LOAD BA T#2,(K)E4$()
1220 MAT SEARCHE4$(),=STR(E$(),1,11)TO F9$
: IF F9$=HEX(0000)THEN 1500
: STR(E4$(),VAL(F9$,2),11)=STR(E$(),12,11)
: DATA SAVE BA T#2,(K)E4$()
: GOTO 1220
1500 NEXT K
3000 NEXT J,I
: LOAD T#2,R3$(1)1000,
3020 STOP #
: ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
: E$="IDS2PU00"
: IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
: STOP "ERROR"