Animation in pascal

Please support our Pascal and Delphi advertiser: Programming Forums - DaniWeb Sister Site
Reply

•
•
Join Date: Mar 2009
Posts: 26
Reputation: killhha is an unknown quantity at this point 
Solved Threads: 1
killhha's Avatar
killhha killhha is offline Offline
Light Poster

Animation in pascal

 
0
  #1
Mar 24th, 2009
so i have this animation (yes i know its very long):

Pascal and Delphi Syntax (Toggle Plain Text) 
  1. begin;            {main program starts}
  2. clrscr;           {clears screen of any text}
  3. textcolor(9);     {turns the text blue for the logo animation}
  4. writeln('MMMMMMMMMMMM               MMMMMMMMMMMMM');        {logo animation starts}
  5. delay(logo);
  6. writeln('MMMMMMMMM                     MMMMMMMMMM');
  7. delay(logo);
  8. writeln('MMMMMMM                         MMMMMMMM');
  9. delay(logo);
  10. writeln('MMMMM8                          ..MMMMMM');
  11. delay(logo);
  12. writeln('MMMM.                              MMMMM');
  13. delay(logo);
  14. writeln('MMM,                                MMMM');
  15. delay(logo);
  16. writeln('MMM                                 :MMM');
  17. delay(logo);
  18. writeln('MM                                   MMM');
  19. delay(logo);
  20. writeln('M8                                    MM');
  21. delay(logo);
  22. writeln('M                    _     _          MM');
  23. delay(logo);
  24. writeln('7         /\  /\    | \   |_|         IZ');
  25. delay(logo);
  26. writeln('I        /  \/  \ . |_/ . |           ?7');
  27. delay(logo);
  28. writeln('M       Max Demajo Programming        MM');
  29. delay(logo);
  30. writeln('M7                                    MM');
  31. delay(logo);
  32. writeln('MM                                   MMM');
  33. delay(logo);
  34. writeln('MMZ            Presents              MMM');
  35. delay(logo);
  36. writeln('MMM                                 MMMM');
  37. delay(logo);
  38. writeln('MMMM                               MMMMM');
  39. delay(logo);
  40. writeln('MMMMM,                           .MMMMMM');
  41. delay(logo);
  42. writeln('MMMMMMM                         MMMMMMMM');
  43. delay(logo);
  44. writeln('MMMMMMMMM                     MMMMMMMMMM');
  45. delay(logo);
  46. writeln('MMMMMMMMMMMN               IMMMMMMMMMMMM');
  47. delay(600);
  48. clrscr;
  49. writeln('MMMMMMMMMMMM               MMMMMMMMMMMMM');
  50. writeln('MMMMMMMMM                     MMMMMMMMMM');
  51. writeln('MMMMMMM                         MMMMMMMM');
  52. writeln('MMMMM8                          ..MMMMMM');
  53. writeln('MMMM.                              MMMMM');
  54. writeln('MMM,                                MMMM');
  55. writeln('MMM                                 :MMM');
  56. writeln('MM                                   MMM');
  57. writeln('M8                                    MM');
  58. writeln('M                    _     _          MM');
  59. writeln('7         /\  /\    | \   |_|         IZ');
  60. writeln('I        /  \/  \ . |_/ . |           ?7');
  61. writeln('M        ax Demajo Programming        MM');
  62. writeln('M7                                    MM');
  63. writeln('MM                                   MMM');
  64. writeln('MMZ            Presents              MMM');
  65. writeln('MMM                                 MMMM');
  66. writeln('MMMM                               MMMMM');
  67. writeln('MMMMM,                           .MMMMMM');
  68. writeln('MMMMMMM                         MMMMMMMM');
  69. writeln('MMMMMMMMM                     MMMMMMMMMM');
  70. writeln('MMMMMMMMMMMN               IMMMMMMMMMMMM');
  71. delay(log);
  72. clrscr;
  73. writeln('MMMMMMMMMMMM               MMMMMMMMMMMMM');
  74. writeln('MMMMMMMMM                     MMMMMMMMMM');
  75. writeln('MMMMMMM                         MMMMMMMM');
  76. writeln('MMMMM8                          ..MMMMMM');
  77. writeln('MMMM.                              MMMMM');
  78. writeln('MMM,                                MMMM');
  79. writeln('MMM                                 :MMM');
  80. writeln('MM                                   MMM');
  81. writeln('M8                                    MM');
  82. writeln('M                    _     _          MM');
  83. writeln('7         /\  /\    | \   |_|         IZ');
  84. writeln('I        /  \/  \ . |_/ . |           ?7');
  85. writeln('M       M x Demajo Programming        MM');
  86. writeln('M7                                    MM');
  87. writeln('MM                                   MMM');
  88. writeln('MMZ            Presents              MMM');
  89. writeln('MMM                                 MMMM');
  90. writeln('MMMM                               MMMMM');
  91. writeln('MMMMM,                           .MMMMMM');
  92. writeln('MMMMMMM                         MMMMMMMM');
  93. writeln('MMMMMMMMM                     MMMMMMMMMM');
  94. writeln('MMMMMMMMMMMN               IMMMMMMMMMMMM');
  95. delay(log);
  96. clrscr;
  97. writeln('MMMMMMMMMMMM               MMMMMMMMMMMMM');
  98. writeln('MMMMMMMMM                     MMMMMMMMMM');
  99. writeln('MMMMMMM                         MMMMMMMM');
  100. writeln('MMMMM8                          ..MMMMMM');
  101. writeln('MMMM.                              MMMMM');
  102. writeln('MMM,                                MMMM');
  103. writeln('MMM                                 :MMM');
  104. writeln('MM                                   MMM');
  105. writeln('M8                                    MM');
  106. writeln('M                    _     _          MM');
  107. writeln('7         /\  /\    | \   |_|         IZ');
  108. writeln('I        /  \/  \ . |_/ . |           ?7');
  109. writeln('M       Ma  Demajo Programming        MM');
  110. writeln('M7                                    MM');
  111. writeln('MM                                   MMM');
  112. writeln('MMZ            Presents              MMM');
  113. writeln('MMM                                 MMMM');
  114. writeln('MMMM                               MMMMM');
  115. writeln('MMMMM,                           .MMMMMM');
  116. writeln('MMMMMMM                         MMMMMMMM');
  117. writeln('MMMMMMMMM                     MMMMMMMMMM');
  118. writeln('MMMMMMMMMMMN               IMMMMMMMMMMMM');
  119. delay(log);
  120. clrscr;
  121. writeln('MMMMMMMMMMMM               MMMMMMMMMMMMM');
  122. writeln('MMMMMMMMM                     MMMMMMMMMM');
  123. writeln('MMMMMMM                         MMMMMMMM');
  124. writeln('MMMMM8                          ..MMMMMM');
  125. writeln('MMMM.                              MMMMM');
  126. writeln('MMM,                                MMMM');
  127. writeln('MMM                                 :MMM');
  128. writeln('MM                                   MMM');
  129. writeln('M8                                    MM');
  130. writeln('M                    _     _          MM');
  131. writeln('7         /\  /\    | \   |_|         IZ');
  132. writeln('I        /  \/  \ . |_/ . |           ?7');
  133. writeln('M       Max Demajo Programming        MM');
  134. writeln('M7                                    MM');
  135. writeln('MM                                   MMM');
  136. writeln('MMZ            Presents              MMM');
  137. writeln('MMM                                 MMMM');
  138. writeln('MMMM                               MMMMM');
  139. writeln('MMMMM,                           .MMMMMM');
  140. writeln('MMMMMMM                         MMMMMMMM');
  141. writeln('MMMMMMMMM                     MMMMMMMMMM');
  142. writeln('MMMMMMMMMMMN               IMMMMMMMMMMMM');
  143. delay(log);
  144. clrscr;
  145. writeln('MMMMMMMMMMMM               MMMMMMMMMMMMM');
  146. writeln('MMMMMMMMM                     MMMMMMMMMM');
  147. writeln('MMMMMMM                         MMMMMMMM');
  148. writeln('MMMMM8                          ..MMMMMM');
  149. writeln('MMMM.                              MMMMM');
  150. writeln('MMM,                                MMMM');
  151. writeln('MMM                                 :MMM');
  152. writeln('MM                                   MMM');
  153. writeln('M8                                    MM');
  154. writeln('M                    _     _          MM');
  155. writeln('7         /\  /\    | \   |_|         IZ');
  156. writeln('I        /  \/  \ . |_/ . |           ?7');
  157. writeln('M       Max  emajo Programming        MM');
  158. writeln('M7                                    MM');
  159. writeln('MM                                   MMM');
  160. writeln('MMZ            Presents              MMM');
  161. writeln('MMM                                 MMMM');
  162. writeln('MMMM                               MMMMM');
  163. writeln('MMMMM,                           .MMMMMM');
  164. writeln('MMMMMMM                         MMMMMMMM');
  165. writeln('MMMMMMMMM                     MMMMMMMMMM');
  166. writeln('MMMMMMMMMMMN               IMMMMMMMMMMMM');
  167. delay(log);
  168. clrscr;
  169. writeln('MMMMMMMMMMMM               MMMMMMMMMMMMM');
  170. writeln('MMMMMMMMM                     MMMMMMMMMM');
  171. writeln('MMMMMMM                         MMMMMMMM');
  172. writeln('MMMMM8                          ..MMMMMM');
  173. writeln('MMMM.                              MMMMM');
  174. writeln('MMM,                                MMMM');
  175. writeln('MMM                                 :MMM');
  176. writeln('MM                                   MMM');
  177. writeln('M8                                    MM');
  178. writeln('M                    _     _          MM');
  179. writeln('7         /\  /\    | \   |_|         IZ');
  180. writeln('I        /  \/  \ . |_/ . |           ?7');
  181. writeln('M       Max D majo Programming        MM');
  182. writeln('M7                                    MM');
  183. writeln('MM                                   MMM');
  184. writeln('MMZ            Presents              MMM');
  185. writeln('MMM                                 MMMM');
  186. writeln('MMMM                               MMMMM');
  187. writeln('MMMMM,                           .MMMMMM');
  188. writeln('MMMMMMM                         MMMMMMMM');
  189. writeln('MMMMMMMMM                     MMMMMMMMMM');
  190. writeln('MMMMMMMMMMMN               IMMMMMMMMMMMM');
  191. delay(log);
  192. clrscr;
  193. writeln('MMMMMMMMMMMM               MMMMMMMMMMMMM');
  194. writeln('MMMMMMMMM                     MMMMMMMMMM');
  195. writeln('MMMMMMM                         MMMMMMMM');
  196. writeln('MMMMM8                          ..MMMMMM');
  197. writeln('MMMM.                              MMMMM');
  198. writeln('MMM,                                MMMM');
  199. writeln('MMM                                 :MMM');
  200. writeln('MM                                   MMM');
  201. writeln('M8                                    MM');
  202. writeln('M                    _     _          MM');
  203. writeln('7         /\  /\    | \   |_|         IZ');
  204. writeln('I        /  \/  \ . |_/ . |           ?7');
  205. writeln('M       Max De ajo Programming        MM');
  206. writeln('M7                                    MM');
  207. writeln('MM                                   MMM');
  208. writeln('MMZ            Presents              MMM');
  209. writeln('MMM                                 MMMM');
  210. writeln('MMMM                               MMMMM');
  211. writeln('MMMMM,                           .MMMMMM');
  212. writeln('MMMMMMM                         MMMMMMMM');
  213. writeln('MMMMMMMMM                     MMMMMMMMMM');
  214. writeln('MMMMMMMMMMMN               IMMMMMMMMMMMM');
  215. delay(log);
  216. clrscr;
  217. writeln('MMMMMMMMMMMM               MMMMMMMMMMMMM');
  218. writeln('MMMMMMMMM                     MMMMMMMMMM');
  219. writeln('MMMMMMM                         MMMMMMMM');
  220. writeln('MMMMM8                          ..MMMMMM');
  221. writeln('MMMM.                              MMMMM');
  222. writeln('MMM,                                MMMM');
  223. writeln('MMM                                 :MMM');
  224. writeln('MM                                   MMM');
  225. writeln('M8                                    MM');
  226. writeln('M                    _     _          MM');
  227. writeln('7         /\  /\    | \   |_|         IZ');
  228. writeln('I        /  \/  \ . |_/ . |           ?7');
  229. writeln('M       Max Dem jo Programming        MM');
  230. writeln('M7                                    MM');
  231. writeln('MM                                   MMM');
  232. writeln('MMZ            Presents              MMM');
  233. writeln('MMM                                 MMMM');
  234. writeln('MMMM                               MMMMM');
  235. writeln('MMMMM,                           .MMMMMM');
  236. writeln('MMMMMMM                         MMMMMMMM');
  237. writeln('MMMMMMMMM                     MMMMMMMMMM');
  238. writeln('MMMMMMMMMMMN               IMMMMMMMMMMMM');
  239. delay(log);
  240. clrscr;
  241. writeln('MMMMMMMMMMMM               MMMMMMMMMMMMM');
  242. writeln('MMMMMMMMM                     MMMMMMMMMM');
  243. writeln('MMMMMMM                         MMMMMMMM');
  244. writeln('MMMMM8                          ..MMMMMM');
  245. writeln('MMMM.                              MMMMM');
  246. writeln('MMM,                                MMMM');
  247. writeln('MMM                                 :MMM');
  248. writeln('MM                                   MMM');
  249. writeln('M8                                    MM');
  250. writeln('M                    _     _          MM');
  251. writeln('7         /\  /\    | \   |_|         IZ');
  252. writeln('I        /  \/  \ . |_/ . |           ?7');
  253. writeln('M       Max Dema o Programming        MM');
  254. writeln('M7                                    MM');
  255. writeln('MM                                   MMM');
  256. writeln('MMZ            Presents              MMM');
  257. writeln('MMM                                 MMMM');
  258. writeln('MMMM                               MMMMM');
  259. writeln('MMMMM,                           .MMMMMM');
  260. writeln('MMMMMMM                         MMMMMMMM');
  261. writeln('MMMMMMMMM                     MMMMMMMMMM');
  262. writeln('MMMMMMMMMMMN               IMMMMMMMMMMMM');
  263. delay(log);
  264. clrscr;
  265. writeln('MMMMMMMMMMMM               MMMMMMMMMMMMM');
  266. writeln('MMMMMMMMM                     MMMMMMMMMM');
  267. writeln('MMMMMMM                         MMMMMMMM');
  268. writeln('MMMMM8                          ..MMMMMM');
  269. writeln('MMMM.                              MMMMM');
  270. writeln('MMM,                                MMMM');
  271. writeln('MMM                                 :MMM');
  272. writeln('MM                                   MMM');
  273. writeln('M8                                    MM');
  274. writeln('M                    _     _          MM');
  275. writeln('7         /\  /\    | \   |_|         IZ');
  276. writeln('I        /  \/  \ . |_/ . |           ?7');
  277. writeln('M       Max Demaj  Programming        MM');
  278. writeln('M7                                    MM');
  279. writeln('MM                                   MMM');
  280. writeln('MMZ            Presents              MMM');
  281. writeln('MMM                                 MMMM');
  282. writeln('MMMM                               MMMMM');
  283. writeln('MMMMM,                           .MMMMMM');
  284. writeln('MMMMMMM                         MMMMMMMM');
  285. writeln('MMMMMMMMM                     MMMMMMMMMM');
  286. writeln('MMMMMMMMMMMN               IMMMMMMMMMMMM');
  287. delay(log);
  288. clrscr;
  289. writeln('MMMMMMMMMMMM               MMMMMMMMMMMMM');
  290. writeln('MMMMMMMMM                     MMMMMMMMMM');
  291. writeln('MMMMMMM                         MMMMMMMM');
  292. writeln('MMMMM8                          ..MMMMMM');
  293. writeln('MMMM.                              MMMMM');
  294. writeln('MMM,                                MMMM');
  295. writeln('MMM                                 :MMM');
  296. writeln('MM                                   MMM');
  297. writeln('M8                                    MM');
  298. writeln('M                    _     _          MM');
  299. writeln('7         /\  /\    | \   |_|         IZ');
  300. writeln('I        /  \/  \ . |_/ . |           ?7');
  301. writeln('M       Max Demajo Programming        MM');
  302. writeln('M7                                    MM');
  303. writeln('MM                                   MMM');
  304. writeln('MMZ            Presents              MMM');
  305. writeln('MMM                                 MMMM');
  306. writeln('MMMM                               MMMMM');
  307. writeln('MMMMM,                           .MMMMMM');
  308. writeln('MMMMMMM                         MMMMMMMM');
  309. writeln('MMMMMMMMM                     MMMMMMMMMM');
  310. writeln('MMMMMMMMMMMN               IMMMMMMMMMMMM');
  311. delay(log);
  312. clrscr;
  313. writeln('MMMMMMMMMMMM               MMMMMMMMMMMMM');
  314. writeln('MMMMMMMMM                     MMMMMMMMMM');
  315. writeln('MMMMMMM                         MMMMMMMM');
  316. writeln('MMMMM8                          ..MMMMMM');
  317. writeln('MMMM.                              MMMMM');
  318. writeln('MMM,                                MMMM');
  319. writeln('MMM                                 :MMM');
  320. writeln('MM                                   MMM');
  321. writeln('M8                                    MM');
  322. writeln('M                    _     _          MM');
  323. writeln('7         /\  /\    | \   |_|         IZ');
  324. writeln('I        /  \/  \ . |_/ . |           ?7');
  325. writeln('M       Max Demajo  rogramming        MM');
  326. writeln('M7                                    MM');
  327. writeln('MM                                   MMM');
  328. writeln('MMZ            Presents              MMM');
  329. writeln('MMM                                 MMMM');
  330. writeln('MMMM                               MMMMM');
  331. writeln('MMMMM,                           .MMMMMM');
  332. writeln('MMMMMMM                         MMMMMMMM');
  333. writeln('MMMMMMMMM                     MMMMMMMMMM');
  334. writeln('MMMMMMMMMMMN               IMMMMMMMMMMMM');
  335. delay(log);
  336. clrscr;
  337. writeln('MMMMMMMMMMMM               MMMMMMMMMMMMM');
  338. writeln('MMMMMMMMM                     MMMMMMMMMM');
  339. writeln('MMMMMMM                         MMMMMMMM');
  340. writeln('MMMMM8                          ..MMMMMM');
  341. writeln('MMMM.                              MMMMM');
  342. writeln('MMM,                                MMMM');
  343. writeln('MMM                                 :MMM');
  344. writeln('MM                                   MMM');
  345. writeln('M8                                    MM');
  346. writeln('M                    _     _          MM');
  347. writeln('7         /\  /\    | \   |_|         IZ');
  348. writeln('I        /  \/  \ . |_/ . |           ?7');
  349. writeln('M       Max Demajo P ogramming        MM');
  350. writeln('M7                                    MM');
  351. writeln('MM                                   MMM');
  352. writeln('MMZ            Presents              MMM');
  353. writeln('MMM                                 MMMM');
  354. writeln('MMMM                               MMMMM');
  355. writeln('MMMMM,                           .MMMMMM');
  356. writeln('MMMMMMM                         MMMMMMMM');
  357. writeln('MMMMMMMMM                     MMMMMMMMMM');
  358. writeln('MMMMMMMMMMMN               IMMMMMMMMMMMM');
  359. delay(log);
  360. clrscr;
  361. writeln('MMMMMMMMMMMM               MMMMMMMMMMMMM');
  362. writeln('MMMMMMMMM                     MMMMMMMMMM');
  363. writeln('MMMMMMM                         MMMMMMMM');
  364. writeln('MMMMM8                          ..MMMMMM');
  365. writeln('MMMM.                              MMMMM');
  366. writeln('MMM,                                MMMM');
  367. writeln('MMM                                 :MMM');
  368. writeln('MM                                   MMM');
  369. writeln('M8                                    MM');
  370. writeln('M                    _     _          MM');
  371. writeln('7         /\  /\    | \   |_|         IZ');
  372. writeln('I        /  \/  \ . |_/ . |           ?7');
  373. writeln('M       Max Demajo Pr gramming        MM');
  374. writeln('M7                                    MM');
  375. writeln('MM                                   MMM');
  376. writeln('MMZ            Presents              MMM');
  377. writeln('MMM                                 MMMM');
  378. writeln('MMMM                               MMMMM');
  379. writeln('MMMMM,                           .MMMMMM');
  380. writeln('MMMMMMM                         MMMMMMMM');
  381. writeln('MMMMMMMMM                     MMMMMMMMMM');
  382. writeln('MMMMMMMMMMMN               IMMMMMMMMMMMM');
  383. delay(log);
  384. clrscr;
  385. writeln('MMMMMMMMMMMM               MMMMMMMMMMMMM');
  386. writeln('MMMMMMMMM                     MMMMMMMMMM');
  387. writeln('MMMMMMM                         MMMMMMMM');
  388. writeln('MMMMM8                          ..MMMMMM');
  389. writeln('MMMM.                              MMMMM');
  390. writeln('MMM,                                MMMM');
  391. writeln('MMM                                 :MMM');
  392. writeln('MM                                   MMM');
  393. writeln('M8                                    MM');
  394. writeln('M                    _     _          MM');
  395. writeln('7         /\  /\    | \   |_|         IZ');
  396. writeln('I        /  \/  \ . |_/ . |           ?7');
  397. writeln('M       Max Demajo Pro ramming        MM');
  398. writeln('M7                                    MM');
  399. writeln('MM                                   MMM');
  400. writeln('MMZ            Presents              MMM');
  401. writeln('MMM                                 MMMM');
  402. writeln('MMMM                               MMMMM');
  403. writeln('MMMMM,                           .MMMMMM');
  404. writeln('MMMMMMM                         MMMMMMMM');
  405. writeln('MMMMMMMMM                     MMMMMMMMMM');
  406. writeln('MMMMMMMMMMMN               IMMMMMMMMMMMM');
  407. delay(log);
  408. clrscr;
  409. writeln('MMMMMMMMMMMM               MMMMMMMMMMMMM');
  410. writeln('MMMMMMMMM                     MMMMMMMMMM');
  411. writeln('MMMMMMM                         MMMMMMMM');
  412. writeln('MMMMM8                          ..MMMMMM');
  413. writeln('MMMM.                              MMMMM');
  414. writeln('MMM,                                MMMM');
  415. writeln('MMM                                 :MMM');
  416. writeln('MM                                   MMM');
  417. writeln('M8                                    MM');
  418. writeln('M                    _     _          MM');
  419. writeln('7         /\  /\    | \   |_|         IZ');
  420. writeln('I        /  \/  \ . |_/ . |           ?7');
  421. writeln('M       Max Demajo Prog amming        MM');
  422. writeln('M7                                    MM');
  423. writeln('MM                                   MMM');
  424. writeln('MMZ            Presents              MMM');
  425. writeln('MMM                                 MMMM');
  426. writeln('MMMM                               MMMMM');
  427. writeln('MMMMM,                           .MMMMMM');
  428. writeln('MMMMMMM                         MMMMMMMM');
  429. writeln('MMMMMMMMM                     MMMMMMMMMM');
  430. writeln('MMMMMMMMMMMN               IMMMMMMMMMMMM');
  431. delay(log);
  432. clrscr;
  433. writeln('MMMMMMMMMMMM               MMMMMMMMMMMMM');
  434. writeln('MMMMMMMMM                     MMMMMMMMMM');
  435. writeln('MMMMMMM                         MMMMMMMM');
  436. writeln('MMMMM8                          ..MMMMMM');
  437. writeln('MMMM.                              MMMMM');
  438. writeln('MMM,                                MMMM');
  439. writeln('MMM                                 :MMM');
  440. writeln('MM                                   MMM');
  441. writeln('M8                                    MM');
  442. writeln('M                    _     _          MM');
  443. writeln('7         /\  /\    | \   |_|         IZ');
  444. writeln('I        /  \/  \ . |_/ . |           ?7');
  445. writeln('M       Max Demajo Progr mming        MM');
  446. writeln('M7                                    MM');
  447. writeln('MM                                   MMM');
  448. writeln('MMZ            Presents              MMM');
  449. writeln('MMM                                 MMMM');
  450. writeln('MMMM                               MMMMM');
  451. writeln('MMMMM,                           .MMMMMM');
  452. writeln('MMMMMMM                         MMMMMMMM');
  453. writeln('MMMMMMMMM                     MMMMMMMMMM');
  454. writeln('MMMMMMMMMMMN               IMMMMMMMMMMMM');
  455. delay(log);
  456. clrscr;
  457. writeln('MMMMMMMMMMMM               MMMMMMMMMMMMM');
  458. writeln('MMMMMMMMM                     MMMMMMMMMM');
  459. writeln('MMMMMMM                         MMMMMMMM');
  460. writeln('MMMMM8                          ..MMMMMM');
  461. writeln('MMMM.                              MMMMM');
  462. writeln('MMM,                                MMMM');
  463. writeln('MMM                                 :MMM');
  464. writeln('MM                                   MMM');
  465. writeln('M8                                    MM');
  466. writeln('M                    _     _          MM');
  467. writeln('7         /\  /\    | \   |_|         IZ');
  468. writeln('I        /  \/  \ . |_/ . |           ?7');
  469. writeln('M       Max Demajo Progra ming        MM');
  470. writeln('M7                                    MM');
  471. writeln('MM                                   MMM');
  472. writeln('MMZ            Presents              MMM');
  473. writeln('MMM                                 MMMM');
  474. writeln('MMMM                               MMMMM');
  475. writeln('MMMMM,                           .MMMMMM');
  476. writeln('MMMMMMM                         MMMMMMMM');
  477. writeln('MMMMMMMMM                     MMMMMMMMMM');
  478. writeln('MMMMMMMMMMMN               IMMMMMMMMMMMM');
  479. delay(log);
  480. clrscr;
  481. writeln('MMMMMMMMMMMM               MMMMMMMMMMMMM');
  482. writeln('MMMMMMMMM                     MMMMMMMMMM');
  483. writeln('MMMMMMM                         MMMMMMMM');
  484. writeln('MMMMM8                          ..MMMMMM');
  485. writeln('MMMM.                              MMMMM');
  486. writeln('MMM,                                MMMM');
  487. writeln('MMM                                 :MMM');
  488. writeln('MM                                   MMM');
  489. writeln('M8                                    MM');
  490. writeln('M                    _     _          MM');
  491. writeln('7         /\  /\    | \   |_|         IZ');
  492. writeln('I        /  \/  \ . |_/ . |           ?7');
  493. writeln('M       Max Demajo Program ing        MM');
  494. writeln('M7                                    MM');
  495. writeln('MM                                   MMM');
  496. writeln('MMZ            Presents              MMM');
  497. writeln('MMM                                 MMMM');
  498. writeln('MMMM                               MMMMM');
  499. writeln('MMMMM,                           .MMMMMM');
  500. writeln('MMMMMMM                         MMMMMMMM');
  501. writeln('MMMMMMMMM                     MMMMMMMMMM');
  502. writeln('MMMMMMMMMMMN               IMMMMMMMMMMMM');
  503. delay(log);
  504. clrscr;
  505. writeln('MMMMMMMMMMMM               MMMMMMMMMMMMM');
  506. writeln('MMMMMMMMM                     MMMMMMMMMM');
  507. writeln('MMMMMMM                         MMMMMMMM');
  508. writeln('MMMMM8                          ..MMMMMM');
  509. writeln('MMMM.                              MMMMM');
  510. writeln('MMM,                                MMMM');
  511. writeln('MMM                                 :MMM');
  512. writeln('MM                                   MMM');
  513. writeln('M8                                    MM');
  514. writeln('M                    _     _          MM');
  515. writeln('7         /\  /\    | \   |_|         IZ');
  516. writeln('I        /  \/  \ . |_/ . |           ?7');
  517. writeln('M       Max Demajo Programming        MM');
  518. writeln('M7                                    MM');
  519. writeln('MM                                   MMM');
  520. writeln('MMZ            Presents              MMM');
  521. writeln('MMM                                 MMMM');
  522. writeln('MMMM                               MMMMM');
  523. writeln('MMMMM,                           .MMMMMM');
  524. writeln('MMMMMMM                         MMMMMMMM');
  525. writeln('MMMMMMMMM                     MMMMMMMMMM');
  526. writeln('MMMMMMMMMMMN               IMMMMMMMMMMMM');
  527. delay(log);
  528. clrscr;
  529. writeln('MMMMMMMMMMMM               MMMMMMMMMMMMM');
  530. writeln('MMMMMMMMM                     MMMMMMMMMM');
  531. writeln('MMMMMMM                         MMMMMMMM');
  532. writeln('MMMMM8                          ..MMMMMM');
  533. writeln('MMMM.                              MMMMM');
  534. writeln('MMM,                                MMMM');
  535. writeln('MMM                                 :MMM');
  536. writeln('MM                                   MMM');
  537. writeln('M8                                    MM');
  538. writeln('M                    _     _          MM');
  539. writeln('7         /\  /\    | \   |_|         IZ');
  540. writeln('I        /  \/  \ . |_/ . |           ?7');
  541. writeln('M       Max Demajo Programm ng        MM');
  542. writeln('M7                                    MM');
  543. writeln('MM                                   MMM');
  544. writeln('MMZ            Presents              MMM');
  545. writeln('MMM                                 MMMM');
  546. writeln('MMMM                               MMMMM');
  547. writeln('MMMMM,                           .MMMMMM');
  548. writeln('MMMMMMM                         MMMMMMMM');
  549. writeln('MMMMMMMMM                     MMMMMMMMMM');
  550. writeln('MMMMMMMMMMMN               IMMMMMMMMMMMM');
  551. delay(log);
  552. clrscr;
  553. writeln('MMMMMMMMMMMM               MMMMMMMMMMMMM');
  554. writeln('MMMMMMMMM                     MMMMMMMMMM');
  555. writeln('MMMMMMM                         MMMMMMMM');
  556. writeln('MMMMM8                          ..MMMMMM');
  557. writeln('MMMM.                              MMMMM');
  558. writeln('MMM,                                MMMM');
  559. writeln('MMM                                 :MMM');
  560. writeln('MM                                   MMM');
  561. writeln('M8                                    MM');
  562. writeln('M                    _     _          MM');
  563. writeln('7         /\  /\    | \   |_|         IZ');
  564. writeln('I        /  \/  \ . |_/ . |           ?7');
  565. writeln('M       Max Demajo Programmi g        MM');
  566. writeln('M7                                    MM');
  567. writeln('MM                                   MMM');
  568. writeln('MMZ            Presents              MMM');
  569. writeln('MMM                                 MMMM');
  570. writeln('MMMM                               MMMMM');
  571. writeln('MMMMM,                           .MMMMMM');
  572. writeln('MMMMMMM                         MMMMMMMM');
  573. writeln('MMMMMMMMM                     MMMMMMMMMM');
  574. writeln('MMMMMMMMMMMN               IMMMMMMMMMMMM');
  575. delay(log);
  576. clrscr;
  577. writeln('MMMMMMMMMMMM               MMMMMMMMMMMMM');
  578. writeln('MMMMMMMMM                     MMMMMMMMMM');
  579. writeln('MMMMMMM                         MMMMMMMM');
  580. writeln('MMMMM8                          ..MMMMMM');
  581. writeln('MMMM.                              MMMMM');
  582. writeln('MMM,                                MMMM');
  583. writeln('MMM                                 :MMM');
  584. writeln('MM                                   MMM');
  585. writeln('M8                                    MM');
  586. writeln('M                    _     _          MM');
  587. writeln('7         /\  /\    | \   |_|         IZ');
  588. writeln('I        /  \/  \ . |_/ . |           ?7');
  589. writeln('M       Max Demajo Programmin         MM');
  590. writeln('M7                                    MM');
  591. writeln('MM                                   MMM');
  592. writeln('MMZ            Presents              MMM');
  593. writeln('MMM                                 MMMM');
  594. writeln('MMMM                               MMMMM');
  595. writeln('MMMMM,                           .MMMMMM');
  596. writeln('MMMMMMM                         MMMMMMMM');
  597. writeln('MMMMMMMMM                     MMMMMMMMMM');
  598. writeln('MMMMMMMMMMMN               IMMMMMMMMMMMM');
  599. delay(log);
  600. clrscr;
  601. writeln('MMMMMMMMMMMM               MMMMMMMMMMMMM');
  602. writeln('MMMMMMMMM                     MMMMMMMMMM');
  603. writeln('MMMMMMM                         MMMMMMMM');
  604. writeln('MMMMM8                          ..MMMMMM');
  605. writeln('MMMM.                              MMMMM');
  606. writeln('MMM,                                MMMM');
  607. writeln('MMM                                 :MMM');
  608. writeln('MM                                   MMM');
  609. writeln('M8                                    MM');
  610. writeln('M                    _     _          MM');
  611. writeln('7         /\  /\    | \   |_|         IZ');
  612. writeln('I        /  \/  \ . |_/ . |           ?7');
  613. writeln('M       Max Demajo Programming        MM');
  614. writeln('M7                                    MM');
  615. writeln('MM                                   MMM');
  616. writeln('MMZ            Presents              MMM');
  617. writeln('MMM                                 MMMM');
  618. writeln('MMMM                               MMMMM');
  619. writeln('MMMMM,                           .MMMMMM');
  620. writeln('MMMMMMM                         MMMMMMMM');
  621. writeln('MMMMMMMMM                     MMMMMMMMMM');
  622. writeln('MMMMMMMMMMMN               IMMMMMMMMMMMM');
  623.  
  624. index:=0;
  625.  
  626. repeat
  627. index:=index+1;
  628. delay(300);
  629. clrscr;
  630. writeln('MMMMMMMMMMMM               MMMMMMMMMMMMM');
  631. writeln('MMMMMMMMM                     MMMMMMMMMM');
  632. writeln('MMMMMMM                         MMMMMMMM');
  633. writeln('MMMMM8                          ..MMMMMM');
  634. writeln('MMMM.                              MMMMM');
  635. writeln('MMM,                                MMMM');
  636. writeln('MMM                                 :MMM');
  637. writeln('MM                                   MMM');
  638. writeln('M8                                    MM');
  639. writeln('M                    _     _          MM');
  640. writeln('7         /\  /\    | \   |_|         IZ');
  641. writeln('I        /  \/  \ . |_/ . |           ?7');
  642. writeln('M       Max Demajo Programming        MM');
  643. writeln('M7                                    MM');
  644. writeln('MM                                   MMM');
  645. writeln('MMZ                                  MMM');
  646. writeln('MMM                                 MMMM');
  647. writeln('MMMM                               MMMMM');
  648. writeln('MMMMM,                           .MMMMMM');
  649. writeln('MMMMMMM                         MMMMMMMM');
  650. writeln('MMMMMMMMM                     MMMMMMMMMM');
  651. writeln('MMMMMMMMMMMN               IMMMMMMMMMMMM');
  652. delay(300);
  653. clrscr;
  654. writeln('MMMMMMMMMMMM               MMMMMMMMMMMMM');
  655. writeln('MMMMMMMMM                     MMMMMMMMMM');
  656. writeln('MMMMMMM                         MMMMMMMM');
  657. writeln('MMMMM8                          ..MMMMMM');
  658. writeln('MMMM.                              MMMMM');
  659. writeln('MMM,                                MMMM');
  660. writeln('MMM                                 :MMM');
  661. writeln('MM                                   MMM');
  662. writeln('M8                                    MM');
  663. writeln('M                    _     _          MM');
  664. writeln('7         /\  /\    | \   |_|         IZ');
  665. writeln('I        /  \/  \ . |_/ . |           ?7');
  666. writeln('M       Max Demajo Programming        MM');
  667. writeln('M7                                    MM');
  668. writeln('MM                                   MMM');
  669. writeln('MMZ            Presents              MMM');
  670. writeln('MMM                                 MMMM');
  671. writeln('MMMM                               MMMMM');
  672. writeln('MMMMM,                           .MMMMMM');
  673. writeln('MMMMMMM                         MMMMMMMM');
  674. writeln('MMMMMMMMM                     MMMMMMMMMM');
  675. writeln('MMMMMMMMMMMN               IMMMMMMMMMMMM');
  676. until index=3;             {logo animation ends}
  677.  
  678. delay(1000);

