home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 28 / amigaformatcd28.iso / -seriously_amiga- / programming / amos / pic2txt / pic2txt10.amos / pic2txt10.amosSourceCode
AMOS Source Code  |  1998-05-09  |  1KB  |  53 lines
  1. On Error Proc ERR
  2. Resume Label 1
  3. Dim A$(15),Z$(31)
  4. A$(0)="#" : A$(1)="@" : A$(2)="0" : A$(3)="8" : A$(4)="%" : A$(5)="X"
  5. A$(6)="2" : A$(7)="�" : A$(8)=Chr$(177) : A$(9)=Chr$(215) : A$(10)="+"
  6. A$(11)="=" : A$(12)=":" : A$(13)="-" : A$(14)=Chr$(183) : A$(15)=" "
  7. 1 Screen Open 0,640,256,2,Hires : Palette $AAA,$0 : Curs Off 
  8. Locate 0,0 : Centre "PIC-2-TXT V1.0"
  9. Cdown : Centre "Written by Robert Ciesnik"
  10. Cdown : Centre "Copyright ï¿½1998 R-SOFT Entertainment Inc."
  11. For Y=0 To 31 : Z$(Y)="" : Next Y
  12. F$=Fsel$("","","PIC-2-TXT V1.0","Select an IFF-Picture")
  13. If F$="" Then End 
  14. Load Iff F$,1
  15. Screen 1
  16. X=Screen Width : Y=Screen Height
  17. Z=Screen Colour
  18. Screen Open 2,320,256,Z,Lowres : Curs Off : Flash Off 
  19. Screen 2
  20. Get Palette 1
  21. Zoom 1,0,0,X,Y To 2,0,0,80,32
  22. Screen Close 1
  23. Screen 2
  24. For Y=0 To 31
  25. For X=0 To 79
  26. R= Extension_12_0470(X,Y)
  27. D=Val("$"+Right$(Hex$( Extension_20_0020(Colour(R))),1))
  28. D$=Hex$(D)-"$"
  29. Z$(Y)=Z$(Y)+A$(D)
  30. Next X
  31.  Extension_12_0394 80,Y,1
  32.  Extension_12_0394 81,Y,0
  33. Next Y
  34. Screen Close 2
  35. Screen 0
  36. Locate 0,0
  37. For Y=0 To 31 : Print Z$(Y); : Next Y
  38. Repeat : Until Mouse Key=0
  39. Repeat : Until Mouse Key
  40. F$=Fsel$("","","PIC-2-TXT V1.0","Save Ascii-Picture")
  41. If F$="" Then Goto 1
  42. Open Out 1,F$
  43. For Y=0 To 31
  44. Print #1,Z$(Y);
  45. Print #1,Chr$(10);
  46. Next Y
  47. Print #1,"PIC-2-TXT V1.0 <-> Copyright ï¿½1998 R-SOFT Entertainment Inc.";Chr$(10);
  48. Close 1
  49. Goto 1
  50. Procedure ERR
  51. A= Extension_18_09E8("ERROR:",Err$(Errn),"                         "," FORGET IT "," FORGET IT ")
  52. Resume Label 
  53. End Proc