Listing of file='IDS2PS18' on disk='vmedia/701-2716B.wvd.zip'
# Sector 854, program filename = 'IDS2PS18'
1000 REM "IDS2PS18" - Release 2.1 - EDIT SEQUENCE SELECTION
1005 E6$=F6$(17)AND HEX(02)
: IF E6$=HEX(00)THEN LOAD T#2,"IDS2SUB8"3701,3899BEG 1010
1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
: COM C9$19,C7$3,C6$2,C8$56,C5$1,J9
: IF C5$=" "THEN C5$=STR(R3$(1),6)
: DIM J1$64
: F6$(11)="N"
: STR(F6$(),44,8)="N"
: IF C5$="S"THEN R3$(1)="IDS2MS01"
: IF C5$="R"THEN R3$(1)="IDS2PR13"
1070 GOSUB '32("IDS2sS52")
: F6$(11)="N"
: MAT REDIM E$(24)83
: Q=0
: IF C5$="S"THEN Q=25
: DATA LOAD DA T#3,(E4+Q)E$()
: MAT REDIM E$(E8)1
: IF C5$<>"S"THEN 1076
: C9$=STR(E$(),61,8)&STR(E$(),9,8)
: PRINT AT(5,39);BOX(18,1);HEX(0F);AT(5,10);"Pre-entry Operations";AT(5,50)
;"Post-entry Operations"
: GOSUB '45(1,"Screen Mask Editor")
: GOTO 1079
1076 E$="Report"
: IF C5$="B"THEN E$="Batch Program"
: E$=E$&" Generator"
: GOSUB '45(1,E$)
: STR(C9$,17)=" "
1079 GOSUB '60(E1$(2),C9$)
: E1=0
: J1$=" "
: Q=0
: FOR I=0TO VAL(STR(E1$(2),43),2)-1
: DATA LOAD BA T#2,(VAL(STR(E1$(2),55),2)+I*VAL(STR(E1$(2),46),2))E4$()
: Q=Q+VAL(STR(E4$(),9),2)
: NEXT I
1084 X=(I+1)*VAL(STR(E1$(2),48),2)
: PRINT HEX(060E);AT(1,1);"Note: Edit specification file is";INT(100*Q/X+.5
);"% full. ";X-Q;"records may be added."
: FOR I=0TO 63
: STR(C9$,17)=BIN(I+32)
: IF STR(E6$(),1,17)>STR(C9$,1,17)THEN 1190
: E1=E1+1
: STR(J1$,I+1)=E6$(18)
: CONVERT E6$(18)TO Q
1117 E4$()=" P/F's only Set field(s) Read a record Logical tests Math calc
(s) Range test(s) Table look-up User-supplied"
: E$=STR(E4$(),Q*14+1,14)
: PRINT HEX(0E);AT(MOD(I,16)+7,INT(I/16)*20+INT(I/32)+3);STR(E$,,16)
1130 GOSUB '62(E1$(2),1,0)
: IF STR(E6$(),,17)=STR(C9$,,17)THEN 1130
: GOTO 1210
1190 E$=" - available -"
: PRINT HEX(0F);AT(MOD(I,16)+7,INT(I/16)*20+INT(I/32)+3);STR(E$,,16)
1210 NEXT I
: 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
: GOSUB '53("Touch EXECUTE to return to field attribute specifications")
: IF C6$=" "THEN C6$="01"
: CONVERT C6$TO Q
1235 Q=MOD(Q-1,64)+1
: CONVERT QTO C6$,(##)
: PRINT HEX(02040202000E);AT(MOD(Q-1,16)+7,INT((Q-1)/16)*20+1+INT(Q/33));C6
$;
1250 KEYIN E6$,,1800
: IF E6$=" "THEN W=1
: $TRAN(E6$,HEX(3F08820D0120))R
: IF E6$=HEX(82)THEN 1995
: IF POS(HEX(01103F)=E6$)>0THEN 1300
1290 PRINT HEX(07);
: GOTO 1250
1300 PRINT HEX(060F);AT(MOD(Q-1,16)+7,INT((Q-1)/16)*20+1+INT(Q/33));C6$;" ";
: Q=Q+VAL(E6$)
: GOTO 1235
1800 IF E6$=HEX(F0)THEN 1830
: $TRAN(E6$,HEX(FF01FF10010501453F063F46100C104C300D304D))R
: IF E6$=HEX(1F)THEN 1995
: IF POS(HEX(0110303F)=E6$)>0THEN 1300
: GOTO 1290
1830 CONVERT C6$TO Q
: STR(C9$,17)=BIN(Q+31)&STR(J1$,Q,1)
: IF LEN(C9$)=18THEN J9=1
: ELSE J9=0
: ON J9GOTO 1861
: GOSUB '32("IDS2sS53")
: F6$(11)="N"
: GOSUB '37(1)
1840 GOSUB '53("Select operation using FN'00-07 above or FN'31 to cancel")
: GOSUB '34(250)
: IF Q=31THEN 1070
: IF Q<8THEN 1855
: PRINT HEX(07);
: GOTO 1840
1855 CONVERT QTO STR(C9$,18),(#)
: R3$(1)="IDS2PS18"
: MAT REDIM E$(24)83
: IF C5$="S"THEN DATA LOAD DA T#3,(E4+25)E$()
: MAT REDIM E$(E8)1
1861 C8$=STR(E$(),78)
: GOSUB '33("IDS2sS01")
: I=VAL(STR(C9$,18))-48
: F0$="2126383920242522"
: E0$="IDS2PS21"
: IF I>0THEN E0$="IDS2PS"&STR(F0$,I*2+1,2)
: ON IGOTO 1871,1872,1873,1874,1875,1876,1877
: F0$="No-op - Perform Pass/Fails Only"
: GOTO 1879
1871 F0$="Set Field(s)=Field(s)/Constant(s)"
: GOTO 1879
1872 F0$="Read a record from a data file"
: GOTO 1879
1873 F0$="Perform Logical Testing Operations"
: GOTO 1879
1874 F0$="Math Calculation Specifications"
: GOTO 1879
1875 F0$="Range Test Specifications"
: GOTO 1879
1876 F0$="Table look-up or Look-up & Replace"
: GOTO 1879
1877 F0$="User-coded Edit Specification"
1879 R3$(1)="IDS2PS18"
: LOAD T#2,"IDS2PS08"1000,
1995 IF C5$<>"S"THEN 1998
: F0=34
: MAT REDIM E$(24)83,F$(27)83,E2$(27)83,E3$(24)83
: DATA LOAD DA T#3,(E4+25)E$(),F$(),E2$(),E3$()
: MAT REDIM E$(E8)1,F$(E9)1,E2$(250)9,E3$(249)8
: IF E1=0THEN E$(51)="N"
: ELSE E$(51)="Y"
: CONVERT E1TO E$,(###)
: IF E1<100THEN STR(E$,,1)=" "
: IF E1<10THEN STR(E$,,2)=" "
: STR(E$(),52,3)=E$
1997 GOSUB '32("IDS2sS01")
: GOSUB '36
: GOSUB '43(3)
: X=Q-1
: GOSUB '43(4)
: C=Q-1
: R=X
: MAT REDIM E2$(27)83
: DATA LOAD DA T#3,(E4+42)E2$()
: MAT REDIM E2$(250)9
: COM CLEAR C9$
: LOAD T#2,"IDS2PS07"1000,
1998 E6$=BIN(E1)
: LOAD T#2,"IDS2PR14"1000,
3699 ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
: E$="IDS2PS18"
: IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
: STOP "ERROR"