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"