home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaDemoCD2.iso / ASCII / TEXTE / MISC / HowToGetAminetFiles.LHA / Tools / AmiNet-Calc / calc.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1994-04-17  |  1.8 KB  |  65 lines
  1. /* aminet-on-disk-calculator V1.1 */
  2. /* (C) by Martin Steigerwald      */
  3.  
  4. /* V1.1 bug-fix Diskettenzahl wird nun korrekt gerundet
  5.                 auf Minus-Zeichen wird extra geachtet
  6.    V1.2 bug-fix Diskettenzahl wird nun korrekt berechnet
  7.                 (Das Runden macht keinen Sinn, da eine angebrochene
  8.                 Disk eine angebrochene Disk ist, egal ob sie nur
  9.                 halbvoll ist
  10. */
  11.  
  12. call addlib("rexxreqtools.library", 0, -30)
  13.  
  14. NL= "0a"x
  15.  
  16. Call rtezrequest("AmiNet-On-Disk-Calculator" || NL ||,
  17.                  "(W) by Martin Steigerwald", "OK|Abbruch")
  18.  
  19. tags = "rtfi_flags=freqf_multiselect"
  20.  
  21. call rtfilerequest("TEXTE:Bestellungen/AmiNet/Best",,"Wähle bitte AmiNet-Liste(n)!", ,tags ,dateiliste)
  22.  
  23. overallsize=0
  24.  
  25. Do i=1 to Dateiliste.count
  26.  
  27.   Open(In,Dateiliste.i,"read")
  28.  
  29.   Do Until Eof(In)
  30.     line=ReadLn(In)
  31.     If Index(line,"-",1)~=1 Then Do
  32.       If Index(line,"K",36)=36 Then Do
  33.         size=SubStr(line,33,3)
  34.         overallsize=overallsize+size
  35.       End
  36.       Else If Index(line,"M",36)=36 Then Do
  37.         size=SubStr(line,33,3)
  38.         size=size*1000
  39.         overallsize=overallsize+size
  40.       End
  41.     End
  42.   End
  43.   Close(In)
  44. End
  45.  
  46. ddsize=820
  47. hdsize=1700
  48.  
  49. dds=overallsize%ddsize+2
  50. hds=overallsize%hdsize+2
  51.  
  52. call RtEzRequest(" Größe: " || overallsize || " KB" || NL,
  53.                  "DDs:   " || dds || " Disks" || NL,
  54.                  "HDs:   " || hds || " Disks", "OK")
  55.  
  56. Open(out,"Bestellinfo","write")
  57. WriteLn(out,"AmiNet-On-Disk-Calculator")
  58. WriteLn(out,"a small ARexx-utility by Martin Steigerwald (Public Domain)")
  59. WriteLn(out,NL || NL || "Die angebenen Files belegen " || overallsize ||,
  60.             " Kilobytes")
  61. WriteLn(out,"auf " || dds || " DD-Disketten oder " || hds || " HD-Disketten.")
  62. WriteLn(out,NL || NL || "So long, your AmiDisk-Calcer!")
  63. Close(out)
  64.  
  65.