home *** CD-ROM | disk | FTP | other *** search
/ Light / Light_Vol.1_August_1992_Datasphere_Publications_Disk_1_of_2_Side_A.d64 / textfx.demo (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  3KB  |  78 lines
  1. 1 a=53280:pokea,0:pokea+1,0:print"[144][147]":printchr$(8)
  2. 2 poke49407,2:rem set speed for flash routine(1 is fastest 255 is slowwwwwest!)
  3. 9 rem poke colours into $9000 hex, 36864 decimal, onwards
  4. 10 fora=36864to36864+63:readb:pokea,b:next
  5. 11 data0,6,14,3,1,3,14,6:rem blues
  6. 12 data0,9,8,7,1,7,8,9:rem browns
  7. 13 data0,2,10,15,1,15,10,2:rem reds
  8. 14 data0,11,12,15,1,15,12,11:rem greys
  9. 15 data0,5,3,13,1,13,3,5:rem greens
  10. 16 data0,4,10,15,1,15,10,4:rem purples
  11. 17 data0,6,10,7,1,7,10,6:rem mixed1
  12. 18 data0,2,7,15,1,15,7,2:rem mixed2
  13. 19 rem high + low colour address select ($9000+)
  14. 20 fora=49600to49624:pokea,144:next:rem high col add ($90,144)
  15. 21 fora=49568to49592:readb:pokea,b:next:rem low col add ( from $00,0 to $3f,63)
  16. 22 data00:rem blues
  17. 23 data56:rem mixed2
  18. 24 data00:rem blues
  19. 25 data00:rem blues
  20. 26 data32:rem greens
  21. 27 data40:rem purples
  22. 28 data00:rem blues
  23. 29 data48:rem mixed1
  24. 30 data00:rem blues
  25. 31 data16:rem reds
  26. 32 data16:rem reds
  27. 33 data00:rem blues
  28. 34 data08:rem browns
  29. 35 data08:rem browns
  30. 36 data08:rem browns
  31. 37 data16:rem reds
  32. 38 data16:rem reds
  33. 39 data00:rem blues
  34. 40 data24:rem greys
  35. 41 data24:rem greys
  36. 42 data24:rem greys
  37. 43 data24:rem greys
  38. 44 data24:rem greys
  39. 45 data24:rem greys
  40. 46 data24:rem greys
  41. 49 rem init for left and right of rows + formation of colours
  42. 50 fora=49504to49528:pokea,0:next:rem set colours to start at left most side
  43. 51 fora=49536to49560:pokea,40:next:rem set colours to start at right most side
  44. 52 fora=49280to49304:pokea,0:next:rem set colours to start at same time
  45. 59 rem set colour amount for each row
  46. 60 fora=49632to49656:pokea,8:next:rem set amount of colours go through as 8
  47. 69 rem define commoodore disk user + jonathan wells, words to flash.
  48. 70 poke49508,13:poke49540,32:rem c.d.u bit
  49. 71 poke49511,20:rem jw bit
  50. 79 rem define two way scroll bit on **** _lenlenstars
  51. 80 poke49513,40:poke49514,20:poke49545,60:rem top stars bit
  52. 81 poke49519,40:poke49520,20:poke49551,60:rem bottom stars bit
  53. 99 rem print up screen
  54. 100 print"----------------------------------------";
  55. 101 print"          the t.e.x.t f.x demo"
  56. 102 print"----------------------------------------";
  57. 103 print"[152]   copyright [144]light disk magazine [155]1992[144]"
  58. 104 print"  [195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]"
  59. 105 print"      programmed by [144]jonathan wells"
  60. 106 print"****************************************";
  61. 107 print"if you want to have a little look at the";
  62. 108 print"program then just press run/stop and,"
  63. 109 print"restore. then list it up!!!!!!!!!!!!!!!!";
  64. 110 print"****************************************";
  65. 111 print"       [146]        [146] [169]   [223][146]  [146]    [146]      "
  66. 112 print"       [146]       [146]   [146]      [146]    [146]    "
  67. 113 print"       [146]       [146]   [146]      [146]    [146]    "
  68. 114 print"       [146]       [146]   [146]    [146]      [146]    "
  69. 115 print"       [146]       [146]   [146]    [146]  [146]    [146]    "
  70. 116 print"       [146]       [146]   [146]    [146]  [146]    [146]    "
  71. 117 print"           [146]    [146] [223]   [146][169]  [146]    [146]    [146][150]"
  72. 198 rem turn on rows (1 for right scroll, 2 for left scroll and 3 for pulsate)
  73. 199 rem 0 to turn off row
  74. 200 fora=49408to49432:readb:pokea,b:next:rem flash selecter
  75. 201 data1,3,2,0,2,1,0,3,0,2,1,0,1,2,1,2,1,0,1,2,1,2,1,2,1
  76. 210 sys49152:rem start flash routine
  77. 250 goto250
  78.