Author Topic: G-Paint 1.x und 2.0 gesucht  (Read 5516 times)

0 Members and 1 Guest are viewing this topic.

Offline CPCIak

  • CPC6128
  • ****
  • Posts: 232
  • Country: de
    • MTB Iserlohn
  • Liked: 12
  • Likes Given: 0
G-Paint 1.x und 2.0 gesucht
« on: 15:10, 13 May 10 »
Ich suche die Malprogramme GPaint 1 und 2. Leider kann ich nur die englischen Version von Robot PD finden.
Besitzt jemand von euch die deutschen Versionen?
Von GPaint 1 scheint es verschiedene Versionen zu geben: Ich habe die v1.4 vorliegen - funktioniert allerdings nicht korrekt.

Offline TFM

  • Visit the mysteries of the CPC at www.futureos.de
  • Supporter
  • 6128 Plus
  • *
  • Posts: 9.899
  • Country: aq
  • Space Chicken for FutureOS is free!
    • index.php?action=treasury
    • FutureOS - The revolution on CPC!
  • Liked: 1976
  • Likes Given: 4650
Re: G-Paint 1.x und 2.0 gesucht
« Reply #1 on: 03:07, 25 October 10 »
Meinst Du das G-Paint von Günter Radestock? Das welches die AtariST Maus unterstützt, die so schön proportional am CPC läuft. Also das G-Paint aus dem Schneider Magazin. Die einzige Konkurrenz des OCP. Oder doch was anderes?
TFM of FutureSoft
Also visit the CPC and Plus users favorite OS: FutureOS - The Revolution on CPC6128 and 6128Plus

Offline CPCIak

  • CPC6128
  • ****
  • Posts: 232
  • Country: de
    • MTB Iserlohn
  • Liked: 12
  • Likes Given: 0
Re: G-Paint 1.x und 2.0 gesucht
« Reply #2 on: 09:54, 25 October 10 »
Genau das meine ich: G-Paint aus dem Schneider Magazin.

Offline TFM

  • Visit the mysteries of the CPC at www.futureos.de
  • Supporter
  • 6128 Plus
  • *
  • Posts: 9.899
  • Country: aq
  • Space Chicken for FutureOS is free!
    • index.php?action=treasury
    • FutureOS - The revolution on CPC!
  • Liked: 1976
  • Likes Given: 4650
Re: G-Paint 1.x und 2.0 gesucht
« Reply #3 on: 00:52, 26 October 10 »
Na, ich hab mir echt mal die Arbeit gemacht und gesucht... und wieder erwarten sogar gefunden:
 
http://cpcwiki.eu/index.php/File:G-Paint%26DesktopIcons.dsk
 
 
Das ist meine private Version, also nicht über die Bilder wundern :-)
 
Hoffe das DSK taugt Dir. (Bedienung ist klar!?! Ab und an mit Return bestätigen ;)
TFM of FutureSoft
Also visit the CPC and Plus users favorite OS: FutureOS - The Revolution on CPC6128 and 6128Plus

Offline Gryzor

  • Administrator
  • 6128 Plus
  • *****
  • Posts: 15.167
  • Country: gr
  • CPC-Wiki maintainer
    • CPCWiki
  • Liked: 3006
  • Likes Given: 5333
Re: G-Paint 1.x und 2.0 gesucht
« Reply #4 on: 20:05, 28 October 10 »
Impressive...!

Offline TFM

  • Visit the mysteries of the CPC at www.futureos.de
  • Supporter
  • 6128 Plus
  • *
  • Posts: 9.899
  • Country: aq
  • Space Chicken for FutureOS is free!
    • index.php?action=treasury
    • FutureOS - The revolution on CPC!
  • Liked: 1976
  • Likes Given: 4650
Re: G-Paint 1.x und 2.0 gesucht
« Reply #5 on: 21:15, 28 October 10 »
Yes, well Sir. The problem is that the programs are in German (nice for me, bad for you). And we miss the source (hmm, at least I do). But if there is real interrest in G-Paint from you or another international CPC users, then I can try an attempt to translate that stuff. In the old days I used G-Paint a lot, even more than the OCP, because I can use the AtariST mouse with G-Paint - which is proportional ;-)))
 
« Last Edit: 21:17, 28 October 10 by TFM/FS »
TFM of FutureSoft
Also visit the CPC and Plus users favorite OS: FutureOS - The Revolution on CPC6128 and 6128Plus

Offline Gryzor

  • Administrator
  • 6128 Plus
  • *****
  • Posts: 15.167
  • Country: gr
  • CPC-Wiki maintainer
    • CPCWiki
  • Liked: 3006
  • Likes Given: 5333
Re: G-Paint 1.x und 2.0 gesucht
« Reply #6 on: 09:49, 29 October 10 »
Well, it's not like I would start using it daily; but it'd be nice to have an english version out there... I take it it doesn't use a string table that we could collectively translate, right?

Offline TFM

  • Visit the mysteries of the CPC at www.futureos.de
  • Supporter
  • 6128 Plus
  • *
  • Posts: 9.899
  • Country: aq
  • Space Chicken for FutureOS is free!
    • index.php?action=treasury
    • FutureOS - The revolution on CPC!
  • Liked: 1976
  • Likes Given: 4650
Re: G-Paint 1.x und 2.0 gesucht
« Reply #7 on: 23:35, 29 October 10 »
Well, it's not like I would start using it daily; but it'd be nice to have an english version out there... I take it it doesn't use a string table that we could collectively translate, right?

I got no idea... but I'll take a look at it...  ;)
 
@CPCIak: Taugt Dir die Version? Oder muss ich noch weitersuchen?  :)
TFM of FutureSoft
Also visit the CPC and Plus users favorite OS: FutureOS - The Revolution on CPC6128 and 6128Plus

Offline CPCIak

  • CPC6128
  • ****
  • Posts: 232
  • Country: de
    • MTB Iserlohn
  • Liked: 12
  • Likes Given: 0
Re: G-Paint 1.x und 2.0 gesucht
« Reply #8 on: 13:47, 31 October 10 »
Vielen Dank für die DSK ;)
Die Version 1.4, welche mir vorliegt, hatte einen Fehler:

Auszug aus GPAINT.
200 ON x GOSUB 1000,2000,3000,4000,5000,6000:RUN
1000 RUN"!GPAINT.BAS"
2000 RUN"!GPAINT.PRN"
3000 RUN"!GPAINT.TAS"
4000 RUN"!DIASHOW" - existiert nicht!

Änderung: 4000 run"!gpaint.dia"
Jetzt funktionieren alle Auswahlmöglichkeiten im Menü

Offline Devilmarkus

  • Vivid source of indefiniteness
  • 6128 Plus
  • ******
  • Posts: 4.035
  • Country: de
  • WebCPC / JavaCPC developer
    • index.php?action=treasury
    • CPC-Live website
  • Liked: 1011
  • Likes Given: 926
Re: G-Paint 1.x und 2.0 gesucht
« Reply #9 on: 21:04, 31 October 10 »
Ich hab mich mal drangesetzt, und schon die wichtigsten Teile nach Englisch übersetzt...
Die 2 fehlenden Programme werd ich bei Gelegenheit noch mit übersetzen.
(Wobei die fehlenden Programme BASIC sind, kann also jeder selbst sonst übersetzen!)



