home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 051-075 / apd063 / demodata / demodata.amosSourceCode < prev    next >
AMOS Source Code  |  1989-08-17  |  3KB  |  155 lines
  1. Screen Open 0,320,200,16,LORES
  2. Load "screen",7
  3. Open In 1,"tex"
  4. Line Input #1,SC$
  5. Close 1
  6. Open In 1,"men"
  7. Input #1,M
  8. Close 1
  9. Bank To Menu 6
  10. Proc A_TITLE
  11. Unpack 10 To 2 : Screen Open 1,354,Screen Height,Screen Colour,Lowres
  12. Screen Display 1,140,43,329,256 : Unpack 7 To 0 : Menu On : Music 1 : Screen 1
  13. Break Off 
  14. Curs Off 
  15. Dim X$(51),X(51),Y(51),XX(20),YY(20),O(4),V(4)
  16. Global V()
  17. SCNT=1
  18. CNT=31
  19. Def Scroll 1,1,223 To 353,255,-4,0
  20. On Menu Proc OPTIONS
  21. Curs Off 
  22. Cls 0
  23. Flash Off 
  24. On Menu On 
  25. Get Palette 2
  26. SCRL$="0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ@,!.:?/+-()#{} "
  27. Gosub PIXD
  28. Wait Vbl 
  29. Curs Off 
  30. ROO:
  31. Gosub STEXT : 
  32. Wait Vbl 
  33. Goto ROO
  34. PIXD:
  35. For F=1 To 51
  36.    Read X$(F),X(F),Y(F)
  37. Next F
  38. Return 
  39. Data "0",0,0
  40. Data "1",32,0
  41. Data "2",64,0
  42. Data "3",96,0
  43. Data "4",128,0
  44. Data "5",160,0
  45. Data "6",192,0
  46. Data "7",224,0
  47. Data "8",256,0
  48. Data "9",288,0
  49. Data "A",0,32
  50. Data "B",32,32
  51. Data "C",64,32
  52. Data "D",96,32
  53. Data "E",128,32
  54. Data "F",160,32
  55. Data "G",192,32
  56. Data "H",224,32
  57. Data "I",256,32
  58. Data "J",288,32
  59. Data "K",0,64
  60. Data "L",32,64
  61. Data "M",64,64
  62. Data "N",96,64
  63. Data "O",128,64
  64. Data "P",160,64
  65. Data "Q",192,64
  66. Data "R",224,64
  67. Data "S",256,64
  68. Data "T",288,64
  69. Data "U",0,96
  70. Data "V",32,96
  71. Data "W",64,96
  72. Data "X",96,96
  73. Data "Y",128,96
  74. Data "Z",160,96
  75. Data "@",192,96
  76. Data ",",224,96
  77. Data "!",256,96
  78. Data ".",288,96
  79. Data ":",0,128
  80. Data "?",32,128
  81. Data "/",64,128
  82. Data "+",96,128
  83. Data "-",128,128
  84. Data "(",160,128
  85. Data ")",192,128
  86. Data "#",224,128
  87. Data "{",256,128
  88. Data "}",288,128
  89. Data " ",288,223
  90. STEXT:
  91. Scroll 1
  92. On Menu On 
  93. Add CNT,4
  94. If CNT>31 Then Gosub NCHAR : CNT=0 : Inc SCNT : If SCNT>Len(SC$) Then SCNT=1
  95. Return 
  96. NCHAR:
  97. E$=Mid$(SC$,SCNT,1)
  98. E=Instr(SCRL$,E$)
  99. Screen Copy 2,X(E),Y(E),X(E)+31,Y(E)+31 To 1,320,223
  100. Return 
  101. Procedure OPTIONS
  102.    If Choice(2)=1 and Choice(3)=1 Then Led Off 
  103.    If Choice(2)=1 and Choice(3)=2 Then Led On 
  104.    If Choice(2)=2 and Choice(3)=1
  105.       Load "data1"
  106.       Music 1
  107.       On Menu On 
  108.    End If 
  109.    If Choice(2)=2 and Choice(3)=2
  110.       Load "data2" : Music 1
  111.       On Menu On 
  112.    End If 
  113.    If Choice(2)=2 and Choice(3)=3
  114.       Load "data3" : Music 1
  115.       On Menu On 
  116.    End If 
  117.    If Choice(2)=2 and Choice(3)=4
  118.       Load "data4" : Music 1
  119.       On Menu On 
  120.    End If 
  121.    If Choice(2)=2 and Choice(3)=5
  122.       Load "data5" : Music 1
  123.       On Menu On 
  124.    End If 
  125. On Menu On 
  126. End Proc
  127. Procedure A_TITLE
  128. Shared M
  129. Pen 3
  130. If M=0 Then Pop Proc
  131. Open In 1,"m.1"
  132. Input #1,A$
  133. Close 1
  134. Menu$(1,2,1)=A$
  135. If M=1 Then Pop Proc
  136. Open In 1,"m.2"
  137. Input #1,A$
  138. Close 1
  139. Menu$(1,2,2)=A$
  140. If M=2 Then Pop Proc
  141. Open In 1,"m.3"
  142. Input #1,A$
  143. Close 1
  144. Menu$(1,2,3)=A$
  145. If M=3 Then Pop Proc
  146. Open In 1,"m.4"
  147. Input #1,A$
  148. Close 1
  149. Menu$(1,2,4)=A$
  150. If M=4 Then Pop Proc
  151. Open In 1,"m.5"
  152. Input #1,A$
  153. Close 1
  154. Menu$(1,2,5)=A$
  155. End Proc