Listing of file='IDS2PP28' on disk='vmedia/701-2724B.wvd.zip'
# Sector 752, program filename = 'IDS2PP28'
1000 REM "IDS2PP28" - Release 2.1 - INTERACTIVE PROGRAM GENERATOR - EDITS
1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
: ON D7GOTO 1382,1383,1384,1385,1386,1387,1388
: E$="No-op (perform Pass/Fail actions only)"
: F9$="29"
: E8$=" "
: GOTO 1400
1382 E$="Set field(s) = field(s) and/or constant(s)"
: F9$="26"
: E8$="SET FIELD"
: GOTO 1400
1383 E$="Read a record from a data file"
: F9$="27"
: E8$="READ RECORD"
: GOTO 1400
1384 E$="Perform logical test(s)"
: F9$="09"
: E8$="LOGICAL TEST"
: GOTO 1400
1385 E$="Math calculation(s)"
: F9$="07"
: E8$="MATH CALCS"
: GOTO 1400
1386 E$="Range check(s)"
: F9$="11"
: E8$="RANGE TEST"
: GOTO 1400
1387 E$="Table look-up (or look-up & replace)"
: E8$="TABLE TEST"
: F9$="12"
: GOTO 1400
1388 E$=STR(E$(),106,64)
: E8$="USER EXIT"
: F9$="10"
1400 F5$="IDS2PP"&F9$
: IF E2(2)=0THEN 1420
: IF LEN(F$())>1THEN F$(LEN(F$()))=HEX(BA)
: STR(F$(),LEN(F$())+1)=HEX(A2)&E$&HEX(BA)
1420 E2(6),E2(7),E2(8)=0
: FOR I=554TO 1436STEP 18
: IF POS("PFB"=E$(I))>0THEN E2(6)=E2(6)+1
: NEXT I
: PRINT AT(23,0);STR(E$(),,POS(E$()=00));" ";E8$;
: CONVERT STR(F5$,7,2)TO I
: LOAD DA T#2,(D$(I))1000,
3699 ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
: E$="IDS2PP28"
: IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
: STOP "ERROR"