home *** CD-ROM | disk | FTP | other *** search
/ Sauce 'n' Code 1 / sauce-n-code-01.adf / AMOS_Extension / stars_demo.amos / stars_demo.amosSourceCode
AMOS Source Code  |  1995-05-06  |  344b  |  11 lines
  1. 'by steve in 30 secs flat, first time ive ever used this ext, very good stuff
  2. Screen Open 0,320,256,16,Lowres
  3. Hide : Cls 0
  4.  Extension_20_003A 0,1,128
  5. Do 
  6.    If Jup(1) Then Extension_20_0070 2
  7.    If Jdown(1) Then Extension_20_0070 3
  8.    If Jleft(1) Then Extension_20_0070 0
  9.    If Jright(1) Then Extension_20_0070 1
  10.    Exit If Inkey$=Chr$(27)
  11. Loop