home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / enterprs / cpm / utils / a / dtidy.arc / DTIDY.DOC < prev   
Encoding:
Text File  |  1990-07-22  |  1.6 KB  |  59 lines
  1. DTIDY.DOC
  2.  
  3. dTID┘ i≤ ß prograφ fo≥ dBAS┼ I╔ users«á I⌠ 'tidie≤ upº CM─ file≤ - tha⌠ is¼ ì
  4. i⌠ indent≤ loop≤ properly¼ expand≤ shorteneΣ words¼ anΣ put≤ dBAS┼ keyword≤ ì
  5. int∩ uppe≥ casσ fo≥ clarity«á Thσ resul⌠ i≤ ß CM─ filσ tha⌠ i≤ mucΦá easie≥ ì
  6. t∩ worδ oε anΣ debug.
  7.  
  8. Fo≥ example¼ iµ you≥ CM─ filσ lookeΣ likσ this:
  9.  
  10. * Print a linE of dashes
  11. stor 10 to x
  12. do whil x>0
  13. ??'-'
  14. stor x-1 to x
  15. endd
  16.  
  17. dTIDY would make it look like this:
  18.  
  19. * print a line of dashes
  20. STORE 10 TO x
  21. DO WHILE x > 0
  22.    ?? '-'
  23.    STORE x-1 TO x
  24. ENDDO
  25.  
  26.  
  27. dTID┘ als∩ checking≤ thσ CM─ filσ fo≥ errors« I⌠ check≤ fo≥ missinτ quotes¼ ì
  28. baΣ characters¼ line≤ to∩ long¼ ßnΣ error≤ iε loo≡ structure¼ (likσ missinτ ì
  29. ENDDOs¼á fo≥á instance)«á I⌠á als∩ wil∞ detec⌠ perniciou≤á 'lo∩≡á crossove≥ ì
  30. errorsº likσ this║ 
  31.  
  32. DO WHILE t
  33.   IF x > 5
  34.      ? "YES"
  35.   ENDDO     * wrong
  36. ENDIF     * wrong  (but dBASE doesn't say so!)
  37.  
  38. Thi≤ erro≥ checkinτ caε greatl∙ speeΣ u≡ thσ debugginτ process.
  39.  
  40.  
  41. dTID┘ i≤ designeΣ t∩ bσ a≤ hßrdware-independσn⌠ a≤ possible« I⌠ shoulΣ worδ ì
  42. oε an∙ 64╦ CP/═ system¼ 808░ o≥ Z80¼ witΦ jus⌠ abou⌠ an∙ terminal« 
  43.  
  44. Thσ stylσ produceΣ b∙ dTID┘ i≤ ß standarΣ dBAS┼ style¼ a≤ useΣ iε thσ dBAS┼ ì
  45. technica∞á journal«á Thσá stylσá i≤ als∩ simila≥ t∩ tha⌠á produceΣá b∙á thσ ì
  46. widely-useΣ commercia∞ dBAS┼ utilit∙ dUTIL¼á froφ Fo° anΣ Geller«á Wheε yo⌡ ì
  47. comσá t∩ looδ a⌠ you≥ CM─ file≤ iε ╢ month≤ time¼á the∙ wil∞ bσ s∩ eas∙á t∩ ì
  48. read¼ yo⌡ won'⌠ believσ it.
  49.  
  50. Charles Perry
  51. 7 Bowaga St
  52. Indooroopilly, Brisbane,
  53. Australia,  4068.
  54.  
  55. Queensland University Osborne Users Group, Brisbane, 22 June 1987.
  56.  
  57.  
  58.  
  59.