10 REM PET 2001 LOGO SCREEN; N.LANDSTEINER 2017
100 ?CHR$(147):SP$="            "
110 ?SP$;"     ";CHR$(175);CHR$(162);CHR$(162);CHR$(175)
120 ?SP$;"   ";CHR$(162);CHR$(18);"     "
130 ?SP$;"  ";CHR$(18);CHR$(190);"      "
140 ?SP$;" ";CHR$(18);CHR$(161);"   ";CHR$(175);CHR$(162);CHR$(162);CHR$(175)
150 ?SP$;" ";CHR$(18);"   ";CHR$(146);CHR$(190);"    ";CHR$(18);"    ";
160 ?CHR$(146);CHR$(169)
170 ?SP$;CHR$(170);CHR$(18);"  ";CHR$(170);CHR$(146);"     ";
180 ?CHR$(18);"   ";CHR$(146);CHR$(169)
190 ?SP$;CHR$(18);CHR$(161);"  ";CHR$(146);CHR$(161);"     ";
200 ?CHR$(18);"  ";CHR$(146);CHR$(169)
210 ?SP$;CHR$(18);CHR$(161);"  ";CHR$(146);CHR$(161);"     ";
220 ?CHR$(18);CHR$(163);CHR$(163);CHR$(223)
230 ?SP$;CHR$(170);CHR$(18);"  ";CHR$(170);CHR$(146);"     ";
240 ?CHR$(18);"   ";CHR$(223)
250 ?SP$;" ";CHR$(18);"   ";CHR$(146);CHR$(187);"    ";CHR$(18);"    ";
260 ?CHR$(223)
270 ?SP$;" ";CHR$(18);CHR$(161);"   ";CHR$(183);CHR$(146);CHR$(162);
280 ?CHR$(162);CHR$(18);CHR$(183)
290 ?SP$;"  ";CHR$(18);CHR$(187);"      "
300 ?SP$;"   ";CHR$(18);CHR$(162);"     "
310 ?SP$;"     ";CHR$(183);CHR$(18);CHR$(162);CHR$(162);CHR$(146);CHR$(183)
320 ?:?
330 ?CHR$(18);"    ";CHR$(188);CHR$(146);" ";CHR$(18);"     ";CHR$(146);" ";
340 ?CHR$(18);"     ";CHR$(146);"  ";CHR$(18);CHR$(190);"   ";CHR$(188);
350 ?CHR$(146);" ";CHR$(18);CHR$(190);"   ";CHR$(188);CHR$(146);" ";CHR$(18);
360 ?CHR$(190);"   ";CHR$(188);CHR$(146);"  ";CHR$(18);CHR$(169);" ";
370 ?" ";CHR$(146);"   ";CHR$(18);" ";CHR$(146);" ";CHR$(18);" ";CHR$(146);
380 ?CHR$(185);CHR$(185);CHR$(185);CHR$(185);"   ";CHR$(18);" ";CHR$(146);
390 ?"    ";CHR$(183);CHR$(185);CHR$(185);CHR$(185);CHR$(18);" ";CHR$(146);" ";
400 ?CHR$(18);" ";CHR$(146);"   ";CHR$(18);" ";CHR$(146);" ";CHR$(18);" ";
410 ?CHR$(146);"   ";CHR$(18);" ";CHR$(146);" ";CHR$(18);CHR$(169);CHR$(146);
420 ?CHR$(169);CHR$(18);" ";
430 ?"    ";CHR$(172);CHR$(146);" ";CHR$(18);" ";CHR$(146);CHR$(184);CHR$(184);
440 ?CHR$(184);CHR$(184);"   ";CHR$(18);" ";CHR$(146);"    ";CHR$(18);" ";
450 ?CHR$(146);CHR$(184);CHR$(184);CHR$(184);"  ";CHR$(18);" ";CHR$(146);"   ";
460 ?CHR$(18);" ";CHR$(146);" ";CHR$(18);" ";CHR$(146);"   ";CHR$(18);" ";
470 ?CHR$(146);"   ";CHR$(18);" ";
480 ?" ";CHR$(146);"     ";CHR$(18);"     ";CHR$(146);"   ";CHR$(18);" ";
490 ?CHR$(146);"    ";CHR$(18);"     ";CHR$(146);" ";CHR$(18);CHR$(187);"   ";
500 ?CHR$(172);CHR$(146);" ";CHR$(18);CHR$(187);"   ";CHR$(172);CHR$(146);"   ";
510 ?CHR$(18);" ";
520 ?
530 END