Listing of file='IDS2PR05' on disk='vmedia/701-2716B.wvd.zip'
# Sector 95, program filename = 'IDS2PR05'
1000 REM "IDS2PR05" - Release 2.1 - REPORT GENERATOR SUMMARY & ACTIVITY SELECT
ION
1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
: COM F6,F7,D2,F5,C2
: MAT REDIM E$(24)83,F$(27)83,E3$(24)83,E2$(27)83
: DATA LOAD DA T#3,(E4)E$(),F$(),E3$(),E2$()
: MAT REDIM E$(E8)1,F$(E9)1,E3$(249)8,E2$(250)9
: Y=0
: IF E$(1)="\E2"THEN Y=3
: E$=ALL(00)
: MAT SEARCHE2$(),=STR(E$,1,9)TO F9$STEP 9
1070 IF F9$=HEX(0000)THEN D4=249
: ELSE D4=INT(VAL(F9$,2)/9)
: IF E$(1)="\F2"THEN GOSUB '32("IDS2sR06")
: ELSE GOSUB '32("IDS2sB02")
: IF E$(1)="\F2"THEN R3$(1)="IDS2MR01"
: ELSE R3$(1)="IDS2MB01"
: IF STR(E$(),774,3)=" "THEN 1090
: FOR I=16TO 18
: F9$="'"&BIN(I+33)
: PRINT AT(I+Y,1);F9$;
: NEXT I
1090 FOR I=1TO 16
: GOSUB '37(I)
: NEXT I
: X,F8,D1=0
: FOR I=1TO 249
: IF STR(F$(),I*9-8,9)>HEX(000000000000000000)THEN 1110
: I=249
: GOTO 1130
1110 IF VAL(F$(I*9-3))>64THEN F8=F8+1
: ELSE D1=D1+1
: X=MAX(X,VAL(F$(I*9-8))-1+INT(VAL(STR(F$(),I*9-7),2)/16))
1130 NEXT I
: D0=X
: FOR I=850TO 862STEP 3
: IF STR(E$(),I,3)="Yes"OR STR(E$(),I,3)="No "THEN STR(E$(),I,3)=" "
: NEXT I
: IF E$(853)=" "THEN E$(853)="N"
: GOSUB '43(21)
: D2=Q
: X=1600
: STR(E$(),X+1,64)="0001"&ALL(30)
: CONVERT D0TO STR(E$(),X+5,4),(####)
1230 FOR I=1TO 7
: IF STR(E$(),70+I*8,8)=" "THEN 1240
: IF F1(I+1)>F1(I)THEN CONVERT F1(I)TO STR(E$(),X+1+8*I,4),(####)
: CONVERT F1(I+1)-F1(I)TO STR(E$(),X+5+8*I,4),(####)
1240 NEXT I
: IF STR(E$(),774,3)=" "THEN GOSUB '45(28,"No")
: ELSE GOSUB '45(28,"Yes")
: IF STR(E$(),1307,160)=" "THEN GOSUB '45(29,"No")
: ELSE GOSUB '45(29,"Yes")
: E$(1493)=E$
: IF E$(774)<>"Y"THEN GOSUB '45(30,"No")
: ELSE GOSUB '45(30,"Yes")
: IF STR(E$(),1468,18)=" "THEN GOSUB '45(31,"No")
: ELSE GOSUB '45(31,"Yes")
: E$(1494)=E$
1330 IF E$(775)<>"Y"THEN GOSUB '45(32,"No")
: ELSE GOSUB '45(32,"Yes")
: IF STR(E$(),1486,5)=" "THEN GOSUB '45(33,"No")
: ELSE GOSUB '45(33,"Yes")
: IF E$(776)<>"Y"THEN GOSUB '45(34,"No")
: ELSE GOSUB '45(34,"Yes")
: GOSUB '37(35)
: IF E$=" "THEN GOSUB '45(35,"SYS")
: GOSUB '37(36)
: IF E$="Y"THEN E$="Yes"
: ELSE E$="No"
: IF Y=0THEN PRINT AT(19,39);E$
: GOSUB '55(17,F8+D1)
: GOSUB '55(18,F8)
1368 GOSUB '55(19,D1)
: GOSUB '55(20,D4)
: FOR I=21TO 23
: GOSUB '37(I)
: NEXT I
: IF E$(1)="\F2"THEN 1372
: IF D1+F8=0THEN GOSUB '45(24,"No")
: ELSE GOSUB '45(24,"Yes")
: GOTO 1374
1372 IF D2=0THEN GOSUB '45(24,"No")
: ELSE GOSUB '45(24,"Yes")
1374 IF D4=0THEN GOSUB '45(25,"No")
: ELSE GOSUB '45(25,"Yes")
: IF STR(E$(),865,7)=" "THEN GOSUB '45(26,"No")
: ELSE GOSUB '45(26,"Yes")
: IF STR(E$(),848,2)=" 0"THEN GOSUB '45(27,"No")
: ELSE GOSUB '45(27,"Yes")
1380 GOSUB '53("Touch FN'0-'8 listed above, EXECUTE to accept, FN'31 to cancel
")
: F6$(11)="N"
: GOSUB '34(250)
: R3$(1)="IDS2PR05"
: ON Q+1GOTO 1490,1552,1552,1552,1560,1450,1460,1470,1480
: IF Q=31THEN 1440
: IF Q=32THEN 1500
1430 PRINT HEX(07)
: GOTO 1380
1440 COM CLEAR F1()
: IF E$(1)="\F2"THEN LOAD T#2,"IDS2MR01"1000,
: LOAD T#2,"IDS2MB01"1000,
1450 F6=1
: IF E$(1)="\E2"THEN LOAD T#2,"IDS2PB01"1000,
: CONVERT STR(E$(),854,2)TO F6
: X,Y,R,C,F5,C2=0
: C1,F4=1
: LOAD T#2,"IDS2PR03"1000,
1460 LOAD T#2,"IDS2PR13"1000,
1470 LOAD T#2,"IDS2PR04"1000,
1480 LOAD T#2,"IDS2PR09"1000,
1490 E$(856)=" "
: LOAD T#2,"IDS2PR24"1000,
1500 MAT REDIM E$(24)83,F$(27)83,E3$(24)83
: DATA SAVE DA T#3,(E4)E$()
: DATA SAVE DA T#3,(E4+8)F$()
: DATA SAVE DA T#3,(E4+17)E3$()
: MAT REDIM E$(E8)1,F$(E9)1,E3$(249)8
: IF E$(1)="\F2"THEN R3$(1)="IDS2MR01"
: ELSE R3$(1)="IDS2MB01"
: LOAD T#2,"IDS2PR12"1000,
1552 IF STR(E$(),774,3)=" "THEN 1430
: R3$(1)="IDS2PR05"
: ON QGOTO 1556,1558
: E$(856)="S"
: GOTO 1559
1556 E$(856)="R"
: GOTO 1559
1558 E$(856)="L"
1559 LOAD T#2,"IDS2PR25"1000,
1560 IF E$(1)="\E2"THEN 1430
: STR(F6$(),12,2)="NN"
: GOSUB '34(35)
: MAT SEARCH"SYS005204214215216217",=STR(E$,,3)TO F9$STEP 3
: IF F9$>HEX(0000)THEN 1570
: GOSUB '35("Address must: be SYS, 005 (screen), 204, 214, 215, 216, or 217
")
: GOTO 1560
1570 GOSUB '34(36)
: $TRAN(E$,"YyNn")R
: GOSUB '45(36,E$)
: STR(F6$(),12,2)="YY"
: IF POS("YN"=E$)=0THEN PRINT AT(19,40);" "
: IF E$="Y"THEN PRINT AT(19,40);"es"
: IF E$="N"THEN PRINT AT(19,40);"o "
: IF POS("YN"=E$)>0THEN 1380
: GOSUB '35("Must be 'Y' or 'N'")
: GOTO 1570
1580 STOP #
: ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
: E$="IDS2PR05"
: IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
: STOP "ERROR"