Listing of file='IDS2PS89' on disk='vmedia/701-2715B.wvd.zip'
# Sector 364, program filename = 'IDS2PS89'
1000 REM "IDS2PS89" - Release 2.1 - SCREEN/REPORT RENAME EDITS FOR SCREEN&FIEL
D - MODULE #1 OF 3 - INITIAL MODULE FOR 'COM' VARIABLES
1010 COM J6$16,J1$6,J5$16,C5$1,J4,J5
: J1$="RENAME"
: C5$=STR(R3$(),6)
: R3$(1)="IDS2PS03"
: IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
: J5$=C3$
: C3$,J6$=STR(C3$,,8)&STR(C3$,17,8)
: LOAD T#2,"IDS2PS87"1000,
3699 ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
: E$="IDS2PS89"
: IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
: STOP "ERROR"