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"