home *** CD-ROM | disk | FTP | other *** search
/ The CDPD Public Domain Collection for CDTV 3 / CDPDIII.bin / pd / programming / amos / lturbo / demos / stars&blitter_interrupt.asc < prev    next >
Text File  |  1980-05-18  |  831b  |  42 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. Blit Store Left 1,1,0,104 To 320,111,-1
  11. Blit Store Left 1,2,0,122 To 320,129,1
  12. Screen 0
  13. Reserve Stars 400
  14. For I=1 To 400
  15.    Define Star 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. Stars Int On 1
  21. Blit Int On 1 To 2
  22. Screen 1
  23. Multi No 
  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 Left Click
  35. Multi Yes 
  36. Stars Int Off 
  37. Blit Int Off 
  38. Stars Erase 
  39. Blit Erase 1
  40. Blit Erase 2
  41. Default 
  42.