Listing of file='IDS2PS08' on disk='vmedia/701-2716B.wvd.zip'
# Sector 730, program filename = 'IDS2PS08'
1000 REM "IDS2PS08" - Release 2.1 - SCREEN MASK EDITOR - SET FIELD PARAMETER R
ECORD
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 D3,D4,D5,D6,D9$2
: D3=C
: D4=R
: DIM F5$(1)9
: IF C5$<>" "AND C5$<>"S"AND C5$<>"s"THEN 1380
: D9$=STR(E$(),32,2)
: GOSUB '43(5)
: F5$(1)=BIN(Q)&ALL(00)
: D5=Q
: GOSUB '43(6)
: STR(F5$(),2,2)=BIN(Q*16,2)
: GOSUB '76(13,3,8)
: GOSUB '76(14,3,4)
: GOSUB '76(8,3,2)
: GOSUB '76(9,3,1)
1080 GOSUB '72(3,4,8)
: R=Q-1
: ADD(STR(F5$(),4,1),F8)
: GOSUB '72(10,4,1)
: GOSUB '72(4,5,2)
: C=Q-1
: ADD(STR(F5$(),5,1),FE)
: GOSUB '76(12,5,1)
: GOSUB '72(7,6,16)
: C0=Q
: GOSUB '43(1)
: X=1
: IF Q>0THEN GOSUB '77(6,Q)
: GOSUB '72(11,7,64)
: GOSUB '76(23,6,8)
: GOSUB '43(24)
: X=1
: GOSUB '77(7,Q-SGN(Q))
: GOSUB '76(16,8,32)
: GOSUB '76(15,8,2)
: GOSUB '43(34)
: J0=Q
1336 GOSUB '43(2)
: E8$=E$
: GOSUB '43(3)
: Y=Q
: GOSUB '43(4)
: C=Q-1
: R=Y-1
: STR(E$(),1,69)=STR(E2$(),401)
: E2$()=F$()
: IF C5$=" "OR C5$="S"OR C5$="s"THEN IF STR(E0$,5,1)="s"THEN E3$(J0)=E8$
: ELSE E3$(J0)=STR(C9$,9)
: E2$(J0)=F5$()
: D6=J0
: IF E3$(J0)=STR(C3$,9,8)OR STR(C3$,,1)>HEX(7F)OR VAL(STR(C3$,25))=0OR STR(
E0$,5,1)<>"s"THEN 1375
1367 MAT REDIM E$(24)83,F$(27)83,E2$(27)83,E3$(24)83
: IF D4>22OR D5=0THEN 1368
: STR(E$(),D4*80+D3+153,D5)=" "
1368 DATA SAVE DA T#3,(E4+25)E$()
: DATA SAVE DA T#3,(E4+33)F$()
: DATA SAVE DA T#3,(E4+42)E2$()
: DATA SAVE DA T#3,(E4+51)E3$()
: MAT REDIM E$(E8)1,F$(E9)1,E2$(250)9,E3$(249)8
: STR(C3$,17,8)=E3$(J0)
: LOAD T#2,"IDS2PS89"1000,
1375 IF STR(E0$,5,1)="s"THEN 2010
1380 ON POS(" SsBb"=C5$)GOTO 1400,1400,1400,1390,1390
: E$()="Report Generator "&STR(F0$,,34)&"Report Operation"&STR(C9$,
18,1)&"0"&STR(C9$,17,1)&"N "&STR(C9$,,16)
: STR(E$(),2042,2)=C6$
: C7$=HEX(01)&F$(5)&F$(1)
: GOTO 1440
1390 E$()="Batch Program Generator "&STR(F0$,,34)&"Batch Operation"&STR(C9$,
18,1)&"0"&STR(C9$,17,1)&"N "&STR(C9$,,16)
: STR(E$(),2042,2)=C6$
: C7$=HEX(01)&F$(5)&F$(1)
: GOTO 1440
1400 E$()="Screen Mask Editor "&STR(F0$,,34)&"Screen Field "&STR(C9$,
18,1)&"0"&STR(C9$,17,1)&"N "&STR(C9$,,16)
: STR(E$(),2042,2)=C6$
: C7$=BIN(J0)&BIN(C0*16)&F5$(1)
1440 GOSUB '60(E1$(2),C9$)
: IF J9=0THEN 1600
: F6$(14)="N"
: FOR I=0TO 8
: E$=C9$&BIN(I+48)
: GOSUB '41(E1$(2),E$,0)
: IF Q=0THEN 1590
: ON IGOTO 1510,1520,1530,1540,1550,1560,1570,1580
: STR(E$(),76,250)=F$()
: GOTO 1590
1510 STR(E$(),326,228)=STR(F$(),23)
: GOTO 1590
1520 STR(E$(),554,228)=STR(F$(),23)
: GOTO 1590
1530 STR(E$(),782,228)=STR(F$(),23)
: GOTO 1590
1540 STR(E$(),1010,228)=STR(F$(),23)
: GOTO 1590
1550 STR(E$(),1238,228)=STR(F$(),23)
: GOTO 1590
1560 STR(E$(),1466,192)=STR(F$(),23)
: GOTO 1590
1570 STR(E$(),1658,192)=STR(F$(),23)
: GOTO 1590
1580 STR(E$(),1850,192)=STR(F$(),23)
1590 IF Q>0AND I>0THEN F6$(43+I)="Y"
: NEXT I
: F6$(14)="Y"
1600 F$()=E2$()
: IF C5$=" "OR C5$="S"OR C5$="s"THEN STR(F$(),J0*9-8,9)=F5$(1)
: MAT REDIM E3$(24)83
: DATA LOAD DA T#3,(E4+17)E3$()
: MAT REDIM E3$(249)8
: IF C5$=" "OR C5$="S"OR C5$="s"THEN E3$(J0)=STR(C9$,9)
: COM CLEAR D3
: LOAD T#2,E0$1000,
2010 L=D5
: IF D4>22OR D9$="0N"THEN 2020
: MAT REDIM E$(24)83
: DATA LOAD DA T#3,(E4)E$()
: IF STR(E$(),D4*80+D3+153,D5)=" "THEN 2020
: STR(E$(),D4*80+D3+153,D5)=" "
: DATA SAVE DA T#3,(E4)E$()
2020 MAT REDIM E$(E8)1
: COM CLEAR C3$
: LOAD T#2,"IDS2PS03"1000,
3000 DEFFN'71(F)
: GOSUB '43(F)
: IF E$<>"Y"THEN X=0
: ELSE X=1
: RETURN
3010 DEFFN'76(F,Y,C6)
: GOSUB '71(F)
3020 DEFFN'77(Y,C6)
: STR(F5$(),Y,1)=STR(F5$(),Y,1)OR BIN(X*C6)
: RETURN
3030 DEFFN'72(F,Y,C6)
: GOSUB '43(F)
: X=Q
: GOTO 3020
3060 STOP #
: ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
: E$="IDS2PS08"
: IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
: STOP "ERROR"