image of READY prompt

Wang2200.org

Listing of file='IDS2PS39' on disk='vmedia/701-2724B.wvd.zip'

# Sector 549, program filename = 'IDS2PS39'
1000 REM "IDS2PS39" - Release 2.1 - SCREEN/REPORT/BATCH LOGICAL TEST SPECIFICA
     TIONS
1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
   : GOSUB 2080
   : CONVERT VAL(STR(E$(),78))-31TO STR(E$(),2073,2),(##)
   : IF E0$="IDS2sS36"THEN 1030
   : GOSUB '32("IDS2sS36")
   : GOSUB 2090
   : GOSUB '36
1030 GOSUB 2090
   : FOR I=18TO 54STEP 6
   : GOSUB '37(I)
   : NEXT I
   : STR(F6$(),11,4)=ALL("Y")
   : IF STR(E$(),98,1944)<>" "THEN 2000
1040 F=9
1050 F=F+1
   : IF F>F0THEN 2000
1070 GOSUB '34(F)
   : ON F-8GOTO 2070,1090,,1100,1110,1120,1130,1140,1050,1150,1110,1120,1130,1
     140,1050,1150,1110,1120,1130,1140,1050,1150,1110,1120,1130,1140,1050,1150
     ,1110,1120,1130,1140,1050,1150,1110,1120,1130,1140,1050,1150,1110,1120,11
     30,1140,1050,1150,1110,1120,1130,1140
   : IF F<21THEN 1050
1090 IF E$="Y"THEN 1050
   : GOSUB '45(11," ")
   : GOSUB '45(12," ")
   : F=F+2
   : GOTO 1050
1100 IF E$="Y"OR E$="N"THEN 1050
1110 J1=0
   : IF E$=" "THEN 1117
   : GOSUB 2100
   : MAT SEARCHE3$(),=STR(E$,,8)TO F9$STEP 8
   : IF F9$>HEX(0000)OR VER(E$,"@TSTFLD#")=8OR E$="@SYSBUF0"THEN J1=1
   : ON J1GOTO 1050
   : IF E$="LSTFNKEY"THEN J1=2
   : IF J1=2THEN 1050
   : IF VER(E$,"SYSFLAG")=7AND POS("0123456789ABCDEFGHJIJKLMNOPQRSTUVWXYZ"=STR
     (E$,8,1))>0THEN J1=3
   : IF J1=3THEN 1050
1115 GOSUB '35("Invalid specification")
   : GOTO 1070
1117 FOR I=FTO MIN(F+4,F0)
   : GOSUB '45(I," ")
   : NEXT I
   : IF MOD(F-19,12)<>0THEN 1118
   : GOSUB '45(F-1," ")
   : GOSUB '45(F-2," ")
1118 F=F+4
   : GOTO 1050
1120 ON J1GOTO 1121,1121
   : IF E$="="THEN 1050
   : GOSUB '35("Test for SYSFLAGs must be '=' only")
   : GOTO 1070
1121 E4$()="= < > <=>=<>"
   : MAT SEARCHE4$()<,12>,=STR(E$,1,2)TO F9$STEP 2
   : IF F9$>HEX(0000)THEN 1050
   : GOSUB '35("Must be an operation listed above")
   : GOTO 1070
1130 IF E$="F"OR E$="C"THEN GOTO 1050
   : GOSUB '35("Must be 'F' or 'C'")
   : GOTO 1070
1140 GOSUB '43(F-1)
   : IF E$="C"THEN 1141
   : GOSUB '43(F)
   : IF E$=" "THEN 1115
   : GOSUB 2100
   : MAT SEARCHE3$(),=STR(E$,,8)TO F9$STEP 8
   : IF F9$>HEX(0000)OR VER(E$,"@TSTFLD#")=8OR E$="@SYSBUF0"THEN 1050
   : GOTO 1115
1141 GOSUB '43(F)
   : ON J1GOTO 1050,1142,1143
1142 IF VER(E$,"##")=2AND LEN(E$)=2THEN 1050
   : GOSUB '35("Must be a 2-digit number")
   : GOTO 1070
1143 IF E$="ON"OR E$="OFF"OR E$="Y"OR E$="N"THEN 1050
   : GOSUB '35("Must be 'ON' or 'OFF'")
   : GOTO 1070
1150 GOSUB '45(F-1,E$)
   : GOSUB '43(F)
   : IF E$=" "THEN 1117
   : IF E$="AND"OR E$="OR"THEN 1050
   : GOSUB '35("Must be 'AND' or 'OR'")
   : GOTO 1070
2000 F0$="EXEC = Accept, EDIT = Modify,"
   : IF J9=1THEN F0$=F0$&" FN'9 = Delete,"
   : F0$=F0$&" FN'31 = Cancel"
   : GOSUB '53(F0$)
   : GOSUB '34(250)
   : IF Q=33THEN 1040
   : IF Q=32THEN LOAD T#2,"IDS2PS28"1000,
   : IF Q=9AND J9<>0THEN 2060
   : PRINT HEX(07);
   : GOTO 2000
2060 F6$(14)="N"
   : STR(E$(),2042)=" "
   : FOR I=1TO 9
   : C9$=STR(E$(),82,16)&E$(78)&E$(76)&BIN(I+47)
   : Q=0
   : IF I=1OR F6$(42+I)="Y"THEN GOSUB '41(E1$(2),C9$,.5)
   : F$()=" "
   : IF Q<>0THEN GOSUB '42(E1$(2),0)
   : NEXT I
   : F6$(14)="Y"
   : LOAD T#2,"IDS2PS18"1000,
2070 F5$="IDS2PS39"
   : LOAD T#2,"IDS2PS96"1000,
2080 MAT REDIM F$(27)83
   : DATA LOAD DA T#3,(E4+8)F$()
   : MAT REDIM F$(E9)1
   : IF C5$<>"S"THEN RETURN
   : Q=VAL(C7$)*9-8
   : F$(Q)=STR(C7$,3)
   : F$(Q+5)=STR(C7$,2)
   : RETURN
2090 FOR I=0TO 6
   : E6$=E$(126+I*28)
   : IF E6$="A"THEN STR(E$(),2050+I*3,3)="AND"
   : ELSE IF E6$="O"THEN STR(E$(),2050+I*3,3)="OR"
   : ELSE STR(E$(),2050+I*3,3)=" "
   : NEXT I
   : RETURN
2100 MAT REDIM E3$(24)83
   : IF C5$="S"THEN I=51
   : ELSE I=17
   : DATA LOAD DA T#3,(E4+I)E3$()
   : MAT REDIM E3$(249)8
   : RETURN
2110 STOP #
   : ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
   : E$="IDS2PS39"
   : IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
   : STOP "ERROR"