From 9c902abb59345ca1e26e1628724de6bea66caca1 Mon Sep 17 00:00:00 2001
From: giomba <giomba@glgprograms.it>
Date: Mon, 8 Nov 2021 19:38:41 +0100
Subject: [PATCH] intro/demo: show PETSCII brand name + forbid intro skip

---
 src/intro1.asm  | 6 +++++-
 src/program.asm | 7 +++++++
 2 files changed, 12 insertions(+), 1 deletion(-)

diff --git a/src/intro1.asm b/src/intro1.asm
index e9c68c2..8506546 100644
--- a/src/intro1.asm
+++ b/src/intro1.asm
@@ -33,7 +33,7 @@ introreset SUBROUTINE
     bne .colorLoop
 
     ; first raster interrupt line, for moustaches
-    lda #68+19
+    lda #68+18
     sta moustacheLine
 
     rts
@@ -411,6 +411,10 @@ statusMenuReset SUBROUTINE
     MEMSET #$d800, #$02, #280       ; color
     MEMCPY #$400, #SnakeText, #280  ; text
 
+    ; Print PETSCII GLG Programs
+    MEMSET #($6a8 + $d800 - $400), #$02, #200   ; color
+    MEMCPY #$6a8, #GLGProgramsText, #200        ; text
+
     ; Print website
     lda #<intro2string          ; lsb of string address
     sta srcStringPointer        ; put into lsb of source pointer
diff --git a/src/program.asm b/src/program.asm
index a0a0c3e..3c4c5fc 100644
--- a/src/program.asm
+++ b/src/program.asm
@@ -90,6 +90,13 @@ menu SUBROUTINE
 
     ; Intro is finished, now it's time to start the proper game
 .intro0end:
+    ; Are you sure? Maybe the demo-intro is not finished, yet
+    ; We do not want to actually start unless the demo is finished,
+    ; otherwise vertical raster line offset may be != 0
+    lda status
+    cmp #ST_MENU
+    bne .menu
+
     ; Set current level pointer to list start
     lda #<levelsList
     sta levelPointer