Listing of file='IDS2PS16' on disk='vmedia/701-2716B.wvd.zip'
# Sector 833, program filename = 'IDS2PS16' 1000 REM "IDS2PS16" - Release 2.1 - SCREEN MASK EDITOR - INSERT A FIELD 1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM" : GOSUB '43(3) : Y=Q-1 : GOSUB '43(4) : X=Q-1 : IF E6$=" "THEN G=0 : ELSE G=1 : ON GGOTO 1150 1050 GOSUB '53("Touch FN'9 again to finish delete, EXEC to insert as new field ") : GOSUB '34(250) : IF Q=32OR Q=130THEN 1190 : IF Q<>9THEN PRINT HEX(07); : IF Q<>9THEN 1050 : IF STR(E$(),52,3)=" 0"THEN I=1 : ELSE I=0 1100 STR(E$(),1,69)=STR(E2$(),401) 1110 E2$()=F$() : R,C1=Y : C,C2=X : IF I=1THEN 1130 : MAT REDIM E$(24)83,F$(27)83,E2$(27)83,E3$(24)83 : DATA SAVE DA T#3,(E4+25)E$() : DATA SAVE DA T#3,(E4+33)F$() : DATA SAVE DA T#3,(E4+42)E2$() : DATA SAVE DA T#3,(E4+51)E3$() : MAT REDIM E$(E8)1,F$(E9)1,E2$(250)9,E3$(249)8 : LOAD T#2,"IDS2PS95"1000, 1130 COM CLEAR J6$ : LOAD T#2,"IDS2PS03"1000, 1150 GOSUB '43(34) : IF Q>ZTHEN 1190 : PRINT HEX(07); : GOTO 1110 1190 GOSUB '63("Touch EXEC to en","ter field number for insertion or touch FN' 31 to abort insert"," ") : GOSUB '34(250) : IF Q=31THEN 1100 : IF Q=32THEN 1250 : PRINT HEX(07); : GOTO 1190 1250 GOSUB '53("Please enter the new field number for insertion of this field" ) 1260 GOSUB '34(34) : IF Q<=Z+1THEN 1300 : GOSUB '55(34,Z+1) : F0$="New field number for insertion must be from 1 to" : CONVERT Z+1TO STR(F0$,LEN(F0$)+2),(###) : GOSUB '35(F0$) : GOTO 1260 1300 GOSUB '63("Touch EXECUTE to"," complete insertion, EDIT for new field #, FN'31 to CANCEL"," ") : GOSUB '34(250) : IF Q=31THEN 1100 : IF Q=33THEN 1250 : IF Q=32OR Q=130THEN 1360 : PRINT HEX(07); : GOTO 1300 1360 GOSUB '43(34) : IF Q=Z+1THEN 1410 : MAT REDIM F$(249)9 : BIN(E6$)=Q : FOR I=ZTO QSTEP -1 : E3$(I+1)=E3$(I) : IF STR(F$(I),9,1)<E6$OR STR(F$(I),9,1)>HEX(F7)OR STR(F$(I),8,1)>=HEX(40)T HEN 1400 : ADD(STR(F$(I),9,1),01) 1400 F$(I+1)=F$(I) : NEXT I : MAT REDIM F$(E9)1 1410 R=Y : C=X : LOAD T#2,"IDS2PS08"1000, 2000 STOP # : ON ERRORE1$,E2$GOTO 3700 3700 DEFFN'31 : E$="IDS2PS16" : IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000, : STOP "ERROR"