home *** CD-ROM | disk | FTP | other *** search
/ M.u.C.S. Disc 2000 / MUCS2000.iso / sigisoft / painter / ms-dos / pcx.lst < prev    next >
Encoding:
File List  |  1997-10-06  |  1.7 KB  |  107 lines
  1. SCREEN 17
  2. CLEAR
  3. DEFMOUSE 3
  4. DIM buf|(80000)
  5. DIM q|(480)
  6. TYPE pcxh:
  7. - BYTE pid,pver,pcod,pbit
  8. - WORD pminx,pminy,pmaxx,pmaxy,prezx,prezy
  9. - CHAR *48 ppal$
  10. - BYTE pres,ppln
  11. - WORD pplnesize,ppaltype
  12. - CHAR *58 pdummy$
  13. ENDTYPE
  14. DO
  15.   ALERT 3,"Bild Konverter V 4.0",1,"Lade PCX|Save SHB|Lade SHB|Ende|SHELL",dd%
  16.   REM *********** Programmende ***********
  17.   IF dd%=4
  18.     SCREEN 3
  19.     END
  20.   ENDIF
  21.   IF dd%=3
  22.     FILESELECT #ld$,"\*.SHB","",a$
  23.     IF EXIST(a$)=0
  24.       ALERT 3,"Datei nicht vorhanden ",1,"Sorry",d%
  25.       GOTO start
  26.     ENDIF
  27.     OPEN "I",#1,a$
  28.     z$=INPUT$(CVI(INPUT$(2,#1)),#1)
  29.     CLOSE #1
  30.     PUT 0,0,z$,1
  31.     KEYGET a
  32.   ENDIF
  33.   REM ******* Speicher SHB Bild *********
  34.   IF dd%=2
  35.     KILL name$
  36.     GET 0,0,640,400,box$
  37.     lang=LEN(name$)
  38.     lang$=LEFT$(name$,lang-3)
  39.     iij$="SHB"
  40.     name1$=lang$+iij$
  41.     IF name1$<>""
  42.       OPEN "O",#1,name1$
  43.       PRINT #1,MKI$(LEN(box$));box$
  44.       CLOSE #1
  45.     ENDIF
  46.   ENDIF
  47.   IF dd%=5
  48.     SHELL "ECHO Mit Exit zurück zum Zeichenprogramm"
  49.     SHELL ""
  50.   ENDIF
  51.   REM ********* Lade PCX Bild **********
  52.   IF dd%=1
  53.     CLS
  54.     pcxh:p.
  55.     FILESELECT "\*.PCX","",name$
  56.     IF name$<>""
  57.       OPEN "i",#1,name$
  58.       BGET #1,V:p.,128
  59.       l1&=p.pplnesize,l&=l1&*p.ppln
  60.       q&=0,s&=$a000,o&=0
  61.       DO
  62.         byt|=INP(#1)
  63.         IF byt| > $c0
  64.           bytx|=INP(#1)
  65.           FOR i|=$c1 TO byt|
  66.             buf|(q&) = bytx|,q&++
  67.           NEXT i|
  68.         ELSE
  69.           buf|(q&)=byt|,q&++
  70.         ENDIF
  71.         IF q& >= l&
  72.           BMOVE V:buf|(l1&*rr|),s&:o&,l1&
  73.           o&+=80
  74.           q&-=l&
  75.         ENDIF
  76.       LOOP UNTIL EOF(#1)
  77.       CLOSE #1
  78.       KEYGET a
  79.     ENDIF
  80.   ENDIF
  81.   dd%=0
  82. LOOP
  83.  
  84.  
  85.  
  86.  
  87.  
  88.  
  89.  
  90.  
  91.  
  92.  
  93.  
  94.  
  95.  
  96.  
  97.  
  98.  
  99.  
  100.  
  101.  
  102.  
  103.  
  104.  
  105.  
  106.  
  107.