Listing of file='IDS2PR29' on disk='vmedia/701-2716B.wvd.zip'
# Sector 385, program filename = 'IDS2PR29'
1000 REM "IDS2PR29" REPORT/BATCH PROGRAM DOCUMENTATION SET-UP MODULE
1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
: COM J9,D6,J4,C9$56,J6,D0,D1,D2,J0,J1,J2,D9,J7,D9$8,D0
: IF C5$="B"THEN Q=8
: ELSE Q=6
: D9$=E9$(Q)OR ALL(20)
: GOSUB '39(D9$,3)
: MAT F=CON
: GOSUB '63(" "," Now printing documentation."," ")
: J4=0
: E$()=" "
: MAT REDIM E$(18)83
: DATA LOAD DA T#P,(A)E$()
: MAT REDIM E$(E8)1
1096 C9$=STR(E$(),78)
: CONVERT STR(E$(),152,3)TO D1
: ERRORD1=0
1120 CONVERT STR(E$(),157,3)TO D2
: ERRORD2=0
1140 J0=6+MAX(1,ABS(INT(-D1*9/249)))+MAX(1,ABS(INT(-D1*8/249)))+MAX(1,ABS(INT(
-D2*9/249)))
: CONVERT STR(E$(),845,3)TO J2
: ERRORJ2=0
1165 D3=J2+5
: CONVERT STR(E$(),155,2)TO D9
: ERRORD9=0
1180 J7=INT(256/D3)
: J1=MAX(1,ABS(INT(-D9/J7)))
: J9=1
: IF D2>0AND J3=2THEN J9=J9+1
: IF STR(R3$(1),6,1)<>"B"THEN 1270
: I,L=0
: GOTO 1510
1270 IF J2>99THEN I=58-8
: ELSE I=58-6
: J9=J9+INT(D9/I)
: IF D9<>0THEN 1285
: J9=J9+1
: GOTO 1300
1285 IF MOD(D9,I)>0THEN J9=J9+1
1300 I=I-MOD(D9,I)
: IF J2<117AND I>18THEN 1340
: IF J2>116AND I>20THEN 1340
: L,I=D9
: GOTO 1400
1340 I=I-2
: IF J2>116THEN L=16
: ELSE L=14
: I=I-L
: I,L=D9-I
: I=ABS(I)
1400 IF L>0THEN 1420
: IF L<>0THEN 1490
: I=58
: J9=J9+1
: GOTO 1490
1420 IF J2>116THEN L=58-17
: ELSE L=58-15
: J9=J9+INT(I/L)+1
: I=L-MOD(I,L)
1490 IF I>14THEN 1496
: I=58-14
: J9=J9+1
1496 I=I-14
1510 IF I>17THEN L=D1-(I-7)
: ELSE L=D1
: IF L<0THEN 1560
: J9=J9+INT(L/50)+1
1560 I=50-MOD(L,50)
: IF I<>0THEN 1600
: I=58
: J9=J9+1
1600 CONVERT STR(E$(),160,1)TO L
: ERRORL=0
1605 IF I>=L+7THEN 1610
: I=58-2
: J9=J9+1
1610 I=I-(L+7)
: IF I>=(L+4)THEN 1640
: I=58-2
: J9=J9+1
1640 I=I-(L-1+4)
: CONVERT STR(E$(),848,2)TO L
: ERRORL=0
1670 IF I>=L+9THEN 1680
: I=58-2
: J9=J9+1
1680 I=I-(L+9)
: IF STR(E$(),887,120)<>" "THEN 1720
: IF I<4THEN J9=J9+1
: IF I<4THEN I=53
: ELSE I=I-4
: GOTO 1730
1720 IF E$(1601)<>HEX(20)THEN Q=6+VAL(E$(1601))
: ELSE Q=7
: IF I<QTHEN J9=J9+1
: IF I<QTHEN I=58-(Q+1)
: ELSE I=I-Q
1730 IF STR(E$(),1307,160)<>" "THEN 1740
: IF I<4THEN J9=J9+1
: IF I<4THEN I=53
: ELSE I=I-4
: GOTO 1760
1740 Q=8+VAL(E$(151))-48
: IF I<QTHEN J9=J9+1
: IF I<QTHEN I=58-(Q+1)
: ELSE I=I-Q
1760 IF E$(1468)<>" "THEN 1770
: IF I<4THEN J9=J9+1
: IF I<4THEN I=53
: ELSE I=I-4
: GOTO 1790
1770 Q=6
: E$=E$(1468)&E$(1472)&E$(1475)&E$(1479)&E$(1482)
: Q=Q+POS(STR(E$,,5)<>20)
: IF I<QTHEN J9=J9+1
: IF I<QTHEN I=58-Q-1
: ELSE I=I-Q
1790 IF E$(1486)<>" "THEN 1800
: IF I<4THEN J9=J9+1
: IF I<4THEN I=53
: ELSE I=I-4
: GOTO 1820
1800 Q=6+POS(-STR(E$(),1486,5)<>20)
: IF I<QTHEN J9=J9+1
: IF I<QTHEN I=58-(Q+1)
: ELSE I=I-Q
1820 KEYIN E6$,1820,1830
: GOTO 1840
1830 IF VAL(E6$)<>31THEN 1840
: $CLOSE#1
: COM CLEAR J3
: LOAD T#2,R3$(1)1000,
1840 IF C5$<>"B"THEN LOAD T#2,"IDS2PR37"1000,
: LOAD T#2,"IDS2PR38"1000,
3699 ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
: E$="IDS2PR29"
: IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
: STOP "ERROR"