home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 13 / 013.d81 / marquee (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1985-01-01  |  10.4 KB  |  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] "
  227. 2240 l$(138)="[146] [146] [146] [146] [146] "
  228. 2250 l$(139)="[146] [161][146][161][146] [146] "
  229. 2260 l$(140)="[146] [146] [146] [146] [146] "
  230. 2270 rem ;
  231. 2280 l$(141)="[146] [146] [146] [146] [146] "
  232. 2290 l$(142)="[146]  [146] [146] [146] "
  233. 2300 l$(143)="[146] [146] [146] [146] [146] "
  234. 2310 l$(144)="[146]  [146] [146] [146] "
  235. 2320 l$(145)="[146] [146][169][146] [146] [146] "
  236. 2330 rem <
  237. 2340 l$(146)="[146] [146] [146] [146] [146] "
  238. 2350 l$(147)="[146] [169][146][169][146] [146] "
  239. 2360 l$(148)="[169][146][169][146] [146] [146] "
  240. 2370 l$(149)="[146][223][223][146] [146] [146] "
  241. 2380 l$(150)="[146] [146][223][223][146] [146] "
  242. 2390 rem =
  243. 2400 l$(151)="[146] [146] [146] [146] [146] "
  244. 2410 l$(152)="[161]  [146][161][146] "
  245. 2420 l$(153)="[146] [146] [146] [146] [146] "
  246. 2430 l$(154)="[161]  [146][161][146] "
  247. 2440 l$(155)="[146] [146] [146] [146] [146] "
  248. 2450 rem <
  249. 2460 l$(156)="[146] [146] [146] [146] [146] "
  250. 2470 l$(157)="[146] [146][223][223][146] [146] "
  251. 2480 l$(158)="[146] [146] [146][223][223][146] "
  252. 2490 l$(159)="[146] [146] [169][146][169][146] "
  253. 2500 l$(160)="[146] [169][146][169][146] [146] "
  254. 2510 rem ?
  255. 2520 l$(161)="    [146] "
  256. 2530 l$(162)="[146] [146] [146]  [146] "
  257. 2540 l$(163)="[146]    [146] "
  258. 2550 l$(164)="[146] [162][146] [146] [146] "
  259. 2560 l$(165)="[146]  [146] [146] [146] "
  260. 2570 rem @
  261. 2580 l$(166)="[172][162][162][187][146] "
  262. 2590 l$(167)="[146][161][146][162][146][162][161][146] "
  263. 2600 l$(168)="[146][161][146][161][161][161][146] "
  264. 2610 l$(169)="[146][161][162][187][190][146] "
  265. 2620 l$(170)="[188][146][162][146][162][146][162][146] "
  266. 2630 rem a
  267. 2640 l$(171)="    [146] "
  268. 2650 l$(172)=" [146] [146]  [146] "
  269. 2660 l$(173)="    [146] "
  270. 2670 l$(174)=" [146] [146]  [146] "
  271. 2680 l$(175)=" [146] [146]  [146] "
  272. 2690 rem b
  273. 2700 l$(176)="   [223][146] "
  274. 2710 l$(177)=" [146] [146]  [146] "
  275. 2720 l$(178)="   [146][161][146] "
  276. 2730 l$(179)=" [146] [146]  [146] "
  277. 2740 l$(180)="   [146][169][146] "
  278. 2750 rem c
  279. 2760 l$(181)="    [146] "
  280. 2770 l$(182)=" [146] [146] [146] [146] "
  281. 2780 l$(183)=" [146] [146] [146] [146] "
  282. 2790 l$(184)=" [146] [146] [146] [146] "
  283. 2800 l$(185)="    [146] "
  284. 2810 rem d
  285. 2820 l$(186)="   [223][146] "
  286. 2830 l$(187)=" [146] [146]  [146] "
  287. 2840 l$(188)=" [146] [146]  [146] "
  288. 2850 l$(189)=" [146] [146]  [146] "
  289. 2860 l$(190)="   [146][169][146] "
  290. 2870 rem e
  291. 2880 l$(191)="    [146] "
  292. 2890 l$(192)=" [146] [146] [146] [146] "
  293. 2900 l$(193)="   [146] [146] "
  294. 2910 l$(194)=" [146] [146] [146] [146] "
  295. 2920 l$(195)="    [146] "
  296. 2930 rem f
  297. 2940 l$(196)="    [146] "
  298. 2950 l$(197)=" [146] [146] [146] [146] "
  299. 2960 l$(198)="   [146] [146] "
  300. 2970 l$(199)=" [146] [146] [146] [146] "
  301. 2980 l$(200)=" [146] [146] [146] [146] "
  302. 2990 rem g
  303. 3000 l$(201)="    [146] "
  304. 3010 l$(202)=" [146] [146] [146] [146] "
  305. 3020 l$(203)=" [146]   [146] "
  306. 3030 l$(204)=" [146] [146]  [146] "
  307. 3040 l$(205)="    [146] "
  308. 3050 rem h
  309. 3060 l$(206)=" [146] [146]  [146] "
  310. 3070 l$(207)=" [146] [146]  [146] "
  311. 3080 l$(208)="    [146] "
  312. 3090 l$(209)=" [146] [146]  [146] "
  313. 3100 l$(210)=" [146] [146]  [146] "
  314. 3110 rem i
  315. 3120 l$(211)="[146]   [146] [146] "
  316. 3130 l$(212)="[146] [161][146][161][146] [146] "
  317. 3140 l$(213)="[146] [161][146][161][146] [146] "
  318. 3150 l$(214)="[146] [161][146][161][146] [146] "
  319. 3160 l$(215)="[146]   [146] [146] "
  320. 3170 rem j
  321. 3180 l$(216)="[146] [146]   [146] "
  322. 3190 l$(217)="[146] [146] [161][146][161][146] "
  323. 3200 l$(218)="[146] [146] [161][146][161][146] "
  324. 3210 l$(219)=" [146] [161][146][161][146] "
  325. 3220 l$(220)="   [146][161][146] "
  326. 3230 rem k
  327. 3240 l$(221)=" [146] [169][146][169][146] "
  328. 3250 l$(222)=" [169][146][169][146] [146] "
  329. 3260 l$(223)="  [146] [146] [146] "
  330. 3270 l$(224)=" [146][223][223][146] [146] "
  331. 3280 l$(225)=" [146] [146][223][223][146] "
  332. 3290 rem l
  333. 3300 l$(226)=" [146] [146] [146] [146] "
  334. 3310 l$(227)=" [146] [146] [146] [146] "
  335. 3320 l$(228)=" [146] [146] [146] [146] "
  336. 3330 l$(229)=" [146] [146] [146] [146] "
  337. 3340 l$(230)="    [146] "
  338. 3350 rem m
  339. 3360 l$(231)=" [223][169] [146] "
  340. 3370 l$(232)="    [146] "
  341. 3380 l$(233)=" [146][223][146][169] [146] "
  342. 3390 l$(234)=" [146] [146]  [146] "
  343. 3400 l$(235)=" [146] [146]  [146] "
  344. 3410 rem n
  345. 3420 l$(236)=" [223][146]  [146] "
  346. 3430 l$(237)="  [223] [146] "
  347. 3440 l$(238)=" [146][223]  [146] "
  348. 3450 l$(239)=" [146] [146][223] [146] "
  349. 3460 l$(240)=" [146] [146]  [146] "
  350. 3470 rem o
  351. 3480 l$(241)="    [146] "
  352. 3490 l$(242)=" [146] [146]  [146] "
  353. 3500 l$(243)=" [146] [146]  [146] "
  354. 3510 l$(244)=" [146] [146]  [146] "
  355. 3520 l$(245)="    [146] "
  356. 3530 rem p
  357. 3540 l$(246)="    [146] "
  358. 3550 l$(247)=" [146] [146]  [146] "
  359. 3560 l$(248)="    [146] "
  360. 3570 l$(249)=" [146] [146] [146] [146] "
  361. 3580 l$(250)=" [146] [146] [146] [146] "
  362. 3590 rem q
  363. 3600 l$(251)="    [146] "
  364. 3610 l$(252)=" [146] [146]  [146] "
  365. 3620 l$(253)=" [146] [146]  [146] "
  366. 3630 l$(254)=" [146] [170] [146] "
  367. 3640 l$(255)="    [146] "
  368. 3650 rem r
  369. 3660 l$(256)="    [146] "
  370. 3670 l$(257)=" [146] [146]  [146] "
  371. 3680 l$(258)="    [146] "
  372. 3690 l$(259)=" [146][223][223][146] [146] "
  373. 3700 l$(260)=" [146] [146][223][223][146] "
  374. 3710 rem s
  375. 3720 l$(261)="    [146] "
  376. 3730 l$(262)=" [146] [146] [146] [146] "
  377. 3740 l$(263)="    [146] "
  378. 3750 l$(264)="[146] [146] [146]  [146] "
  379. 3760 l$(265)="    [146] "
  380. 3770 rem t
  381. 3780 l$(266)="    [146] "
  382. 3790 l$(267)="[146] [161][146][161][146] [146] "
  383. 3800 l$(268)="[146] [161][146][161][146] [146] "
  384. 3810 l$(269)="[146] [161][146][161][146] [146] "
  385. 3820 l$(270)="[146] [161][146][161][146] [146] "
  386. 3830 rem u
  387. 3840 l$(271)=" [146] [146]  [146] "
  388. 3850 l$(272)=" [146] [146]  [146] "
  389. 3860 l$(273)=" [146] [146]  [146] "
  390. 3870 l$(274)=" [146] [146]  [146] "
  391. 3880 l$(275)="    [146] "
  392. 3890 rem v
  393. 3900 l$(276)=" [146] [146]  [146] "
  394. 3910 l$(277)=" [146] [146]  [146] "
  395. 3920 l$(278)=" [223][169] [146] "
  396. 3930 l$(279)="[146][223]  [146][169][146] "
  397. 3940 l$(280)="[146] [146][223][146][169][146] [146] "
  398. 3950 rem w
  399. 3960 l$(281)=" [146] [146]  [146] "
  400. 3970 l$(282)=" [146] [146]  [146] "
  401. 3980 l$(283)=" [169][223] [146] "
  402. 3990 l$(284)="    [146] "
  403. 4000 l$(285)="[146][223][146][169][146][223][146][169][146] "
  404. 4010 rem x
  405. 4020 l$(286)="[223][146] [146] [169][146] "
  406. 4030 l$(287)="[146][223][223][169][146][169][146] "
  407. 4040 l$(288)="[146]   [146] [146] "
  408. 4050 l$(289)="[169][146][169][146][223][223][146] "
  409. 4060 l$(290)="[146][169][146] [146] [146][223][146] "
  410. 4070 rem y
  411. 4080 l$(291)=" [146] [146]  [146] "
  412. 4090 l$(292)=" [146] [146]  [146] "
  413. 4100 l$(293)="[146][223]  [146][169][146] "
  414. 4110 l$(294)="[146] [161][146][161][146] [146] "
  415. 4120 l$(295)="[146] [161][146][161][146] [146] "
  416. 4130 rem z
  417. 4140 l$(296)="    [146] "
  418. 4150 l$(297)="[146] [146] [169][146][169][146] "
  419. 4160 l$(298)="[146] [169][146][169][146] [146] "
  420. 4170 l$(299)="[169][146][169][146] [146] [146] "
  421. 4180 l$(300)="    [146] "
  422. 4190 rem [ happy face
  423. 4200 l$(301)="[172][162][162][162][187]"
  424. 4210 l$(302)="[146][161][146][209][146] [146][209][161]"
  425. 4220 l$(303)="[146][161][146] [146][177][146] [161]"
  426. 4230 l$(304)="[146][161][188][146][162][190][161]"
  427. 4240 l$(305)="[188][146][162][146][162][146][162][190]"
  428. 4250 rem \ boat
  429. 4260 l$(306)="[146] [146][175][146] [146] [146] "
  430. 4270 l$(307)="[146] [169][146] [146] [146] "
  431. 4280 l$(308)="[169] [146] [146] [146] "
  432. 4290 l$(309)="[146][185][146][167][146] [146][216][146][185]"
  433. 4300 l$(310)="[146][223]   [146][169]"
  434. 4310 rem ] train car
  435. 4320 l$(311)="[146] [146] [146][167][146][207][146] "
  436. 4330 l$(312)="[161][162][162][162][146][161]"
  437. 4340 l$(313)="[161][146][255][146] [146][255][146][161]"
  438. 4350 l$(314)="[187][146][162][146][162][146][162][172]"
  439. 4360 l$(315)="[146][202][146][203][146] [146][202][146][203]"
  440. 4370 rem ^ man
  441. 4380 l$(316)="[146] [191][172][146][187][146] "
  442. 4390 l$(317)="[146] [187] [146][190][146] "
  443. 4400 l$(318)="[146] [146][162][188][146][187][146] "
  444. 4410 l$(319)="[146][188][161] [146][188][146] "
  445. 4420 l$(320)="[146] [190][161][146][187][146] "
  446. 4430 rem _ arrows
  447. 4440 l$(321)="[169][146][175][146][175][146][187][146] "
  448. 4450 l$(322)="[146][223][146][183][146][183][146][190][146] "
  449. 4460 l$(323)="[146] [146] [146] [146] [146] "
  450. 4470 l$(324)="[169][146][175][146][175][146][187][146] "
  451. 4480 l$(325)="[146][223][146][183][146][183][146][190][146] "
  452. 4490 goto30
  453. 4500 "     standby characters"
  454. 4510 "    [184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
  455. 4520 rem _ mad face
  456. 4530 l$(321)="[172][162][162][162][187]"
  457. 4540 l$(322)="[146][161][146][205][146] [146][206][161]"
  458. 4550 l$(323)="[146][161][146][215][146] [146][215][161]"
  459. 4560 l$(324)="[146][161][146][213][146][192][146][201][161]"
  460. 4570 l$(325)="[188][146][162][146][162][146][162][190]"
  461. 4580 goto30
  462. 63000 rem  connect back
  463. 63010 poke53270,200
  464. 63020 print"[147]would you like to do some more?"
  465. 63030 poke198,0:wait198,1:geta$:ifa$<>"y"anda$<>"n"thenpoke53280,rnd(1)*15:goto63030
  466. 63040 ifa$="y"thenforsb=1to13:a$(sb)="":next:l=1:n=1:goto30
  467. 63050 :
  468. 63060 print"[147]load"chr$(34)"payload"chr$(34)",8":print"run"
  469. 63070 poke631,13:poke632,13:poke198,2:end
  470.