image of READY prompt

Wang2200.org

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"