0 CLR
5 POKE53280,6:POKE53281,6
10 PRINT"[147]"
20 A$="[215]HEN [199]RAPHOS IS LOADED AND RUN, IT":GOSUB5000
30 A$="RESIDES IN MEMORY, READY FOR YOU TO":GOSUB5000
40 A$="LOAD AND RUN ANY ONE OF THE SEVERAL":GOSUB5000
45 A$="DEMONSTRATION PROGRAMS AT THE END OF":GOSUB5000
46 A$="THE DIRECTORY LISTING.":GOSUB5000
50 PRINT"":A$="[208]RESS [193]NY [203]EY":GOSUB5000
60 GET A$:IF A$="" THEN 60
65 PRINT"":A$="[204]OADING...":GOSUB5000
70 LOAD"GRAPHOS",8
5000 FOR X=1 TO (40-LEN(A$))/2:PRINTCHR$(32);:NEXT:PRINTA$
5010 RETURN