10 DEF FNCEN$(V$,X)=SPACE$((X-LEN(V$))/2+V$
20 CLS
30 LOCATE 9,9:PRINT"That was a good session."
40 d=1500:GOSUB 31000
50 LOCATE 12,5:PRINT"See you again soon for another."
60 d=1500:GOSUB 31000
70 LOCATE 23,1
80 END
31000 REM *** Delay procedure     added by Maarten van Gelder
31010 FOR I=1 TO D
31020   FOR J=1 TO 1:NEXT J    ' Delay factor: change for actual CPU
31030 NEXT I
31040 RETURN