1 '************************ 2 '* SLX.CO for T200 * 3 '* Copyright (c) 1989 * 4 '* by Paul Globman * 5 '************************ 6 REM runs from altlcd buffer 10 CS=0:FOR AD= 63572 TO 63683 15 READ D%:POKE AD,D%:CS=CS+D% 20 NEXT AD 25 IF CS<> 17098 THEN BEEP :PRINT"Typo in data!!?":END 30 SAVEM"SLX",63572,63683,63572 50 DATA 33,187,248,205,204,17,205,247,18,205 51 DATA 20,16,231,79,254,83,202,137,248,254 52 DATA 76,202,126,248,254,88,192,205,166,248 53 DATA 70,26,235,112,18,235,205,149,248,195 54 DATA 114,248,205,166,248,26,119,205,149,248 55 DATA 195,129,248,243,205,172,248,126,18,205 56 DATA 149,248,195,141,248,35,19,124,181,192 57 DATA 241,219,216,230,12,211,216,121,254,83 58 DATA 200,199,243,193,49,255,255,197,219,216 59 DATA 230,12,246,2,211,216,33,0,160,17 60 DATA 0,0,201,83,47,76,47,88,58,27,75,0