home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 076-100 / apd076 / icon_conv.amos / icon_conv.amosSourceCode
AMOS Source Code  |  1990-11-07  |  18KB  |  44 lines
  1. Extension_0_0646  TO ICON CONVERTER$
  2.  Extension_0_0646 Illegal_Constant_0024 Extension_0_2053 Extension_0_6861 Extension_0_646F Extension_0_7720 Extension_0_536F Extension_0_6674 Extension_0_7761 Extension_0_7265 Extension_0_2031 Extension_0_342F Extension_0_352F Extension_0_3930 Extension_0_2077 Extension_0_7269 Extension_0_7474 Extension_0_656E Extension_0_2066 Extension_0_6F72 
  3.  Extension_0_0646 DARIN/JAWX 1990 $
  4.  Extension_0_0646 '                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          ully Automated, Just run it, select a sprite'
  5.  Extension_0_0646 '                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      ank name, and then select an icon bank name '
  6.  Extension_0_0646 N DONE. :
  7.  Extension_0_0646 
  8. F$=""
  9. While F$=""
  10. F$= Field("*.ABK","","Pick a sprite bank")
  11. If F$="" Then Global 
  12. If Extension_0_0570( Extension_0_052A(F$,4))<>".ABK" Then F$=""
  13.  Extension_0_2152 1
  14. If F$<>"" Then Extension_0_1842 F$,1
  15. A$="" : A=0 : Repeat : A$=A$+Flip$( Extension_0_21DA(Start(1)-8+A)) : Extension_0_0438 A : Until A=8
  16. If A$<>"Sprites " Then F$=""
  17. Wend 
  18. F$=""
  19. While F$=""
  20. F$= Field("*.ABK","","Save Icons as:")
  21. If F$="" Then Global 
  22. If Extension_0_0570( Extension_0_052A(F$,4))<>".ABK" Then F$=""
  23. Wend 
  24.  Extension_0_1DC6 
  25.  Extension_0_09DE 0,320,30,4,Hires : Extension_0_143A : Extension_0_0D28 
  26. Windon0,0 : Paper "Converting Bobs to Icons"
  27. Windon0,1 : Paper "Please wait"
  28.  Extension_0_0B14 
  29.  Extension_0_2152 2
  30. N=1 : Repeat 
  31. A= Extension_0_1A66(N)
  32. XSIZE=Peek(A)*16
  33. YSIZE=Peek(A+2)
  34. BP=Peek(A+4)
  35.  Extension_0_09DE 1,320,YSIZE+16,2^BP,Hires
  36.  Extension_0_143A : Extension_0_0D28 
  37.  Extension_0_1BA2 
  38.  Extension_0_0A84 1
  39.  Extension_0_1CF2 0,0,N
  40.  Extension_0_1CBA N,0,0 To XSIZE,YSIZE
  41.  Extension_0_0438 N : Until N>Length(1)
  42.  Extension_0_182C F$,2
  43.  Extension_0_0C62 0
  44. Windon0,2 : Paper Extension_0_058C(Length(1))+" Icons in bank"