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