10 CLR:POKE53280,6:POKE53281,5:PRINT"[147]"
100 DATA 162,1,32,198,255,160,0
110 DATA 140,0,34,32,228,255,172,0,34
120 DATA 153,0,33,166,144,208,3,200
130 DATA 208,237,142,1,34,32,204,255
140 DATA 162,2,32,201,255,160,255
150 DATA 200,185,0,33,32,210,255
160 DATA 204,0,34,208,244,32,204,255
170 DATA 174,1,34,240,197,96
200 FOR J=8192 TO 8251
210 READ X:T=T+X
220 POKE J,X
230 NEXT J
240 IF T<>7628 THEN STOP
400 PRINT "BUFFERING DEMO - JIM BUTTERFIELD"
410 PRINT
420 INPUT "NAME OF DISK (TEXT) FILE";F$
430 PRINT
440 PRINT "(OUTPUT TO SCREEN)"
450 OPEN 1,8,2,F$
460 OPEN 2,3
470 SYS 8192
480 CLOSE 2
490 CLOSE 1
999 REM 2000-203B IS 8192 TO 8251