it uses constants for log and logo. as you can see, i used a loop for the last part where 'presents' flashes. is it possible to make the beggining a loop aswel using goto x,y or something? because its a real lot of text and i would like to make it smaller. any help?
Reply With Quote Quick reply to this message  
•
•
Join Date: Feb 2009
Posts: 456
Reputation: FlamingClaw will become famous soon enough FlamingClaw will become famous soon enough 
Solved Threads: 110
FlamingClaw's Avatar
FlamingClaw FlamingClaw is offline Offline
Posting Pro in Training

Re: Animation in pascal

 
0
  #2
Mar 24th, 2009
how many times you want to run this procedure?
Be a good part of the community.Don't be ungrateful.
If you ask something on the forum and you got the right answer then mark as solved!
If my opinion helped to you a lot then sometimes give reputation point to me.
I'm just a pascal programmer from Hungary.
Farewell...
Reply With Quote Quick reply to this message  
•
•
Join Date: Oct 2008
Posts: 35
Reputation: m610 is an unknown quantity at this point 
Solved Threads: 1
m610 m610 is offline Offline
Light Poster

Re: Animation in pascal

 
0
  #3
Mar 24th, 2009
Looks like fun. Reminds me of the ASCII movie version of Star Wars.
Reply With Quote Quick reply to this message  
•
•
Join Date: Nov 2007
Posts: 68
Reputation: jsosnowski is an unknown quantity at this point 
Solved Threads: 11
jsosnowski's Avatar
jsosnowski jsosnowski is offline Offline
Junior Poster in Training

