More quit/replay options for Maze Runner

src/samplesrc/maze.pla

@@ -492,12 +492,14 @@ else
     puts("Add seed value to command line to")
     conio:gotoxy(3, 12)
     puts("replay maze.")
-    conio:gotoxy(1, 20)
-    puts("Press a key to generate the maze...")
+    conio:gotoxy(4, 20)
+    puts("Press a key to generate the maze")
+    conio:gotoxy(10, 21)
+    puts("or 'Q' to quit...")
     while not conio:keypressed()
         conio:rnd()
     loop
-    getc
+    if toupper(getc) == 'Q'; conio:textmode(0); return; fin
 fin
 conio:textmode(40)
 conio:viewport(0, 20, 40, 4)
@@ -522,8 +524,10 @@ repeat
     puts("Timer = "); puti32(@tics)
     load32(@tics); divi16(1085); store32(@tics)
     puts(" ("); puti32(@tics); puts(" secs)\n")
-    puts("Play again? (Y/N):")
-until toupper(conio:getkey()) <> 'Y'
+    puts("(Re)Play again? (R/Y/N):")
+    ref = toupper(conio:getkey())
+    if ref == 'R'; *rndnum = seed; ref = 'Y'; fin
+until ref <> 'Y'
 hgrMode(hgrOff)
 conio:textmode(0)
 done