home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / BASIC / SWISS.ZIP / BOXER.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1984-09-10  |  3.9 KB  |  88 lines
  1. 10  REM BOXER [1.0.0] - 10-Sep-84 11:52
  2. 20  REM VARPTRSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDCOLOR
  3. 30  REM CALL                 Copyright (C) 1984 - John R. Layman                  CALL
  4. 40  REM CALL                         All rights reserved.                         CALL
  5. 50  REM CALL This software product may be reproduced or transmitted on a private, CALL
  6. 60  REM CALL  non-commercial basis for the purpose of evaluation by prospective   CALL
  7. 70  REM CALL    users.  Distribution for consideration is strictly prohibited.    CALL
  8. 80  REM CALL              Protected under Title 17, USC, Copyrights.              CALL
  9. 90  REM CLSSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND'
  10. 100  '
  11. 110  '
  12. 120  ' BOXER works in conjunction with the LIST utility to permit graphic frames
  13. 130  ' (or "boxes") to be used in a BASIC program.  These frames are made up of
  14. 140  ' line graphics which cannot be printed on the original IBM 80cps printer
  15. 150  ' or Epson MX80 without the Graftrax option.  For these printers, the LIST
  16. 160  ' utility translates the displayable frame characters into printable line
  17. 170  ' graphics.  The frame characters can be directly printed by other IBM dot
  18. 180  ' matrix printers (and compatibles).
  19. 190  '
  20. 200  ' The width of a box line determines the pitch at which it will be printed.
  21. 210  ' Wide lines (those longer that 80 characters) are condensed.  Narrow lines
  22. 220  ' (those shorter than 40 characters) are expanded.  All lines between these
  23. 230  ' limits print at normal pitch.  Examples of each type of box may be seen
  24. 240  ' by using LIST to print the BOXER program itself (do not request alignment
  25. 250  ' of line numbers).
  26. 260  '
  27. 270  '
  28. 280  REM  VARPTRSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDCOLOR
  29. 290  REM  CALL                 Copyright (C) 1984 - John R. Layman                  CALL
  30. 300  REM  CALL                         All rights reserved.                         CALL
  31. 310  REM  CALL This software product may be reproduced or transmitted on a private, CALL
  32. 320  REM  CALL  non-commercial basis for the purpose of evaluation by prospective   CALL
  33. 330  REM  CALL    users.  Distribution for consideration is strictly prohibited.    CALL
  34. 340  REM  CALL              Protected under Title 17, USC, Copyrights.              CALL
  35. 350  REM  CLSSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND'
  36. 360  '^           VARPTRSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDCOLOR
  37. 370  '            CALL                     CALL
  38. 380  '            CALL Variable Dictionary CALL
  39. 390  '            CALL                     CALL
  40. 400  '            CLSSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND'
  41. 410  '
  42. 420  'BOX$...............Line image construction area.
  43. 430  'GAP................Gap between line numbering and left of box frame.
  44. 440  'INC................Line number increment value.
  45. 450  'NO.................Line number.
  46. 460  'SPAN...............Internal width of the box.
  47. 470  'TEXT$..............Comment text to be framed.
  48. 480  'XSPAN..............External width of the box if it were expanded.
  49. 490  '
  50. 500  '
  51. 510  '                          VARPTRSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDCOLOR
  52. 520  '                          CALL       CALL
  53. 530  '                          CALL Logic CALL
  54. 540  '                          CALL       CALL
  55. 550  '                          CLSSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND'
  56. 560  '
  57. 570  COLOR 7,0 : WIDTH 80
  58. 580  '
  59. 590  INPUT "Line# ",NO    : IF NO = 0 THEN 590
  60. 600  INPUT "Incr= ",INC   : IF INC = 0 THEN INC = 10
  61. 610  LINE INPUT "Text: ",TEXT$ : IF TEXT$ = "" THEN TEXT$ = STRING$(60,"?")
  62. 620  SPAN = LEN(TEXT$)+2 : XSPAN = (SPAN+2)*2
  63. 630  GAP = ((80-XSPAN)/2)-LEN(STR$(NO))-1 : IF GAP < 1 THEN GAP = 1
  64. 640  '
  65. 650  GOSUB 860
  66. 660  BOX$ = BOX$+" '^"+SPACE$(GAP-1)+CHR$(218)+STRING$(SPAN,CHR$(196))+CHR$(191)
  67. 670  PRINT BOX$
  68. 680  GOSUB 850
  69. 690  BOX$ = BOX$+" '"+SPACE$(GAP)+CHR$(179)+SPACE$(SPAN)+CHR$(179)
  70. 700  PRINT BOX$
  71. 710  GOSUB 850
  72. 720  BOX$ = BOX$+" '"+SPACE$(GAP)+CHR$(179)+" "+TEXT$+" "+CHR$(179)
  73. 730  PRINT BOX$
  74. 740  GOSUB 850
  75. 750  BOX$ = BOX$+" '"+SPACE$(GAP)+CHR$(179)+SPACE$(SPAN)+CHR$(179)
  76. 760  PRINT BOX$
  77. 770  GOSUB 850
  78. 780  BOX$ = BOX$+" '"+SPACE$(GAP)+CHR$(192)+STRING$(SPAN,CHR$(196))+CHR$(217)
  79. 790  PRINT BOX$
  80. 800  '
  81. 810  COLOR 23 : PRINT "The lines above must be ENTERed." : COLOR 7
  82. 820  NEW
  83. 830  '
  84. 840  '
  85. 850  NO = NO+INC
  86. 860  BOX$ = STR$(NO) : BOX$ = RIGHT$(BOX$,LEN(BOX$)-1)
  87. 870  RETURN
  88.