!
!  simcvax.bas  VAX BASIC V3.3
!
!  converts the index file SIMIBM.IDX into the
!  easily read file SIMIBM.LST (for the entire list)
!  or SIMIBM.LSTyymmdd (if the starting date is yymmdd)
!  or SIMIBM.LSTsubstring (if using substring search)
!
!
!  Gives the user the option to include in the list file only those
!  files added to the index after a specified date or only those
!  containing a given string.
!
!  Part of this program was translated from Dustin Fu's SIMCVT.FOR
!  to VAX BASIC V3.3
!
!   New code/Updates by:
!               Mark Harris
!               Digital Equipment Corp
!               Santa Clara, CA
!               Internet:       [email protected]
!               1/10/91         Added scan options
!               5/13/91         Fixed case sensitivity
!               6/1/91          Valid names for output file, misc aesthetics
!               7/1/91          Scan Monitor added
!               12/31/91        Timestamp
!               6/5/92          New scans, Memory for last search, etc
!
!   Original improvements by
!                     Don Chodrow
!                     Physics Department
!                     James Madison University
!                     Harrisonburg, VA 22807
!                     BITNET:      FAC_CHOD@JMUVAX1
!                     INTERNET:    [email protected]
!
!
!  This program will convert the file SIMIBM.IDX into a readable form,
!  sending the output to the file SIMIBM.LST.  Because it is written in
!  BASIC instead of FORTRAN, there is no need to convert quotes to
!  apostrophes.
!
!  This program may be loaded into the VAX BASIC environment and run, or
!  it may be compiled and linked to produce an .exe file:
!
!           $ basic simcvax
!           $ link simcvax
!           $ run simcvax
!
  searchfile$ = "SIMIBM"
!
!
DIM #3,         TS_M%(1%),      &
               TS_D%(1%),      &
               TS_Y%(1%)
Open "SIMCVAX.DAT" as file 3%,  &
               Organization VIRTUAL FIXED,     &
               Access MODIFY
!
If TS_M%(1)=0% Then
       TS_D%(1)=1%
       TS_Y%(1)=70%
       TS_M%(1)=1%
End If
!
SAVE_D%=TS_D%(1)
SAVE_Y%=TS_Y%(1)
SAVE_M%=TS_M%(1)
!
! These above will be the last run's values...
!
!TS_D%(1)=VAL(LEFT(DATE$(0),2%))
!TS_Y%(1)=VAL(MID(DATE$(0),8%,2%))
!TS_M%(1)=(pos("JanFebMarAprMayJunJulAugSepOctNovDec",MID(DATE$(0),4%,3%),1%)+2%)/3%
!Close 3%
! Now we have the SAVE_* values above as the date of LAST access...
!
print searchfile$+" - Public Domain and shareware listing as of ";date$(0)
print
!
!
print "Do you wish to locate a specific file or files with their FILENAME"
input "or Description containing a substring <Y/N, Default:N>",yesno$
yesno$ = left$(edit$(yesno$,32),1)
substring$=""
yesno$="N" unless yesno$="Y"
!
while substring$="" and yesno$="Y"
input "Substring to locate ", substring$
next
!
mask_substring$=""
For I%=1% TO len(substring$)
ATMP$=MID(edit$(substring$,32%),I%,1)
ATMP%=ascii(ATMP$)
mask_substring$=mask_substring$+ATMP$   &
       IF      (ATMP%>=65% and ATMP%<=90%) or  &
               (ATMP%>=48% and ATMP%<=57%)
Next I%
! mask_substring$ Returned
! Valid Characters are A-Z,1-9
!
print "Do you want to list only those files added to the index"
input "on or after a certain date <Y/N, Default:N>",yesno$
yesno$ = left$(edit$(yesno$,32),1)
starter$ = "0"
if (yesno$ = "Y") then
  yr%=0
  while (yr% <70) or (yr% > 99)
       print "Enter the last 2 digits of the starting year ("; &
               NUM1$(Save_y%);"): ";
       input yr%
       yr%=save_y% if yr%=0%
  next
  month% = 0
  while (month% < 1) or (month% > 12)
       print "Enter the number of the starting month, 1 to 12 (";      &
               NUM1$(Save_M%);") :";
       input month%
       month%=Save_m% if month%=0%
  next
  day% = 0
  while (day% < 1) or (day% > 31) or ((month%=2) and (day%>29%))
       Print "Enter the starting day, 1 to 31 (";      &
               NUM1$(Save_D%);") :";
       input day%
       day%=Save_D% if day%=0%
  next

  starter$ = str$(yr%)

  if (month% < 10) then
     starter$=starter$ + "0"+str$(month%)
  else
     starter$ = starter$ + str$(month%)
  end if

  if (day% < 10) then
     starter$ = starter$ + "0" + str$(day%)
  else
     starter$ = starter$ + str$(day%)
  end if
end if

outfile$ = searchfile$+".lst"
if starter$ <> "0" then
  outfile$ = searchfile$+".lst" + starter$
end if
if substring$ <> "" then
  outfile$ = searchfile$+".lst" + left(mask_substring$,8)
