home *** CD-ROM | disk | FTP | other *** search
/ The Equalizer BBS / equalizer-bbs-collection_2004.zip / equalizer-bbs-collection / DEMOSCENE-STUFF / SAC1295B.ZIP / SAC-QBLU.ZIP / SAC-BULL.PPS < prev    next >
Text File  |  1995-10-11  |  5KB  |  172 lines
  1. INTEGER YPOSITION
  2. INTEGER YPOSITION2
  3. STRING  TASTE
  4. INTEGER ENDEKZ
  5. INTEGER STARTYPOS
  6. STRING  TEXTE(9)
  7. STRING  BULL(9)
  8. INTEGER COUNTER
  9. INTEGER COUNTER2
  10. INTEGER COUNTER3
  11. INTEGER POSITION
  12. STRING  BACKCOLOR
  13. STRING DUMMY
  14. BOOLEAN DONE
  15. STRING LBC
  16. STRING THETOKEN
  17.  
  18. LET COUNTER=0
  19. LET ENDEKZ=0
  20.  
  21. ;PRINTLN "@CLS@@POFF@"
  22. ;STARTDISP FNS
  23. ;ANSIPOS 1,1
  24. ;DISPFILE PPEPATH()+"CSB.DAT",0
  25. FOPEN 1,PPEPATH()+"CSB.CFG",O_RD,S_DN
  26. FGET 1,STARTYPOS
  27. FGET 1,LBC
  28. COUNTER = 0
  29.  
  30. WHILE (!FERR(1)) DO
  31.   INC COUNTER
  32.   FGET 1,TEXTE(COUNTER)
  33. END WHILE
  34.  
  35. :CFGSCHLIESSEN
  36. FCLOSE 1
  37. COUNTER3 = COUNTER + 1 
  38. REDIM TEXTE,COUNTER3
  39. REDIM BULL,COUNTER3
  40. FOPEN 1,PPEPATH()+"CSB.CFG",O_RD,S_DN
  41. FGET 1,STARTYPOS
  42. FGET 1,LBC
  43. COUNTER = 0
  44.  
  45. WHILE (!FERR(1)) DO
  46.   INC COUNTER
  47.   FGET 1,TEXTE(COUNTER)
  48. END WHILE
  49. FCLOSE 1
  50.  
  51. DUMMY = MID(LBC,3,1)
  52. BACKCOLOR = "@X0"+STRING(DUMMY)
  53. FOPEN 2,PPEPATH()+"BULLS.DAT",O_RW,S_DN
  54. COUNTER2 = 0
  55. DONE = FALSE
  56. WHILE (!DONE) DO
  57.   INC COUNTER2
  58.   FGET 2,BULL(COUNTER2)
  59.   IF (COUNTER2 = COUNTER) DONE = TRUE
  60. END WHILE
  61. FCLOSE 2 
  62. STARTDISP FNS
  63. THETOKEN = GETTOKEN()
  64. IF (THETOKEN <> "") THEN
  65.   PRINT "@X07@CLS@"
  66.   DISPFILE STRING(BULL(THETOKEN)),0
  67.   PRINT "@WAIT@@POFF@"
  68. ENDIF
  69. PRINTLN "@CLS@@POFF@"
  70. STARTDISP FNS
  71. ANSIPOS 1,1 
  72. DISPFILE PPEPATH()+"CSB.DAT",0
  73. PRINTLN
  74.  
  75. DONE = FALSE
  76. ANSIPOS 1,STARTYPOS
  77. PRINTLN "@X08┌────────────────────────────────────────────────────────────────────────────┐"
  78. LET YPOSITION2=GETY()
  79. LET COUNTER2=0
  80. LET ENDEKZ=0
  81.  
  82. :BULLANZEIGEN
  83. IF (ENDEKZ=1) GOTO ENDELINE
  84. INC COUNTER2
  85. IF (COUNTER2=COUNTER) GOTO ENDELINE
  86. PRINTLN "@POS:1@@X08│@POS:9@@X01(@X0F",(COUNTER2),"@X01)","@POS:30@",(TEXTE(COUNTER2)),"@POS:78@@X08│"
  87. GOTO BULLANZEIGEN
  88.  
  89. :ENDELINE
  90. PRINTLN "@X08└────────────────────────────────────────────────────────────────────────────┘"
  91. PRINT "@POS:1@@X07 ·■ @X08(@X0F@X08·@X0F@X08) @X07u@X08p/@X07d@X08own @X07■ @X08(@X0FESC@X08) @X07q@X08uit @X07■ @X08(@X07ENTER@X08) @X07s@X08elect @X07■· @X08quick bulls V1.1 by ROY/SAC"
  92. LET POSITION=1
  93. DEC COUNTER
  94. GOTO EINGABE
  95.  
  96. :EINGABE
  97. ANSIPOS 3,YPOSITION2
  98. PRINT "@POS:5@",BACKCOLOR,"░▒▓",LBC,"@POS:9@(",(POSITION),")@POS:30@",(STRIPATX(TEXTE(POSITION))),LBC,"@POS:72@",BACKCOLOR,"▓▒░@X08" 
  99.  
  100. :BACK
  101. WHILE (!DONE) DO
  102.   LET TASTE=UPPER(INKEY())
  103.   SELECT CASE (TASTE)
  104.     CASE "UP"
  105.       IF (POSITION > 1) THEN 
  106.         ANSIPOS 1,YPOSITION2
  107.         PRINTLN "@POS:1@@X08│@POS:9@@X01(@X0F",(POSITION),"@X01)","@POS:30@",(TEXTE(POSITION)),"@X07@POS:78@@X08│"
  108.         DEC POSITION
  109.         DEC YPOSITION2
  110.         ANSIPOS 3,YPOSITION2
  111.         PRINT "@POS:5@",BACKCOLOR,"░▒▓",LBC,"@POS:9@(",(POSITION),")@POS:30@",(STRIPATX(TEXTE(POSITION))),LBC,"@POS:72@",BACKCOLOR,"▓▒░@X08" 
  112.       ELSE
  113.         ANSIPOS 1,YPOSITION2
  114.         PRINTLN "@POS:1@@X08│@POS:9@@X01(@X0F",(POSITION),"@X01)","@POS:30@",(TEXTE(POSITION)),"@X07@POS:78@@X08│"
  115.         POSITION = COUNTER
  116.         YPOSITION2 = YPOSITION2 + COUNTER - 1
  117.         ANSIPOS 3,YPOSITION2
  118.         PRINT "@POS:5@",BACKCOLOR,"░▒▓",LBC,"@POS:9@(",(POSITION),")@POS:30@",(STRIPATX(TEXTE(POSITION))),LBC,"@POS:72@",BACKCOLOR,"▓▒░@X08" 
  119.       ENDIF 
  120.     CASE "DOWN"
  121.       IF (POSITION < COUNTER) THEN 
  122.         ANSIPOS 1,YPOSITION2
  123.         PRINTLN "@POS:1@@X08│@POS:9@@X01(@X0F",(POSITION),"@X01)","@POS:30@",(TEXTE(POSITION)),"@X07@POS:78@@X08│"
  124.         INC POSITION
  125.         INC YPOSITION2
  126.         ANSIPOS 3,YPOSITION2
  127.         PRINT "@POS:5@",BACKCOLOR,"░▒▓",LBC,"@POS:9@(",(POSITION),")@POS:30@",(STRIPATX(TEXTE(POSITION))),LBC,"@POS:72@",BACKCOLOR,"▓▒░@X08" 
  128.       ELSE 
  129.         ANSIPOS 1,YPOSITION2
  130.         PRINTLN "@POS:1@@X08│@POS:9@@X01(@X0F",(POSITION),"@X01)","@POS:30@",(TEXTE(POSITION)),"@X07@POS:78@@X08│"
  131.         POSITION = 1
  132.         YPOSITION2 = YPOSITION2 - COUNTER + 1
  133.         ANSIPOS 3,YPOSITION2
  134.         PRINT "@POS:5@",BACKCOLOR,"░▒▓",LBC,"@POS:9@(",(POSITION),")@POS:30@",(STRIPATX(TEXTE(POSITION))),LBC,"@POS:72@",BACKCOLOR,"▓▒░@X08" 
  135.       ENDIF
  136.     CASE CHR(13)
  137.       GOTO UNDWECH
  138.     CASE CHR(27)
  139.       GOTO ENDE
  140.   END SELECT
  141.   DONE = FALSE
  142. END WHILE
  143.  
  144. :UNDWECH
  145. PRINT "@X07@CLS@"
  146. DISPFILE STRING(BULL(POSITION)),0
  147. PRINT "@WAIT@@POFF@"
  148. STARTDISP FNS
  149. ANSIPOS 1,1
  150. DISPFILE PPEPATH()+"CSB.DAT",0
  151. ANSIPOS 1,STARTYPOS
  152. PRINTLN "@X08┌────────────────────────────────────────────────────────────────────────────┐"
  153. LET COUNTER2=0
  154.  
  155. :BULLANZEIGEN2
  156. INC COUNTER2
  157. IF (COUNTER2= (COUNTER + 1)) GOTO ENDELINE2
  158. PRINTLN "@POS:1@@X08│@POS:9@@X01(@X0F",(COUNTER2),"@X01)","@POS:30@",(TEXTE(COUNTER2)),"@POS:78@@X08│"
  159. GOTO BULLANZEIGEN2
  160.  
  161. :ENDELINE2
  162. PRINTLN "@X08└────────────────────────────────────────────────────────────────────────────┘"
  163. PRINT "@POS:1@@X07 ·■ @X08(@X0F@X08·@X0F@X08) @X07u@X08p/@X07d@X08own @X07■ @X08(@X0FESC@X08) @X07q@X08uit @X07■ @X08(@X07ENTER@X08) @X07s@X08elect @X07■· @X08quick bulls V1.1 by ROY/SAC"
  164. ANSIPOS 3,YPOSITION2
  165. PRINT "@POS:5@",BACKCOLOR,"░▒▓",LBC,"@POS:9@(",(POSITION),")@POS:30@",(STRIPATX(TEXTE(POSITION))),LBC,"@POS:72@",BACKCOLOR,"▓▒░@X08" 
  166. GOTO BACK
  167.  
  168. :ENDE
  169. PRINTLN "@X07@CLS@"
  170. END
  171.  
  172.