Listing of file='IDS2PS23' on disk='vmedia/701-2716B.wvd.zip'
# Sector 912, program filename = 'IDS2PS23'
1000 REM "IDS2PS23" - SCREEN MASK COPY MODULE
1005 COM C9$19,C5$1
: DIM J7,J8,J9
: C9$=E9$(2)
: C5$=STR(R3$(1),6,1)
: IF POS("SR"=C5$)=0THEN 1230
: IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
: PRINT AT(15,6);BOX(1,67);" Please enter the new file name for the copied
screen mask"
: STR(E2$(2),7,1)=HEX(80)
1050 GOSUB '34(2)
: IF E$<>" "THEN 1070
: GOSUB '35("Required field - You must enter a value")
: GOTO 1050
1070 GOSUB '39(E$,3)
: J8=P
: ON Q+1GOTO 1110,1090,1105
: GOSUB '35("File specified for copy is scratched")
: GOTO 1050
1090 E1$=E$
: GOSUB '63("File specified f","or copy is a program file. Touch EXEC to c
opy, EDIT to modify","!")
: GOSUB '34(250)
: IF Q=32THEN E$=E1$
: IF Q=32THEN 1120
: IF Q=33THEN 1050
: GOTO 1090
1105 E1$=E$
: GOSUB '63("File specified f","or copy already exists. Touch EXEC to conti
nue, EDIT to modify","!")
: GOSUB '34(250)
: IF Q=32THEN E$=E1$
: IF Q=32THEN 1120
: IF Q=33THEN 1050
: GOTO 1105
1110 DATA SAVE DC OPEN T#J8,(27)E$
: ERRORCONVERT J8TO F9$,(#)
: F0$="Disk device #"&F9$&" is full - FN '31 to cancel"
: F6$(11)="N"
: GOSUB '34(250)
: COM CLEAR C9$
: LOAD T#2,"IDS2MS02"1000,
1115 DSKIP #J8,25S
: DATA SAVE DC #J8,END
1120 GOSUB '39(E$,3)
: J7=A
: J9=P
: IF M-A>25THEN 1150
: GOSUB '35("Insufficient space in file specified for copy")
: GOTO 1050
1150 GOSUB '39(E9$(2),3)
: SCRATCH T#J8,E$
: DATA SAVE DC OPEN T#J8,(E$)E$
: DSKIP #J8,N-2S
: DATA SAVE DC #J8,END
: GOSUB '39(E9$(2),3)
: COPY T#P,(A,A+24)TO T#J8,(J7)
: MAT REDIM E$(24)83
: DATA LOAD DA T#J8,(J7)E$()
: STR(E$(),2,8),E9$(2)=E$
: STR(E$(),141,12)=" 1"&R4$&R2$
: DATA SAVE DA T#J8,(J7)E$()
: MAT REDIM E$(E8)1
: IF J3=2THEN LOAD T#2,"IDS2PS94"1000,
1230 COM CLEAR J3
: LOAD T#2,R3$(1)1000,
3699 ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
: E$="IDS2PS23"
: IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
: STOP "ERROR"