SHARE
TWEET

Untitled

a guest Sep 26th, 2019 113 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. 1 PRINT CHR$(147)
  2. 2 POKE 53281, 0
  3. 3 POKE 646, 13
  4. 10 PRINT "G";
  5. 20 PRINT "H";
  6. 30 PRINT "O";
  7. 40 PRINT "S";
  8. 50 PRINT "T";
  9. 60 PRINT "";
  10. 61 GOSUB 15000
  11. 70 PRINT "G";
  12. 80 PRINT "H";
  13. 90 PRINT "O";
  14. 100 PRINT "S";
  15. 110 PRINT "T";
  16. 120 PRINT "";
  17. 121 GOSUB 15000
  18. 130 PRINT "G";
  19. 140 PRINT "H";
  20. 150 PRINT "O";
  21. 160 PRINT "S";
  22. 170 PRINT "T";
  23. 180 PRINT "";
  24. 181 GOSUB 15000
  25. 190 PRINT "G";
  26. 200 PRINT "H";
  27. 210 PRINT "O";
  28. 220 PRINT "S";
  29. 230 PRINT "T";
  30. 240 PRINT "";
  31. 241 GOSUB 15000
  32. 250 PRINT "G";
  33. 260 PRINT "H";
  34. 270 PRINT "O";
  35. 280 PRINT "S";
  36. 290 PRINT "T";
  37. 300 PRINT "";
  38. 301 GOSUB 15000
  39. 310 PRINT "G";
  40. 320 PRINT "H";
  41. 330 PRINT "O";
  42. 340 PRINT "S";
  43. 350 PRINT "T";
  44. 360 PRINT "";
  45. 361 GOSUB 15000
  46. 370 PRINT "G";
  47. 380 PRINT "H";
  48. 390 PRINT "O";
  49. 400 PRINT "S";
  50. 410 PRINT "T";
  51. 420 PRINT "";
  52. 421 GOSUB 15000
  53. 430 PRINT "G";
  54. 440 PRINT "H";
  55. 450 PRINT "O";
  56. 460 PRINT "S";
  57. 470 PRINT "T";
  58. 480 PRINT "";
  59. 481 GOSUB 15000
  60. 490 PRINT "G";
  61. 500 PRINT "H";
  62. 510 PRINT "O";
  63. 520 PRINT "S";
  64. 530 PRINT "T";
  65. 540 PRINT "";
  66. 541 GOSUB 15000
  67. 550 PRINT "G";
  68. 560 PRINT "H";
  69. 570 PRINT " ";
  70. 580 PRINT " ";
  71. 590 PRINT " ";
  72. 600 PRINT " ";
  73. 610 PRINT " ";
  74. 620 PRINT " ";
  75. 630 PRINT " ";
  76. 640 PRINT " ";
  77. 650 PRINT " ";
  78. 660 PRINT " ";
  79. 670 PRINT " ";
  80. 680 PRINT " ";
  81. 690 PRINT " ";
  82. 700 PRINT "O";
  83. 710 PRINT "S";
  84. 720 PRINT "T";
  85. 730 PRINT "";
  86. 731 GOSUB 15000
  87. 740 PRINT "G";
  88. 750 PRINT "H";
  89. 760 PRINT "O";
  90. 770 PRINT "S";
  91. 780 PRINT "T";
  92. 790 PRINT "";
  93. 791 GOSUB 15000
  94. 800 PRINT "G";
  95. 810 PRINT "H";
  96. 820 PRINT "O";
  97. 830 PRINT "S";
  98. 840 PRINT "T";
  99. 850 PRINT "";
  100. 851 GOSUB 15000
  101. 860 PRINT "G";
  102. 870 PRINT "H";
  103. 880 PRINT "O";
  104. 890 PRINT "S";
  105. 900 PRINT "T";
  106. 910 PRINT "";
  107. 911 GOSUB 15000
  108. 920 PRINT " ";
  109. 930 PRINT " ";
  110. 940 PRINT " ";
  111. 950 PRINT " ";
  112. 960 PRINT " ";
  113. 970 PRINT " ";
  114. 980 PRINT " ";
  115. 990 PRINT " ";
  116. 1000 PRINT " ";
  117. 1010 PRINT " ";
  118. 1020 PRINT " ";
  119. 1030 PRINT " ";
  120. 1040 PRINT " ";
  121. 1050 PRINT " ";
  122. 1060 PRINT " ";
  123. 1070 PRINT " ";
  124. 1080 PRINT " ";
  125. 1090 PRINT " ";
  126. 1100 PRINT " ";
  127. 1110 PRINT " ";
  128. 1120 PRINT " ";
  129. 1130 PRINT " ";
  130. 1140 PRINT "G";
  131. 1150 PRINT "H";
  132. 1160 PRINT "O";
  133. 1170 PRINT "S";
  134. 1180 PRINT "T";
  135. 1190 PRINT "";
  136. 1191 GOSUB 15000
  137. 1200 PRINT "G";
  138. 1210 PRINT "H";
  139. 1220 PRINT "O";
  140. 1230 PRINT "S";
  141. 1240 PRINT "T";
  142. 1250 PRINT "";
  143. 1251 GOSUB 15000
  144. 1260 PRINT "G";
  145. 1270 PRINT "H";
  146. 1280 PRINT "O";
  147. 1290 PRINT " ";
  148. 1300 PRINT " ";
  149. 1310 PRINT " ";
  150. 1320 PRINT " ";
  151. 1330 PRINT " ";
  152. 1340 PRINT " ";
  153. 1350 PRINT " ";
  154. 1360 PRINT " ";
  155. 1370 PRINT " ";
  156. 1380 PRINT " ";
  157. 1390 PRINT " ";
  158. 1400 PRINT " ";
  159. 1410 PRINT " ";
  160. 1420 PRINT " ";
  161. 1430 PRINT " ";
  162. 1440 PRINT " ";
  163. 1450 PRINT " ";
  164. 1460 PRINT " ";
  165. 1470 PRINT " ";
  166. 1480 PRINT " ";
  167. 1490 PRINT " ";
  168. 1500 PRINT " ";
  169. 1510 PRINT " ";
  170. 1520 PRINT " ";
  171. 1530 PRINT " ";
  172. 1540 PRINT " ";
  173. 1550 PRINT " ";
  174. 1560 PRINT " ";
  175. 1570 PRINT "S";
  176. 1580 PRINT "T";
  177. 1590 PRINT "";
  178. 1591 GOSUB 15000
  179. 1600 PRINT "G";
  180. 1610 PRINT "H";
  181. 1620 PRINT "O";
  182. 1630 PRINT "S";
  183. 1640 PRINT "T";
  184. 1650 PRINT "";
  185. 1651 GOSUB 15000
  186. 1660 PRINT "G";
  187. 1670 PRINT "H";
  188. 1680 PRINT " ";
  189. 1690 PRINT " ";
  190. 1700 PRINT " ";
  191. 1710 PRINT " ";
  192. 1720 PRINT " ";
  193. 1730 PRINT " ";
  194. 1740 PRINT " ";
  195. 1750 PRINT " ";
  196. 1760 PRINT " ";
  197. 1770 PRINT " ";
  198. 1780 PRINT " ";
  199. 1790 PRINT " ";
  200. 1800 PRINT " ";
  201. 1810 PRINT " ";
  202. 1820 PRINT " ";
  203. 1830 PRINT " ";
  204. 1840 PRINT " ";
  205. 1850 PRINT " ";
  206. 1860 PRINT " ";
  207. 1870 PRINT " ";
  208. 1880 PRINT " ";
  209. 1890 PRINT " ";
  210. 1900 PRINT " ";
  211. 1910 PRINT " ";
  212. 1920 PRINT " ";
  213. 1930 PRINT " ";
  214. 1940 PRINT " ";
  215. 1950 PRINT " ";
  216. 1960 PRINT " ";
  217. 1970 PRINT " ";
  218. 1980 PRINT "O";
  219. 1990 PRINT "S";
  220. 2000 PRINT "T";
  221. 2010 PRINT "";
  222. 2011 GOSUB 15000
  223. 2020 PRINT "G";
  224. 2030 PRINT "H";
  225. 2040 PRINT "O";
  226. 2050 PRINT "S";
  227. 2060 PRINT " ";
  228. 2070 PRINT " ";
  229. 2080 PRINT " ";
  230. 2090 PRINT " ";
  231. 2100 PRINT " ";
  232. 2110 PRINT " ";
  233. 2120 PRINT " ";
  234. 2130 PRINT " ";
  235. 2140 PRINT " ";
  236. 2150 PRINT " ";
  237. 2160 PRINT " ";
  238. 2170 PRINT " ";
  239. 2180 PRINT " ";
  240. 2190 PRINT " ";
  241. 2200 PRINT " ";
  242. 2210 PRINT " ";
  243. 2220 PRINT " ";
  244. 2230 PRINT " ";
  245. 2240 PRINT " ";
  246. 2250 PRINT " ";
  247. 2260 PRINT "T";
  248. 2270 PRINT "";
  249. 2271 GOSUB 15000
  250. 2280 PRINT "G";
  251. 2290 PRINT "H";
  252. 2300 PRINT "O";
  253. 2310 PRINT "S";
  254. 2320 PRINT "T";
  255. 2330 PRINT " ";
  256. 2340 PRINT " ";
  257. 2350 PRINT " ";
  258. 2360 PRINT " ";
  259. 2370 PRINT " ";
  260. 2380 PRINT " ";
  261. 2390 PRINT " ";
  262. 2400 PRINT "";
  263. 2401 GOSUB 15000
  264. 2410 PRINT "G";
  265. 2420 PRINT "H";
  266. 2430 PRINT "O";
  267. 2440 PRINT "S";
  268. 2450 PRINT " ";
  269. 2460 PRINT " ";
  270. 2470 PRINT " ";
  271. 2480 PRINT " ";
  272. 2490 PRINT " ";
  273. 2500 PRINT " ";
  274. 2510 PRINT " ";
  275. 2520 PRINT " ";
  276. 2530 PRINT " ";
  277. 2540 PRINT " ";
  278. 2550 PRINT " ";
  279. 2560 PRINT " ";
  280. 2570 PRINT " ";
  281. 2580 PRINT " ";
  282. 2590 PRINT " ";
  283. 2600 PRINT " ";
  284. 2610 PRINT " ";
  285. 2620 PRINT " ";
  286. 2630 PRINT " ";
  287. 2640 PRINT "T";
  288. 2650 PRINT "";
  289. 2651 GOSUB 15000
  290. 2660 PRINT "G";
  291. 2670 PRINT "H";
  292. 2680 PRINT "O";
  293. 2690 PRINT "S";
  294. 2700 PRINT "T";
  295. 2710 PRINT "";
  296. 2711 GOSUB 15000
  297. 2720 PRINT "G";
  298. 2730 PRINT "H";
  299. 2740 PRINT " ";
  300. 2750 PRINT " ";
  301. 2760 PRINT " ";
  302. 2770 PRINT " ";
  303. 2780 PRINT " ";
  304. 2790 PRINT " ";
  305. 2800 PRINT "O";
  306. 2810 PRINT "S";
  307. 2820 PRINT "T";
  308. 2830 PRINT "";
  309. 2831 GOSUB 15000
  310. 2840 PRINT " ";
  311. 2850 PRINT " ";
  312. 2860 PRINT " ";
  313. 2870 PRINT " ";
  314. 2880 PRINT " ";
  315. 2890 PRINT " ";
  316. 2900 PRINT " ";
  317. 2910 PRINT " ";
  318. 2920 PRINT "G";
  319. 2930 PRINT " ";
  320. 2940 PRINT " ";
  321. 2950 PRINT " ";
  322. 2960 PRINT " ";
  323. 2970 PRINT " ";
  324. 2980 PRINT " ";
  325. 2990 PRINT " ";
  326. 3000 PRINT " ";
  327. 3010 PRINT " ";
  328. 3020 PRINT " ";
  329. 3030 PRINT "H";
  330. 3040 PRINT "O";
  331. 3050 PRINT "S";
  332. 3060 PRINT "T";
  333. 3070 PRINT "";
  334. 3071 GOSUB 15000
  335. 3080 PRINT "G";
  336. 3090 PRINT "H";
  337. 3100 PRINT "O";
  338. 3110 PRINT "S";
  339. 3120 PRINT "T";
  340. 3130 PRINT "";
  341. 3131 GOSUB 15000
  342. 3140 PRINT " ";
  343. 3150 PRINT " ";
  344. 3160 PRINT " ";
  345. 3170 PRINT " ";
  346. 3180 PRINT " ";
  347. 3190 PRINT " ";
  348. 3200 PRINT "G";
  349. 3210 PRINT "H";
  350. 3220 PRINT "O";
  351. 3230 PRINT " ";
  352. 3240 PRINT " ";
  353. 3250 PRINT " ";
  354. 3260 PRINT " ";
  355. 3270 PRINT " ";
  356. 3280 PRINT " ";
  357. 3290 PRINT " ";
  358. 3300 PRINT "S";
  359. 3310 PRINT "T";
  360. 3320 PRINT "";
  361. 3321 GOSUB 15000
  362. 3330 PRINT "G";
  363. 3340 PRINT "H";
  364. 3350 PRINT "O";
  365. 3360 PRINT " ";
  366. 3370 PRINT " ";
  367. 3380 PRINT " ";
  368. 3390 PRINT " ";
  369. 3400 PRINT " ";
  370. 3410 PRINT " ";
  371. 3420 PRINT " ";
  372. 3430 PRINT "S";
  373. 3440 PRINT "T";
  374. 3450 PRINT "";
  375. 3451 GOSUB 15000
  376. 3460 PRINT "G";
  377. 3470 PRINT "H";
  378. 3480 PRINT "O";
  379. 3490 PRINT "S";
  380. 3500 PRINT "T";
  381. 3510 PRINT "";
  382. 3511 GOSUB 15000
  383. 3520 PRINT "G";
  384. 3530 PRINT "H";
  385. 3540 PRINT " ";
  386. 3550 PRINT " ";
  387. 3560 PRINT " ";
  388. 3570 PRINT " ";
  389. 3580 PRINT " ";
  390. 3590 PRINT " ";
  391. 3600 PRINT "O";
  392. 3610 PRINT "S";
  393. 3620 PRINT " ";
  394. 3630 PRINT " ";
  395. 3640 PRINT " ";
  396. 3650 PRINT " ";
  397. 3660 PRINT " ";
  398. 3670 PRINT " ";
  399. 3680 PRINT "T";
  400. 3690 PRINT "";
  401. 3691 GOSUB 15000
  402. 3700 PRINT "G";
  403. 3710 PRINT "H";
  404. 3720 PRINT "O";
  405. 3730 PRINT "S";
  406. 3740 PRINT "T";
  407. 3750 PRINT "";
  408. 3751 GOSUB 15000
  409. 3760 PRINT "G";
  410. 3770 PRINT "H";
  411. 3780 PRINT " ";
  412. 3790 PRINT " ";
  413. 3800 PRINT " ";
  414. 3810 PRINT " ";
  415. 3820 PRINT " ";
  416. 3830 PRINT " ";
  417. 3840 PRINT "O";
  418. 3850 PRINT "S";
  419. 3860 PRINT "T";
  420. 3870 PRINT "";
  421. 3871 GOSUB 15000
  422. 3880 PRINT "G";
  423. 3890 PRINT "H";
  424. 3900 PRINT "O";
  425. 3910 PRINT "S";
  426. 3920 PRINT " ";
  427. 3930 PRINT " ";
  428. 3940 PRINT " ";
  429. 3950 PRINT " ";
  430. 3960 PRINT " ";
  431. 3970 PRINT " ";
  432. 3980 PRINT " ";
  433. 3990 PRINT "T";
  434. 4000 PRINT "";
  435. 4001 GOSUB 15000
  436. 4010 PRINT "G";
  437. 4020 PRINT " ";
  438. 4030 PRINT " ";
  439. 4040 PRINT " ";
  440. 4050 PRINT " ";
  441. 4060 PRINT " ";
  442. 4070 PRINT " ";
  443. 4080 PRINT "H";
  444. 4090 PRINT "O";
  445. 4100 PRINT "S";
  446. 4110 PRINT "T";
  447. 4120 PRINT "";
  448. 4121 GOSUB 15000
  449. 4130 PRINT "G";
  450. 4140 PRINT "H";
  451. 4150 PRINT "O";
  452. 4160 PRINT "S";
  453. 4170 PRINT " ";
  454. 4180 PRINT " ";
  455. 4190 PRINT " ";
  456. 4200 PRINT " ";
  457. 4210 PRINT " ";
  458. 4220 PRINT " ";
  459. 4230 PRINT " ";
  460. 4240 PRINT " ";
  461. 4250 PRINT " ";
  462. 4260 PRINT " ";
  463. 4270 PRINT "T";
  464. 4280 PRINT "";
  465. 4281 GOSUB 15000
  466. 4290 PRINT " ";
  467. 4300 PRINT " ";
  468. 4310 PRINT " ";
  469. 4320 PRINT " ";
  470. 4330 PRINT " ";
  471. 4340 PRINT " ";
  472. 4350 PRINT " ";
  473. 4360 PRINT " ";
  474. 4370 PRINT " ";
  475. 4380 PRINT "G";
  476. 4390 PRINT "H";
  477. 4400 PRINT "O";
  478. 4410 PRINT " ";
  479. 4420 PRINT " ";
  480. 4430 PRINT " ";
  481. 4440 PRINT " ";
  482. 4450 PRINT " ";
  483. 4460 PRINT " ";
  484. 4470 PRINT " ";
  485. 4480 PRINT "S";
  486. 4490 PRINT "T";
  487. 4500 PRINT "";
  488. 4501 GOSUB 15000
  489. 4510 PRINT "G";
  490. 4520 PRINT "H";
  491. 4530 PRINT "O";
  492. 4540 PRINT "S";
  493. 4550 PRINT "T";
  494. 4560 PRINT "";
  495. 4561 GOSUB 15000
  496. 4570 PRINT " ";
  497. 4580 PRINT " ";
  498. 4590 PRINT "G";
  499. 4600 PRINT "H";
  500. 4610 PRINT " ";
  501. 4620 PRINT " ";
  502. 4630 PRINT " ";
  503. 4640 PRINT " ";
  504. 4650 PRINT " ";
  505. 4660 PRINT " ";
  506. 4670 PRINT " ";
  507. 4680 PRINT " ";
  508. 4690 PRINT " ";
  509. 4700 PRINT " ";
  510. 4710 PRINT " ";
  511. 4720 PRINT " ";
  512. 4730 PRINT " ";
  513. 4740 PRINT " ";
  514. 4750 PRINT " ";
  515. 4760 PRINT " ";
  516. 4770 PRINT "O";
  517. 4780 PRINT "S";
  518. 4790 PRINT "T";
  519. 4800 PRINT "";
  520. 4801 GOSUB 15000
  521. 4810 PRINT "G";
  522. 4820 PRINT " ";
  523. 4830 PRINT " ";
  524. 4840 PRINT " ";
  525. 4850 PRINT " ";
  526. 4860 PRINT " ";
  527. 4870 PRINT " ";
  528. 4880 PRINT " ";
  529. 4890 PRINT " ";
  530. 4900 PRINT "H";
  531. 4910 PRINT "O";
  532. 4920 PRINT " ";
  533. 4930 PRINT "S";
  534. 4940 PRINT "T";
  535. 4950 PRINT "";
  536. 4951 GOSUB 15000
  537. 4960 PRINT " ";
  538. 4970 PRINT " ";
  539. 4980 PRINT "G";
  540. 4990 PRINT "H";
  541. 5000 PRINT "O";
  542. 5010 PRINT "S";
  543. 5020 PRINT "T";
  544. 5030 PRINT " ";
  545. 5040 PRINT " ";
  546. 5050 PRINT " ";
  547. 5060 PRINT " ";
  548. 5070 PRINT " ";
  549. 5080 PRINT " ";
  550. 5090 PRINT " ";
  551. 5100 PRINT " ";
  552. 5110 PRINT " ";
  553. 5120 PRINT " ";
  554. 5130 PRINT " ";
  555. 5140 PRINT " ";
  556. 5150 PRINT "";
  557. 5151 GOSUB 15000
  558. 5160 PRINT "G";
  559. 5170 PRINT "H";
  560. 5180 PRINT "O";
  561. 5190 PRINT "S";
  562. 5200 PRINT "T";
  563. 5210 PRINT "";
  564. 5211 GOSUB 15000
  565. 5220 PRINT " ";
  566. 5230 PRINT " ";
  567. 5240 PRINT " ";
  568. 5250 PRINT " ";
  569. 5260 PRINT " ";
  570. 5270 PRINT " ";
  571. 5280 PRINT " ";
  572. 5290 PRINT " ";
  573. 5300 PRINT " ";
  574. 5310 PRINT " ";
  575. 5320 PRINT " ";
  576. 5330 PRINT " ";
  577. 5340 PRINT " ";
  578. 5350 PRINT " ";
  579. 5360 PRINT " ";
  580. 5370 PRINT " ";
  581. 5380 PRINT "G";
  582. 5390 PRINT "H";
  583. 5400 PRINT "O";
  584. 5410 PRINT "S";
  585. 5420 PRINT "T";
  586. 5430 PRINT " ";
  587. 5440 PRINT " ";
  588. 5450 PRINT " ";
  589. 5460 PRINT " ";
  590. 5470 PRINT " ";
  591. 5480 PRINT " ";
  592. 5490 PRINT " ";
  593. 5500 PRINT " ";
  594. 5510 PRINT " ";
  595. 5520 PRINT "";
  596. 5521 GOSUB 15000
  597. 5530 PRINT "G";
  598. 5540 PRINT "H";
  599. 5550 PRINT "O";
  600. 5560 PRINT "S";
  601. 5570 PRINT "T";
  602. 5580 PRINT "";
  603. 5581 GOSUB 15000
  604. 5590 PRINT "G";
  605. 5600 PRINT "H";
  606. 5610 PRINT "O";
  607. 5620 PRINT "S";
  608. 5630 PRINT "T";
  609. 5640 PRINT " ";
  610. 5650 PRINT " ";
  611. 5660 PRINT " ";
  612. 5670 PRINT " ";
  613. 5680 PRINT " ";
  614. 5690 PRINT " ";
  615. 5700 PRINT " ";
  616. 5710 PRINT " ";
  617. 5720 PRINT " ";
  618. 5730 PRINT " ";
  619. 5740 PRINT " ";
  620. 5750 PRINT " ";
  621. 5760 PRINT " ";
  622. 5770 PRINT "";
  623. 5771 GOSUB 15000
  624. 5780 PRINT "G";
  625. 5790 PRINT "H";
  626. 5800 PRINT " ";
  627. 5810 PRINT " ";
  628. 5820 PRINT " ";
  629. 5830 PRINT " ";
  630. 5840 PRINT " ";
  631. 5850 PRINT " ";
  632. 5860 PRINT " ";
  633. 5870 PRINT " ";
  634. 5880 PRINT " ";
  635. 5890 PRINT " ";
  636. 5900 PRINT "O";
  637. 5910 PRINT "S";
  638. 5920 PRINT "T";
  639. 5930 PRINT "";
  640. 5931 GOSUB 15000
  641. 5940 PRINT "G";
  642. 5950 PRINT "H";
  643. 5960 PRINT "O";
  644. 5970 PRINT "S";
  645. 5980 PRINT "T";
  646. 5990 PRINT "";
  647. 5991 GOSUB 15000
  648. 6000 PRINT "G";
  649. 6010 PRINT "H";
  650. 6020 PRINT "O";
  651. 6030 PRINT "S";
  652. 6040 PRINT "T";
  653. 6050 PRINT "";
  654. 6051 GOSUB 15000
  655. 6060 PRINT "G";
  656. 6070 PRINT "H";
  657. 6080 PRINT "O";
  658. 6090 PRINT " ";
  659. 6100 PRINT " ";
  660. 6110 PRINT " ";
  661. 6120 PRINT " ";
  662. 6130 PRINT " ";
  663. 6140 PRINT " ";
  664. 6150 PRINT " ";
  665. 6160 PRINT " ";
  666. 6170 PRINT " ";
  667. 6180 PRINT " ";
  668. 6190 PRINT " ";
  669. 6200 PRINT " ";
  670. 6210 PRINT " ";
  671. 6220 PRINT " ";
  672. 6230 PRINT " ";
  673. 6240 PRINT " ";
  674. 6250 PRINT " ";
  675. 6260 PRINT " ";
  676. 6270 PRINT " ";
  677. 6280 PRINT " ";
  678. 6290 PRINT " ";
  679. 6300 PRINT "S";
  680. 6310 PRINT "T";
  681. 6320 PRINT "";
  682. 6321 GOSUB 15000
  683. 6330 PRINT "G";
  684. 6340 PRINT "H";
  685. 6350 PRINT "O";
  686. 6360 PRINT "S";
  687. 6370 PRINT "T";
  688. 6380 PRINT "";
  689. 6381 GOSUB 15000
  690. 6390 PRINT "G";
  691. 6400 PRINT "H";
  692. 6410 PRINT "O";
  693. 6420 PRINT "S";
  694. 6430 PRINT "T";
  695. 6440 PRINT "";
  696. 6441 GOSUB 15000
  697. 6450 PRINT "G";
  698. 6460 PRINT "H";
  699. 6470 PRINT "O";
  700. 6480 PRINT "S";
  701. 6490 PRINT "T";
  702. 6500 PRINT "";
  703. 6501 GOSUB 15000
  704. 6510 PRINT "G";
  705. 6520 PRINT "H";
  706. 6530 PRINT " ";
  707. 6540 PRINT " ";
  708. 6550 PRINT " ";
  709. 6560 PRINT " ";
  710. 6570 PRINT "O";
  711. 6580 PRINT " ";
  712. 6590 PRINT " ";
  713. 6600 PRINT " ";
  714. 6610 PRINT " ";
  715. 6620 PRINT " ";
  716. 6630 PRINT " ";
  717. 6640 PRINT "S";
  718. 6650 PRINT "T";
  719. 6660 PRINT " ";
  720. 6670 PRINT " ";
  721. 6680 PRINT " ";
  722. 6690 PRINT "";
  723. 6691 GOSUB 15000
  724. 6700 PRINT "G";
  725. 6710 PRINT "H";
  726. 6720 PRINT "O";
  727. 6730 PRINT "S";
  728. 6740 PRINT "T";
  729. 6750 PRINT "";
  730. 6751 GOSUB 15000
  731. 6760 PRINT "G";
  732. 6770 PRINT "H";
  733. 6780 PRINT "O";
  734. 6790 PRINT "S";
  735. 6800 PRINT "T";
  736. 6810 PRINT "";
  737. 6811 GOSUB 15000
  738. 6820 PRINT "G";
  739. 6830 PRINT "H";
  740. 6840 PRINT "O";
  741. 6850 PRINT "S";
  742. 6860 PRINT "T";
  743. 6870 PRINT "";
  744. 6871 GOSUB 15000
  745. 6880 PRINT "G";
  746. 6890 PRINT "H";
  747. 6900 PRINT "O";
  748. 6910 PRINT "S";
  749. 6920 PRINT "T";
  750. 6930 PRINT " ";
  751. 6940 PRINT " ";
  752. 6950 PRINT " ";
  753. 6960 PRINT "";
  754. 6961 GOSUB 15000
  755. 6970 PRINT "G";
  756. 6980 PRINT "H";
  757. 6990 PRINT " ";
  758. 7000 PRINT " ";
  759. 7010 PRINT " ";
  760. 7020 PRINT " ";
  761. 7030 PRINT " ";
  762. 7040 PRINT "O";
  763. 7050 PRINT "S";
  764. 7060 PRINT "T";
  765. 7070 PRINT " ";
  766. 7080 PRINT " ";
  767. 7090 PRINT " ";
  768. 7100 PRINT "";
  769. 7101 GOSUB 15000
  770. 7110 PRINT "G";
  771. 7120 PRINT "H";
  772. 7130 PRINT "O";
  773. 7140 PRINT "S";
  774. 7150 PRINT "T";
  775. 7160 PRINT "";
  776. 7161 GOSUB 15000
  777. 7170 PRINT "G";
  778. 7180 PRINT "H";
  779. 7190 PRINT "O";
  780. 7200 PRINT "S";
  781. 7210 PRINT "T";
  782. 7220 PRINT "";
  783. 7221 GOSUB 15000
  784. 7230 PRINT "G";
  785. 7240 PRINT "H";
  786. 7250 PRINT "O";
  787. 7260 PRINT "S";
  788. 7270 PRINT "T";
  789. 7280 PRINT "";
  790. 7281 GOSUB 15000
  791. 7290 PRINT "G";
  792. 7300 PRINT "H";
  793. 7310 PRINT "O";
  794. 7320 PRINT "S";
  795. 7330 PRINT " ";
  796. 7340 PRINT " ";
  797. 7350 PRINT " ";
  798. 7360 PRINT "T";
  799. 7370 PRINT "";
  800. 7371 GOSUB 15000
  801. 7380 PRINT " ";
  802. 7390 PRINT " ";
  803. 7400 PRINT " ";
  804. 7410 PRINT " ";
  805. 7420 PRINT "G";
  806. 7430 PRINT "H";
  807. 7440 PRINT "O";
  808. 7450 PRINT "S";
  809. 7460 PRINT "T";
  810. 7470 PRINT "";
  811. 7471 GOSUB 15000
  812. 7480 PRINT "G";
  813. 7490 PRINT " ";
  814. 7500 PRINT "H";
  815. 7510 PRINT "O";
  816. 7520 PRINT "S";
  817. 7530 PRINT "T";
  818. 7540 PRINT "";
  819. 7541 GOSUB 15000
  820. 7550 PRINT "G";
  821. 7560 PRINT "H";
  822. 7570 PRINT "O";
  823. 7580 PRINT "S";
  824. 7590 PRINT "T";
  825. 7600 PRINT "";
  826. 7601 GOSUB 15000
  827. 7610 PRINT "G";
  828. 7620 PRINT "H";
  829. 7630 PRINT "O";
  830. 7640 PRINT "S";
  831. 7650 PRINT "T";
  832. 7660 PRINT "";
  833. 7661 GOSUB 15000
  834. 7670 PRINT "G";
  835. 7680 PRINT "H";
  836. 7690 PRINT "O";
  837. 7700 PRINT "S";
  838. 7710 PRINT "T";
  839. 7720 PRINT " ";
  840. 7730 PRINT " ";
  841. 7740 PRINT " ";
  842. 7750 PRINT " ";
  843. 7760 PRINT "";
  844. 7761 GOSUB 15000
  845. 7770 PRINT "G";
  846. 7780 PRINT "H";
  847. 7790 PRINT "O";
  848. 7800 PRINT "S";
  849. 7810 PRINT "T";
  850. 7820 PRINT "";
  851. 7821 GOSUB 15000
  852. 7830 PRINT "G";
  853. 7840 PRINT "H";
  854. 7850 PRINT "O";
  855. 7860 PRINT "S";
  856. 7870 PRINT " ";
  857. 7880 PRINT " ";
  858. 7890 PRINT " ";
  859. 7900 PRINT " ";
  860. 7910 PRINT "T";
  861. 7920 PRINT "";
  862. 7921 GOSUB 15000
  863. 7930 PRINT "G";
  864. 7940 PRINT "H";
  865. 7950 PRINT "O";
  866. 7960 PRINT "S";
  867. 7970 PRINT "T";
  868. 7980 PRINT "";
  869. 7981 GOSUB 15000
  870. 7990 PRINT "G";
  871. 8000 PRINT "H";
  872. 8010 PRINT "O";
  873. 8020 PRINT "S";
  874. 8030 PRINT "T";
  875. 8040 PRINT "";
  876. 8041 GOSUB 15000
  877. 8050 PRINT "G";
  878. 8060 PRINT "H";
  879. 8070 PRINT "O";
  880. 8080 PRINT "S";
  881. 8090 PRINT "T";
  882. 8100 PRINT "";
  883. 8101 GOSUB 15000
  884. 8110 PRINT "G";
  885. 8120 PRINT " ";
  886. 8130 PRINT " ";
  887. 8140 PRINT "H";
  888. 8150 PRINT "O";
  889. 8160 PRINT "S";
  890. 8170 PRINT "T";
  891. 8180 PRINT " ";
  892. 8190 PRINT " ";
  893. 8200 PRINT " ";
  894. 8210 PRINT " ";
  895. 8220 PRINT " ";
  896. 8230 PRINT " ";
  897. 8240 PRINT " ";
  898. 8250 PRINT "";
  899. 8251 GOSUB 15000
  900. 8260 PRINT "G";
  901. 8270 PRINT " ";
  902. 8280 PRINT " ";
  903. 8290 PRINT " ";
  904. 8300 PRINT " ";
  905. 8310 PRINT "H";
  906. 8320 PRINT "O";
  907. 8330 PRINT "S";
  908. 8340 PRINT "T";
  909. 8350 PRINT "";
  910. 8351 GOSUB 15000
  911. 8360 PRINT "G";
  912. 8370 PRINT "H";
  913. 8380 PRINT "O";
  914. 8390 PRINT "S";
  915. 8400 PRINT "T";
  916. 8410 PRINT "";
  917. 8411 GOSUB 15000
  918. 8420 PRINT "G";
  919. 8430 PRINT "H";
  920. 8440 PRINT "O";
  921. 8450 PRINT "S";
  922. 8460 PRINT "T";
  923. 8470 PRINT "";
  924. 8471 GOSUB 15000
  925. 8480 PRINT "G";
  926. 8490 PRINT "H";
  927. 8500 PRINT "O";
  928. 8510 PRINT "S";
  929. 8520 PRINT " ";
  930. 8530 PRINT " ";
  931. 8540 PRINT " ";
  932. 8550 PRINT " ";
  933. 8560 PRINT " ";
  934. 8570 PRINT "T";
  935. 8580 PRINT " ";
  936. 8590 PRINT " ";
  937. 8600 PRINT "";
  938. 8601 GOSUB 15000
  939. 8610 PRINT "G";
  940. 8620 PRINT "H";
  941. 8630 PRINT "O";
  942. 8640 PRINT " ";
  943. 8650 PRINT " ";
  944. 8660 PRINT " ";
  945. 8670 PRINT " ";
  946. 8680 PRINT " ";
  947. 8690 PRINT " ";
  948. 8700 PRINT " ";
  949. 8710 PRINT " ";
  950. 8720 PRINT "S";
  951. 8730 PRINT "T";
  952. 8740 PRINT "";
  953. 8741 GOSUB 15000
  954. 8750 PRINT "G";
  955. 8760 PRINT "H";
  956. 8770 PRINT "O";
  957. 8780 PRINT "S";
  958. 8790 PRINT "T";
  959. 8800 PRINT "";
  960. 8801 GOSUB 15000
  961. 8810 PRINT "G";
  962. 8820 PRINT "H";
  963. 8830 PRINT "O";
  964. 8840 PRINT "S";
  965. 8850 PRINT "T";
  966. 8860 PRINT "";
  967. 8861 GOSUB 15000
  968. 8870 PRINT "G";
  969. 8880 PRINT "H";
  970. 8890 PRINT "O";
  971. 8900 PRINT "S";
  972. 8910 PRINT "T";
  973. 8920 PRINT " ";
  974. 8930 PRINT " ";
  975. 8940 PRINT " ";
  976. 8950 PRINT " ";
  977. 8960 PRINT "";
  978. 8961 GOSUB 15000
  979. 8970 PRINT "G";
  980. 8980 PRINT "H";
  981. 8990 PRINT "O";
  982. 9000 PRINT "S";
  983. 9010 PRINT "T";
  984. 9020 PRINT "";
  985. 9021 GOSUB 15000
  986. 9030 PRINT "G";
  987. 9040 PRINT "H";
  988. 9050 PRINT "O";
  989. 9060 PRINT "S";
  990. 9070 PRINT "T";
  991. 9080 PRINT "";
  992. 9081 GOSUB 15000
  993. 9090 PRINT "G";
  994. 9100 PRINT "H";
  995. 9110 PRINT " ";
  996. 9120 PRINT "O";
  997. 9130 PRINT "S";
  998. 9140 PRINT "T";
  999. 9150 PRINT "";
  1000. 9151 GOSUB 15000
  1001. 9160 PRINT "G";
  1002. 9170 PRINT "H";
  1003. 9180 PRINT "O";
  1004. 9190 PRINT "S";
  1005. 9200 PRINT "T";
  1006. 9210 PRINT "";
  1007. 9211 GOSUB 15000
  1008. 9220 PRINT "G";
  1009. 9230 PRINT "H";
  1010. 9240 PRINT "O";
  1011. 9250 PRINT "S";
  1012. 9260 PRINT "T";
  1013. 9270 PRINT "";
  1014. 9271 GOSUB 15000
  1015. 9280 PRINT "G";
  1016. 9290 PRINT "H";
  1017. 9300 PRINT "O";
  1018. 9310 PRINT "S";
  1019. 9320 PRINT "T";
  1020. 9330 PRINT "";
  1021. 9331 GOSUB 15000
  1022. 9340 PRINT "G";
  1023. 9350 PRINT "H";
  1024. 9360 PRINT "O";
  1025. 9370 PRINT "S";
  1026. 9380 PRINT "T";
  1027. 9390 PRINT "";
  1028. 9391 GOSUB 15000
  1029. 9400 PRINT "G";
  1030. 9410 PRINT "H";
  1031. 9420 PRINT "O";
  1032. 9430 PRINT "S";
  1033. 9440 PRINT "T";
  1034. 9450 PRINT "";
  1035. 9451 GOSUB 15000
  1036. 9460 PRINT "G";
  1037. 9470 PRINT "H";
  1038. 9480 PRINT "O";
  1039. 9490 PRINT "S";
  1040. 9500 PRINT "T";
  1041. 9510 PRINT "";
  1042. 9511 GOSUB 15000
  1043. 9520 PRINT "G";
  1044. 9530 PRINT "H";
  1045. 9540 PRINT "O";
  1046. 9550 PRINT "S";
  1047. 9560 PRINT "T";
  1048. 9570 PRINT "";
  1049. 9571 GOSUB 15000
  1050. 9580 PRINT "G";
  1051. 9590 PRINT "H";
  1052. 9600 PRINT "O";
  1053. 9610 PRINT "S";
  1054. 9620 PRINT "T";
  1055. 9630 PRINT "";
  1056. 9631 GOSUB 15000
  1057. 9640 PRINT "G";
  1058. 9650 PRINT "H";
  1059. 9660 PRINT "O";
  1060. 9670 PRINT "S";
  1061. 9680 PRINT "T";
  1062. 9690 PRINT "";
  1063. 9691 GOSUB 15000
  1064. 9700 PRINT "G";
  1065. 9710 PRINT "H";
  1066. 9720 PRINT "O";
  1067. 9730 PRINT "S";
  1068. 9740 PRINT "T";
  1069. 9750 PRINT "";
  1070. 9751 GOSUB 15000
  1071. 9760 PRINT "G";
  1072. 9770 PRINT "H";
  1073. 9780 PRINT "O";
  1074. 9790 PRINT "S";
  1075. 9800 PRINT "T";
  1076. 9810 PRINT "";
  1077. 9811 GOSUB 15000
  1078. 9820 PRINT "G";
  1079. 9830 PRINT "H";
  1080. 9840 PRINT "O";
  1081. 9850 PRINT "S";
  1082. 9860 PRINT "T";
  1083. 9870 PRINT "";
  1084. 9871 GOSUB 15000
  1085. 9880 PRINT "G";
  1086. 9890 PRINT "H";
  1087. 9900 PRINT "O";
  1088. 9910 PRINT "S";
  1089. 9920 PRINT "T";
  1090. 9930 PRINT "";
  1091. 9931 GOSUB 15000
  1092. 9940 PRINT "G";
  1093. 9950 PRINT "H";
  1094. 9960 PRINT "O";
  1095. 9970 PRINT "S";
  1096. 9980 PRINT "T";
  1097. 9990 PRINT "";
  1098. 9991 GOSUB 15000
  1099. 9992 PRINT "G";
  1100. 9993 GOTO 10
  1101.  
  1102.  
  1103.  
  1104.  
  1105.  
  1106. 10000 T=500 : GOSUB 20000
  1107.  
  1108. 15000 C = RND(1)*16 : R = RND(1)*16 : W = RND(1)*16
  1109. 15003 POKE 53280, R
  1110. 15005 RETURN
  1111.  
  1112. 20000 T0=TI: FOR T=T0T*60 TO T: T=TI:T=T-5184E3*(T<T0): NEXT: RETURN
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Top