home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / amiga / programm / language / amosutil.lzh / NEO_CONV.AMOS / NEO_CONV.amosSourceCode
Encoding:
AMOS Source Code  |  1992-11-11  |  859 b   |  41 lines
  1. '**********************************
  2. '*** NEOCHROME picture display ****
  3. '**********************************
  4. '
  5. '*** Init screen 
  6. Hide On : Screen Open 0,320,200,16,Lowres
  7. Flash Off : Curs Off 
  8. '
  9. '*** Load NEOchrome picture into bank #15
  10. Reserve As Work 15,32128
  11. F$=Fsel$("","","")
  12. Bload F$,15
  13. '
  14. '*** Show picture
  15. Proc _SHOW_NEO[15]
  16. Wait Key 
  17. Default 
  18. End 
  19. '
  20. '*** Procedures
  21. Procedure _SHOW_NEO[BANK]
  22.    '*** Setup palette 
  23.    PALT=Start(BANK)+4
  24.    '
  25.    For C=0 To 15
  26.       Colour(C),Deek(PALT+(C*2))*2
  27.    Next C
  28.    '
  29.    '*** Draw picture
  30.    PICT=Start(BANK)+128
  31.    '
  32.    For Y=0 To 199
  33.       For X=0 To 19
  34.          Doke Phybase(0)+(X*2)+(Y*40),Deek(PICT+0)
  35.          Doke Phybase(1)+(X*2)+(Y*40),Deek(PICT+2)
  36.          Doke Phybase(2)+(X*2)+(Y*40),Deek(PICT+4)
  37.          Doke Phybase(3)+(X*2)+(Y*40),Deek(PICT+6)
  38.          Add PICT,8
  39.       Next X
  40.    Next Y
  41. End Proc