home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / E!-LM.LZX / lISTMAKEr / ListMakerv2.1 < prev   
Encoding:
Text File  |  1996-12-06  |  3.3 KB  |  100 lines
  1.  
  2. ; $VER: ListMaker v2.1 (26/3/97)  
  3. ; 1997 Erling Løken Andersen (PSyChO of Apathy)
  4. ; All rights reserved.
  5. ; 
  6. ; Altered from version: ListMaker v1.4 (5/5/96)
  7. ; Thanks to HARALD KUHR. He made most of this program.
  8. ; 
  9. ; NOTE: This program is Freeware.
  10. ; However, if you use it regulary, please let me know at this address:
  11. ;
  12. ; Erling Løken Andersen
  13. ; Fiskegt.14
  14. ; 1515 Moss
  15. ; Norway
  16. ; 
  17. ; Thank you.
  18. ; Your support makes future editions possible.
  19.  
  20. ; SET ECHO ON
  21.  
  22. LAB INTRO
  23. RequestChoice >ENV:Intro "ListMaker v2.1" "*n         ListMaker v2.1*n  19 © 97 Erling Løken Andersen*n*n*nDo you want me to make a textfile*ncontaining a list of all your files*non your harddisc?*n" " Off cor'ze! " " Info " " Nah... " 
  24. IF $Intro EQ 1 
  25.  
  26.     LAB BACK
  27.     RequestFile >ENV:LMDir SYS: TITLE "Choose drawer to list:" 
  28.     IF $RC EQ 0
  29.         ESR >ENV:LMPattern "~(#?.(bak|info|auts))" "Choose file-pattern:" MESSAGE "(#? for all files)"
  30.         IF $RC NOT EQ 0
  31.             SetEnv LMPattern "#?"
  32.             Echo "I'm sorry, but you need the ESR-command*nto chose your own custom file-pattern.*n"
  33.     EndIF
  34.   
  35.     RequestChoice >ENV:Comment "ListMaker v2.1" "*n Do you want comments??? *n" "Sure!" "Nah!"
  36.     IF $Comment EQ 1
  37.          List >T:LMList.tmp ~(#?.info|bak|auts) LFormat="%-30s %-35c %10l" all
  38.       ELSE
  39.          List >T:LMList.tmp ~(#?.info|bak|auts) LFormat="%-30s %10l" all
  40.       EndIF
  41.  
  42.         RequestFile >ENV:LMFile RAM: FILE FileList.txt TITLE "Choose name and location:" SAVEMODE
  43.         IF $RC EQ 0
  44.             CD >ENV:LMCD
  45.             CD $LMDir
  46.             Echo Please wait...
  47.         IF $Comment EQ 1
  48.             List >T:LMList.tmp $LMPattern LFormat="%-30s %-35c %10l" ALL
  49.            ELSE
  50.             List >T:LMList.tmp $LMPattern LFormat="%-30s %10l" ALL
  51.            EndIF
  52.            ; List >T:LMList.tmp $LMPattern QUICK NOHEAD ALL
  53.             CD $LMCD
  54.             Sort T:LMList.tmp T:LMList.tmp
  55.             Echo >T:LMTekst.tmp "This list was made with ListMaker v2.1"
  56.             Echo >T:LMTekst1.tmp "19 © 97 Erling Løken Andersen*n"
  57.             Echo >T:LMTekst2.tmp "Listing of" $LMDir "with the file-pattern" $LmPattern: "*n"
  58.             Echo >T:LMTekst3.tmp "*n- End of list -"
  59.             Join T:LMTekst.tmp T:LMTekst1.tmp T:LMTekst2.tmp T:LMList.tmp T:LMTekst3.tmp TO $LMFile
  60.             Delete T:LMTekst.tmp T:LMTekst1.tmp T:LMList.tmp ENV:LMCD ENV:LMDir QUIET
  61.             ; If you prefer another text-viewer 
  62.             ; you are can change the following line!!!
  63.             PPmore $LMFile
  64.             QUIT
  65.         EndIF 
  66.             ELSE
  67.         QUIT
  68.     EndIF
  69.         ELSE
  70. EndIF    
  71.     ELSE
  72.  
  73. EndIF    
  74.  
  75.  
  76. IF $Intro EQ 2 
  77.     RequestChoice >ENV:LMInfo "ListMaker v2.1" "*n         ListMaker v2.1*n *n  19 © 97 Erling Løken Andersen*n *nThiz handy, little program tries*nto make a textfile containing a*nlist of all your files in the*nselected directory. The file*nwill placed in RAM: and will be*ncalled FileList.txt.*nDo you want to proceed?*n" " Yeah! " " Nah... " 
  78. EndIF
  79.  
  80.    IF $LMInfo EQ 1 
  81.       SKIP INTRO BACK
  82.  
  83.  
  84. ; IF $ListMaker EQ 3
  85. ;    ESR "$UserName" "Brukernavn" MESSAGE "Skriv inn nytt*nbrukernavn:" >ENV:UserName{$$}
  86. ;    IF "$UserName{$$}" NOT EQ ""
  87. ;    Delete ENV:UserName QUIET
  88. ;    Rename ENV:UserName{$$} ENV:UserName
  89. ;    EndIF
  90. ; EndIF
  91.  
  92. ; IF $ListMaker EQ 3
  93. ;    QUIT
  94.  
  95. ELSE 
  96.     Echo Peebrain LAmEr!  
  97.  
  98. ENDIF
  99. QUIT
  100.