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"