home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 13 / 013.d81 / marquee (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  11KB  |  470 lines
  1. 10 goto410 marquee by jerry sturdivant
  2. 20 "       [184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
  3. 30 print"[147]     type message up to 13 lines."
  4. 40 print"when finished hit 3 spaces and 'return'"
  5. 50 print"     [=happy face   ]=train car"
  6. 60 print"     \=boat   _=arrows   ^=man"
  7. 70 print"[175]"
  8. 80 n=1
  9. 90 get g$:ifg$=""then 90
  10. 100 if g$=chr$(20)then 200
  11. 110 if g$=chr$(13)then 280
  12. 120 if asc(g$)<32 or asc(g$)>95 or l=494 then 90
  13. 130 if len(a$(n))=38 then n=n+1:print"[157][157] "
  14. 140 a$(n)=a$(n)+g$:l=l+1
  15. 150 print"line #"n,q$
  16. 160 for d=1 to n
  17. 170 print:next
  18. 180 printa$(n)+"[175]"
  19. 190 goto90
  20. 200 if n=1 and l=0 then 30
  21. 210 a$(n)=left$(a$(n),len(a$(n))-1)
  22. 220 print"[145]"a$(n)+"  ":l=l-1:if l=0 then 30
  23. 230 if a$(n)=""then n=n-1
  24. 240 if n=0 then 80
  25. 250 goto150
  26. 260 "      print to screen"
  27. 270 "     [184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
  28. 280 printchr$(142)"[147]"q$:for f=1to239:print" ";:next:poke53270,peek(53270)and247
  29. 290 for g=1 to n
  30. 300 for h=1 to len(a$(g))
  31. 305 ifpeek(197)<>64then63000
  32. 310 m=(asc(mid$(a$(g),h,1))-31)*5
  33. 320 for i=1to5
  34. 330 print"[145][145][145][145][145]";
  35. 340 sys 826
  36. 350 for j=1to5
  37. 360 print mid$(l$(m+j),i*2-1,2);"[157]";
  38. 370 next j,i,h,g
  39. 380 goto290
  40. 390 "         initialize"
  41. 400 "        [184][184][184][184][184][184][184][184][184][184][184][184]"
  42. 410 :
  43. 412 clr:q$=""
  44. 420 print"[147]"q$ tab(15)"[158]wait !"
  45. 430 dim l$(325),a$(13):cf=1
  46. 440 goto470
  47. 450 "         poke machine code"
  48. 460 "        [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  49. 470 for a=826 to 880
  50. 480 read b:poke a,b
  51. 490 next
  52. 500 data162,0,189,145,129,157,144,129,189,185,129,157,184
  53. 510 data129,189,225,129,157,224,129,189,9,130,157,8,130,189,49,130,157
  54. 520 data48,130,232,224,39,208,221,169,32,141,183,129,141,223,129,141
  55. 525 data7,130,141,47,130,141,87,130,96
  56. 530 goto560
  57. 540 "         if c-64 change code"
  58. 550 "        [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  59. 560 if peek(57345)<86 then 660
  60. 570 for c=830 to 857 step 3
  61. 580 poke c,5-(c>846)
  62. 590 next:poke 863,96
  63. 600 poke53280,0:poke53281,0
  64. 610 poke53270,peek(53270)or8
  65. 620 goto660
  66. 630 "         characters"
  67. 640 "        [183][183][183][183][183][183][183][183][183][183][183][183]"
  68. 650 rem (space)
  69. 660 l$(6)="[146] [146] [146] [146] [146] "
  70. 670 l$(7)="[146] [146] [146] [146] [146] "
  71. 680 l$(8)="[146] [146] [146] [146] [146] "
  72. 690 l$(9)="[146] [146] [146] [146] [146] "
  73. 700 l$(10)="[146] [146] [146] [146] [146] "
  74. 710 rem !
  75. 720 l$(11)="[146]  [146] [146] [146] "
  76. 730 l$(12)="[146]  [146] [146] [146] "
  77. 740 l$(13)="[146]  [146] [146] [146] "
  78. 750 l$(14)="[146] [146] [146] [146] [146] "
  79. 760 l$(15)="[146]  [146] [146] [146] "
  80. 770 rem (quote)
  81. 780 l$(16)="[161][146][161][161][146][161][146] "
  82. 790 l$(17)="[161][146][161][161][146][161][146] "
  83. 800 l$(18)="[146] [146] [146] [146] [146] "
  84. 810 l$(19)="[146] [146] [146] [146] [146] "
  85. 820 l$(20)="[146] [146] [146] [146] [146] "
  86. 830 rem #
  87. 840 l$(21)="[146] [146][161][161][146] [146] "
  88. 850 l$(22)="    [146] "
  89. 860 l$(23)="[146] [146][161][161][146] [146] "
  90. 870 l$(24)="    [146] "
  91. 880 l$(25)="[146] [146][161][161][146] [146] "
  92. 890 rem $
  93. 900 l$(26)="[146][162][188][190][146][162][146] "
  94. 910 l$(27)="[146][161][146][161][161][146] [146] "
  95. 920 l$(28)="[188][188][190][146][162][146] "
  96. 930 l$(29)="[146] [146][161][161][161][146] "
  97. 940 l$(30)="[162][172][187][162][146] "
  98. 950 rem %
  99. 960 l$(31)="[172][187][146] [146][206][146] "
  100. 970 l$(32)="[188][190][146][206][146] [146] "
  101. 980 l$(33)="[146] [146][206][146] [146] [146] "
  102. 990 l$(34)="[146][206][146] [172][187][146] "
  103. 1000 l$(35)="[146] [146] [188][190][146] "
  104. 1010 rem &
  105. 1020 l$(36)="[172][187][146] [146] [146] "
  106. 1030 l$(37)="[188][190][146] [146] [146] "
  107. 1040 l$(38)="[190][188][146][187][146] [146] "
  108. 1050 l$(39)="[146][161][146] [146][191][146][190][146] "
  109. 1060 l$(40)="[188][146][162][146][161][146][190][146] "
  110. 1070 rem '
  111. 1080 l$(41)="[146]  [146] [146] [146] "
  112. 1090 l$(42)="[146] [146][169][146] [146] [146] "
  113. 1100 l$(43)="[146] [146] [146] [146] [146] "
  114. 1110 l$(44)="[146] [146] [146] [146] [146] "
  115. 1120 l$(45)="[146] [146] [146] [146] [146] "
  116. 1130 rem (
  117. 1140 l$(46)="[146] [146] [169][146][169][146] "
  118. 1150 l$(47)="[146] [146]  [146] [146] "
  119. 1160 l$(48)="[146] [146]  [146] [146] "
  120. 1170 l$(49)="[146] [146]  [146] [146] "
  121. 1180 l$(50)="[146] [146] [146][223][223][146] "
  122. 1190 rem )
  123. 1200 l$(51)="[146][223][223][146] [146] [146] "
  124. 1210 l$(52)="[146]  [146] [146] [146] "
  125. 1220 l$(53)="[146]  [146] [146] [146] "
  126. 1230 l$(54)="[146]  [146] [146] [146] "
  127. 1240 l$(55)="[169][146][169][146] [146] [146] "
  128. 1250 rem *
  129. 1260 l$(56)="[146] [146] [146] [146] [146] "
  130. 1270 l$(57)="[146] [146][187][146][161][146][187][146] "
  131. 1280 l$(58)="[146][172][190] [146][162][146] "
  132. 1290 l$(59)="[146] [191][172][146][187][146] "
  133. 1300 l$(60)="[146] [146] [146][190][146] [146] "
  134. 1310 rem +
  135. 1320 l$(61)="[146] [146] [146] [146] [146] "
  136. 1330 l$(62)="[146]  [146] [146] [146] "
  137. 1340 l$(63)="   [146] [146] "
  138. 1350 l$(64)="[146]  [146] [146] [146] "
  139. 1360 l$(65)="[146] [146] [146] [146] [146] "
  140. 1370 rem ,
  141. 1380 l$(66)="[146] [146] [146] [146] [146] "
  142. 1390 l$(67)="[146] [146] [146] [146] [146] "
  143. 1400 l$(68)="[146] [146] [146] [146] [146] "
  144. 1410 l$(69)="[146]  [146] [146] [146] "
  145. 1420 l$(70)="[146] [146][169][146] [146] [146] "
  146. 1430 rem -
  147. 1440 l$(71)="[146] [146] [146] [146] [146] "
  148. 1450 l$(72)="[146] [146] [146] [146] [146] "
  149. 1460 l$(73)="   [146] [146] "
  150. 1470 l$(74)="[146] [146] [146] [146] [146] "
  151. 1480 l$(75)="[146] [146] [146] [146] [146] "
  152. 1490 rem .
  153. 1500 l$(76)="[146] [146] [146] [146] [146] "
  154. 1510 l$(77)="[146] [146] [146] [146] [146] "
  155. 1520 l$(78)="[146] [146] [146] [146] [146] "
  156. 1530 l$(79)="[146] [146] [146] [146] [146] "
  157. 1540 l$(80)="[146]  [146] [146] [146] "
  158. 1550 rem /
  159. 1560 l$(81)="[146] [146] [146] [169][146] "
  160. 1570 l$(82)="[146] [146] [169][146][169][146] "
  161. 1580 l$(83)="[146] [169][146][169][146] [146] "
  162. 1590 l$(84)="[169][146][169][146] [146] [146] "
  163. 1600 l$(85)="[146][169][146] [146] [146] [146] "
  164. 1610 rem 0
  165. 1620 l$(86)="    [146] "
  166. 1630 l$(87)=" [146] [146]  [146] "
  167. 1640 l$(88)=" [146] [146]  [146] "
  168. 1650 l$(89)=" [146] [146]  [146] "
  169. 1660 l$(90)="    [146] "
  170. 1670 rem 1
  171. 1680 l$(91)="[146]   [146] [146] "
  172. 1690 l$(92)="[146] [146]  [146] [146] "
  173. 1700 l$(93)="[146] [146]  [146] [146] "
  174. 1710 l$(94)="[146] [146]  [146] [146] "
  175. 1720 l$(95)="[146]    [146] "
  176. 1730 rem 2
  177. 1740 l$(96)="    [146] "
  178. 1750 l$(97)="[146] [146] [146]  [146] "
  179. 1760 l$(98)="    [146] "
  180. 1770 l$(99)=" [146] [146] [146] [146] "
  181. 1780 l$(100)="    [146] "
  182. 1790 rem 3
  183. 1800 l$(101)="    [146] "
  184. 1810 l$(102)="[146] [146] [146]  [146] "
  185. 1820 l$(103)="[146]    [146] "
  186. 1830 l$(104)="[146] [146] [146]  [146] "
  187. 1840 l$(105)="    [146] "
  188. 1850 rem 4
  189. 1860 l$(106)=" [146] [146]  [146] "
  190. 1870 l$(107)=" [146] [146]  [146] "
  191. 1880 l$(108)="    [146] "
  192. 1890 l$(109)="[146] [146] [146]  [146] "
  193. 1900 l$(110)="[146] [146] [146]  [146] "
  194. 1910 rem 5
  195. 1920 l$(111)="    [146] "
  196. 1930 l$(112)=" [146] [146] [146] [146] "
  197. 1940 l$(113)="    [146] "
  198. 1950 l$(114)="[146] [146] [146]  [146] "
  199. 1960 l$(115)="    [146] "
  200. 1970 rem 6
  201. 1980 l$(116)="    [146] "
  202. 1990 l$(117)=" [146] [146] [146] [146] "
  203. 2000 l$(118)="    [146] "
  204. 2010 l$(119)=" [146] [146]  [146] "
  205. 2020 l$(120)="    [146] "
  206. 2030 rem 7
  207. 2040 l$(121)="    [146] "
  208. 2050 l$(122)="[146] [146] [146]  [146] "
  209. 2060 l$(123)="[146] [146] [146]  [146] "
  210. 2070 l$(124)="[146] [146] [146]  [146] "
  211. 2080 l$(125)="[146] [146] [146]  [146] "
  212. 2090 rem 8
  213. 2100 l$(126)="    [146] "
  214. 2110 l$(127)=" [146] [146]  [146] "
  215. 2120 l$(128)="    [146] "
  216. 2130 l$(129)=" [146] [146]  [146] "
  217. 2140 l$(130)="    [146] "
  218. 2150 rem 9
  219. 2160 l$(131)="    [146] "
  220. 2170 l$(132)=" [146] [146]  [146] "
  221. 2180 l$(133)="    [146] "
  222. 2190 l$(134)="[146] [146] [146]  [146] "
  223. 2200 l$(135)="    [146] "
  224. 2210 rem :
  225. 2220 l$(136)="[146] [146] [146] [146] [146] "
  226. 2230 l$(137)="[146] [161][146][161][146] [146] "