Add splash screen

src/mkrel

@@ -115,6 +115,7 @@ cp rel/apple/HGRTEST#FE1000 prodos/demos/apple2/HGRTEST.REL
 cp rel/apple/GRTEST#FE1000 prodos/demos/apple2/GRTEST.REL
 cp rel/apple/DGRTEST#FE1000 prodos/demos/apple2/DGRTEST.REL
 cp rel/apple/MAZE#FE1000 prodos/demos/apple2/MAZE.REL
+cp samplesrc/MAZE.SPLASH.BIN prodos/demos/apple2
 
 mkdir prodos/demos/apple2/spiders
 cp rel/apple/SFM#FE1000 prodos/demos/apple2/spiders/SFM.REL

src/samplesrc/maze.pla

@@ -1,5 +1,6 @@
 include "inc/cmdsys.plh"
 include "inc/conio.plh"
+include "inc/fileio.plh"
 include "inc/args.plh"
 include "inc/int32.plh"
 include "inc/hgrlib.plh"
@@ -34,14 +35,13 @@ byte             = $7F, $00, $00, $00, $08, $00, $00, $00 // Top wall + crumb
 byte             = $03, $03, $03, $03, $0B, $03, $03, $03 // Left wall + crumb
 byte             = $7F, $03, $03, $03, $0B, $03, $03, $03 // Top & Left walls + crumb
 byte             = $00, $00, $10, $54, $54, $54, $10, $00 // Player
-//byte             = $00, $00, $00, $00, $08, $00, $00, $00 // Bread crumb
 
 word maze[] = $0400,$0480,$0500,$0580,$0600,$0680,$0700,$0780
 word        = $0428,$04A8,$0528,$05A8,$0628,$06A8,$0728,$07A8
 word        = $0450,$04D0,$0550,$05D0,$0650,$06D0,$0750,$07D0
 
 word arg, seed, moveCnt
-byte entry, exit, solved
+byte entry, exit, solved, ref
 byte viewFlag = TRUE
 res[4] tics
 
@@ -434,6 +434,14 @@ def atoi(strptr)#1
     return num * sign
 end
 
+conio:textmode(40)
+hgrMode(hgrPage1)
+ref = fileio:open("MAZE.SPLASH")
+fileio:read(ref, $2000, $2000)
+fileio:close(ref)
+for moveCnt = 0 to 10000
+    if conio:keypressed(); getc; break; fin
+next
 arg = argNext(argFirst)
 if ^arg and ^(arg + 1) == 'V'
     viewFlag = FALSE
@@ -442,9 +450,11 @@ fin
 if ^arg
     *rndnum = atoi(arg)
 else
+    hgrMode(hgrOff)
     puts("I, J, K, M or arrow keys to move.\n")
     puts("Q to quit.\n")
-    puts("Add seed value to command line to replay maze.\n")
+    puts("Add seed value to command line to\n")
+    puts("replay maze.\n\n")
     puts("Press a key to generate the maze...")
     while not conio:keypressed()
         conio:rnd()