home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / editor / vp_demo.zip / VCSD.ZIP / TCC.VCS < prev   
Text File  |  1992-03-17  |  836b  |  66 lines
  1. !
  2. !    For: Borland Turbo C version 2.0
  3. !
  4.  
  5. (Q96=0)[ JP"FUNC-0" ]
  6. (Q96=1)[ JP"FUNC-1" ]
  7. (Q96=2)[ JP"FUNC-2" ]
  8. (Q96=3)[ JP"FUNC-3" ]
  9. (Q96=4)[ JP"FUNC-4" ]
  10. (Q96=5)[ JP"FUNC-5" ]
  11. (Q96=6)[ JP"FUNC-6" ]
  12. JM
  13.  
  14. !FUNC-0!
  15. YT"Borland Turbo C 2"
  16. JM
  17.  
  18. !FUNC-1!
  19. -@OC"|Ru > VCS.TMP"
  20. JM
  21.  
  22. !FUNC-2!
  23. 1XS(97)
  24. _$N"|{|<Error ,|<Warning ,|<Error:,|<Warning:}"
  25.  
  26. !F-3-1!
  27. (.rv<>Q97)[
  28.     Q96=2[
  29.     _Z
  30.     ][
  31.     _B
  32.     ]
  33.     JM
  34.     ]
  35. (.ip>=3)[
  36.     0XS(95) RE(g)
  37.     ]
  38. (.ip<3)[
  39.     .lnXS(97)
  40.     .pXBB N" "
  41.     .ln=Q97[
  42.         .pXBE .vXS(95)
  43.         .bb,(.be-1)RC(g)
  44.         ][
  45.         0XS(95) RE(g) .bbEJ
  46.         ]
  47.     ]
  48. $N"|>" -0RC(h)
  49. 1L -XBB
  50. JM
  51.  
  52. !FUNC-3!
  53. (2-.eof)XS(97)
  54. -Q97_$N"|{|<Error ,|<Warning ,|<Error:,|<Warning:}"
  55. (.rv=Q97)[ .nC ]
  56. JP"F-3-1"
  57.  
  58. !FUNC-4!
  59. !FUNC-5!
  60. RI(v)"*.C"
  61. JM
  62.  
  63. !FUNC-6!
  64. (Q95-.ln)L                !Goto line # Q95
  65. JM
  66.