home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / various / funny_scroll.amos / funny_scroll.amosSourceCode < prev    next >
AMOS Source Code  |  1990-10-14  |  3KB  |  137 lines
  1. '
  2. ' FUNNY SCROLL ROUTINE 
  3. '
  4. ' Made by J.Valks on 13-07-91
  5. '
  6. '--------------------------------------
  7. Shared POS,AANTAL,TELLER,NR,X1,Y1,X2,Y2
  8. Shared T$
  9. Screen Open 0,320,200,16,Lowres
  10. Flash Off : Curs Off : Palette $0,$0,$FFF
  11. Cls 
  12. '--------------------------------------
  13. SCHERM_SETUP
  14. INIT_DATA
  15. LETS_DO_IT
  16. '--------------------------------------
  17. Procedure SCHERM_SETUP
  18.    Curs Off : Flash Off 
  19.    Palette $0,$0,
  20.    Screen Open 1,320,250,4,Lowres
  21.    Palette $0,$0,
  22.    Curs Off : Flash Off 
  23.    Get Rom Fonts : Set Font 1
  24.    Double Buffer : Hide 
  25.    Set Rainbow 0,2,91,"","","(1,1,0)"
  26.    Rainbow 0,2,165,91
  27.    For AANTAL=1 To 4
  28.       For A=1 To 15
  29.          Inc TELLER
  30.          If TELLER>90
  31.             Goto ERUIT
  32.          End If 
  33.          Rain(0,TELLER)=A
  34.       Next A
  35.       For A=15 To 1 Step -1
  36.          Inc TELLER
  37.          If TELLER>90
  38.             Goto ERUIT
  39.          End If 
  40.          Rain(0,TELLER)=A
  41.       Next A
  42.    Next AANTAL
  43.    ERUIT:
  44.    '----------------------------- 
  45.    Screen Open 2,320,60,2,Lowres
  46.    Flash Off : Curs Off 
  47.    Palette $5,$5,
  48.    Screen Display 2,,250,,
  49. End Proc
  50. Procedure TAKE_TEKST$[TEKST$]
  51.    Screen 0
  52.    Locate 0,0 : Print TEKST$
  53.    X1=0 : X2=8
  54.    For TELLER=1 To 21
  55.       Get Bob 0,TELLER,X1,0 To X2,8
  56.       Add X1,8 : Add X2,8
  57.    Next TELLER
  58.    Cls 
  59.    Screen 1
  60. End Proc
  61. Procedure INIT_DATA
  62.    T$=T$+" HALLO AMOS FREAKS!  "
  63.    T$=T$+" HIER IS ALWEER EEN  "
  64.    T$=T$+"NIEUWE SCROLL, HET IS"
  65.    T$=T$+"NIET ECHT EEN SCROLL,"
  66.    T$=T$+"MAAR HET ZIET ER LEUK"
  67.    T$=T$+"   UIT (DACHT IK)    "
  68.    T$=T$+"IK HEB DIT PROGRAMMA "
  69.    T$=T$+"IN 10 MINUTEN GEMAAKT"
  70.    T$=T$+"ELKE LETTER DIE JE OP"
  71.    T$=T$+" HET SCHERM ZIET IS  "
  72.    T$=T$+" EEN BOB, HET AANTAL "
  73.    T$=T$+"IS NU 21 MAAR JE KAN "
  74.    T$=T$+"MAKKELIJK NAAR DE 40!"
  75.    T$=T$+"  ALLE BOBS WORDEN   "
  76.    T$=T$+" BEWOGEN DOOR MAAR 1 "
  77.    T$=T$+"AMAL-REGEL, KIJK MAAR"
  78.    T$=T$+"IN DE SOURCE LISTING "
  79.    T$=T$+"MOMENTEEL WERK IK AAN"
  80.    T$=T$+" EEN SINUS SCROLLER  "
  81.    T$=T$+" DEZE WERKT AL VOOR  "
  82.    T$=T$+" DE HELFT. OOK WORDT "
  83.    T$=T$+" ER GEWERKT AAN EEN  "
  84.    T$=T$+" CONVERSIE VAN HET   "
  85.    T$=T$+"SPEL 'HERO', DIT SPEL"
  86.    T$=T$+" IS VOORAL BEKEND OP "
  87.    T$=T$+"   DE COMMODORE 64   "
  88.    T$=T$+" MEER OVER DIT IS TE "
  89.    T$=T$+"  LEZEN IN 'NIEUWS'  "
  90.    T$=T$+"OK, VEEL PLEZIER MET "
  91.    T$=T$+"DIT KLEINE PROGRAMMA!"
  92.    X1=0 : X2=8 : POS=1
  93. End Proc
  94. Procedure LETS_DO_IT
  95.    Synchro Off 
  96.    Do 
  97.       TEKST$=Mid$(T$,POS,21)
  98.       If Asc(Left$(TEKST$,1))=0
  99.          POS=1
  100.          TEKST$=Mid$(T$,1,21)
  101.       End If 
  102.       Add POS,21
  103.       TAKE_TEKST$[TEKST$]
  104.       PLAATS_BOB
  105.       VERDER:
  106.       Repeat 
  107.          Synchro : Wait Vbl 
  108.          If Mouse Click=1
  109.             EINDE
  110.          End If 
  111.       Until Amreg(0,0)=1
  112.    Loop 
  113. End Proc
  114. Procedure PLAATS_BOB
  115.    X1=90
  116.    For TELLER=0 To 20
  117.       Bob TELLER,X1,220,TELLER+1
  118.       Channel TELLER To Bob TELLER
  119.       A$=A$+";Let R0=0;Let Y=220; Loop: Move 0,-100,100; Move 0,100,100; Let R0=1;"
  120.       Amal TELLER,"Let X="+Str$(X1)+A$
  121.       Add X1,8
  122.       A$=""
  123.    Next TELLER
  124.    For TELLER=0 To 20
  125.       Amal On TELLER
  126.       Synchro : Wait Vbl 
  127.    Next TELLER
  128. End Proc
  129. Procedure EINDE
  130.    Bob Off : Rainbow Del 
  131.    Erase 1
  132.    Screen Close 2
  133.    Screen Close 1
  134.    Dir$="AMOS_COMPACT2:"
  135.    Run "menu.amos"
  136. End Proc
  137. '--------------------------------------