home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / comm / qmscr41.zip / SELPRT.MOD < prev    next >
Text File  |  1989-04-01  |  1KB  |  67 lines
  1. ;LANS  10-18-88  14:05  SELPRT.MOD
  2. ;
  3. ATWRITE 37 5 13 'A'
  4. ATWRITE 39 5 13 'X'
  5. ATWRITE 41 5 13 'C'
  6. ATWRITE 43 5 13 'O'
  7. ATWRITE 45 5 13 'F'
  8. ATWRITE 47 5 13 'G'
  9. ATWRITE 49 5 13 'B'
  10. ATWRITE 51 5 13 'Z'
  11. ATWRITE 53 5 13 'K'
  12. IF '$0' = '' A_prtcol
  13. ASSIGN prtcol '$0'
  14. A_prtcol:
  15. IF '$prtcol' <> 'A' X_prtcol
  16. ASSIGN pcb-prtcol 'A'
  17. ATWRITE 37 5 14 'A'
  18. RETURN
  19. X_prtcol:
  20. IF '$prtcol' <> 'X' C_prtcol
  21. ASSIGN pcb-prtcol 'X'
  22. ATWRITE 39 5 14 'X'
  23. RETURN
  24. C_prtcol:
  25. IF '$prtcol' <> 'C' O_prtcol
  26. ASSIGN pcb-prtcol 'C'
  27. ATWRITE 41 5 14 'C'
  28. RETURN
  29. O_prtcol:
  30. IF '$prtcol' <> 'O' F_prtcol
  31. ASSIGN pcb-prtcol '1'
  32. ATWRITE 43 5 14 'O'
  33. RETURN
  34. F_prtcol:
  35. IF '$prtcol' <> 'F' G_prtcol
  36. ASSIGN pcb-prtcol 'F'
  37. ATWRITE 45 5 14 'F'
  38. RETURN
  39. G_prtcol:
  40. IF '$prtcol' <> 'G' B_prtcol
  41. ASSIGN pcb-prtcol 'F'
  42. ATWRITE 47 5 14 'G'
  43. RETURN
  44. B_prtcol:
  45. IF '$prtcol' <> 'B' Z_prtcol
  46. ASSIGN pcb-prtcol 'Y'
  47. ATWRITE 49 5 14 'B'
  48. RETURN
  49. Z_prtcol:
  50. IF '$prtcol' <> 'Z' K_prtcol
  51. ASSIGN pcb-prtcol 'Z'
  52. ATWRITE 51 5 14 'Z'
  53. RETURN
  54. K_prtcol:
  55. IF '$prtcol' <> 'K' invalid_prtcol
  56. ASSIGN pcb-prtcol 'K'
  57. ATWRITE 53 5 14 'K'
  58. RETURN
  59. invalid_prtcol:
  60. COLOR 15
  61. GOTOXY 54 4
  62. GET 0 1
  63. IF '$0' = '' invalid_prtcol
  64. ASSIGN prtcol '$0'
  65. GOTO     A_prtcol
  66. ;
  67.