home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a093 / 6.ddi / 2ASERCAT.PR_ / 2ASERCAT.bin
Encoding:
Text File  |  1993-01-17  |  486 b   |  30 lines
  1. PARAMETER ncat
  2. categ = "Other"
  3. DO CASE ncat
  4. CASE ncat = 1
  5.     categ = "Action"
  6. CASE ncat = 2
  7.     categ = "Mystery/Suspense"
  8. CASE ncat = 3
  9.     categ = "Children"
  10. CASE ncat = 4
  11.     categ = "Comedy"
  12. CASE ncat = 5
  13.     categ = "Documentary"
  14. CASE ncat = 6
  15.     categ = "Drama"
  16. CASE ncat = 7
  17.     categ = "Foreign"
  18. CASE ncat = 8
  19.     categ = "Horror"
  20. CASE ncat = 9
  21.     categ = "Music/Opera"
  22. CASE ncat = 10
  23.     categ = "Musicals"
  24. CASE ncat = 11
  25.     categ = "Science Fiction"
  26. CASE ncat = 12
  27.     categ = "Western"
  28. ENDCASE
  29. RETURN categ
  30.