1 POKE46,19:POKE48,18:POKE50,18:POKE52,160:CLR
5 POKE53281,0:POKE53280,0:X$=CHR$(13)+""
6 A$="[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
10 PRINT"[147][155]"X$"[185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
30 PRINT"  [192][155][192][192][152][192][192][152] LOADING THE SURVIVAL GUIDE [146][192][192][155][192][192][192]"X$;
40 PRINT"[145][151][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
50 FORI=1TO10:A$=MID$(A$,3):POKE214,24-I:PRINT:PRINTSPC(20-LEN(A$)/2)""A$""
60 POKE214,-1+I:PRINT:PRINTSPC(20-LEN(A$)/2)"[159]"A$:NEXT
70 CLR:POKE787,1:LOAD"READER",8