This makes me wonder what other gems are hidden on other people's HDs.tlr wrote:HISTORY
-------
fcbpaint V0.5, 2009-11-19
Since the graphics mode used by fcbpaint is a true superset of the one used in MINIPAINT, a converter could serve as useful start point:tlr wrote:Not yet but I'd love people to make some pics using it!
Code: Select all
10 REM ** MG2FCB V2
11 :
12 INPUT"MG FILE";S$:INPUT"FCB FILE";T$:DN=PEEK(186):@LOAD(S$),DN:B=PEEK(36879)
13 OPEN2,DN,1,T$:PRINT#2,CHR$(0)CHR$(81)CHR$(70)CHR$(67)CHR$(66)CHR$(0);
14 PRINT#2,CHR$(BAND7)CHR$(BAND7);:FORT=1TO250:PRINT#2,CHR$(0);:NEXT
15 FORY=0TO11:GOSUB21:NEXT:FORT=1TO32:PRINT#2,CHR$(0);:NEXT
16 FORY=12TO23:GOSUB21:NEXT:FORT=1TO32:PRINT#2,CHR$(0);:NEXT
17 GOSUB25:GOSUB25
18 A=PEEK(36878)AND240:FORY=1TO192:PRINT#2,CHR$(A)CHR$(B);
19 FORT=1TO30:PRINT#2,CHR$(0);:NEXT:NEXT:CLOSE2:@RETURN:END
20 :
21 FORX=0TO19:AD=4352+192*X+8*Y
22 FORT=0TO7:PRINT#2,CHR$(PEEK(AD+T));:NEXT
23 NEXT:FORT=0TO7:PRINT#2,CHR$(85);:NEXT:RETURN
24 :
25 FORY=0TO23:AD=37888+20*INT(Y/2)
26 FORX=0TO19:PRINT#2,CHR$(PEEK(AD+X)AND15);:NEXT:PRINT#2,CHR$(8);:NEXT
27 FORT=1TO8:PRINT#2,CHR$(0);:NEXT:RETURN
28 :
29 REM ** MG2FCB V2 WRITTEN 2019-03-02 BY MICHAEL KIRCHER
As an example, I've converted the Smurf image I recently did in MINIPAINT, and loaded it into fcbpaint:
Greetings,
Michael
Edit: repaired defunct links (again)
Edit 2 (2019-03-02): decommissioned original version of MG2FCB. Link updated, please reload and use only new V2 version!