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"