image of READY prompt

Wang2200.org

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"