100 PRINT CHR$(147); 110 PRINT "@@@@###***********%%%%+-*@ %%%***#######"; 120 PRINT "@@@###**********%%%%%++::+:+%%%***######"; 130 PRINT "@@@##**********%%%%%+-@@ -++%%***#####"; 140 PRINT "@@##**********%%%%+--:. :-++%%***####"; 150 PRINT "@@#*********%%%%+-+-@+ @ :*-::#%****###"; 160 PRINT "@@*********%%+++--@ .+-+%****##"; 170 PRINT "@#*******%+++++--.* .+%****##"; 180 PRINT "@*****%%%::---::.* @:%%****#"; 190 PRINT "@***%%%++:%-#*@.@ #%%****#"; 200 PRINT "@*%%%%++-:# +% #:%%****#"; 210 PRINT "@%%%%++-.@ # @-%%****#"; 220 PRINT "@%%%--:.:# @+%%****#"; 230 PRINT " *:+%%****#"; 240 PRINT "@%%%--:.:# @+%%****#"; 250 PRINT "@%%%%++-.@ # @-%%****#"; 260 PRINT "@*%%%%++-:# +% #:%%****#"; 270 PRINT "@***%%%++:%-#*@.@ #%%****#"; 280 PRINT "@*****%%%::---::.* @:%%****#"; 290 PRINT "@#*******%+++++--.* .+%****##"; 300 PRINT "@@*********%%+++--@ .+-+%****##"; 310 PRINT "@@#*********%%%%+-+-@+ @ :*-::#%****###"; 320 PRINT "@@##**********%%%%+--:. :-++%%***####"; 330 PRINT "@@@##**********%%%%%+-@@ -++%%***#####"; 340 PRINT "@@@###**********%%%%%++::+:+%%%***######"; 350 PRINT "@@@@###***********%%%%+-*@+%%%***######"; 360 CF=548:IF PEEK(50003) THEN CF=167:REM PET ONLY, FOR C64 USE CF=204 370 POKE CF,0:REM CURSOR ON 380 GET K$:IF K$="" GOTO 380 390 END