home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 3: The Continuation / 17-Bit_The_Continuation_Disc.iso / files / 2658a.dms / 2658a.adf / Starbase_13 / Starbase_13.amosSourceCode < prev   
AMOS Source Code  |  1993-05-10  |  2KB  |  121 lines
  1. Unpack 5 To 0
  2. Screen Hide 0
  3. Paper 0
  4. Curs Off 
  5. Hide 
  6. Close Editor : Close Workbench 
  7. Double Buffer 
  8. Screen Offset 0,0,0
  9. Screen Show 0
  10. RE4DME
  11. Unpack 5 To 0
  12. Hide 
  13. Double Buffer 
  14. Screen Offset 0,0,0
  15. Get Fonts 
  16. FONT["diamond",20]
  17. Wait 100
  18. PR1NT["   DTO Software presents",50]
  19. Bob 1,160,75,2
  20. Channel 1 To Bob 1
  21. Amal 1,"A 1,(2,2)(3,2)(4,2)(5,2)(6,2)(7,2)(8,2)(9,2)(10,2)(11,2)(12,2)(13,2)(14,2)(15,2)(16,2)"
  22. Amal On 1
  23. Music 1
  24. Wait 25
  25. PR1NT["   Programmed by E.W. Clay",25]
  26. PR1NT["          Using Amos",20]
  27. PR1NT["     Graphics by E.W. Clay",25]
  28. PR1NT["          and J.H. Clay",20]
  29. PR1NT["        Playtesting by.....",20]
  30. PR1NT["     J.H.C. & D. Sweeney",25]
  31. PR1NT["    Copyright 1993 E.W. Clay",30]
  32. FONT["diamond",12]
  33. Wait 50
  34. PR1NT["               3068 AD                 ",50]
  35. PR1NT["The starship 8.3 answers a distress call",50]
  36. PR1NT["from Starbase 13, the nearest outpost..",50]
  37. PR1NT["      ...to  Stingon territory.....",50]
  38. Wait 25
  39. Bob Off 1
  40. For Q=0 To 125
  41. Wait Vbl : Wait Vbl 
  42. Screen Offset 0,0,Q
  43. Next 
  44. Bob 2,-100,200,1
  45. Channel 1 To Bob 2
  46. Amal 1,"M 150,0,75"
  47. Synchro Off 
  48. Amal On 1
  49. For Q=1 To 75
  50. Synchro 
  51. Wait 2
  52. Next 
  53. Synchro On 
  54. Unpack 2 To 0
  55. Wait 25
  56. For Q=63 To 0 Step -1 : Wait 1 : Mvolume Q : Next 
  57. Run "starbase.amos"
  58. Default 
  59. Print C
  60. Print Chip Free
  61. Procedure PR1NT[Q$,WA1T]
  62. Get Bob 17,0,130 To 320,160
  63. No Mask 17
  64. Gr Writing 0
  65. For W=16 To 23
  66. Ink 23-(W-16)
  67. Text 0,150,Q$
  68. Next 
  69. For Q=1 To WA1T : Wait Vbl 
  70. If Mouse Key<>0
  71. Unpack 2 To 0
  72. Wait 25
  73. For Q=63 To 0 Step -1 : Wait 1 : Mvolume Q : Next 
  74. Run "starbase.amos"
  75. End If 
  76. Next 
  77. For W=16 To 23
  78. Ink W
  79. Text 0,150,Q$
  80. Next 
  81. Paste Bob 0,130,17
  82. End Proc
  83. Procedure RE4DME
  84. Pen 28
  85. Paper 0
  86. C["Starbase 13"]
  87. P
  88. C["A Graphic Adventure by E.W.Clay"]
  89. C["Copyright E.W.Clay 1993"]
  90. C["This game is freely distributable"]
  91. C["but all files must remain intact"]
  92. C["including the documentation"]
  93. C["The shareware fee is ï¿½5"]
  94. C["(It is worth it, really)"]
  95. P
  96. C["My address is:"]
  97. P
  98. C["E.W.Clay"]
  99. C["44, FINSTALL RD"]
  100. C["ASTON FIELDS"]
  101. C["BROMSGROVE"]
  102. C["WORCS"]
  103. C["B60 2EA"]
  104. P
  105. P
  106. C["Click mouse to continue"]
  107. Do : If Mouse Key<>0 : Exit : End If : Loop 
  108. End Proc
  109. Procedure C[A$]
  110. Centre A$
  111. Cdown 
  112. End Proc
  113. Procedure FONT[NAME$,SIZE]
  114. Get Fonts 
  115. For Q=1 To 100
  116. If(Left$(Font$(Q),Len(NAME$))=NAME$) and Val(Font$(Q)-NAME$-".font")=SIZE : Set Font Q : Exit : End If 
  117. Next 
  118. End Proc
  119. Procedure P
  120. Print 
  121. End Proc