home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 576-600 / apd600 / amos_turbo / demos / stars&blit.amos / stars&blit.amosSourceCode
AMOS Source Code  |  1994-02-02  |  921b  |  41 lines
  1. Screen Open 0,320,200,2,Lowres
  2. Curs Off 
  3. Screen Open 1,320,200,2,Lowres
  4. Curs Off 
  5. TEKST$="HELLO GUYS...MULTI BLIT AND DISPLAY STARS ARE NOW RUNNING UNDER INTERRUPTS !!!"
  6. _LENGTE=Len(TEKST$)
  7. EERSTE_LETTER=1
  8. LAATSTE_LETTER=EERSTE_LETTER+_LENGTE
  9. LETTER=1
  10.  Extension_12_031E 1,1,0,104 To 320,111,-1
  11.  Extension_12_031E 1,2,0,122 To 320,129,1
  12. Screen 0
  13.  Extension_12_03C8 400
  14. For I=1 To 400
  15.     Extension_12_03DC I,Rnd(319),I/2,Rnd(4)+2,0
  16. Next 
  17. Dual Playfield 0,1
  18. Colour 1,$FFF
  19. Colour 9,$FF
  20.  Extension_12_04A2 1
  21.  Extension_12_04CA 1 To 2
  22. Screen 1
  23.  Extension_12_0016 
  24. Repeat 
  25.    COUNT=0
  26.    LETTER$=Mid$(TEKST$,LETTER,1)
  27.    Text 300,110,LETTER$
  28.    Text 0,128,LETTER$
  29.    Add LETTER,1,EERSTE_LETTER To LAATSTE_LETTER
  30.    Repeat 
  31.       Wait Vbl 
  32.       Inc COUNT
  33.    Until COUNT>10
  34. Until Extension_12_03B8 
  35.  Extension_12_0006 
  36.  Extension_12_04B6 
  37.  Extension_12_04DE 
  38.  Extension_12_040A 
  39.  Extension_12_0354 1
  40.  Extension_12_0354 2
  41. Default