1 REM loads PEKPOK routines for M100/102 2 REM (c) Tracy Allen 76670,326 3 REM PEEKs and POKES extRAM 4 REM POKE syntax: CALL 64704,byte,adrs 5 REM pokes byte to extRAM adrs 6 REM PEEK syntax: CALL 64712,,adrs 7 REM puts byte from extRAM adrs 8 REM into RAM at 64722, where 9 REM BASIC can PEEK(64722) 10 CS=0:FOR AD=64704 TO 64733 15 READ D%:POKE AD,D%:CS=CS+D% 20 NEXT AD 25 IF CS<>5489 THEN BEEP:PRINT"Typo in data!!?":END 30 END:REM use RETURN here if this is BASIC subroutine 50 DATA 71,205,211,252,112,195,217,252,205,211 51 DATA 252,126,50,210,252,195,217,252,0,243 52 DATA 62,1,211,224,201,175,211,224,251,201