home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / basic / bmag / jpark.bas < prev    next >
Encoding:
BASIC Source File  |  1994-04-26  |  3.9 KB  |  68 lines
  1. '─ Area: F-QUICKBASIC ─────────────────────────────────────────────────────────
  2. '  Msg#: 331                                          Date: 21 Apr 94  17:07:00
  3. '  From: Robert Fisher                                Read: Yes    Replied: No 
  4. '    To: All                                          Mark:                     
  5. '  Subj: Jurasic Park
  6. '──────────────────────────────────────────────────────────────────────────────
  7. 'Here is the Jurasic Park logo, it's actually pretty good.
  8.  
  9. CLS : SCREEN 10: LOCATE 12, 1: PRINT "Welcome to....."
  10. SLEEP 3: CLS : SCREEN 7: FOR n = 107 TO 110: CIRCLE (155, 100), n, 15: NEXT n
  11. '<--Goes on line above                 
  12. CIRCLE (155, 100), 105, 4: CIRCLE STEP(0, 0), 104, 4
  13. CIRCLE STEP(0, 0), 103, 4: CIRCLE STEP(0, 0), 102, 0
  14. CIRCLE STEP(0, 0), 98, 14: CIRCLE STEP(0, 0), 106, 4
  15. DRAW "p14,14bl157bd60c15r320u60l320d60bu10br150p0,14"
  16. DRAW "bl149bd9c15r318u58l318d58be1r316u56l316d56c15"
  17. LOCATE 14, 2: PRINT "                                  "
  18. LOCATE 15, 2: PRINT "                                  "
  19. LOCATE 16, 2: PRINT "                                  "
  20. LOCATE 17, 2: PRINT "                                  "
  21. LOCATE 18, 2: PRINT "                                  "
  22. LOCATE 19, 2: PRINT "                                  "
  23. LOCATE 20, 2: PRINT "              The Game                "
  24. DRAW "c15BU5BR6R15E10U35L10D30G7L9D8BE1P15,15BG1BR29BU6"
  25. DRAW "U39R8D25F2R5E2U25R8D39G3L19H3BR1P15,15BL1BD3BR28"
  26. DRAW "U42R15F7D7G6D5F6D11L8U8H4L2D12L8BU29BR7U6R3F2D2G2L2"
  27. DRAW "BD1P15,15BD28BR17U36E6R12F6D36L8U18H1L6G1D18L8BU27BR8"
  28. DRAW "U7ER6F1D7L8BDP15,15BD26BR19r15e5u7h10u9e4r5u7l10g7d13"
  29. DRAW "f10d5g1l11d5be1p15,15bd2br22r15e5u7h10u9e4r5u7l10g7"
  30. DRAW "d13f10d5g1l11d5be1p15,15bd2br22u42r7d42l7be1 p15,15"
  31. DRAW "bdbr12h3u36e3r13d5l5g5d22f5r5d5l13be1p15,15bd1br25bd6"
  32. DRAW "u48r25f3d20g3l15d22l10bu30br10u10r7f2d6g2l7bd1 p15,15"
  33. DRAW "bd23br21U36E6R12F6D36L8U18H1L6G1D18L8BU27BR8U7E1R6F1"
  34. DRAW "D7L8BD1P15,15BD26BR19U42R15F7D7G6D5F6D11L8U8H4L2D12"
  35. DRAW "L8bU29BR7U6R3F2D2g2l2BD1P15,15BD28BR17u42r7d20r3e10"
  36. DRAW "u3r9d3g15f12d5l7u3h12d15l7be1p15,15bu2br2c4u35d20r7"
  37. DRAW "e15g15f15bl32u7h7u4e7u5h7l7d20r7l7d17bl11u32h3l9g3d12"
  38. DRAW "r15l15d20bl31bd6u40r15f3d10g3l15bl20bd19l6h5u27e5r6"
  39. DRAW "bl21d36bl25r12e3u5h10u11e6r6bd35bl40r12e3u5h10u11e6r6"
  40. DRAW "bd35bl25u32h3l9g3d12r15l15d20bl12u7h7u4e7u5h7l7d20r7"
  41. DRAW "l7d17bu37bl11d30g5l7h5u30bl12d30g9l10bd10c0l6ur6br75"
  42. DRAW "bd2r6br134r6bu1br83r4ul4br4bu55l266br4bu1r3u1l3u1r3b"
  43. DRAW "r198r3dl3d1r3bl4c14l196u1r196u1l196bd60br32r132c15bd1"
  44. DRAW "br11r86dl86bu1bl154l80dr80bl76bu2u57l1d56c0bd15br110"
  45. DRAW "u5r1f2e4r1d2g3r2e2d2rf2u3eu2l2uh3ue2r3f1r1f1r3urf2d2"
  46. DRAW "g3l3g1d3r4f2u1r4f2u3l2h3u2e2ue3r2er3dr2urf2d3g2dg2r2"
  47. DRAW "f3u1r1u3eu2r2er2u2e3r2df4d2r3f3dr3u1e4u2re3r2f4d3g2d"
  48. DRAW "r3u1e4r2d2rf5g5l8d2l11d2l44u2l12u3l8u3l3br45bu2r3uh2"
  49. DRAW "l2d1fl2d1fbd2p0,0bh95bu7u3r6f2d4r4e3ru3er6f2d1f2r2e3"
  50. DRAW "u4re2r4fdfd2r3er3e1u4hur2f3r1d3r2e2r2u3h2r3f3dr3e5h3"
  51. DRAW "l2e2r5f2e5u2l3g3u3e4r4e4l5g2l2u2e4r8e5r2e3r5e4r4f4r5"
  52. DRAW "f4r3f10r3f10r3f7d4g5l1h3ghghghg2h3l5h3l10h4l4h2lg2l3"
  53. DRAW "hl3g3l2gdr4f3r2f2d2l2hl2gf5r4f3r5f3r6f2r5f4dg2l10h3"
  54. DRAW "l7h4l8h2l10h7l2h3be20br9h3u2e2reu2hlh2u3e2r3f3d11g4"
  55. DRAW "br10bd4u2e3u2h5u3e2r3f5r2f5d3g8l2h3l2br15bd2ue2r3f4d"
  56. DRAW "g2l3h3lbg12bl43l2d8hu6g2d6g2ueu5g3d3g2d3g2ueu5g5df5"
  57. DRAW "r2e2r2f2rer3er4e2u2e2r3fr2f2l5hg2drfr4f2l7hg2l4gl3gl"
  58. DRAW "d3r2e2r5f2rer3er4e2u2e2r3fr2f2l5hg2drfr4f2l7hg2l5gl4"
  59. DRAW "g2l30h7l3h3l3g3l4g3l6g2l4g2bu15br32f7r2f5r4u3l4h7l2h2"
  60. DRAW "l3bl25p0,0d12f3r3h4bd1p0,0br14bd2h2u4l3d5f3bu2p0,0bd1"
  61. DRAW "br12u6rd6ru6ru8rd4ru4br50bu13u2br2bdu2bd3br2u3bd5br2"
  62. DRAW "u3ed4br3u4ed5bf3u5eud7br3u3eued6lu3bd5br3ueu3ed6lu1d2"
  63. DRAW "br3u2eued5lu2bd3br3u2ed4c14bu3bl3l6hl4hl3u2l4hl3ulhul3"
  64. DRAW "c0bu14br8d2u3r2d4u3brbf2d4eu2r2d4eu3r2d5eu4r3d2fd2fu5"
  65. DRAW "ld2u2r3f2d3fd2fu6ld3u3r4d5fu6r4d5eu2br3d4eu3c14l6hl7h"
  66. DRAW "bh3l10ul3bu3bl2l3": COLOR 4: SLEEP
  67.  
  68.