home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / routines / ham_gen.amos / ham_gen.amosSourceCode
AMOS Source Code  |  1993-05-28  |  319b  |  16 lines
  1. ' Ham FX Generator 
  2. ' ï¿½1993 Neil Wright  
  3. ' Of the C.I.A 
  4. '
  5. Close Editor 
  6. Close Workbench 
  7. Screen Open 0,320,256,4096,Lowres
  8. Curs Off : Hide 
  9. Cls 0
  10. NICE_HAM_ROUTINE_MISTER_GOSLING=2
  11. For I=0 To 360 Step 1
  12.    B=(I mod 4096)
  13.    Ink B
  14.    Box 1,256-I To 320,256-I
  15. Next I
  16. Shift Down NICE_HAM_ROUTINE_MISTER_GOSLING,1,4095,1