image of READY prompt

Wang2200.org

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"