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