fix missing comment symbol in quickbasic\qb64 RES Text Export

RetroNick2020 · Feb 2, 2022 · 037e8d8 · 037e8d8
1 parent 4c9f3a1
commit 037e8d8
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/rmabout.pas b/rmabout.pas
@@ -8,7 +8,7 @@ interface
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, ExtCtrls,lclintf;
 
 Const
- ProgramName ='Raster Master v1.0 Beta R33';
+ ProgramName ='Raster Master v1.0 Beta R34';
  ProgramLicense = 'Released under MIT License';
 
 type
@@ -22,8 +22,8 @@ TAboutDialog = class(TForm)
  Shape1: TShape;
  Shape2: TShape;
  StaticText1: TStaticText;
- procedure InitName;
 
+ procedure InitName;
  procedure StaticText1Click(Sender: TObject);
  private
 

diff --git a/rwxgf2.pas b/rwxgf2.pas
@@ -844,8 +844,8 @@ procedure BitplaneWriterBasicCode(inByte : Byte; var Buffer : BufferRec;action :
  BWriter(0,data,0); //init the data record
  data.ArraySize:=size;
 
- writeln(data.ftext,' QuickBASIC\QB64, Size= ', Size div 2,' Width= ',width,' Height= ',height, ' Colors= ',nColors);
- writeln(data.ftext,' Put Bitmap ');
+ writeln(data.ftext,#39,' QuickBASIC\QB64, Size= ', Size div 2,' Width= ',width,' Height= ',height, ' Colors= ',nColors);
+ writeln(data.ftext,#39,' Put Bitmap ');
  writeln(data.ftext,#39,' ',Imagename);
  WriteXGFBuffer(BWriter,data,x,y,x2,y2,QBLan);
  writeln(data.ftext);