home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 576-600 / apd593 / o_meltdown_proc.amos / o_meltdown_proc.amosSourceCode
AMOS Source Code  |  1986-08-03  |  522b  |  35 lines
  1. '
  2. '**********************************
  3. '
  4. '      SCREEN MELTDOWN PROC
  5. '      --------------------
  6. '
  7. '     BY MALCOLM LAVERY 1993 
  8. '
  9. '**********************************
  10. '
  11. '
  12. Load ":PIX/CAVEMAN_BITS.abk",10
  13. Unpack 10 To 0
  14. Wait 100
  15. '
  16. '
  17. MELTDOWN[0]
  18. '
  19. '
  20. Procedure MELTDOWN[DES]
  21.    '
  22.    Screen DES
  23.    Ink 0
  24.    Bar 0,0 To 320,5
  25.    SW=Screen Width(DES)
  26.    SH=Screen Height(DES)
  27.    For T1=0 To 1000
  28.       SI=Rnd(100)+1
  29.       X=Rnd(SW-SI)
  30.       SP=Rnd(5)+1
  31.       Def Scroll 1,X,0 To X+SI,SH,0,SP
  32.       Scroll 1
  33.    Next T1
  34.    '
  35. End Proc