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"