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