home *** CD-ROM | disk | FTP | other *** search
/ The Equalizer BBS / equalizer-bbs-collection_2004.zip / equalizer-bbs-collection / DEMOSCENE-STUFF / SAC1295B.ZIP / SAC-EOMU.ZIP / SAC-EOM.PPS < prev    next >
Text File  |  1995-10-11  |  7KB  |  260 lines
  1.  
  2. STRING         MSGCOMMAND(14) ;the 14 Commands
  3. STRING         CMDDESCRIB(14) ;the quick help lines
  4. INTEGER     MSGCXCV(14)    ;the X positions for all 14 commands
  5. STRING         COLOR1        
  6. STRING         COLOR2        
  7. STRING        CLEARLINE
  8. INTEGER     LOOPVAR
  9. STRING         EINGABE
  10. BOOLEAN        DONE
  11.  
  12. INTEGER         LOOPVAR2
  13. STRING          LBC         ;Lightbarcolor
  14. STRING          HTC         ;Helptext Color
  15. STRING          HEAD        ;Menu Headerline
  16. STRING          HELP        ;Help
  17. STRING          FOOTER      ;FOOTER
  18.  
  19.  
  20. LET COLOR1="@X08"
  21. LET COLOR2="@X0F"
  22. LET CLEARLINE="@X08                                                                        "
  23.  
  24. LET MSGCOMMAND(1)="A"
  25. LET MSGCOMMAND(2)="C"
  26. LET MSGCOMMAND(3)="D"
  27. LET MSGCOMMAND(4)="E"
  28. LET MSGCOMMAND(5)="F"
  29. LET MSGCOMMAND(6)="I"
  30. LET MSGCOMMAND(7)="L"
  31. LET MSGCOMMAND(8)="Q"
  32. LET MSGCOMMAND(9)="U"
  33. LET MSGCOMMAND(10)="S"
  34. LET MSGCOMMAND(11)="SA"
  35. LET MSGCOMMAND(12)="SC"
  36. LET MSGCOMMAND(13)="SK"
  37. LET MSGCOMMAND(14)="SN"
  38.  
  39. LET MSGCXCV(1)=3
  40. LET MSGCXCV(2)=8
  41. LET MSGCXCV(3)=13
  42. LET MSGCXCV(4)=18
  43. LET MSGCXCV(5)=23
  44. LET MSGCXCV(6)=28
  45. LET MSGCXCV(7)=33
  46. LET MSGCXCV(8)=38
  47. LET MSGCXCV(9)=43
  48. LET MSGCXCV(10)=48
  49. LET MSGCXCV(11)=53
  50. LET MSGCXCV(12)=59
  51. LET MSGCXCV(13)=65
  52. LET MSGCXCV(14)=71
  53.  
  54. FOPEN 1,PPEPATH()+"SAC-EOM.CFG",O_RW,S_DN
  55. FGET 1,LBC
  56. FGET 1,HTC
  57. FGET 1,HEAD
  58. FGET 1,HELP
  59. FGET 1,FOOTER
  60. FOR LOOPVAR2 = 1 TO 14 
  61.   FGET 1,CMDDESCRIB(LOOPVAR2)
  62. NEXT
  63. FCLOSE 1
  64.  
  65. PRINTLN "@CLS@"
  66. ANSIPOS 1,6
  67. PRINTLN HEAD
  68. PRINTLN "@X08 ────────────────────────────────────────────────────────────────────────────"
  69. ANSIPOS 4,8
  70. LET LOOPVAR=1
  71. GOSUB FKTANZ
  72. ANSIPOS 1,9
  73. PRINTLN "@X08 ────────────────────────────────────────────────────────────────────────────"
  74. ANSIPOS 1,11
  75. PRINTLN "@X08 ────────────────────────────────────────────────────────────────────────────"
  76. ANSIPOS 1,12
  77. PRINT FOOTER
  78. PRINT "@X08@POS:63@V1.1 (c)ROY/SAC"
  79. ANSIPOS MSGCXCV(10),8
  80. PRINT LBC," (",(MSGCOMMAND(10)),") "
  81. ANSIPOS 2,10
  82. PRINT HELP,HTC,(CMDDESCRIB(10))
  83. LET LOOPVAR=10
  84. GOTO STARTITNOW
  85.  
  86. :FKTANZ
  87. PRINT (COLOR1),"(",(COLOR2),(MSGCOMMAND(LOOPVAR)),(COLOR1),")  "
  88. IF (LOOPVAR=14) RETURN
  89. INC LOOPVAR
  90. GOTO FKTANZ
  91.  
  92. :STARTITNOW
  93. WHILE (!DONE) DO
  94.  LET EINGABE=UPPER(INKEY())
  95.  SELECT CASE (EINGABE)
  96.    CASE "LEFT"
  97.      IF (LOOPVAR > 1) THEN
  98.        ANSIPOS (MSGCXCV(LOOPVAR)),8
  99.        PRINT (COLOR1)," (",(COLOR2),MSGCOMMAND(LOOPVAR),(COLOR1),") "
  100.        DEC LOOPVAR
  101.        ANSIPOS (MSGCXCV(LOOPVAR)),8
  102.        PRINT LBC," (",(MSGCOMMAND(LOOPVAR)),") "
  103.        ANSIPOS 2,10
  104.        PRINT CLEARLINE
  105.        ANSIPOS 2,10
  106.        PRINT HELP,HTC,(CMDDESCRIB(LOOPVAR))
  107.      ELSE
  108.        ANSIPOS (MSGCXCV(LOOPVAR)),8
  109.        PRINT (COLOR1)," (",(COLOR2),MSGCOMMAND(LOOPVAR),(COLOR1),") "
  110.        LOOPVAR = 14
  111.        ANSIPOS (MSGCXCV(LOOPVAR)),8
  112.        PRINT LBC," (",(MSGCOMMAND(LOOPVAR)),") "
  113.        ANSIPOS 2,10
  114.        PRINT CLEARLINE
  115.        ANSIPOS 2,10
  116.        PRINT HELP,HTC,(CMDDESCRIB(LOOPVAR))
  117.      ENDIF
  118.    CASE "RIGHT"
  119.      IF (LOOPVAR < 14) THEN
  120.        ANSIPOS (MSGCXCV(LOOPVAR)),8
  121.        PRINT (COLOR1)," (",(COLOR2),MSGCOMMAND(LOOPVAR),(COLOR1),") "
  122.        INC LOOPVAR
  123.        ANSIPOS (MSGCXCV(LOOPVAR)),8
  124.        PRINT LBC," (",(MSGCOMMAND(LOOPVAR)),") "
  125.        ANSIPOS 2,10
  126.        PRINT CLEARLINE
  127.        ANSIPOS 2,10
  128.        PRINT HELP,HTC,(CMDDESCRIB(LOOPVAR))
  129.      ELSE
  130.        ANSIPOS (MSGCXCV(LOOPVAR)),8
  131.        PRINT (COLOR1)," (",(COLOR2),MSGCOMMAND(LOOPVAR),(COLOR1),") "
  132.        LOOPVAR = 1
  133.        ANSIPOS (MSGCXCV(LOOPVAR)),8
  134.        PRINT LBC," (",(MSGCOMMAND(LOOPVAR)),") "
  135.        ANSIPOS 2,10
  136.        PRINT CLEARLINE
  137.        ANSIPOS 2,10
  138.        PRINT HELP,HTC,(CMDDESCRIB(LOOPVAR))
  139.      ENDIF
  140.    CASE CHR(13)
  141.      GOTO UNDWEG
  142.    CASE "A",CHR(27)
  143.      ANSIPOS (MSGCXCV(LOOPVAR)),8
  144.      PRINT (COLOR1)," (",(COLOR2),MSGCOMMAND(LOOPVAR),(COLOR1),") "
  145.      LET LOOPVAR=1
  146.      ANSIPOS (MSGCXCV(LOOPVAR)),8
  147.      PRINT LBC," (",(MSGCOMMAND(LOOPVAR)),") "
  148.      ANSIPOS 2,10
  149.      PRINT CLEARLINE
  150.      ANSIPOS 2,10
  151.      PRINT HELP,HTC,(CMDDESCRIB(LOOPVAR))
  152.      GOTO UNDWEG
  153.    CASE "C"
  154.      ANSIPOS (MSGCXCV(LOOPVAR)),8
  155.      PRINT (COLOR1)," (",(COLOR2),MSGCOMMAND(LOOPVAR),(COLOR1),") "
  156.      LET LOOPVAR=2
  157.      ANSIPOS (MSGCXCV(LOOPVAR)),8
  158.      PRINT LBC," (",(MSGCOMMAND(LOOPVAR)),") "
  159.      ANSIPOS 2,10
  160.      PRINT CLEARLINE
  161.      ANSIPOS 2,10
  162.      PRINT HELP,HTC,(CMDDESCRIB(LOOPVAR))
  163.      GOTO UNDWEG
  164.    CASE "D"
  165.      ANSIPOS (MSGCXCV(LOOPVAR)),8
  166.      PRINT (COLOR1)," (",(COLOR2),MSGCOMMAND(LOOPVAR),(COLOR1),") "
  167.      LET LOOPVAR=3
  168.      ANSIPOS (MSGCXCV(LOOPVAR)),8
  169.      PRINT LBC," (",(MSGCOMMAND(LOOPVAR)),") "
  170.      ANSIPOS 2,10
  171.      PRINT CLEARLINE
  172.      ANSIPOS 2,10
  173.      PRINT HELP,HTC,(CMDDESCRIB(LOOPVAR))
  174.      GOTO UNDWEG
  175.    CASE "E"
  176.      ANSIPOS (MSGCXCV(LOOPVAR)),8
  177.      PRINT (COLOR1)," (",(COLOR2),MSGCOMMAND(LOOPVAR),(COLOR1),") "
  178.      LET LOOPVAR=4
  179.      ANSIPOS (MSGCXCV(LOOPVAR)),8
  180.      PRINT LBC," (",(MSGCOMMAND(LOOPVAR)),") "
  181.      ANSIPOS 2,10
  182.      PRINT CLEARLINE
  183.      ANSIPOS 2,10
  184.      PRINT HELP,HTC,(CMDDESCRIB(LOOPVAR))
  185.      GOTO UNDWEG
  186.    CASE "F"
  187.      ANSIPOS (MSGCXCV(LOOPVAR)),8
  188.      PRINT (COLOR1)," (",(COLOR2),MSGCOMMAND(LOOPVAR),(COLOR1),") "
  189.      LET LOOPVAR=5
  190.      ANSIPOS (MSGCXCV(LOOPVAR)),8
  191.      PRINT LBC," (",(MSGCOMMAND(LOOPVAR)),") "
  192.      ANSIPOS 2,10
  193.      PRINT CLEARLINE
  194.      ANSIPOS 2,10
  195.      PRINT HELP,HTC,(CMDDESCRIB(LOOPVAR))
  196.      GOTO UNDWEG
  197.    CASE "I"
  198.      ANSIPOS (MSGCXCV(LOOPVAR)),8
  199.      PRINT (COLOR1)," (",(COLOR2),MSGCOMMAND(LOOPVAR),(COLOR1),") "
  200.      LET LOOPVAR=6
  201.      ANSIPOS (MSGCXCV(LOOPVAR)),8
  202.      PRINT LBC," (",(MSGCOMMAND(LOOPVAR)),") "
  203.      ANSIPOS 2,10
  204.      PRINT CLEARLINE
  205.      ANSIPOS 2,10
  206.      PRINT HELP,HTC,(CMDDESCRIB(LOOPVAR))
  207.      GOTO UNDWEG
  208.    CASE "L"
  209.      ANSIPOS (MSGCXCV(LOOPVAR)),8
  210.      PRINT (COLOR1)," (",(COLOR2),MSGCOMMAND(LOOPVAR),(COLOR1),") "
  211.      LET LOOPVAR=7
  212.      ANSIPOS (MSGCXCV(LOOPVAR)),8
  213.      PRINT LBC," (",(MSGCOMMAND(LOOPVAR)),") "
  214.      ANSIPOS 2,10
  215.      PRINT CLEARLINE
  216.      ANSIPOS 2,10
  217.      PRINT HELP,HTC,(CMDDESCRIB(LOOPVAR))
  218.      GOTO UNDWEG
  219.    CASE "Q"
  220.      ANSIPOS (MSGCXCV(LOOPVAR)),8
  221.      PRINT (COLOR1)," (",(COLOR2),MSGCOMMAND(LOOPVAR),(COLOR1),") "
  222.      LET LOOPVAR=8
  223.      ANSIPOS (MSGCXCV(LOOPVAR)),8
  224.      PRINT LBC," (",(MSGCOMMAND(LOOPVAR)),") "
  225.      ANSIPOS 2,10
  226.      PRINT CLEARLINE
  227.      ANSIPOS 2,10
  228.      PRINT HELP,HTC,(CMDDESCRIB(LOOPVAR))
  229.      GOTO UNDWEG
  230.    CASE "U"
  231.      ANSIPOS (MSGCXCV(LOOPVAR)),8
  232.      PRINT (COLOR1)," (",(COLOR2),MSGCOMMAND(LOOPVAR),(COLOR1),") "
  233.      LET LOOPVAR=9
  234.      ANSIPOS (MSGCXCV(LOOPVAR)),8
  235.      PRINT LBC," (",(MSGCOMMAND(LOOPVAR)),") "
  236.      ANSIPOS 2,10
  237.      PRINT CLEARLINE
  238.      ANSIPOS 2,10
  239.      PRINT HELP,HTC,(CMDDESCRIB(LOOPVAR))
  240.      GOTO UNDWEG
  241.    CASE "S"
  242.      ANSIPOS (MSGCXCV(LOOPVAR)),8
  243.      PRINT (COLOR1)," (",(COLOR2),MSGCOMMAND(LOOPVAR),(COLOR1),") "
  244.      LET LOOPVAR=10
  245.      ANSIPOS (MSGCXCV(LOOPVAR)),8
  246.      PRINT LBC," (",(MSGCOMMAND(LOOPVAR)),") "
  247.      ANSIPOS 2,10
  248.      PRINT CLEARLINE
  249.      ANSIPOS 2,10
  250.      PRINT HELP,HTC,(CMDDESCRIB(LOOPVAR))
  251.      GOTO UNDWEG
  252.  END SELECT
  253. END WHILE
  254.  
  255. :UNDWEG
  256. ANSIPOS 1,14
  257. KBDSTUFF (MSGCOMMAND(LOOPVAR))+CHR(13)
  258. END
  259.  
  260.