Listing of file='IDS2PS11' on disk='vmedia/701-2716B.wvd.zip'
# Sector 778, program filename = 'IDS2PS11'
1000 REM "IDS2PS11" - SCREEN MASK DOCUMENTATION (SCREEN LEVEL - PART 2)
1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
: GOSUB '49(0)
: GOSUB '48(3,"Field attribute key: BEG Starting Buffer Pos. KBD All
ow Keyboard Entry",0)
: GOSUB '49(0)
: GOSUB '48(3,"FLD# Field Number END Ending buffer pos. REQ Req
uired Entry",0)
: GOSUB '49(0)
1200 GOSUB '48(3,"NAME Field Name *TYPE Character type (0-9) FULL Mus
t be Full if Used",0)
: GOSUB '49(0)
: GOSUB '48(3,"FILE Associated File JUST Right justified EXEC EXE
CUTE Required",0)
: GOSUB '49(0)
1220 GOSUB '48(3,"ROW Row on Screen ZFIL Zero filled (left) NBPS Non
-bypassable",0)
: GOSUB '49(0)
: GOSUB '48(3,"COL Column on Screen DEC Decimal places (by skip
ahead/back keys)",0)
: GOSUB '49(0)
1240 GOSUB '48(3,"LEN Length of Field **DISP Display Option (0-3) #EDT Num
ber of Special Edits",0)
: GOSUB '49(0)
: GOSUB '49(0)
: GOSUB '48(3," *TYPE 0=Digits 2=Digits & . 4=U/C letters 6=U/C,nu
m,punct 8=Yy1=Y,Nn0=N",0)
: GOSUB '49(0)
1293 GOSUB '48(3," 1=Digits + - 3=Any numeric 5=U/C & digits 7=Any ch
aracter 9=EXEC,EDIT,FN",0)
: GOSUB '49(0)
: GOSUB '48(3," **DISP 0=No display 1=Normal 2=Bright 3=Blinki
ng ",0)
: GOSUB '49(0)
: GOSUB '49(0)
1295 E$="HELP screen name if any = "&HEX(22)&STR(E$(),34,8)&HEX(22)&" # of fi
elds = Min. record buffer ="
: GOSUB '48(3,E$,0)
: CONVERT NTO E$,(#####)
: GOSUB 2010
: GOSUB '48(55,STR(E$,3),3)
: CONVERT MAX(F1(9),256)TO E$,(######)
: GOSUB 2010
: GOSUB '48(80,STR(E$,2),5)
: GOSUB '49(0)
1296 E$="# of boxes = Min. work buffer ="
: GOSUB '48(41,E$,0)
: CONVERT J6TO E$,(#####)
: GOSUB 2010
: GOSUB '48(55,STR(E$,3),3)
: CONVERT MAX(F0,F1(8),1750)TO E$,(######)
: GOSUB 2010
: GOSUB '48(80,STR(E$,2),5)
: GOSUB '49(0)
: GOSUB '48(0," Trapped function keys (screen level):",0)
1310 IF STR(E$(),62,16)<>" "THEN 1320
: GOSUB '48(-1,"None",0)
: GOSUB '49(0)
: GOTO 2000
1320 FOR I=62TO 76STEP 2
: IF VER(STR(E$(),I,2),"##")=2THEN GOSUB '48(-1,STR(E$(),I,2),0)
: NEXT I
: GOSUB '49(0)
2000 LOAD T#2,"IDS2PS12"1000,
2010 STR(E$,7)="7"
: STR(E$,1,POS(E$>30)-1)=" "
: IF STR(E$,1,5)=" "THEN E$=" 0"
: RETURN
3699 ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
: E$="IDS2PS11"
: IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
: STOP "ERROR"