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"