Listing of file='IDS2PS15' on disk='vmedia/701-2716B.wvd.zip'
# Sector 827, program filename = 'IDS2PS15' 1000 REM "IDS2PS15" - Release 2.1 - SCREEN MASK EDITOR - DELETE A FIELD 1005 COM J6$16,C5$1,C1,C2 : J6$=STR(E$(),61,8) : STR(J6$,9)=STR(E$(),9,8) : C5$="S" : IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM" : GOSUB '43(3) : Y=Q-1 : GOSUB '43(4) : X=Q-1 : GOSUB '43(34) : E$=ALL(00) : IF STR(F$(),Q*9-8,9)<>STR(E$,1,9)THEN 1070 : PRINT HEX(07); 1055 R=Y : C=X : COM CLEAR J6$ : LOAD T#2,"IDS2PS07"1000, 1070 GOSUB '53("Touch FN'9 to delete field, EXECUTE or CANCEL (FN'31) to abort ") : GOSUB '34(250) : IF Q=32OR Q=31OR Q=130THEN 1055 : IF Q<>9THEN PRINT HEX(07); : IF Q<>9THEN 1070 : GOSUB '43(34) : IF Z<>QTHEN 1120 : STR(F$(),Q*9-8,9)=ALL(00) : E3$(Q)=" " : GOTO 1140 1120 STR(F$(),Q*9-8,(Z-Q+1)*9)=STR(F$(),Q*9+1,(Z-Q)*9)&ALL(00) : STR(E3$(),Q*8-7,1993-Q*8)=STR(E3$(),Q*8+1,1985-Q*8) 1140 Z=Z-1 : E6$=BIN(Q) : FOR I=9TO Z*9STEP 9 : IF STR(F$(),I,1)<E6$OR STR(F$(),I,1)>HEX(F8)THEN 1200 : IF STR(F$(),I-1,1)>=HEX(40)THEN 1200 : IF STR(F$(),I,1)=E6$THEN STR(F$(),I,1)=HEX(00) : ELSE ADD(STR(F$(),I,1),FF) 1200 NEXT I : GOSUB '55(34,Z+1) : R=Y : C=X : E6$=HEX(20) : LOAD T#2,"IDS2PS16"1000, 2000 STOP # : ON ERRORE1$,E2$GOTO 3700 3700 DEFFN'31 : E$="IDS2PS15" : IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000, : STOP "ERROR"