home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / filedocs / simcvt.sps < prev    next >
Internet Message Format  |  1989-08-06  |  2KB
  1. Date: Monday, 31 July 1989  09:56-MDT
  2. From: Joe St Sauver <JOE@oregon.uoregon.edu>
  3. To:   w8sdz@wsmr-simtel20.army.mil
  4. Re:   An Alternative to SIMCVT.BAS
  5.  
  6. I found SIMCVT.BAS rather frustrating since I do most of my SIMTEL20 FTP work
  7. from a VAX, and found it irritating to have to download SIMIBM.IDX to a PC,
  8. run SIMCVT.BAS, re-upload SIMIBM.LST and then print the sucker from the VAX.
  9.  
  10. Therefore I hacked a little piece of code to munge the SIMIBM.IDX file on
  11. our VAX using SPSSx. It has been tested on SPSSx 3.1 under VAX/VMS 5.0-2 and
  12. seems to run fine.
  13.  
  14. Joe St Sauver (JOE@OREGON.UOREGON.EDU or JOE@OREGON)
  15. Statistical Programmer and Consultant
  16. University of Oregon Computing Center
  17.  
  18. --- cut here ------------------------------------------------------------------
  19.  
  20. COMMENT SIMCVT.SPS: TRANSFORM THE SIMIBM.IDX FILE FROM SIMTEL20 INTO A
  21. COMMENT             READABLE FORM, AND CALL IT SIMIBM.LST.
  22. DATA LIST FILE='SIMIBM.IDX' FREE / FS (a4) DIR (a24) FLNM (a14) REV * 
  23.  LENGTH * BITS * DT * DESCR (A50)
  24.  
  25. STRING LFS(a24),LDIR(a24)
  26. COMPUTE LFS = LAG(FS,1)
  27. COMPUTE LDIR = LAG(DIR,1)
  28.  
  29. DO IF ($CASENUM=1) 
  30. WRITE OUTFILE='SIMIBM.LST' / 
  31.   "WSMR-SIMTEL20.ARMY.MIL PUBLIC DOMAIN LISTING AS OF ", $DATE, //,
  32.   "NOTE: Type B is Binary; Type A is ASCII"
  33. END IF
  34.  
  35. DO IF ((FS NE LFS) OR (DIR NE LDIR))
  36. WRITE OUTFILE='SIMIBM.LST' /
  37.   " " /
  38.   "Directory ",FS, DIR /
  39.   "Filename      Type Length Date   Description", /,
  40.   "========================================",
  41.   "========================================"
  42. END IF
  43.  
  44. STRING BITA (A1)
  45. RECODE BITS (8='B')(ELSE='A') INTO BITA
  46. WRITE OUTFILE='SIMIBM.LST' / FLNM (A14), " ", BITA (A1), " ", LENGTH (F8.0), 
  47.   " ", DT (F6.0), " ", DESCR (A50)
  48. EXECUTE
  49.  
  50. -- cut here -------------------------------------------------------------------
  51.