image of READY prompt

Wang2200.org

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"