0 REM **** ERASE  LINE  5120 IF NOT         NEEDED!!!***›100 M=PEEK(106):GRAPHICS 9›5000 IF PEEK(1540)<>205 AND PEEK(1542)<>39 THEN RESTORE 5200:FOR A=0 TO 153:READ B:POKE 1536+A,B:NEXT A›5020 POKE 203,PEEK(88):POKE 204,PEEK(89):POKE 106,PEEK(106)-48:GRAPHICS 9:A=USR(1536)›5120 GOTO 5120›5200 DATA 104,169,0,133,205,160›5210 DATA 39,177,203,145,88,136›5220 DATA 16,249,160,40,177,203›5230 DATA 145,88,160,79,177,203›5240 DATA 145,88,169,81,133,206›5250 DATA 169,0,133,207,162,7›5260 DATA 165,206,24,125,146,6›5270 DATA 74,144,8,168,177,203›5280 DATA 41,15,76,60,6,168›5290 DATA 177,203,74,74,74,74›5300 DATA 24,101,207,133,207,202›5310 DATA 16,224,165,206,74,144›5320 DATA 9,168,165,207,74,74›5330 DATA 74,76,88,6,168,165›5340 DATA 207,10,41,240,17,88›5350 DATA 145,88,230,206,165,206›5360 DATA 201,159,208,186,165,203›5370 DATA 24,105,40,133,203,165›5380 DATA 204,105,0,133,204,165›5390 DATA 88,24,105,40,133,88›5400 DATA 165,89,105,0,133,89›5410 DATA 230,205,165,205,201,190›5420 DATA 208,136,160,40,177,203›5430 DATA 145,88,200,192,80,208›5440 DATA 247,96,175,176,177,255›5450 DATA 1,79,80,81›