home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / eme / pekpok.200 < prev    next >
Text File  |  2006-10-19  |  685b  |  19 lines
  1. 1 REM loads PEKPOK routines for T200
  2. 2 REM (c) Tracy Allen 76670,326
  3. 3 REM PEEKs and POKES extRAM
  4. 4 REM POKE syntax: CALL 63572,byte,adrs
  5. 5 REM     pokes byte to extRAM adrs
  6. 6 REM PEEK syntax: CALL 63580,,adrs
  7. 7 REM     puts byte from extRAM adrs
  8. 8 REM     into RAM at 63590, where
  9. 9 REM     BASIC can PEEK(63590)
  10. 10 CS=0:FOR AD=63572 TO 63608 
  11. 15 READ D%:POKE AD,D%:CS=CS+D%
  12. 20 NEXT AD
  13. 25 IF CS<> 6253 THEN BEEP:PRINT"Typo in data!!?":END
  14. 30 END:REM use RETURN here is this is BASIC subroutine
  15. 50 DATA 71,205,103,248,112,195,113,248,205,103
  16. 51 DATA 248,126,50,102,248,195,113,248,0,243
  17. 52 DATA 219,216,230,12,246,2,211,216,201,219
  18. 53 DATA 216,230,12,211,216,251,201
  19.