Listing of file='IDS2PS02' on disk='vmedia/701-2716B.wvd.zip'
# Sector 637, program filename = 'IDS2PS02'
1000 REM "IDS2PS02" - SCREEN MASK TEXT EDIT PREPARATION
1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
: STR(F6$(),12,3)=ALL("N")
: COM E3,E4,E6,E1(4),Z,F5$(1)9,J4,F1(8),D1
: UNPACK(####)STR(E$,1,18)TO F1()
: FOR I=8TO 2STEP -1
: F1(I)=F1(I-1)
: NEXT I
: F1(1)=1
: FOR I=2TO 8
: F1(I)=F1(I)+F1(I-1)
: NEXT I
: GOSUB '39(E9$(2),3)
: D1=P
: E3=A
: E$="IDS2wS"
: CONVERT R0TO STR(E$,7),(##)
: LIMITS T#3,E$,E4,X,X,X
1110 LIMITS T#2,"IDS2sS01",E6,X,X,X
: R,C=0
: MAT REDIM E3$(249)8
: LOAD T#2,"IDS2PS03"1000,
3699 ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
: E$="IDS2PS02"
: IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
: STOP "ERROR"