10 REM Example playfield using a redefined character set

20 REM By Jason H. Moore, Ph.D.

30 REM September 23, 2018

40 REM Thanks to character set code example from The Creative Atari

50 REM Goal is to approximate playfield from Gene Medic for Atari 2600

100 MEMTOP=PEEK(106)

110 GRTOP=MEMTOP-4

120 POKE 106,GRTOP

130 GRAPHICS 0:POKE 752,1

132 SETCOLOR 1,9,9

134 SETCOLOR 2,9,2

140 CHROM=PEEK(756)*256

160 POKE 756,GRTOP

170 CHRAM=GRTOP*256

200 FOR N=0 TO 1023

210 POKE CHRAM+N,PEEK(CHROM+N)

230 NEXT N

240 CHRAM=CHRAM+264

300 FOR I=1 to 10

310 FOR ADDR=CHRAM TO CHRAM+7

320 READ DAT:POKE ADDR,DAT

330 NEXT ADDR

340 CHRAM=CHRAM+8

350 NEXT I

400 DATA 0,0,0,0,0,0,0,0

410 DATA 255,0,0,0,0,0,0,0

420 DATA 0,255,0,0,0,0,0,0

430 DATA 0,0,255,0,0,0,0,0

440 DATA 0,0,0,255,0,0,0,0

450 DATA 0,0,0,0,255,0,0,0

460 DATA 0,0,0,0,0,255,0,0

470 DATA 0,0,0,0,0,0,255,0

480 DATA 0,0,0,0,0,0,0,255

490 DATA 255,255,255,255,255,255,255,255

500 POSITION 0,7

510 PRINT "JJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJ"

520 POSITION 0,14

530 PRINT "DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD"

540 POSITION 0,21

550 PRINT "IHGFFFGHIHGFFFGHIHGFFFGHIHGFFFGHIHGFFFGH"

560 POSITION 0,22

570 PRINT "ABCDDDCBABCDDDCBABCDDDCBABCDDDCBABCDDDCB"

1000 GOTO 1000