Hier meine Sourcen:
Code: [Select]
  ;; english patch for GPaint
  ;; patched by Markus Hohmann
  ;; &8DA1-&94EE (length = &700)

  ORG &8DA1

  DB &00,&00,&00,&00,&00,&00,&00,&00,&00,&00,&00,&00,&00,&00,&1F,&FF,&FF
  DB &FF,&FF,&FF,&FF,&F8,&07,&FF,&FF,&FF,&FF,&FF,&FE,&3F,&FF,&FF,&FF,&FF
  DB &FF,&FF,&F8,&0F,&FF,&FF,&FF,&FF,&FF,&FE,&7F,&FF,&FF,&FF,&FF,&FF,&F8
  DB &F8,&1F,&FF,&FF,&FF,&FF,&FF,&FE,&40,&00,&00,&20,&00,&00,&18,&10,&00
  DB &00,&00,&08,&00,&00,&06,&40,&00,&00,&20,&00,&00,&18,&10,&00,&00,&08
  DB &08,&00,&00,&06,&43,&3B,&98,&24,&77,&73,&18,&13,&3A,&29,&89,&9C,&94
  DB &94,&C6,&42,&A9,&20,&24,&25,&44,&18,&12,&AA,&2A,&09,&51,&5D,&06,&42
  DB &42,&A9,&10,&24,&25,&62,&18,&13,&2A,&11,&09,&99,&D4,&86,&42,&A9,&08
  DB &08,&24,&25,&41,&18,&12,&2A,&10,&89,&51,&54,&46,&43,&39,&30,&27,&75
  DB &75,&76,&18,&12,&3B,&93,&09,&9D,&55,&86,&40,&00,&00,&20,&00,&00,&18
  DB &18,&10,&00,&00,&08,&00,&00,&06,&40,&00,&00,&20,&00,&00,&18,&10,&00
  DB &00,&00,&08,&00,&00,&06,&40,&00,&00,&20,&00,&00,&18,&10,&00,&00,&08
  DB &08,&08,&00,&06,&40,&08,&00,&20,&01,&00,&98,&10,&00,&00,&08,&04,&00
  DB &00,&06,&40,&20,&08,&20,&02,&01,&18,&10,&03,&FC,&08,&02,&08,&06,&40
  DB &40,&10,&00,&20,&04,&02,&18,&12,&04,&08,&08,&01,&10,&06,&40,&04,&00
  DB &00,&20,&08,&04,&18,&11,&08,&10,&08,&00,&A0,&06,&40,&00,&80,&20,&10
  DB &10,&08,&18,&10,&90,&20,&08,&01,&C0,&06,&44,&00,&00,&20,&20,&10,&18
  DB &18,&10,&40,&40,&08,&0E,&40,&06,&40,&00,&00,&20,&40,&20,&18,&10,&20
  DB &20,&80,&08,&70,&C0,&06,&40,&00,&00,&20,&80,&40,&18,&10,&11,&00,&0B
  DB &0B,&80,&C0,&06,&40,&04,&40,&21,&00,&80,&18,&10,&0A,&00,&08,&01,&40
  DB &40,&06,&41,&00,&08,&22,&01,&00,&18,&10,&04,&00,&08,&01,&40,&06,&40
  DB &40,&00,&00,&24,&02,&00,&18,&10,&00,&00,&08,&02,&40,&06,&40,&00,&00
  DB &00,&20,&00,&00,&18,&10,&00,&00,&08,&02,&00,&06,&40,&00,&00,&20,&00
  DB &00,&00,&18,&10,&00,&00,&08,&04,&00,&06,&40,&00,&00,&20,&00,&00,&18
  DB &18,&10,&00,&00,&08,&04,&00,&06,&40,&00,&00,&20,&00,&00,&18,&10,&00
  DB &00,&00,&08,&00,&00,&06,&40,&00,&00,&20,&00,&00,&18,&10,&00,&00,&08
  DB &08,&00,&00,&06,&7F,&FF,&FF,&FF,&FF,&FF,&F8,&1F,&FF,&FF,&FF,&FF,&FF
  DB &FF,&FE,&40,&00,&00,&20,&00,&00,&18,&10,&00,&00,&08,&00,&00,&06,&40
  DB &40,&00,&00,&20,&00,&00,&18,&10,&00,&00,&08,&00,&00,&06,&5D,&89,&59
  DB &59,&A0,&73,&A8,&18,&16,&EC,&D1,&C9,&90,&9D,&C6,&51,&55,&D2,&20,&2A
  DB &2A,&A8,&18,&14,&4A,&91,&09,&51,&49,&06,&59,&9D,&59,&20,&32,&90,&18
  DB &18,&14,&4C,&91,&89,&91,&C9,&86,&51,&55,&50,&A0,&2A,&A8,&18,&14,&4A
  DB &4A,&91,&09,&11,&49,&06,&51,&55,&5B,&20,&73,&A8,&18,&16,&EA,&DD,&C9
  DB &C9,&1D,&49,&C6,&40,&00,&00,&20,&00,&00,&18,&10,&00,&00,&08,&00,&00
  DB &00,&06,&40,&00,&00,&20,&00,&00,&18,&10,&00,&00,&08,&00,&00,&06,&40
  DB &40,&00,&00,&20,&00,&00,&18,&10,&00,&00,&08,&00,&00,&06,&4F,&FF,&FF
  DB &FF,&27,&FF,&FF,&98,&10,&0F,&F0,&08,&07,&F8,&06,&48,&00,&01,&27,&FF
  DB &FF,&FF,&98,&10,&70,&0E,&08,&3F,&FF,&06,&48,&00,&01,&27,&FF,&FF,&98
  DB &98,&10,&80,&01,&08,&7F,&FF,&86,&48,&00,&01,&27,&FF,&FF,&98,&11,&00
  DB &00,&00,&88,&FF,&FF,&C6,&48,&00,&01,&27,&FF,&FF,&98,&12,&00,&00,&49
  DB &49,&FF,&FF,&E6,&48,&00,&01,&27,&FF,&FF,&98,&12,&00,&00,&49,&FF,&FF
  DB &FF,&E6,&48,&00,&01,&27,&FF,&FF,&98,&12,&00,&00,&49,&FF,&FF,&E6,&48
  DB &48,&00,&01,&27,&FF,&FF,&98,&12,&00,&00,&49,&FF,&FF,&E6,&48,&00,&01
  DB &01,&27,&FF,&FF,&98,&12,&00,&00,&49,&FF,&FF,&E6,&48,&00,&01,&27,&FF
  DB &FF,&FF,&98,&11,&00,&00,&88,&FF,&FF,&C6,&48,&00,&01,&27,&FF,&FF,&98
  DB &98,&10,&80,&01,&08,&7F,&FF,&86,&48,&00,&01,&27,&FF,&FF,&98,&10,&70
  DB &70,&0E,&08,&3F,&FF,&06,&4F,&FF,&FF,&27,&FF,&FF,&98,&10,&0F,&F0,&08
  DB &08,&07,&F8,&06,&40,&00,&00,&20,&00,&00,&18,&10,&00,&00,&08,&00,&00
  DB &00,&06,&40,&00,&00,&20,&00,&00,&18,&10,&00,&00,&08,&00,&00,&06,&40
  DB &40,&00,&00,&20,&00,&00,&18,&10,&00,&00,&08,&00,&00,&06,&7F,&FF,&FF
  DB &FF,&FF,&FF,&FF,&F8,&1F,&FF,&FF,&FF,&FF,&FF,&FE,&40,&00,&00,&20,&00
  DB &00,&00,&18,&10,&00,&00,&08,&00,&00,&06,&40,&00,&00,&20,&00,&00,&18
  DB &18,&10,&00,&00,&08,&00,&00,&06,&59,&DD,&BA,&2C,&4E,&E0,&18,&11,&DD
  DB &DD,&94,&08,&77,&44,&06,&55,&15,&12,&2A,&A4,&40,&18,&11,&15,&54,&08
  DB &08,&42,&44,&06,&59,&95,&12,&2E,&E4,&40,&18,&11,&15,&88,&08,&62,&44
  DB &44,&06,&51,&15,&12,&28,&A4,&40,&18,&11,&15,&08,&08,&42,&44,&06,&51
  DB &51,&D5,&BB,&A8,&A4,&48,&18,&11,&DD,&08,&08,&47,&77,&06,&40,&00,&00
  DB &00,&20,&00,&00,&18,&10,&00,&00,&08,&00,&00,&06,&40,&00,&00,&20,&00
  DB &00,&00,&18,&10,&00,&00,&08,&00,&00,&06,&40,&00,&00,&20,&00,&00,&18
  DB &18,&10,&00,&00,&08,&00,&00,&06,&40,&00,&00,&20,&00,&00,&18,&10,&40
  DB &40,&02,&08,&07,&80,&06,&40,&00,&00,&20,&1F,&F8,&18,&10,&E0,&07,&08
  DB &08,&08,&40,&06,&40,&00,&00,&20,&10,&08,&18,&00,&18,&10,&00,&00,&08
  DB &08,&00,&00,&06,&40,&00,&00,&20,&00,&00,&18,&18,&10,&00,&00,&08,&00
  DB &00,&00,&06,&40,&00,&00,&20,&00,&00,&18,&10,&40,&40,&02,&08,&07,&80
  DB &80,&06,&40,&00,&00,&20,&1F,&F8,&18,&10,&E0,&07,&08,&08,&08,&40,&06
  DB &06,&40,&00,&00,&20,&10,&08,&18,&10,&E0,&07,&08,&10,&20,&20,&06,&40
  DB &40,&00,&00,&20,&10,&08,&18,&10,&40,&82,&08,&13,&A1,&06,&40,&40,&00
  DB &00,&00,&20,&10,&08,&18,&11,&50,&4A,&88,&1F,&E3,&06,&40,&00,&00,&00
  DB &00,&20,&10,&08,&18,&10,&E7,&E7,&08,&1B,&A6,&06,&40,&00,&00,&20,&10
  DB &10,&10,&08,&18,&10,&40,&42,&08,&18,&2C,&06,&40,&00,&00,&20,&10,&08
  DB &08,&18,&18,&10,&40,&82,&08,&08,&38,&06,&40,&00,&00,&20,&10,&08,&18
  DB &18,&10,&A0,&A0,&05,&08,&08,&30,&06,&40,&00,&00,&20,&10,&08,&18,&10
  DB &10,&A0,&05,&08,&08,&08,&30,&06,&40,&00,&00,&20,&1F,&F8,&18,&11,&10
  DB &10,&08,&88,&08,&20,&20,&06,&40,&00,&00,&20,&00,&00,&18,&11,&10,&08
  DB &08,&88,&08,&20,&06,&40,&40,&00,&00,&20,&00,&00,&18,&00,&00,&00,&00
  DB &00,&00,&00,&10,&00,&00,&08,&08,&07,&C0,&06,&40,&00,&00,&20,&00,&00
  DB &00,&18,&00,&00,&00,&00,&00,&00,&00,&10,&00,&00,&08,&00,&00,&06,&40
  DB &40,&00,&00,&20,&00,&00,&18,&FF,&FF,&FF,&FF,&FF,&FF,&FF,&D0,&00,&00
  DB &00,&08,&00,&00,&06,&40,&00,&00,&20,&00,&00,&00,&19,&FF,&FF,&FF,&FF
  DB &FF,&FF,&FF,&D0,&00,&00,&08,&00,&00,&06,&7F,&7F,&FF,&FF,&FF,&FF,&FF
  DB &FF,&FB,&FF,&FF,&FF,&FF,&FF,&FF,&DF,&FF,&FF,&FF,&FF,&FF,&FF,&FE,&40
  DB &40,&00,&00,&20,&00,&00,&1A,&00,&00,&01,&00,&00,&00,&00,&D0,&00,&00
  DB &00,&08,&00,&00,&06,&40,&00,&00,&20,&00,&00,&1A,&00,&00,&00,&01,&00
  DB &00,&00,&00,&D0,&00,&00,&08,&00,&00,&06,&43,&9C,&CC,&2C,&E8,&E8,&EE
  DB &EE,&DA,&DD,&1D,&8D,&5D,&5D,&9C,&D0,&8E,&E6,&08,&00,&00,&06,&41,&41
  DB &41,&49,&10,&2A,&88,&84,&9A,&95,&15,&51,&55,&51,&48,&D0,&88,&A8,&08
  DB &08,&08,&3F,&00,&06,&41,&48,&90,&2A,&C8,&C4,&DA,&95,&15,&89,&55,&59
  DB &59,&88,&88,&D0,&8C,&A4,&08,&7F,&00,&06,&41,&48,&50,&2A,&88,&84,&9A
  DB &9A,&95,&15,&15,&45,&54,&91,&48,&D0,&88,&A2,&08,&7F,&00,&06,&43,&9D
  DB &9D,&8C,&2C,&EE,&EE,&E4,&DA,&DD,&DD,&59,&54,&9D,&48,&D0,&EE,&AC,&08
  DB &08,&FF,&00,&06,&40,&40,&00,&00,&20,&00,&00,&1A,&00,&00,&01,&00,&00
  DB &00,&00,&D0,&00,&00,&08,&08,&FF,&00,&06,&40,&00,&00,&22,&00,&02,&1A
  DB &1A,&00,&FC,&01,&00,&00,&00,&00,&D0,&00,&00,&08,&C0,&00,&06,&40,&3F
  DB &3F,&80,&21,&00,&04,&1A,&00,&84,&84,&01,&00,&01,&FC,&D0,&00,&00,&08
  DB &08,&C0,&00,&06,&40,&20,&80,&20,&80,&80,&08,&1A,&00,&B4,&01,&04,&01
  DB &01,&DC,&D0,&00,&00,&08,&FF,&7E,&06,&40,&40,&20,&80,&20,&40,&10,&1A
  DB &1A,&00,&FC,&01,&0E,&01,&8C,&D0,&06,&00,&08,&08,&FF,&7F,&06,&40,&20
  DB &20,&80,&20,&20,&20,&1A,&00,&FC,&01,&0E,&01,&8C,&8C,&D0,&09,&00,&08
  DB &08,&7F,&7F,&06,&40,&20,&80,&20,&10,&40,&1A,&00,&B4,&B4,&01,&04,&09
  DB &09,&DC,&D0,&10,&80,&08,&7F,&7F,&86,&40,&3F,&80,&20,&08,&08,&80,&1A
  DB &1A,&00,&84,&01,&15,&05,&54,&D0,&10,&80,&08,&3F,&7F,&86,&40,&40,&3B
  DB &3B,&80,&20,&05,&00,&1A,&00,&B4,&01,&0E,&7F,&8C,&D0,&10,&80,&08,&08
  DB &08,&00,&01,&86,&40,&3B,&80,&20,&02,&00,&1A,&00,&DC,&01,&04,&05,&DC
  DB &DC,&DC,&D0,&09,&80,&08,&00,&01,&86,&40,&3F,&80,&20,&05,&00,&1A,&00
  DB &00,&EC,&EC,&01,&04,&09,&DC,&D0,&07,&C0,&08,&00,&7F,&86,&40,&3F,&80
  DB &80,&20,&08,&08,&80,&1A,&00,&B4,&01,&0A,&01,&AC,&D0,&00,&60,&08,&00
  DB &00,&7F,&86,&40,&40,&3B,&80,&20,&10,&40,&1A,&00,&84,&01,&0A,&01,&AC
  DB &AC,&D0,&00,&30,&08,&08,&00,&7F,&06,&40,&3B,&80,&20,&20,&20,&1A,&00
  DB &00,&B4,&01,&11,&01,&74,&74,&D0,&00,&18,&08,&00,&7F,&06,&40,&3B,&80
  DB &80,&20,&40,&10,&1A,&00,&CC,&CC,&01,&11,&01,&74,&D0,&00,&00,&08,&00
  DB &00,&7E,&06,&40,&2A,&80,&20,&80,&80,&08,&1A,&00,&CC,&01,&00,&01,&FC
  DB &FC,&D0,&00,&00,&08,&00,&00,&06,&40,&40,&3F,&80,&21,&00,&04,&1A,&00
  DB &00,&B4,&01,&00,&00,&00,&D0,&00,&00,&08,&08,&00,&00,&06,&40,&37,&80

