Listing of file='IDS2PR30' on disk='vmedia/701-2716B.wvd.zip'
# Sector 397, program filename = 'IDS2PR30' 1000 REM "IDS2PR30" - REPORT MASK DOCUMENTATION (REPORT MASK - PART 1) 1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM" : COM F0 : DIM J0$11,J1$4 : GOSUB '39(D9$,3) : J6=P : LIMITS T#J6,D9$,D1,D2,D2,D2 : IF D2<>2OR J0<9OR J1<1OR J2<0OR D9<0OR D1<2THEN 1220 : GOTO 1230 1220 F0$="Invalid report control file -- Exec to continue" : GOSUB '53(F0$) : GOSUB '34(250) : $CLOSE#1 : COM CLEAR J3 : LOAD T#2,"IDS2MR01"1000, 1230 J8=0 : GOSUB 1430 : IF D9<1THEN 1390 : D4,D5=0 1260 MAT REDIM F$(256)1 : DATA LOAD BA T#J6,(D1+J0+D4)F$() : MAT REDIM F$(E9)1 1290 STR(E0$(),2)=STR(F$(),(J2+5)*D5+6,J2)AND ALL(7F) : STR(E0$(),,1)=BIN(LEN(E0$())) 1310 KEYIN E6$,1310,1320 : GOTO 1330 1320 IF VAL(E6$)<>31THEN 1310 : $CLOSE#1 : COM CLEAR J3 : LOAD T#2,R3$(1)1000, 1330 D6=D6+1 : GOSUB '49(0) : IF J2>99THEN 1350 : IF D6<55THEN 1360 : J8=1 : GOSUB 1450 : J8=0 : GOSUB 1430 1350 IF D6<56THEN 1360 : J8=1 : GOSUB 1450 : GOSUB 1430 : J8=0 : GOSUB 1450 1360 D5=D5+1 : IF D4*J7+D5>=D9THEN 1390 : IF D5<>J7THEN 1290 : D5=0 : D4=D4+1 : GOTO 1260 1390 J8=1 : GOSUB 1450 : LOAD T#2,"IDS2PR31"1000, 1430 J4=J4+1 : GOSUB '48(0,HEX(0C),0) : GOSUB '49(0) : E$="Report "&HEX(22)&STR(E$(),2,8)&HEX(22)&" - "&STR(E$(),18,32) : GOSUB '48(2,E$,0) : E$=STR(R2$,1,2)&"/"&STR(R2$,3,2)&"/"&STR(R2$,5,2)&" Page ## of ##" : CONVERT J4TO STR(E$,16,2),(##) : CONVERT J9TO STR(E$,22,2),(##) : GOSUB '48(57,E$,0) : D6=2 : GOSUB '49(0) : GOSUB '49(0) 1450 J0$="0123456789" : IF J8=0THEN FOR D7=1TO 3 : ELSE FOR D7=3TO 1STEP -1 : E0$()=BIN(MAX(80,J2)+1) : IF D7<>1THEN FOR I=1TO MIN(15,MAX(8,INT(J2/10))) : ELSE IF J2>99THEN FOR I=10TO MIN(INT(J2/10),15) : ELSE GOTO 1570 : IF I>9THEN K=I-INT(I/10)*10+1 : ELSE K=I+1 : IF D7=1THEN STR(E0$(),I*10+1,1)="1" : ELSE IF D7=2THEN STR(E0$(),I*10+1,1)=STR(J0$,K,1) : ELSE STR(E0$(),(I-1)*10+2,10)=STR(J0$,2,9)&"0" 1510 NEXT I : IF D7<>3THEN 1560 : L=J2-INT(J2/10)*10 : IF L=0OR J2<81THEN 1560 : STR(E0$(),I*10+2,10)=STR(J0$,2,L) 1560 D6=D6+1 : GOSUB '49(0) 1570 NEXT D7 : RETURN 3699 ON ERRORE1$,E2$GOTO 3700 3700 DEFFN'31 : E$="IDS2PR30" : IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000, : STOP "ERROR"