home *** CD-ROM | disk | FTP | other *** search
/ Sauce 'n' Code 3 / sauce-n-code-03.adf / Source_Code / Amal_Dots.asc next >
Text File  |  1996-01-21  |  657b  |  33 lines
  1. '--------------------------------------------------------------------------- 
  2. '                AMAL DOTS DEMO BY JOHN HARDIE (JOK/NFA) 
  3. '--------------------------------------------------------------------------- 
  4. '
  5.  
  6. Load "amaldots.abk"
  7.  
  8. Screen Open 0,320,256,2,0
  9. Flash Off : Curs Off : Hide : Cls 0 : Palette $43,$65
  10. Double Buffer : Screen Hide 0
  11. Synchro Off 
  12. '
  13. For A=1 To 63
  14.    Bob A,-1,-1,1
  15.    Channel A To Bob A
  16.    A$="A0,(1,3)(2,3)(3,3)(4,3)(5,3)(6,3)(5,3)(4,3)(3,3)(2,3);"
  17.    A$=A$+"L:LX=Z(160)+110;LY=Z(100)+60;MZ(600)-300,Z(1000)-500,Z(100)+50;JL"
  18.    Amal A,A$ : Amal On A
  19.    Synchro 
  20. Next A
  21. '
  22. Screen Show 
  23. '
  24. Do 
  25.    Synchro 
  26.    Wait Vbl 
  27. Loop 
  28.  
  29.  
  30.  
  31.  
  32.  
  33.