Sind die Englischen Icons!!! - Hab den JavaCPC GFX-Viewer dafür verwendet...
(Einfach in GPAINT.BAS nach "GPAINT.BIN" laden)

Das Hauptprogramm GPAINT.BAS (hier GPAINTE.BAS)
Code: [Select]
10 REM Gpaint [6.10.85]
20 REM Copyright (C) im August'85
30 REM Guenter Radestock
40 REM  6700 Ludwigshafen am Rhein 29
50 REM  Lorscherstr.37
60 REM  Tel (06237)6938
70 REM  >>> 4711 Version <<<
90 MODE 1:INK 0,0:INK 1,24:INK 2,14:INK 3,1:BORDER 0
100 ON ERROR GOTO 110:|SCREEN1:GOTO 170
110 WINDOW 6,34,6,18:PEN 1:PAPER 3:CLS:SPEED INK 5,5
120 LOCATE 10,4:PRINT"Gpaint v1.4":RESUME 130
130 LOCATE 3,7:PRINT"Autor:  Guenter Radestock":SYMBOL AFTER 256
140 LOCATE 6,10:PRINT"is loading Code ...":PAPER 0
150 MOVE 78,110:DRAW 544,110,2:DRAW 544,320:DRAW 78,320:DRAW 78,110
160 MEMORY 32767:LOAD"gpaint.bin",32768:LOAD"english.bin":CALL 32768:LOAD"gpaint2.bin":CLEAR:MEMORY 14335
170 ON ERROR GOTO 0:SPEED KEY 15,1:'CALL &BB48:KEY DEF 66,0,32
180 DEFINT a-z:DIM xink(15):INK 3,3:CALL &BB06
190 FOR i=0 TO 15:READ xink(i):INK i,xink(i):NEXT
200 DATA 0,13,14,6,1,3,8,9,13,15,19,26,12,16,4,10
210 xmode=1:pn=0:muster=0:mnr=0:del$=CHR$(127):DEF FN m$(a$)=LEFT$(a$,LEN(a$)-1)
220 color=1:color2=0:BORDER xink(1):|MODE,xmode:as=2^(2-xmode):mxf=2^as-1
225 x=320:y=200
230 |COPY2:|SCREEN2
240 |FORCE:|MENU:|GPEN,color:|GPAPER,color2
250 IF muster THEN |SELECT,mnr:|PSMALL,&6602 ELSE |GPEN,1:|BOX,144,86,176,70
260 |GPEN,1:|PEN,pn:|PLOT,56,78
270 GOSUB 340:|CUR,@x,@y,@x,@y,0:a$=INKEY$:GOSUB 340
280 IF a$<>"X" AND a$<>" "THEN 270
290 fk=6*((y-4)\54)+1-(x>104)-(x>210)-(x>316)-(x>424)-(x>528)
310 ON fk GOTO 1610,1570,690,1270,1450,1850,370,450,320,320,2030,1915,1210,1240,320,320,1280,1390,960,1120,320,320,1020,1070
320 |SCREEN1:GOSUB 360:GOTO 230
330 |COPY2:|SCREEN1:cmd=0:RETURN
340 WHILE JOY(0)>15:WEND:RETURN
350 GOSUB 340:GOTO 920
355 WINDOW 1,80,1,11:CLS:MOVE 0,222:DRAW 639,222,1:RETURN
360 a$=UPPER$(INKEY$):IF a$=""THEN 360 ELSE RETURN
365 WINDOW 1,80,22,25:CLS:MOVE 0,64:DRAW 639,64:RETURN
370 'Stift
380 GOSUB 365
390 a$="   Pen-Choice":|WRITE,@a$,22:|INVERT,22
400 FOR i=0 TO 480 STEP 160:|FRAME,i+4,2,i+152,44
410 |PEN,i\160:|PLOT,i+80,24:NEXT:|CUR,@x,@y,@x,@y,0
420 a$=INKEY$:IF a$=" "THEN 240 ELSE IF a$<>"X"THEN 270
430 IF y<48 THEN pn=x\160
440 GOTO 240
450 'Muster
460 GOSUB 365:|GPAPER,0
470 |BOX,48-as,32,80,14:FOR i=0 TO 7:|SELECT,i:|PSMALL,&473E+8*i
480 |FRAME,112+64*i-as,32,112+64*i+32,14:NEXT
490 a$(0)=CHR$(255)+" Choose Pattern    ":fk=0
500 a$(1)=CHR$(255)+" Edit Pattern      "
510 |WRITE,@a$(fk),22:|INVERT,22
520 GOSUB 340:|CUR,@x,@y,@x,@y,0
530 a$=INKEY$:IF a$=" "THEN 240 ELSE IF a$<>"X"THEN 270
540 IF y>64 THEN 240
550 IF y>46 THEN fk=1-fk:GOTO 510
560 x1=x:IF x1<32 THEN x1=32 ELSE IF x1>600 THEN x1=600
570 mnr=((x1-32)\64)-1:muster=(mnr>=0)
580 IF fk=0 OR(NOT muster)THEN 240 ELSE x=0:y=0:|FRAME,192-as,368,448,238
590 |SELECT,mnr:|PBIG:|PSMALL,&6602:|XOR
600 |FRAME,192+x*8*as+as,364-16*y,192+x*8*as+6*as,354-16*y
610 a$=INKEY$:IF a$="" THEN 610
620 IF a$=" "OR a$="Z" THEN x=320:y=200:GOTO 230 ELSE IF a$=CHR$(16)THEN |PCLEAR:GOTO 590
630 IF a$=CHR$(13)OR a$=CHR$(224) OR a$="X"THEN |PSET,x,y:GOTO 590
640 IF a$=CHR$(242)OR a$=CHR$(8)THEN x=(x+31)MOD(32\as):GOTO 590
650 IF a$=CHR$(240)OR a$=CHR$(11)THEN y=(y+7)MOD 8:GOTO 590
660 IF a$=CHR$(241)OR a$=CHR$(10)THEN y=(y+1)MOD 8:GOTO 590
670 IF a$=CHR$(243)OR a$=CHR$(9)THEN x=(x+1)MOD(32\as):GOTO 590
680 GOTO 610
690 'Farben
700 a$(0)=CHR$(255)+" Choose INK-1      ":fk=0
710 a$(1)=CHR$(255)+" Choose INK-2      "
720 a$(2)=CHR$(255)+" Change INK        "
730 GOSUB 365:x1=640\(mxf+1)
740 |FRAME,as,44,x1-as-as,2:FOR i=1 TO mxf+1
750 |GPEN,i:|BOX,x1*i+as,44,x1*i+x1-as-as,2:NEXT:|GPEN,1
760 |WRITE,@a$(fk),22:|INVERT,22
770 GOSUB 340:|CUR,@x,@y,@x,@y,0
780 a$=INKEY$:IF a$=" "THEN 240 ELSE IF a$<>"X"THEN 270
790 IF y>64 THEN 240
800 IF y>46 THEN fk=(fk+1)MOD 3:GOTO 760
810 IF fk=1 THEN color2=x\x1 ELSE color=x\x1
820 j=xink(color):BORDER j:IF fk<2 THEN 240
830 'Palette
840 POKE &C7E1,0:MODE 0:INK 0,0:FOR i=0 TO 8:INK i+2,0:|GPEN,i+2
850 |BOX,16+68*i,136,76+68*i,264:NEXT:|GPEN,1:INK 1,26,0:|FRAME,292,260,344,140
860 FOR i=0 TO 8:INK i+2,(j+i+23)MOD 27:NEXT
870 GOSUB 360:IF a$=CHR$(242)OR a$=CHR$( THEN j=(j+26)MOD 27:GOTO 860
890 IF a$=CHR$(243)OR a$=CHR$(9)THEN j=(j+1)MOD 27:GOTO 860
900 IF a$="X"OR a$=CHR$(13)OR a$=CHR$(224)THEN BORDER j:xink(color)=j ELSE IF a$<>" "AND a$<>"Z"THEN 870
910 MODE xmode:FOR i=0 TO 15:INK i,xink(i):NEXT:GOTO 230
920 'Csr
930 |GPEN,1:IF cmd=0 THEN x1=x:y1=y
940 |CUR,@x,@y,@x1,@y1,cmd:a$=LOWER$(INKEY$):IF a$="m"THEN GOSUB 1010:|GPEN,1:GOTO 940 ELSE IF a$="c"THEN IF muster THEN GOSUB 1010:GOSUB 950:|COPY2:|GPEN,1:GOTO 940 ELSE GOSUB 950:GOTO 940 ELSE IF muster THEN |GPEN,mxf:RETURN ELSE |GPEN,color:RETURN
950 color=(color+1)MOD(mxf+1):BORDER xink(color):RETURN
960 'Malen
970 GOSUB 330
980 GOSUB 920:IF a$="x"THEN |PLOT,x,y:GOTO 980
990 IF a$=del$ THEN |COPY1:GOTO 980 ELSE IF a$<>" "THEN 980
1000 GOSUB 1010:GOTO 230
1010 IF muster THEN |GPEN,color:|GPAPER,color2:|PATTERN
1015 RETURN
1020 'line
1030 GOSUB 330
1040 cmd=0:GOSUB 920:IF a$=" "THEN 1000 ELSE IF a$<>"x"THEN 1040
1050 cmd=4:GOSUB 920:IF a$="x"THEN |LINE,x,y,x1,y1:x=x1:y=y1:GOTO 1050
1060 IF a$="r"THEN GOSUB 1010:|COPY2:GOTO 1040 ELSE IF a$=del$ THEN |COPY1:GOTO 1040 ELSE IF a$<>" "THEN 1050 ELSE 1000
1070 'rays
1080 GOSUB 330
1090 cmd=0:GOSUB 920:IF a$=" "THEN 1000 ELSE IF a$<>"x"THEN 1090
1100 cmd=4:GOSUB 920:IF a$="x"THEN |LINE,x,y,x1,y1:GOTO 1100
1110 IF a$="r"THEN GOSUB 1010:|COPY2:GOTO 1090 ELSE IF a$=del$ THEN |COPY1:GOTO 1090 ELSE IF a$<>" "THEN 1100 ELSE 1000
1120 'lines
1130 sbm=1:cmbk=2:GOTO 1150
1140 |LINE,x,y,x1,y1:RETURN
1150 GOSUB 330
1160 cmd=0:GOSUB 920:IF a$=" "THEN 1000 ELSE IF a$<>"x"THEN 1160
1170 GOSUB 340:cmd=2+cmbk:GOSUB 920:IF a$="r"THEN 1160 ELSE IF a$=" "THEN 1000 ELSE IF a$<>"x"THEN 1170
1180 ON sbm GOSUB 1140,1230,1260,1272,2180,2210
1190 cmd=cmbk:GOSUB 920:IF a$="x"THEN 1180 ELSE IF a$="r"THEN GOSUB 1010:|COPY2:GOTO 1160 ELSE IF a$=del$ THEN |COPY1:GOTO 1160 ELSE IF a$<>" "THEN 1190 ELSE IF sbm<5 THEN 1000 ELSE 230
1210 'Rahmen
1220 sbm=2:cmbk=1:GOTO 1150
1230 |LINE,x,y,x1,y:|LINE,x1,y,x1,y1:|LINE,x1,y1,x,y1:|LINE,x,y1,x,y:RETURN
1240 'Box
1250 sbm=3:cmbk=1:GOTO 1150
1260 |BOX,x,y,x1,y1:GOTO 1010
1270 'Invers
1271 sbm=4:cmbk=1:GOTO 1150
1272 |XOR:|BOX,x,y,x1,y1:GOSUB 340:GOTO 1010
1280 'Kreis
1285 cmbk=1
1290 GOSUB 330
1300 cmd=0:GOSUB 920:IF a$=" "THEN 1000 ELSE IF a$<>"x"THEN 1300 ELSE mx=x:my=y
1310 cmd=5:GOSUB 350:IF a$="r"THEN 1300 ELSE IF a$=" "THEN 1000 ELSE IF a$<>"x"THEN 1310
1320 IF x=x1 OR y=y1 THEN 1310 ELSE rx=ABS(x-mx):ry=ABS(y-my):msk=&FFF XOR(as-1):stp!=rx/ry:s!=ry*ry
1330 ON cmbk GOSUB 1360,1410
1340 cmd=1:GOSUB 920:IF a$=" "THEN 1000 ELSE IF a$="r"THEN GOSUB 1010:|COPY2:GOTO 1300 ELSE IF a$=del$ THEN |COPY1:GOTO 1300 ELSE IF a$=" "THEN 1000 ELSE IF a$<>"x"THEN PRINT CHR$(7);:GOTO 1340
1350 mx=(x+x1)\2:my=(y+y1)\2:GOTO 1330
1360 h1=rx AND msk:i1=0:FOR i=2 TO ry STEP 2:h=(SQR(s!-(i-0.5)*(i-0.5))*stp!)AND msk:IF h1>h THEN hh=h+as ELSE hh=h
1370 |LINE,mx+h1,my+i1,mx+hh,my+i1:|LINE,mx-h1,my+i1,mx-hh,my+i1
1380 |LINE,mx+h1,my-i1,mx+hh,my-i1:|LINE,mx-h1,my-i1,mx-hh,my-i1:i1=i:h1=h:NEXT:|LINE,mx+h,my+i1,mx-h,my+i1:|LINE,mx+h,my-i1,mx-h,my-i1:RETURN
1390 'Scheibe
1400 cmbk=2:GOTO 1290
1410 MOVE mx-(rx AND msk),my:DRAW mx+(rx AND msk),my:FOR i=2 TO ry STEP 2:h=(SQR(s!-(i-0.5)*(i-0.5))*stp!)AND msk:MOVE mx-h,my+i:DRAW mx+h,my+i:MOVE mx-h,my-i:DRAW mx+h,my-i:NEXT:GOSUB 1010:RETURN
1420 IF x<0 THEN x=0 ELSE IF x>560 THEN x=560
1430 IF y<0 THEN y=0 ELSE IF y>350 THEN y=350
1440 RETURN
1450 'Lupe
1460 GOSUB 330:WINDOW 1,80,1,25:cmd=1
1470 GOSUB 1420:x1=x+80-as:y1=y+48:GOSUB 350:IF a$=" "THEN 230 ELSE IF a$<>"x"THEN 1470
1480 |ZOOM,x,y+48:mx=40:my=12
1490 IF mx>=80 OR mx<0 OR my>24 OR my<0 THEN x=x+mx-40:y=y+2*my-24:GOSUB 1420:GOTO 1480
1500 |GPEN,1:|XOR:GOSUB 1565
1510 GOSUB 360:GOSUB 1565:IF a$="X"OR a$=CHR$(13)OR a$=CHR$(224)THEN |FORCE:|WSCREEN1:PLOT x+mx,y+2*my,color:|WSCREEN2:LOCATE mx\as+1,25-my:PAPER color:PRINT" ";:PAPER 0:GOTO 1500
1530 IF a$="C"THEN GOSUB 950 ELSE IF a$=" "OR a$="Z"THEN 1460
1540 IF a$=CHR$(242)OR a$=CHR$(8)THEN mx=mx-as ELSE IF a$=CHR$(243)OR a$=CHR$(9)THEN mx=mx+as
1550 IF a$=CHR$(240)OR a$=CHR$(11)THEN my=my+1 ELSE IF a$=CHR$(241)OR a$=CHR$(10)THEN my=my-1
1560 GOTO 1490
1565 |FRAME,8*mx+as,16*my+2,8*mx+6*as,16*my+12:RETURN
1570 GOSUB 365:a$="Clear Image     Ok":|WRITE,@a$,24:|FRAME,452,2,636,46:|CUR,@x,@y,@x,@y,0
1590 a$=LOWER$(INKEY$):IF a$="x"AND y<=46 AND x>=452 THEN |WSCREEN1:CLG 0:|SCREEN2:GOTO 230 ELSE 240
1610 REM 'Diskmenue
1620 GOSUB 355
1630 a$="  Directory":|WRITE,@a$,3
1640 a$="  Save picture":|WRITE,@a$,4
1650 a$="  Load picture":|WRITE,@a$,5
1660 a$="  Load characterset":|WRITE,@a$,6
1670 a$="  Load shape":|WRITE,@a$,7:a$="  Delete File(s)   ":|WRITE,@a$,8
1671 a$="  Type help":|WRITE,@a$,9
1680 n=7:GOSUB 1700:IF a$=" "THEN 230 ELSE ON fk GOTO 1840,1830,1810,1845,2240,1690,1691
1690 GOSUB 1770:|ERA,@n$:GOTO 1610
1691 n$="schrift.pic":|LOAD,16384,@n$:CALL &BB18:GOTO 230
1700 fk=1
1710 |INVERT,fk+2:GOSUB 360:|INVERT,fk+2:IF a$="Z"THEN a$=" "ELSE IF a$=CHR$(13)OR a$=CHR$(224)THEN a$="X"
1730 IF a$="X"OR a$=" "THEN 340
1740 IF a$=CHR$(240)OR a$=CHR$(11)THEN IF fk>1 THEN fk=fk-1
1750 IF a$=CHR$(241)OR a$=CHR$(10)THEN IF fk<n THEN fk=fk+1
1760 GOTO 1710
1770 CLS:a$="Filename:":|WRITE,@a$,2:PRINT:PRINT:n$="":CALL &BB81
1780 GOSUB 360:IF a$=CHR$(13)THEN CALL &BB84:RETURN
1790 IF a$=CHR$(127)THEN IF n$<>""THEN n$=FN m$(n$):PRINT CHR$(" "CHR$(;:GOTO 1780 ELSE 1780
1800 IF LEN(n$)<16 THEN n$=n$+a$:PRINT CHR$(1);a$;:GOTO 1780 ELSE 1780
1810 GOSUB 1770:|LOAD,49152,@n$:j=0:FOR i=&C7D0 TO &C7DF:j=j+PEEK(i):NEXT:IF j MOD 256<>PEEK(&C7E1)OR j=0 THEN 230 ELSE FOR i=0 TO 15:xink(i)=PEEK(&C7D0+i):INK i,xink(i):NEXT:xmode=PEEK(&C7E0):GOTO 220
1830 GOSUB 1770:j=0:FOR i=0 TO 15:POKE &C7D0+i,xink(i):j=j+xink(i):NEXT:POKE &C7E0,xmode:POKE &C7E1,j MOD 256:|SAVE,49152,@n$:GOTO 230
1840 MODE 2:|CAT:WHILE INKEY$="":WEND:MODE xmode:|COPY2:GOTO 1610
1845 GOSUB 1770:n$=n$+".CHR":|LOAD,&9710,@n$:mx=600:x=600:my=50:y=50:GOTO 230
1850 'S-Menue
1860 GOSUB 355
1870 a$="  Resolution":|WRITE,@a$,3:a$="  Text":|WRITE,@a$,4
1880 a$="  Zoom in":|WRITE,@a$,5:a$="  Zoom out":|WRITE,@a$,6
1900 a$="  Rotate":|WRITE,@a$,7:a$="  Print":|WRITE,@a$,8:n=6:GOSUB 1700:IF a$=" "THEN 230 ELSE ON fk GOTO 1910,1940,2200,2170,2120,1905
1905 |COPY2
1906 CALL &A020:GOTO 220
1910 CLS:a$="  Mode 0 (160*200)":|WRITE,@a$,3:a$="  Mode 1 (320*200)":|WRITE,@a$,4:a$="  Mode 2 (640*200)":|WRITE,@a$,5:n=3:GOSUB 1700:IF a$=" "THEN 230 ELSE xmode=fk-1:GOTO 220
1915 'Fuellen
1920 |COPY2:|SCREEN1:cmd=0
1930 GOSUB 350:IF a$=" "THEN 230 ELSE IF a$=del$THEN |COPY1:GOTO 1930 ELSE IF a$<>"x"THEN 1930 ELSE |FILL,x1,y1:GOSUB 1010:GOTO 1930
1940 GOSUB 355:a$="Enter text:":n$="":f$="":|WRITE,@a$,2:|GPEN,1:x=4:|XOR
1945 GOSUB 1980
1950 a$=INKEY$:IF a$=""THEN 1950 ELSE GOSUB 1980:IF a$=CHR$(13)THEN IF n$=""THEN 225 ELSE 1990 ELSE IF a$<" "OR ASC(a$)>127 THEN 1945
1960 IF a$=del$ THEN IF n$<>""THEN x=x-ASC(RIGHT$(f$,1)):|CHAR,ASC(RIGHT$(n$,1)),x,300,@l:f$=FN m$(f$):n$=FN m$(n$):GOTO 1945 ELSE 1945
1970 l=0:|CHAR,ASC(a$),x,300,@l:x=x+l:f$=f$+CHR$(l):n$=n$+a$:a$=del$:IF x>=640 OR LEN(n$)>80 THEN 1960 ELSE 1945
1980 MOVE x,308:DRAWR 0,-8:DRAWR 8,0:RETURN
1990 y=200:x1=4:y1=y:cmd=2:x=x-as:|COPY2:|SCREEN1
2000 GOSUB 920:IF a$=" "THEN 230 ELSE IF a$=del$THEN |COPY1:GOTO 2000 ELSE IF a$="r"THEN |COPY2:|SCREEN2:GOTO 1940 ELSE IF a$<>"x"THEN 2000 ELSE GOSUB 340
2010 j=x1:FOR i=1 TO LEN(n$):|CHAR,ASC(MID$(n$,i,1)),j,y1,@l:j=j+l:NEXT:GOSUB 1010:GOTO 2000
2030 'Kopieren
2040 GOSUB 330
2050 cmd=0:GOSUB 920:IF a$=" "THEN 230 ELSE IF a$<>"x"THEN 2050
2060 cmd=3:GOSUB 350:IF a$=" "THEN 230 ELSE IF a$="r"THEN 2050 ELSE IF a$="x"THEN GOSUB 3000 ELSE 2060
2070 GOSUB 2110:cmd=1:GOSUB 350:GOSUB 2110:IF a$="r"THEN |COPY2:GOTO 2050 ELSE IF a$=" "THEN 230 ELSE IF a$=del$THEN |COPY1:GOTO 2050 ELSE IF a$<>"x"THEN 2070 ELSE fk=0:GOSUB 3030:GOTO 2070
2110 |XOR:|GPEN,1:|FRAME,mx,my,x1-x+mx,y1-y+my:RETURN
2120 GOSUB 330
2130 cmd=0:GOSUB 920:IF a$=" "THEN 230 ELSE IF a$<>"x"THEN 2130
2140 cmd=6:GOSUB 350:IF a$=" "THEN 230 ELSE IF a$="r"THEN 2130 ELSE IF a$<>"x"THEN 2140 ELSE IF x1<x THEN j=x1:x1=x:x=j:j=y1:y1=y:y=j
2150 |TURN,x,y,x1,y1
2160 cmd=1:GOSUB 350:IF a$=" "THEN 230 ELSE IF a$=del$THEN |COPY1:GOTO 2130 ELSE IF a$="r"THEN |COPY2:GOTO 2130 ELSE IF a$="x"THEN 2150 ELSE 2160
2170 sbm=5:cmbk=1:GOTO 1150
2180 IF x<>x1 AND y<>y1 THEN |SMALL,x1,y1,x,y
2190 GOTO 340
2200 sbm=6:cmbk=1:GOTO 1150
2210 mx=2*x1-x+as*SGN(x1-x):my=2*y1-y+2*SGN(y1-y):IF x1=x OR y1=y THEN RETURN ELSE IF my>398 THEN y1=(400-y)\2+y-2 AND 510:my=y1 ELSE IF my<0 THEN y1=y\2+2 AND 510:my=y1
2220 j=1024-as:IF mx>=640 THEN x1=(640-x)\2+x-as AND j:mx=x1 ELSE IF mx<0 THEN x1=x\2+as AND j:mx=x1
2230 |MAGNIFY,x,y,x1,y1:x1=mx:y1=my:GOTO 340
2240 GOSUB 1770:IF a$=""THEN 230 ELSE |LOAD,16384,@n$:muster=0
2250 |SCREEN2:cmd=0:GOSUB 340:GOSUB 920:IF a$=" "THEN 230 ELSE IF a$<>"x"THEN 2250
2260 cmd=3:GOSUB 350:IF a$=" "THEN 230 ELSE IF a$="r"THEN 2250 ELSE IF a$<>"x"THEN 2260 ELSE GOSUB 3000
2270 |SCREEN1:cmd=1:GOSUB 350:IF a$=" "THEN 230 ELSE IF a$="r"THEN 2250 ELSE IF a$<>"x"THEN 2270 ELSE fk=128:GOSUB 3030:GOTO 2270
3000 IF x1<x THEN j=x:x=x1:x1=j
3010 IF y1<y THEN j=y:y=y1:y1=j
3020 mx=X:my=y:RETURN
3030 |COPY,fk,mx,my,x1-x+mx,y1-y+my,x,y:RETURN

Das Hardcopy-Programm GPAINT.PRN (hier GPAINTE.PRN)
Code: [Select]
10 REM Hcopy fuer Grafikprogramm Gpaint
20 REM Copyright (C) 01.09.1985
30 REM by Guenter Radestock
40 REM
50 MEMORY &5FFF:LOAD"gpaint.prm",&A000
60 DEFINT a-z:DIM tbyte(31),xink(15),rhf(26)
70 FOR i=0 TO 31:tbyte(i)=PEEK(&A000+i):NEXT
80 RESTORE:FOR i=0 TO 15:READ xink(i)
90 INK i,xink(i):NEXT:BORDER 0:MODE 1
100 DATA 0,26,24,6,1,3,8,9,13,15,19,14,12,16,4,10
110 PRINT
120 PRINT"   Gcopy v1.1  Copyright (C) 1985"
130 PRINT"        by Guenter Radestock"
140 PRINT
150 PRINT STRING$(40,"_")
160 print"Large hardcopies can show colours by"
170 print"different gray-rasters. Small can't.":print
180 PRINT
190 INPUT"Hcopy LARGE or small (L/s)";a$:gk$=UPPER$(a$)
200 IF gk$<>"L"AND gk$<>"S"THEN 190
210 PRINT:PRINT"Directory mit <CTRL> D":PRINT:LINE INPUT"Filename ...";a$:IF a$="D" THEN CAT:CALL &BB18:CLS:GOTO 210
220 LOAD""+a$,&6000
230 j=0:FOR i=0 TO 15:xink(i)=PEEK(&67D0+i):j=j+xink(i):NEXT:xmode=PEEK(&67E0)
240 IF j MOD 256<>PEEK(&67E1) OR j=0 THEN GOSUB 370:IF gk$="L"THEN 340
250 IF gk$="S"THEN 390
260 INPUT"Consider colours (y/n)";a$
270 a$=UPPER$(a$):IF a$="N"THEN 340 ELSE IF a$<>"Y"THEN 260
280 FOR i=0 TO 26:READ rhf(i):NEXT
290 DATA 1,15,15,3,3,12,14,14,14,13,13,9,2,2,8,10,10,10,5,5,6,7,7,11,4,4,0
300 FOR i=0 TO 15:nr=2*rhf(xink(i))
310 POKE &A000+2*i,tbyte(nr)
320 POKE &A001+2*i,tbyte(nr+1):NEXT
330 FOR i=0 TO 15:INK i,xink(i):NEXT
340 MODE xmode
350 CALL &A020:FOR i=0 TO 31:POKE &A000+i,tbyte(i):NEXT
360 GOTO 80
370 INPUT"Screen-mode (0-2)";xmode:IF xmode<0 OR xmode>2 THEN 370
380 RETURN
390 MODE xmode:FOR i=1 TO 15:INK i,1:NEXT:CALL &A130:GOTO 80
Achtung! Hierbei muss Zeile 210 bearbeitet werden:
IF a$="D" THEN CAT
Hier muss das "D" ersetzt werden durch das Blitz-Symbol CTRL+D!


Hier natürlich auch das DSK (WIP!!!)

Vielleicht will ja jemand Anders den Rest (Ist wirklich nur noch ein Klacks!!!) übersetzen?
Der Rest ist nur noch BASIC.
« Last Edit: 21:13, 31 October 10 by Devilmarkus »
When you put your ear on a hot stove, you can smell how stupid you are ...

Amstrad CPC games in your webbrowser

JavaCPC Desktop Full Release

Offline TFM

  • Visit the mysteries of the CPC at www.futureos.de
  • Supporter
  • 6128 Plus
  • *
  • Posts: 9.899
  • Country: aq
  • Space Chicken for FutureOS is free!
    • index.php?action=treasury
    • FutureOS - The revolution on CPC!
  • Liked: 1976
  • Likes Given: 4650
Re: G-Paint 1.x und 2.0 gesucht
« Reply #10 on: 16:18, 01 November 10 »
 
Äh ja Danke, aber was ist das für ein Programm ???
 
Ich hab mich mal drangesetzt, und schon die wichtigsten Teile nach Englisch übersetzt...
Die 2 fehlenden Programme werd ich bei Gelegenheit noch mit übersetzen.
(Wobei die fehlenden Programme BASIC sind, kann also jeder selbst sonst übersetzen!)
« Last Edit: 19:44, 01 November 10 by Devilmarkus »
TFM of FutureSoft
Also visit the CPC and Plus users favorite OS: FutureOS - The Revolution on CPC6128 and 6128Plus

Offline Devilmarkus

  • Vivid source of indefiniteness
  • 6128 Plus
  • ******
  • Posts: 4.035
  • Country: de
  • WebCPC / JavaCPC developer
    • index.php?action=treasury
    • CPC-Live website
  • Liked: 1011
  • Likes Given: 926
Re: G-Paint 1.x und 2.0 gesucht
« Reply #11 on: 19:45, 01 November 10 »

Äh ja Danke, aber was ist das für ein Programm ???

Um welches Programm geht es denn hier?
(Siehe mein Anhang: GPaint 1.4 + Chars (E)(WIP).dsk )
Also ich hab das DSK vom CPCIak genommen und übersetzt.
 
When you put your ear on a hot stove, you can smell how stupid you are ...

Amstrad CPC games in your webbrowser

JavaCPC Desktop Full Release

Offline TFM

  • Visit the mysteries of the CPC at www.futureos.de
  • Supporter
  • 6128 Plus
  • *
  • Posts: 9.899
  • Country: aq
  • Space Chicken for FutureOS is free!
    • index.php?action=treasury
    • FutureOS - The revolution on CPC!
  • Liked: 1976
  • Likes Given: 4650
Re: G-Paint 1.x und 2.0 gesucht
« Reply #12 on: 19:50, 01 November 10 »
Um welches Programm geht es denn hier?
(Siehe mein Anhang: GPaint 1.4 + Chars (E)(WIP).dsk )
Also ich hab das DSK vom CPCIak genommen und übersetzt.

Tja, hättest hald lieber meine DSK nehmen sollen, das ist nämlich dann Version 2.0. Die 1.4 hat ja noch nicht mal Mausunterstützung.
 
« Last Edit: 19:51, 01 November 10 by Devilmarkus »
TFM of FutureSoft
Also visit the CPC and Plus users favorite OS: FutureOS - The Revolution on CPC6128 and 6128Plus

Offline Devilmarkus

  • Vivid source of indefiniteness
  • 6128 Plus
  • ******
  • Posts: 4.035
  • Country: de
  • WebCPC / JavaCPC developer
    • index.php?action=treasury
    • CPC-Live website
  • Liked: 1011
  • Likes Given: 926
Re: G-Paint 1.x und 2.0 gesucht
« Reply #13 on: 19:52, 01 November 10 »

Tja, hättest hald lieber meine DSK nehmen sollen, das ist nämlich dann Version 2.0. Die 1.4 hat ja noch nicht mal Mausunterstützung.

Ehmm... sorry für meinen Edit hier... (passiert wenn man den falschen Button klickt)


Ich hab den Thread von Anfang an gelesen.
Aber ein BASIC Programm kann jeder übersetzen.
Die 1.4 Version hat auch Text in den Icons.
Darum ging es mir.
When you put your ear on a hot stove, you can smell how stupid you are ...

Amstrad CPC games in your webbrowser

JavaCPC Desktop Full Release

Offline TFM

  • Visit the mysteries of the CPC at www.futureos.de
  • Supporter
  • 6128 Plus
  • *
  • Posts: 9.899
  • Country: aq
  • Space Chicken for FutureOS is free!
    • index.php?action=treasury
    • FutureOS - The revolution on CPC!
  • Liked: 1976
  • Likes Given: 4650
Re: G-Paint 1.x und 2.0 gesucht
« Reply #14 on: 20:06, 01 November 10 »
Ehmm... sorry für meinen Edit hier... (passiert wenn man den falschen Button klickt)


Ich hab den Thread von Anfang an gelesen.
Aber ein BASIC Programm kann jeder übersetzen.
Die 1.4 Version hat auch Text in den Icons.
Darum ging es mir.

Hmmm, naja, also da wär es besser Du würdest deine Zeit in die Version 2.0 investieren. Denn das ist im Gegensatz zu dem was Du schreibst nämlich kein Basic-Programm.
 
Lad das mal und guck es Dir nochmals genauer an (warum muss ich Dich eigentlich immer schelten ?), denn das Prog. springt nach Adresse &0200.
 
Es ist um ganz genau zu sein ein Hybridprogramm. Der Vorteil dieser Programmarchitektur liegt darin, dann es im Gegensatz zu MC Progs. die ROMs nicht neue initialisieren muss. Und das hat riesen Vorteile sobald Expansion-ROM am CPC sind.
 
TFM of FutureSoft
Also visit the CPC and Plus users favorite OS: FutureOS - The Revolution on CPC6128 and 6128Plus

Offline Devilmarkus

  • Vivid source of indefiniteness
  • 6128 Plus
  • ******
  • Posts: 4.035
  • Country: de
  • WebCPC / JavaCPC developer
    • index.php?action=treasury
    • CPC-Live website
  • Liked: 1011
  • Likes Given: 926
Re: G-Paint 1.x und 2.0 gesucht
« Reply #15 on: 21:23, 01 November 10 »
Dann fang schonmal an zu übersetzen!
(Ist ja nicht viel!)

Code: [Select]
                DB      "Directory anzeigen", &0E
                DB          "Bild speichern", &11
                DB       "Bild komprimieren", &0A
                DB              "Bild laden", &10
                DB        "Bild expandieren", &10
                DB        "Ausschnitt laden", &11
                DB       "Zeichensatz laden", &11
                DB       "Laufwerk wechseln", &12
                DB      "Datei(en) loeschen"

Du musst nur beachten: Die Übersetzung muss GENAUSOVIELE Zeichen wie das Deutsche Original haben! (Also pro Zeile!)
Dies ist das Disk-menü.
Ich hab das Programm komplett disassembliert,
bin aber noch dabei, den Code etwas übersichtlicher zu machen.
Achja, speichern kann ich ihn auch! (JavaCPC Assembler speichert mit BASIC Header bei 'write direct "file.bas"' (Endung .bas = bas header!)

Der Code assembliert auch fein!
When you put your ear on a hot stove, you can smell how stupid you are ...

Amstrad CPC games in your webbrowser

JavaCPC Desktop Full Release

Offline TFM

  • Visit the mysteries of the CPC at www.futureos.de
  • Supporter
  • 6128 Plus
  • *
  • Posts: 9.899
  • Country: aq
  • Space Chicken for FutureOS is free!
    • index.php?action=treasury
    • FutureOS - The revolution on CPC!
  • Liked: 1976
  • Likes Given: 4650
Re: G-Paint 1.x und 2.0 gesucht
« Reply #16 on: 21:45, 01 November 10 »
Dann fang schonmal an zu übersetzen!

Das wäre ja Jobklau! Nein, Du machst das doch ganz gut. Und da Du schon mal damit angefangen hast, mach ruhig fertig. Die Ehre wird ganz Dir gebühren  ;D
TFM of FutureSoft
Also visit the CPC and Plus users favorite OS: FutureOS - The Revolution on CPC6128 and 6128Plus

Offline Devilmarkus

  • Vivid source of indefiniteness
  • 6128 Plus
  • ******
  • Posts: 4.035
  • Country: de
  • WebCPC / JavaCPC developer
    • index.php?action=treasury
    • CPC-Live website
  • Liked: 1011
  • Likes Given: 926
Re: G-Paint 1.x und 2.0 gesucht
« Reply #17 on: 23:42, 01 November 10 »
Nun... so sei es...

Hier ist es:
[cpc=http://cpcwiki.eu/forum/index.php?action=dlattach;topic=751.0;attach=1051,-enpaint,0]CPC6128[/cpc]

(Assemblercode hab ich auch angefügt, der ist zwar ziemlich murkelig, aber kompiliert!)
RUN"-PAINT" = Deutsch
RUN"-ENPAINT" = Englisch

Viel Spass damit...

Achja: Assembliert NICHT im Winape! (Versteht 'LD PC,x' nicht)
Assembliert ohne Änderung auch nicht im WinCPC! (Versteht 'list' nicht)
« Last Edit: 23:57, 01 November 10 by Devilmarkus »
When you put your ear on a hot stove, you can smell how stupid you are ...

Amstrad CPC games in your webbrowser

JavaCPC Desktop Full Release

Offline TFM

  • Visit the mysteries of the CPC at www.futureos.de
  • Supporter
  • 6128 Plus
  • *
  • Posts: 9.899
  • Country: aq
  • Space Chicken for FutureOS is free!
    • index.php?action=treasury
    • FutureOS - The revolution on CPC!
  • Liked: 1976
  • Likes Given: 4650
Re: G-Paint 1.x und 2.0 gesucht
« Reply #18 on: 01:00, 03 November 10 »
Also ich werde mir das gleich ansehen! Aber ich glaube jetzt schon sagen zu können: SUPER ARBEIT!!! Markus, mach doch im englischen Forum eine Nachricht rein (falls Du es nicht schon hast), da werden sich sicher viele dafür interessieren!!! Gut dass es Dich gibt (und dass Du dafür die Zeit aufwendest).
TFM of FutureSoft
Also visit the CPC and Plus users favorite OS: FutureOS - The Revolution on CPC6128 and 6128Plus