home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1990 February / 1990-02.d64 / fontmagic (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  2KB  |  80 lines
  1. 10 rem copyright 1990 compute! publications, inc. - all rights reserved
  2. 20 poke53280,6:poke53281,6
  3. 30 print"[147]"tab(14)" font magic [146]":printtab(13)"copyright 1990"
  4. 40 printtab(7)"compute! publications, inc.":printtab(11)"all rights reserved"
  5. 50 rem main
  6. 60 fora=49152to49357:readaa:pokea,aa:next
  7. 70 data173,24,208,41,14,168,201,14
  8. 80 data240,124,162,0,152,201,12,208
  9. 90 data30,189,0,48,157,0,56,189,0,49
  10. 100 data157,0,57,189,0,50,157,0,58,189
  11. 110 data0,51,157,0,59,232,208,229,76
  12. 120 data129,192,169,0,141,14,220,169
  13. 130 data51,133,1,162,0,152,201,4,208
  14. 140 data30,189,0,208,157,0,56,189,0
  15. 150 data209,157,0,57,189,0,210,157,0
  16. 160 data58,189,0,211,157,0,59,232,208
  17. 170 data229,76,120,192,189,0,216,157,0
  18. 180 data56,189,0,217,157,0,57,189,0
  19. 190 data218,157,0,58,189,0,219,157,0
  20. 200 data59,232,208,229,169,55,133,1
  21. 210 data169,1,141,14,220,169,30,141,24
  22. 220 data208,169,248,141,199,192,141
  23. 230 data203,192,169,59,141,200,192,169
  24. 240 data63,141,204,192,32,225,192,173
  25. 250 data199,192,56,233,8,141,199,192
  26. 260 data141,203,192,176,239,206,200
  27. 270 data192,206,204,192,173,200,192
  28. 280 data201,55,208,226,96,169,189,141
  29. 290 data198,192,76,198,192,168,169,157
  30. 300 data141,198,192,152,189,248,59,96
  31. 310 data157,248,63,96
  32. 320 rem y-expander
  33. 330 fora=49358to49437:readaa:pokea,aa:next
  34. 340 data169,225,141,153,192,169,192
  35. 350 data141,154,192,32,0,192,169,255
  36. 360 data141,7,61,96,169,7,141,234,192
  37. 370 data141,242,192,162,7,206,234,192
  38. 380 data32,183,192,162,7,206,242,192
  39. 390 data206,242,192,32,202,192,202,32
  40. 400 data202,192,173,242,192,16,228,162
  41. 410 data3,32,183,192,168,138,10,170
  42. 420 data152,32,191,192,232,32,191,192
  43. 430 data202,138,74,170,202,16,234,96
  44. 440 rem x-expander
  45. 450 fora=49438to49505:readaa:pokea,aa:next
  46. 460 data169,49,141,153,192,169,193,141
  47. 470 data154,192,32,0,192,169,255,141,7
  48. 480 data61,96,162,7,32,183,192,72,41
  49. 490 data15,168,185,82,193,32,202,192
  50. 500 data104,41,240,74,74,74,74,168,185
  51. 510 data82,193,32,191,192,202,16,226
  52. 520 data96,0,3,12,15,48,51,60,63,192
  53. 530 data195,204,207,240,243,252,255
  54. 540 rem underliner
  55. 550 fora=49506to49545:readaa:pokea,aa:next
  56. 560 data169,117,141,153,192,169,193
  57. 570 data141,154,192,32,0,192,169,0,141
  58. 580 data7,63,96,162,7,32,183,192,73
  59. 590 data255,32,202,192,202,32,183,192
  60. 600 data32,202,192,202,16,247,96
  61. 610 rem ** demo ***
  62. 620 print"[147]"
  63. 630 poke53272,20:sys49438:rem x expand
  64. 640 forx=65to90
  65. 650 printchr$(x);
  66. 660 print"";chr$(x);"[146]";:next
  67. 670 print:print"xx[146] ee[146]xx[146]pp[146]aa[146]nn[146]dd[146]"
  68. 680 forx=1to2000:next:print"[147]"
  69. 690 poke53272,20:sys49358:rem y expand
  70. 700 forx=65to90
  71. 710 printchr$(x);
  72. 720 print"[157]";chr$(x);"[146][145]";:next
  73. 730 print:print"y expand":print"y expand"
  74. 740 forx=1to2000:next:print"[147]"
  75. 750 poke53272,20:sys49506:rem underline
  76. 760 forx=65to90
  77. 770 print"";chr$(x);:next
  78. 780 print:print"underline text"
  79. 790 forx=1to2000:next:print"[147]"
  80.