Fix multiburst pattern only working once per program start

Closes #9
MobyGamer · Dec 13, 2023 · 6f6fc55 · 6f6fc55
1 parent 1e381aa
commit 6f6fc55
Show file tree

Hide file tree

Showing 6 changed files with 11 additions and 4 deletions.
diff --git a/CGACMAIN.PAS b/CGACMAIN.PAS
@@ -57,7 +57,7 @@ const
   AboutText:array[0..AboutTextLines+1] of pChar=(
     '',
     ' The CGA Compatibility Tester',
-    ' Version 1.3, 20230818',
+    ' Version 1.31, 20231213',
     ' by Jim Leonard (trixter@oldskool.org) ',
     ''
   );

diff --git a/CGAFLAGS.INC b/CGAFLAGS.INC
@@ -1,6 +1,11 @@
-{$M 8192,0,200000}
+{$M 10240,0,262144}
 {compilation flags}
 
 {{$DEFINE OVERLAY} {use overlays} {only for when trying to develop on 5160}
 {{$DEFINE EXTREMEOVERLAY} {overlay EVERYTHING -- may not be what you want!}
 
+{{$DEFINE DEBUG}
+
+{$IFDEF DEBUG}
+{$A+,D+,I+,Q+,R+,S+,V+,X+}
+{$ENDIF}
diff --git a/CGAMTEST.PAS b/CGAMTEST.PAS
@@ -690,9 +690,9 @@ end;
 Procedure CalibMultiburst;
 const
   accel=0.05;
-  thickness:real=0.05;
 var
   x,barw,cols:integer;
+  thickness:real;
 begin
   with InfoPrompt do begin
     init(6,strpas(menuLookup[mLinearRGB].title));
@@ -711,6 +711,7 @@ begin
   if Result=Escaped then exit;
   Preptest;
   vs:=new(pvidCGAGmode6,Init(mode6,true));
+  thickness:=0.05;
   with vs^ do begin
     box(0,0,width-1,height-1,maxcolors-1);
     x:=width-1;

diff --git a/CGA_COMP.TXT b/CGA_COMP.TXT
@@ -221,6 +221,7 @@ Version History:
         program, so CGA_COMP.DAT is no longer required, making CGA_COMP.EXE
         the only file necessary to perform testing.
         Made information dialogs easier to read and less cluttered.
+1.31:   Fixed multiburst pattern only working once per program start.
 
 Possible future enhancements:
 - Test on PCjr and ensure all tests work on PCjr

diff --git a/CGA_COMP.ZIP b/CGA_COMP.ZIP
diff --git a/FILE_ID.DIZ b/FILE_ID.DIZ
@@ -1,5 +1,5 @@
 The CGA Compatibility Tester
-Version 1.3, 2023
+Version 1.31, 2023
 
 - Test your CGA for compatibility
 - Calibrate your monitor