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