home *** CD-ROM | disk | FTP | other *** search
/ RBBS in a Box Volume 1 #3.1 / RBBSIABOX31.cdr / basw / bars.bas < prev    next >
BASIC Source File  |  1985-12-15  |  4KB  |  71 lines
  1. 1 ' ***********************************************************************
  2. 2 ' *                                                                     *
  3. 3 ' *  This program was designed on a Tandy 1000 with 128K RAM instead of *
  4. 4 ' *  a PC.  I don't know for sure if it will work on an IBM, but there  *
  5. 5 ' *  is one way to find out...try it.  It is not intended as a complete *
  6. 6 ' *  program by itself, but the way I sent it to the Userboard it can   *
  7. 7 ' *  be used autonomously.                                              *
  8. 8 ' *  It can be put to work in a number of ways.  It would fit very      *
  9. 9 ' *  easily as a subroutine in a larger program, provided you have the  *
  10. 10 '*  memory to hold it, BASIC, MS-DOS, and a 32K screen.                *
  11. 11 '*  But the way I use it, I chain it from another basic program by     *
  12. 12 '*  storing the variables this program requires in a disk file, and    *
  13. 13 '*  putting a short "header" on this utility to read them into this    *
  14. 14 '*  program.  Another way to use this program (but it's trickier) is   *
  15. 15 '*  to alter it so that it is done on screen 1.  You have to be very   *
  16. 16 '*  careful when you do that, or you won't be able to get the PAINT    *
  17. 17 '*  to work right.  I learned that the hard way.  Another fault with   *
  18. 18 '*  that method is that it just doesn't look as pretty with only 4     *
  19. 19 '*  colors to choose from.                                             *
  20. 20 '*                    SUMMARY OF VARIABLES:                            *
  21. 21 '*          INK - Colors in which bars will be drawn                   *
  22. 22 '*          PAP - Background colors                                    *
  23. 23 '*         BASE - Bottom of "box"                                      *
  24. 24 '*         HIGH - How high the bar will go from its base               *
  25. 25 '*                                                                     *
  26. 26 '*  If you have any questions about this program, you can call me at   *
  27. 27 '*  my office (at the McLean Church of Christ) at (502)-273-5114  or   *
  28. 28 '*  write me a letter (Box 272, Calhoun KY 42327), and I'll be glad to *
  29. 29 '*  try to answer it for you.                                          *
  30. 30 '*                                                                     *
  31. 31 '*  George A. McConnel - Program designer                              *
  32. 32 '*                                                                     *
  33. 33 '***********************************************************************
  34. 8000 KEY OFF
  35. 8010 CLEAR ,,,32768!
  36. 8020 DIM B(3,5)
  37. 8040 FOR I=1 TO 3:READ INK(I):NEXT I
  38. 8050 FOR I=1 TO 3:READ PAP(I):NEXT I
  39. 8070 DATA 10,13,12
  40. 8080 DATA 2,5,4
  41. 8100 FOR I=1 TO 3:FOR J=1 TO 5
  42. 8110 READ B(I,J):GOTO 8130
  43. 8130 NEXT J
  44. 8140 NEXT I
  45. 8150 GOSUB 8230
  46. 8160 FOR I=1 TO 3
  47. 8170 FOR J=1 TO 5
  48. 8180 HIGH=B(I,J):BASE=200-(3-I)*4:X=20+J*40+I*4:GOSUB 8360
  49. 8190 NEXT J
  50. 8200 NEXT I
  51. 8210 LOCATE 1,1
  52. 8220 END
  53. 8230 SCREEN 5:CLS
  54. 8240 COLOR 15
  55. 8250 BASE=185
  56. 8260 LINE (42,BASE)-(308,BASE),,,-17477:LINE -(320,200):LINE (308,BASE)-(308,12):LINE (42,200)-(30,BASE):LINE -(30,0)
  57. 8270 LINE -(308,0):LINE-(320,12):LINE -(42,12):LINE-(30,0)
  58. 8280 LINE (42,199)-(320,199)
  59. 8290 LINE (42,199)-(42,12):LINE (319,199)-(319,12)
  60. 8300 PAINT (45,2),13,15
  61. 8310 PAINT (35,32),14,15
  62. 8320 PAINT (316,32),14,15
  63. 8330 PAINT (125,87),1,15
  64. 8340 LOCATE 1,1:PRINT"200":LOCATE 12,1:PRINT"100":LOCATE 24,1:PRINT"  0";
  65. 8350 RETURN
  66. 8360 HIGH=BASE-HIGH
  67. 8370 LINE (X-4,HIGH)-(X+4,BASE),INK(I),B:LINE (X-4,HIGH)-(X-8,HIGH-4),INK(I):LINE -(X,HIGH-4),INK(I):LINE-(X+4,HIGH),INK(I):LINE (X-8,HIGH-4)-(X-8,BASE-4),INK(I):LINE -(X-4,BASE),INK(I)
  68. 8380 PAINT (X,BASE-4),PAP(I),INK(I):PAINT (X-6,BASE-4),PAP(I),INK(I):PAINT (X,HIGH-2),PAP(I),INK(I)
  69. 8390 RETURN
  70. 8400 DATA 89,91,84,80,79,60,68,64,70,62,39,46,45,29,35
  71.