Easy way to Pause/Follow, Stop and Exit from a QB64 program

[petoro]

A small program I made a few days ago to easily pause/follow, stop and exit a program in QB64 while you are computing things...

Code: QB64: [Select]

1. DIM SHARED s, b, n, x, y, k$, t0, ascii, Status$
2. RANDOMIZE TIMER
3. t0 = TIMER
4.  
5. 's = 0: b = 0: n = 0
6.  
7. FOR x = 1 TO 60000
8.     REM Do Things
9.     a = RND
10.     PRINT a; " ";
11.  
12.     b = (1 - a)
13.     IF b < 0 THEN b = 0
14.     s = s + b
15.     n = n + 1
16.  
17.     TakeKeyOnTheFly
18. NEXT x
19. Status$ = " Finished. Showing info:"
20. ShowInfoCommon
21.  
22. SUB TakeKeyOnTheFly
23.     k$ = INKEY$
24.     IF k$ = "" THEN EXIT SUB
25.     ascii = ASC(k$)
26.     IF ascii <> 27 THEN Pause
27.     'IF ascii = 27 THEN Final
28.     'Si ascii = 27:
29.     'IF ascii = 27 THEN
30.     IF ascii = 27 THEN
31.         'BEEP
32.         Status$ = " Stopped. Showing info:"
33.         ShowInfoCommon
34.         END
35.     END IF
36.     'END
37. END SUB
38.  
39. SUB Pause
40.     Status$ = " Paused. Showing info:"
41.     ShowInfoPaused
42.     DO
43.         k$ = INKEY$
44.         IF k$ <> "" THEN
45.             ascii = ASC(k$)
46.             IF ascii <> 27 THEN EXIT SUB
47.             END
48.         END IF
49.     LOOP
50. END SUB
51.  
52. SUB ShowInfoCommon
53.     PRINT: PRINT: PRINT Status$: PRINT
54.     PRINT n; " numbers"; "     ": y = s / n: PRINT y; " is the average.";
55.     PRINT: PRINT " ";: PRINT TIMER - t0; " seconds from the beginning"
56. END SUB
57.  
58. SUB ShowInfoPaused
59.     ShowInfoCommon
60.     PRINT: PRINT "                                       Esc to exit. Any other key to continue.";
61. END SUB