home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 351-375 / apd370 / t_scroll.bak / t_scroll.amosSourceCode < prev   
AMOS Source Code  |  1991-06-13  |  4KB  |  143 lines
  1. ' Als je het programma gewoon in Amos run't dan schokt het 
  2. ' zo erg dat het niet aan te zien is!
  3. '
  4. ' Maar gecompileerd....... 
  5. '  
  6. ' J.Valks  
  7. '
  8. Set Buffer 8
  9. Auto View Off 
  10. Screen 0 : Flash Off : Curs Off : Hide : Palette $0,$0,$0
  11. Dim X(46),Y(46),X2(46),Y2(46),SIZE(46)
  12. SC$=SC$+"HALLO AMOS LEDEN, HIER IS DAN WEER EEN NIEUWE CLUB DISK "
  13. SC$=SC$+"(NUMMER 2) VOL MET NIEUWE PROGRAMMAS EN DEMOS. HELAAS WEER "
  14. SC$=SC$+"WEINIG INZENDINGEN (1 MAAR!) VOOR DEZE SCHIJF. DIT INTRO IS "
  15. SC$=SC$+"OOK IN AMOS GEMAAKT, EN IS GECOMPILEERD MET DE AMOS "
  16. SC$=SC$+"COMPILER! DE COMPILER WERKT PERFECT! VEEL PROGRAMMAS WERKEN "
  17. SC$=SC$+"VEEL BETER ALS ZE ZIJN GECOMPILEERD! OK, EN NU DRUK OP DE "
  18. SC$=SC$+"LINKER MUIS KNOP   "
  19. SC$=SC$+"        "
  20. Unpack 8 To 1 : Screen Hide 1 : Autoback 0
  21. P$=P$+"Let Y=250; Let R0=4;"
  22. P$=P$+"S: P; If Y=270 Jump Q; Jump L; "
  23. P$=P$+"Q:       Let R0=-4;"
  24. P$=P$+"L:    If Y<214 Jump B;"
  25. P$=P$+"A:       Let Y=Y+R0; Jump S;"
  26. P$=P$+"B:       Let R1=R1+1; If R1>2 Jump E; Jump A;"
  27. P$=P$+"E:       Let R1=0; Let R0=R0+1;"
  28. P$=P$+"      If R0>4 Jump D; Jump A; "
  29. P$=P$+"D:    Let R0=4; Jump A;"
  30. SCRL$="ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789(!):-., "
  31. Restore SCR0LLY_DATA
  32. For F=1 To 44
  33.    Read TEMP$,X(F),Y(F),X2(F),Y2(F),SIZE(F)
  34. Next F
  35. SP=2
  36. TEMP=Varptr(SC$)
  37. TEMP2=Len(SC$)
  38. Auto View On 
  39. Screen Open 3,364,25,8,Lowres
  40. Curs Off : Flash Off : Cls 0 : Get Palette 1
  41. Double Buffer : Autoback 0
  42. Screen Display 3,130,260,320,
  43. Screen Clone 4
  44. Screen Clone 5
  45. Screen Clone 6
  46. Set Rainbow 0,1,32,"","","(1,1,0)"
  47. Rainbow 0,1,259,32
  48. KL=15
  49. For A=16 To 31
  50.    Dec KL
  51.    Rain(0,A)=KL
  52. Next A
  53. Rain(0,31)=$1
  54. Channel 0 To Screen Display 3
  55. Channel 1 To Screen Display 4
  56. Channel 2 To Screen Display 5
  57. Channel 3 To Screen Display 6
  58. Amal 0,P$
  59. Amal 1,P$
  60. Amal 2,P$
  61. Amal 3,P$
  62. Amal On 3
  63. Wait 2
  64. Amal On 2
  65. Wait 2
  66. Amal On 1
  67. Wait 2
  68. Amal On 0
  69. Do 
  70.    For LOP=0 To TEMP2-1
  71.       CNUM=Instr(SCRL$,Chr$(Peek(TEMP+LOP)))
  72.       Screen Copy 1,X(CNUM),Y(CNUM),X2(CNUM),Y2(CNUM)+1 To 3,320,0
  73.       For LOP1=1 To SIZE(CNUM) Step SP
  74.          If Mouse Click=1 Then EINDE
  75.          Screen Swap 
  76.          Wait Vbl 
  77.          Screen Copy Physic(3),0,0,368,40 To Logic(3),-SP,0
  78.       Next LOP1
  79.       If TEL<>False
  80.          Inc TELLER
  81.          If TELLER>12
  82.             Amal On 0
  83.             TEL=False
  84.          End If 
  85.       End If 
  86.    Next LOP
  87. Loop 
  88. SCR0LLY_DATA:
  89. Data "A",1,1,31,25,32
  90. Data "B",34,1,64,25,32
  91. Data "C",67,1,97,25,32
  92. Data "D",100,1,130,25,32
  93. Data "E",133,1,163,25,32
  94. Data "F",166,1,196,25,32
  95. Data "G",199,1,229,25,32
  96. Data "H",232,1,262,25,32
  97. Data "I",265,1,276,25,12
  98. Data "J",1,27,31,51,32
  99. Data "K",34,27,64,51,32
  100. Data "L",67,27,97,51,32
  101. Data "M",100,27,130,51,32
  102. Data "N",133,27,163,51,32
  103. Data "O",166,27,196,51,32
  104. Data "P",199,27,229,51,32
  105. Data "Q",232,27,262,51,32
  106. Data "R",265,27,295,51,32
  107. Data "S",1,53,31,77,32
  108. Data "T",34,53,64,77,32
  109. Data "U",67,53,97,77,32
  110. Data "V",100,53,130,77,32
  111. Data "W",133,53,163,77,32
  112. Data "X",166,53,196,77,32
  113. Data "Y",199,53,229,77,32
  114. Data "Z",232,53,262,77,32
  115. Data "0",1,79,29,103,32
  116. Data "1",32,79,46,103,32
  117. Data "2",49,79,77,103,32
  118. Data "3",80,79,108,103,32
  119. Data "4",111,79,139,103,32
  120. Data "5",142,79,171,103,32
  121. Data "6",174,79,202,103,32
  122. Data "7",205,79,233,103,32
  123. Data "8",236,79,264,103,32
  124. Data "9",267,79,295,103,32
  125. Data "(",1,105,16,129,14
  126. Data "!",19,105,29,129,12
  127. Data ")",32,105,47,129,14
  128. Data ":",50,105,60,129,12
  129. Data "-",63,105,93,129,32
  130. Data ".",96,105,106,129,12
  131. Data ",",109,105,119,129,12
  132. Data " ",1,170,20,199,19
  133. Procedure EINDE
  134.    For S=3 To 5
  135.       Screen Close S
  136.    Next S
  137.    Screen Close 1
  138.    Erase 8
  139.    Cls 0
  140.    Screen Close 0
  141.    Print "- a SENSOR production -"
  142.    End 
  143. End Proc