Re: Animation in pascal

 
0
  #4
Mar 24th, 2009
It looks like only a few lines actually change. Why don't you put the graphic in a loop with the few lines that change as a separate method? You can use counters to keep track of when to begin or change the lines that require it.
Reply With Quote Quick reply to this message  
•
•
Join Date: Oct 2008
Posts: 35
Reputation: m610 is an unknown quantity at this point 
Solved Threads: 1
m610 m610 is offline Offline
Light Poster

Re: Animation in pascal

 
0
  #5
Mar 25th, 2009
I would make each screen a separate procedure and let the main program loop call them when needed. Basically, you'll have a series of screens, then you write the script to display them whenever and for however long you want.

For fun, some procedures might only replace parts of previous screens. For example, just replace the text by going to the screen position and writing it. Or, if you have a background, then just overlay the new foreground image by doing a character-by-character comparison of the areas you want to display the new image at. Either way, it would cut down enormously on how much memory and related resources you have to use to store the strings.

Might as well use color while you are at it.
Reply With Quote Quick reply to this message  
•
•
Join Date: Feb 2009
Posts: 456
Reputation: FlamingClaw will become famous soon enough FlamingClaw will become famous soon enough 
Solved Threads: 110
FlamingClaw's Avatar
FlamingClaw FlamingClaw is offline Offline
Posting Pro in Training

