;----------------------------------------------------------------------------

1. ;----------------------------------------------------------------------------;----------------------------------------------------------------------------

2. ;.advanced zip manipulator (AZM) version a/1

3. ;.written by cosmic.peanuts O9.O6.1996

4. ;.

5. ;.released as free - no public modifications. this means you can change

6. ;.any line of this source to make the programm 100% comp. for your board

7. ;.and upload system (the main reason for including the source, eh). but

8. ;.NEVER release a modified source. this is kinda lame and really stupied.

9. ;.when you found some bugs or ideas to improve this, please contact me

10. ;.and i include this in my original programm. thank you.

11. ;----------------------------------------------------------------------------;----------------------------------------------------------------------------

12. ;----------------------------------------------------------------------------;----------------------------------------------------------------------------

13. ; Programm Variablen

14. ;----------------------------------------------------------------------------;----------------------------------------------------------------------------

15. Integer Size, Worksize, Howrand, Rand_num

16. Long Filesize

17. Boolean Okay, Addexe, Textokay

18. String AddName, Cfgfile, ZipName, PrivPath, Sizestrg, Prtfile, Pcbpriv

19. String checkPRT, addPRT, okayPRT, nadaPRT, operPRT, nopePRT

20. String Filename, Zipcommand, Return, Update, Textadd, Ranfile, ST

21. String Textname, Orgfile, Idfile, Idadd, Idname, OrgSize

22. ;----------------------------------------------------------------------------;----------------------------------------------------------------------------

23. ;----------------------------------------------------------------------------;----------------------------------------------------------------------------

24. ; Programm Setup

25. ;----------------------------------------------------------------------------;----------------------------------------------------------------------------

26. Cfgfile = ppepath()+"cfg\azm.cfg" ; define config filename

27. Prtfile = ppepath()+"cfg\prompt.cfg" ; define prompt filename

28. Ranfile = ppepath()+"cfg\random.cfg" ; define random filename

29. idfile = ppepath()+"cfg\fileid.cfg" ; define fileid filename

30. Addname = Readline (cfgfile,1) ; bbsfile addy filename

31. Size = Readline (cfgfile,2) ; minimum size for adding

32. PrivPath = Readline (cfgfile,3) ; private upload dir

33. PCBpriv = Readline (cfgfile,4) ; PCB (NODE) maindirectory

34. Textadd = Readline (cfgfile,5) ; use random text adder (YN)

35. idadd = Readline (cfgfile,6)

37. CheckPRT = Readline (prtfile,1) ; filechecking prompt

38. AddPRT = Readline (prtfile,2) ; filechecked prompt

39. OperPRT = Readline (prtfile,3) ; fileoperation prompt

40. NopePRT = Readline (prtfile,4) ; skipping prompt

41. OkayPRT = Readline (prtfile,5) ; okay prompt

42. NadaPRT = Readline (prtfile,6) ; nada prompt

43. Textokay = False

44. Addexe = False ;

45. Okay = False ; set okay (boolean) to no

46. Update = "" ; reserved temp string for

47. ; later options

48. ;----------------------------------------------------------------------------;----------------------------------------------------------------------------

49. ;----------------------------------------------------------------------------;----------------------------------------------------------------------------

50. ; Main Programm - Label