;---------------------------------------------------------------------------- - PowerPoint PPT Presentation

slide1 n.
Download
Skip this Video
Loading SlideShow in 5 Seconds..
;---------------------------------------------------------------------------- PowerPoint Presentation
Download Presentation
;----------------------------------------------------------------------------

play fullscreen
1 / 164
;----------------------------------------------------------------------------
140 Views
Download Presentation
leon
Download Presentation

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

- - - - - - - - - - - - - - - - - - - - - - - - - - - E N D - - - - - - - - - - - - - - - - - - - - - - - - - - -
Presentation Transcript

  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)

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

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

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

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

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

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

  42. Textokay = False

  43. Addexe = False ;

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

  45. Update = "" ; reserved temp string for

  46. ; later options

  47. ;----------------------------------------------------------------------------;----------------------------------------------------------------------------

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

  49. ; Main Programm - Label