home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / eme / slx.200 < prev    next >
Text File  |  2006-10-19  |  849b  |  23 lines
  1. 1 '************************
  2. 2 '* SLX.CO for T200      *
  3. 3 '*  Copyright (c) 1989  *
  4. 4 '*    by Paul Globman   *
  5. 5 '************************
  6. 6 REM runs from altlcd buffer
  7. 10 CS=0:FOR AD= 63572 TO 63683 
  8. 15 READ D%:POKE AD,D%:CS=CS+D%
  9. 20 NEXT AD
  10. 25 IF CS<> 17098 THEN BEEP :PRINT"Typo in data!!?":END
  11. 30 SAVEM"SLX",63572,63683,63572
  12. 50 DATA 33,187,248,205,204,17,205,247,18,205
  13. 51 DATA 20,16,231,79,254,83,202,137,248,254
  14. 52 DATA 76,202,126,248,254,88,192,205,166,248
  15. 53 DATA 70,26,235,112,18,235,205,149,248,195
  16. 54 DATA 114,248,205,166,248,26,119,205,149,248
  17. 55 DATA 195,129,248,243,205,172,248,126,18,205
  18. 56 DATA 149,248,195,141,248,35,19,124,181,192
  19. 57 DATA 241,219,216,230,12,211,216,121,254,83
  20. 58 DATA 200,199,243,193,49,255,255,197,219,216
  21. 59 DATA 230,12,246,2,211,216,33,0,160,17
  22. 60 DATA 0,0,201,83,47,76,47,88,58,27,75,0
  23.