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"