home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib22b.dsk / ALPH.CREATE.bas < prev    next >
BASIC Source File  |  2023-02-26  |  3KB  |  85 lines
  1. 10  REM  ***************************
  2. 20  REM  *      ALPH.CREATE        *
  3. 30  REM  *  (ALPHABET BIT PATTERN) *
  4. 40  REM  *  MICROCOMPUTER GRAPHICS *
  5. 50  REM  *     BY ROY E. MYERS     *
  6. 60  REM  *                         *
  7. 70  REM  *  PRINTED WITH AUTHOR'S  *
  8. 80  REM  *        PERMISSION       *
  9. 90  REM  ***************************
  10. 100  HOME : VTAB 12: PRINT "CREATING HI-RES CHARACTER SHAPE TABLE..."
  11. 110 ADDR = 0:LN = 0
  12. 120  DIM AL%(64,8)
  13. 130  FOR I = 0 TO 64
  14. 140  FOR J = 0 TO 7
  15. 150  READ AL%(I,J)
  16. 160  NEXT J,I
  17. 170 ADDR =  PEEK(107) +256 * PEEK(108)
  18. 180 LN =  PEEK(109) +256 * PEEK(110) -ADDR
  19. 190  PRINT  CHR$(4);"BSAVE ARCHITECT.ALPH, A";ADDR;",L";LN
  20. 200  HOME : VTAB 12: PRINT "DONE": END 
  21. 210  DATA  0,0,0,0,0,0,0,0: REM  SPACE
  22. 220  DATA  0,8,8,8,8,8,0,8: REM  !
  23. 230  DATA  0,20,20,20,0,0,0,0: REM  "
  24. 240  DATA  0,20,20,62,20,62,20,20: REM  #
  25. 250  DATA  0,8,60,10,28,40,30,8: REM  $
  26. 260  DATA  0,6,38,16,8,4,50,48: REM  %
  27. 270  DATA  0,4,10,10,4,42,18,44: REM  &
  28. 280  DATA  0,8,8,8,0,0,0,0: REM  '
  29. 290  DATA  0,8,4,2,2,2,4,8: REM  (
  30. 300  DATA  0,8,16,32,32,32,16,8: REM  )
  31. 310  DATA  0,8,42,28,8,28,42,8: REM  *
  32. 320  DATA  0,0,8,8,62,8,8,0: REM  +
  33. 330  DATA  0,0,0,0,0,8,8,4: REM  ,
  34. 340  DATA  0,0,0,0,62,0,0,0: REM  -
  35. 350  DATA  0,0,0,0,0,0,0,8: REM  .
  36. 360  DATA  0,0,32,16,8,4,2,0: REM  /
  37. 370  DATA  0,28,34,50,42,38,34,28: REM  0
  38. 380  DATA  0,8,12,8,8,8,8,28: REM  1
  39. 390  DATA  0,28,34,32,24,4,2,62: REM  2
  40. 400  DATA  0,62,32,16,24,32,34,28: REM  3
  41. 410  DATA  0,16,24,20,18,62,16,16: REM  4
  42. 420  DATA  0,62,2,30,32,32,34,28: REM  5
  43. 430  DATA  0,56,4,2,30,34,34,28: REM  6
  44. 440  DATA  0,62,32,16,8,4,4,4: REM  7
  45. 450  DATA  0,28,34,34,28,34,34,28: REM  8
  46. 460  DATA  0,28,34,34,60,32,16,14: REM  9
  47. 470  DATA  0,0,0,8,0,8,0,0: REM  :
  48. 480  DATA  0,0,0,8,0,8,8,4: REM  ;
  49. 490  DATA  0,16,8,4,2,4,8,16: REM  <
  50. 500  DATA  0,0,0,62,0,62,0,0: REM  =
  51. 510  DATA  0,4,8,16,32,16,8,4: REM  >
  52. 520  DATA  0,28,34,16,8,8,0,8: REM  ?
  53. 530  DATA  0,28,34,42,58,26,2,60: REM  @
  54. 540  DATA  0,8,20,34,34,62,34,34: REM  A
  55. 550  DATA  0,30,34,34,30,34,34,30: REM  B
  56. 560  DATA  0,28,34,2,2,2,34,28: REM  C
  57. 570  DATA  0,30,34,34,34,34,34,30: REM  D
  58. 580  DATA  0,62,2,2,30,2,2,62: REM  E
  59. 590  DATA  0,62,2,2,30,2,2,2: REM  F
  60. 600  DATA  0,60,2,2,2,50,34,60: REM  G
  61. 610  DATA  0,34,34,34,62,34,34,34: REM  H
  62. 620  DATA  0,28,8,8,8,8,8,28: REM  I
  63. 630  DATA  0,32,32,32,32,32,34,28: REM  J
  64. 640  DATA  0,34,18,10,6,10,18,34: REM  K
  65. 650  DATA  0,2,2,2,2,2,2,62: REM  L
  66. 660  DATA  0,34,54,42,34,34,34,34: REM  M
  67. 670  DATA  0,34,34,38,42,50,34,34: REM  N
  68. 680  DATA  0,28,34,34,34,34,34,28: REM  O
  69. 690  DATA  0,30,34,34,30,2,2,2: REM  P
  70. 700  DATA  0,28,34,34,34,42,18,44: REM  Q
  71. 710  DATA  0,30,34,34,30,10,18,34: REM  R
  72. 720  DATA  0,28,34,2,28,32,34,28: REM  S
  73. 730  DATA  0,62,8,8,8,8,8,8: REM  T
  74. 740  DATA  0,34,34,34,34,34,34,28: REM  U
  75. 750  DATA  0,34,34,34,34,34,20,8: REM  V
  76. 760  DATA  0,34,34,34,42,42,54,34: REM  W
  77. 770  DATA  0,34,34,20,8,20,34,34: REM  X
  78. 780  DATA  0,34,34,20,8,8,8,8: REM  Y
  79. 790  DATA  0,62,32,16,8,4,2,62: REM  Z
  80. 800  DATA  0,62,6,6,6,6,6,62: REM  LEFT BRACKET
  81. 810  DATA  0,0,2,4,8,16,32,0: REM  BACK SLASH
  82. 820  DATA  0,62,48,48,48,48,48,62: REM  PROMPT
  83. 830  DATA  0,0,8,20,34,0,0,0: REM  ^
  84. 840  DATA  0,0,0,0,0,0,0,62: REM  UNDERLINE
  85. 850  DATA  0,62,65,93,69,93,65,62: REM  COPYRIGHT