Listing of file='IDS2PPG2' on disk='vmedia/701-2725B.wvd.zip'
# Sector 250, program filename = 'IDS2PPG2'
1000 REM "IDS2PPG2" - Release 2.1 - INTERACTIVE PROGRAM CANNED EDIT SPECS # 2
1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
: F9=640
: F8=Q
: STR(F$(),76)="0"&"0"&"0"&"N "&STR(E$(),53,8)&STR(E$(),574,8)
: IF F8=2THEN STR(F$(),79,3)="Y0N"
: STR(F$(),554)="BHDISPMSG1IFFLG1ONBHDISPMSG2IFFLG1OF"
: IF F8>2THEN STR(F$(),564)=" "
1530 IF F8=2THEN STR(F$(),1466)="Touch EXECUTE to accept, EDIT to modify, FN'0
9 to delete Touch EXECUTE to accept, EDIT to modify"
: IF F8=3THEN STR(F$(),1466)="Touch EXECUTE to accept, EDIT to modify"
: IF F8=4THEN STR(F$(),1466)="Touch EXECUTE for next inquiry"
1555 IF F8=5THEN STR(F$(),1466)="Touch EXEC for next record, EDIT for new key"
: F$()=F$()&", FN'31 to cancel"
: GOSUB 3020
: STR(F$(),76)="3"&"0"&"P"&"N "&STR(E$(),53,8)&STR(E$(),574,8)
1575 IF F8>2THEN 1580
: STR(F$(),99)="LSTFNKEY= C33"
: STR(F$(),126)="ASYSFLAG0= COFF"
: STR(F$(),154)="OLSTFNKEY= C31"
: STR(F$(),182)="OLSTFNKEY= C32"
: STR(F$(),210)="OSYSFLAG0= COFF"
: STR(F$(),238)="ASYSFLAG1= CON"
: STR(F$(),266)="ALSTFNKEY= C09"
1576 STR(F$(),554)="P SKIP03PF BHRINGBELLIFFLG0OFBHDISPERR1IFFLG0ONBQ"&
STR(E$(),574,8)&" BS@CANCEL@IFLFK=31B SKIP05PFIFFLG0ONBQ"&STR(E$()
,534,8)&"IFLFK=33B SKIP01PFIFLFK=32BIBLANKFLDFILE # 1BOFILE # 1IFFLG0OFFQ
"
1578 F$()=F$()&STR(E$(),534,8)&" P FLAG1=OF BIBLANKFLD"&STR(E$()
,53,8)&"BU BQ"&STR(E$(),526,8)&"FLAG0=OF"
: GOTO 1600
1580 STR(F$(),99)="LSTFNKEY= C31"
: STR(F$(),126)="OLSTFNKEY= C32"
: IF F8=3OR F8=5THEN STR(F$(),154)="OLSTFNKEY= C33"
: STR(F$(),554)="FHRINGBELL FQ"&STR(E$(),574,8)&" BS@CANCEL@I
FLFK=31B"
1586 IF F8=3THEN F$()=F$()&"Q"&STR(E$(),534,8)&"IFLFK=33BOFILE # 1 FQ"&
STR(E$(),534,8)&" B"
: IF F8=5THEN F$()=F$()&" SKIP04PFIFLFK=33BW"&STR(E$(),534+8*VAL(E$(655)),8
)&"KBD=OFF BQ"&STR(E$(),534+8*VAL(E$(655)),8)&"FLAG0=ONB"
1588 F$()=F$()&"IBLANKFLD"&STR(E$(),53,8)&"BU BQ"&STR(E$(),526,
8)&"FLAG0=OF"
: IF F8=2THEN STR(F$(),1466)="Record is protected. Touch EXEC for new recor
d or '31 to cancel"
1600 GOSUB 3020
: LOAD T#2,"IDS2PPG3"1000,
3020 E2$()=F$()
: FOR I=0TO 8
: F$()=STR(E2$(),76,22)
: ON IGOTO 3070,3080,3090,3100,3110,3120,3130,3140
: STR(F$(),20,231)=STR(E2$(),95)
: GOTO 3150
3070 STR(F$(),23)=STR(E2$(),326,228)
: GOTO 3150
3080 STR(F$(),23)=STR(E2$(),554,228)
: GOTO 3150
3090 STR(F$(),23)=STR(E2$(),782,228)
: GOTO 3150
3100 STR(F$(),23)=STR(E2$(),1010,228)
: GOTO 3150
3110 STR(F$(),23)=STR(E2$(),1238,228)
: GOTO 3150
3120 STR(F$(),23)=STR(E2$(),1466,192)
: GOTO 3150
3130 STR(F$(),23)=STR(E2$(),1658,192)
: GOTO 3150
3140 STR(F$(),23)=STR(E2$(),1850,192)
3150 CONVERT ITO STR(F$(),2,1),(#)
: IF I>0AND STR(F$(),23)=" "THEN 3170
: GOSUB '42("IDS2fs00",0)
: IF I=0THEN E$(F9)=ADDHEX(01)
3170 NEXT I
: RETURN
3699 ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
: E$="IDS2PPG2"
: IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
: STOP "ERROR"