1 REM loads PEKPOK routines for T200
2 REM (c) Tracy Allen 76670,326
3 REM PEEKs and POKES extRAM
4 REM POKE syntax: CALL 63572,byte,adrs
5 REM     pokes byte to extRAM adrs
6 REM PEEK syntax: CALL 63580,,adrs
7 REM     puts byte from extRAM adrs
8 REM     into RAM at 63590, where
9 REM     BASIC can PEEK(63590)
10 CS=0:FOR AD=63572 TO 63608 
15 READ D%:POKE AD,D%:CS=CS+D%
20 NEXT AD
25 IF CS<> 6253 THEN BEEP:PRINT"Typo in data!!?":END
30 END:REM use RETURN here is this is BASIC subroutine
50 DATA 71,205,103,248,112,195,113,248,205,103
51 DATA 248,126,50,102,248,195,113,248,0,243
52 DATA 219,216,230,12,246,2,211,216,201,219
53 DATA 216,230,12,211,216,251,201