Re: Animation in pascal

 
0
  #6
Mar 25th, 2009
You can use these:
pascal Syntax (Toggle Plain Text) 
  1. While (condition true) Do
  2.    Begin
  3.       {your codes here..}
  4.    End;
  5.  
  6. {Or}
  7.  
  8. Repeat
  9.    {your codes here...}
  10. Until (condition true);
  11.  
  12. {Or}
  13.  
  14. For i:=min To max Do
  15.    Begin
  16.       {your codes here...}
  17.    End;
  18.  
  19. {
  20. Do not forget about the 'Break' procedure,if you want to stopping these loops if needed
  21. }
Be a good part of the community.Don't be ungrateful.
If you ask something on the forum and you got the right answer then mark as solved!
If my opinion helped to you a lot then sometimes give reputation point to me.
I'm just a pascal programmer from Hungary.
Farewell...
Reply With Quote Quick reply to this message  
Reply

Quick Reply to Thread
This thread is more than three months old.
Perhaps start a new thread instead?
•
•
•
•
•
•
•
•
Message:
•
•
•
•



Similar Threads
Other Threads in the Pascal and Delphi Forum
Thread Tools Search this Thread



Tag cloud for Pascal and Delphi
button database dbisam delphi delphihelpimageforloop documentcomplete2 download environment events form fpc lasrautoinc media navigatecomplete2 open pascal passing player set sql twebbrowser variable win7
About Us | Contact Us | Advertise | DaniWeb | Acceptable Use Policy | RSS Feed

©2003 - 2009 DaniWeb® LLC