end if

start% = val%(starter$)
outfile$=edit$(outfile$,32)

open searchfile$+".IDX" for input as file #1
open outfile$ for output as file #2
print
print "File being created: ";outfile$
margin #2,80%
number_of_matches%=0%
number_of_records%=0%
latest_entry=0
Scan_tick=1000.00

print #2, ""+searchfile$+" PUBLIC DOMAIN AND SHAREWARE LISTING AS OF ";date$(0)
if starter$ <> "0" then
  print #2, " "
  print #2, "This list contains files dated ";starter$;" or later."
end if
if substring$ <> "" then
  print #2, " "
  print #2, "This list contains files with names and/or descriptions"
  print #2, "containing the substring : ";substring$
end if
print #2," "
print #2, "NOTE: Type B is Binary; Type A is ASCII"

fs1$ = " "      ! initialize
dir1$ = " "     ! initialize

qq$ = "'LLLLLLLLLLLL 'L ####### ###### "
qq$ = qq$ + "'LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
!
!  qq$ is the PRINT USING format string
!

when error use closer  ! terminate program when end of file #1 is reached

 while 1 = 1  ! "endless" loop, terminated by end of file #1 "error"
               linput #1, rawdata$
               C1%=POS(RAWDATA$,",",1%)
               C2%=POS(RAWDATA$,",",C1%+1%)
               C3%=POS(RAWDATA$,",",C2%+1%)
               C4%=POS(RAWDATA$,",",C3%+1%)
               C5%=POS(RAWDATA$,",",C4%+1%)
               C6%=POS(RAWDATA$,",",C5%+1%)
               C7%=POS(RAWDATA$,",",C6%+1%)
               DQ%=POS(RAWDATA$,'"',C7%+2%)
               !
               fs2$=MID(RAWDATA$,2%,C1%-3%)
               dir2$=MID(RAWDATA$,C1%+2%,C2%-C1%-3%)
               filnam$=MID(RAWDATA$,C2%+2%,C3%-C2%-3%)
               rev$=MID(RAWDATA$,C3%+1%,C4%-C3%-1%)
               file_length$=MID(RAWDATA$,C4%+1%,C5%-C4%-1%)
               bits$=MID(RAWDATA$,C5%+1%,C6%-C5%-1%)
               dt$=MID(RAWDATA$,C6%+1%,C7%-C6%-1%)
               descr$=MID(RAWDATA$,C7%+2%,DQ%-C7%-2%)
       ! We get as strings to allow for format errors
       rev=val(rev$)
       file_length=val(file_length$)
       bits%=val(bits$)
       dt=val(dt$)
   Number_of_records%=Number_of_records%+1
   if (Number_of_records%/Scan_tick) = INT(Number_of_records%/Scan_tick) THEN  &
               PRINT Number_of_records%;"files searched. ";
               IF Number_of_matches%=0% then   &
                       MF$="No"
               ELSE
                       MF$=NUM1$(Number_of_matches%)
               END IF
               PRINT MF$;" matches found, continuing..."
   END IF
   latest_entry=dt if dt > latest_entry
   if ((dt >= start%) and ( substring$="" )) or        &
      (((start% <> 0%) and (substring$ <> "")) and     &
       (dt>=start%) and        &
       (pos(edit$(filnam$,32),edit$(substring$,32),1) or       &
                       pos(edit$(descr$,32),edit$(substring$,32),1))) or       &
       ((pos(edit$(filnam$,32),edit$(substring$,32),1) or      &
                       pos(edit$(descr$,32),edit$(substring$,32),1)) and       &
               start%=0) then
     if ((fs1$ <> fs2$) or (dir1$ <> dir2$)) then
         print #2," "
         print #2,"Directory ";fs2$;dir2$
         print #2," Filename   Type Length   Date    Description"
         print #2,"=============================================="
         dir1$ = dir2$
         fs1$ = fs2$
     end if

     if (bits% = 8) then
        style$ = "B"
     else
        style$ = "A"
     end if

     print #2 using qq$ ; filnam$,style$,file_length,dt,descr$
     number_of_matches%=number_of_matches%+1%
   end if
 next  ! end of "endless" loop

end when

handler closer
  if err = 11% then
     close #1
     close #2
     !
  end if
end handler
!print err,ert$(err)
!
ld$=num1$(latest_entry)
mtmp%=val(mid(ld$,3%,2%))
mtmp$=mid("JanFebMarAprMayJunJulAugSepOctNovDec",mtmp%*3%-2%,3%)
dtmp$=mid(ld$,5%,2%)
ytmp$=mID(ld$,1%,2%)
print searchfile$;" has submissions through ";mtmp$;" ";dtmp$;", 19";ytmp$
print           "Of";Number_of_records%;        &
               "entries, the number of Matches found is";Number_of_matches%
!
TS_D%(1)=val(dtmp$)
TS_Y%(1)=val(ytmp$)
TS_M%(1)=mtmp%
!
close #3
end

You are viewing proxied material from gopher.floodgap.com. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.