10 REM 28000 - IS SUBROUTINE 20 GOSUB 28000 100 REM CIRCLE DEMONSTRATION 110 REM PROGRAM #6 140 REM THIS METHOD TAKES APPROXIMATELY 0.1833 SECONDS 210 GRAPHICS 8 220 COLOR 1 230 SETCOLOR 2,0,0 240 A=160 250 B=80 260 R=50 270 P=7*16*16*16 300 I=USR(P,A,B,R,1) 310 END 28000 FOR I=0 TO 758:READ A:POKE 28672+I,A:NEXT I 28005 A=128:FOR I=0 TO 7:POKE 1577+I,A:A=A/2:NEXT I 28010 RETURN 28672 DATA 104,104,141,5,6,104 28678 DATA 141,4,6,104,141,7 28684 DATA 6,104,141,6,6,104 28690 DATA 141,9,6,141,12,6 28696 DATA 104,141,8,6,141,11 28702 DATA 6,104,104,141,10,6 28708 DATA 201,3,144,1,96,169 28714 DATA 0,141,13,6,141,14 28720 DATA 6,141,15,6,141,16 28726 DATA 6,24,173,4,6,109 28732 DATA 11,6,141,25,6,173 28738 DATA 5,6,109,12,6,141 28744 DATA 26,6,24,173,4,6 28750 DATA 109,13,6,141,29,6 28756 DATA 173,5,6,109,14,6 28762 DATA 141,30,6,56,173,4 28768 DATA 6,237,11,6,141,27 28774 DATA 6,173,5,6,237,12 28780 DATA 6,141,28,6,56,173 28786 DATA 4,6,237,13,6,141 28792 DATA 31,6,173,5,6,237 28798 DATA 14,6,141,32,6,24 28804 DATA 173,6,6,109,11,6 28810 DATA 141,33,6,173,7,6 28816 DATA 109,12,6,141,34,6 28822 DATA 24,173,6,6,109,13 28828 DATA 6,141,37,6,173,7 28834 DATA 6,109,14,6,141,38 28840 DATA 6,56,173,6,6,237 28846 DATA 11,6,141,35,6,173 28852 DATA 7,6,237,12,6,141 28858 DATA 36,6,56,173,6,6 28864 DATA 237,13,6,141,39,6 28870 DATA 173,7,6,237,14,6 28876 DATA 141,40,6,173,25,6 28882 DATA 141,0,6,173,26,6 28888 DATA 141,1,6,173,37,6 28894 DATA 141,2,6,173,38,6 28900 DATA 141,3,6,32,106,114 28906 DATA 173,27,6,141,0,6 28912 DATA 173,28,6,141,1,6 28918 DATA 32,106,114,173,25,6 28924 DATA 141,0,6,173,26,6 28930 DATA 141,1,6,173,39,6 28936 DATA 141,2,6,173,40,6 28942 DATA 141,3,6,32,106,114 28948 DATA 173,27,6,141,0,6 28954 DATA 173,28,6,141,1,6 28960 DATA 32,106,114,173,29,6 28966 DATA 141,0,6,173,30,6 28972 DATA 141,1,6,173,33,6 28978 DATA 141,2,6,173,34,6 28984 DATA 141,3,6,32,106,114 28990 DATA 173,31,6,141,0,6 28996 DATA 173,32,6,141,1,6 29002 DATA 32,106,114,173,29,6 29008 DATA 141,0,6,173,30,6 29014 DATA 141,1,6,173,35,6 29020 DATA 141,2,6,173,36,6 29026 DATA 141,3,6,32,106,114 29032 DATA 173,31,6,141,0,6 29038 DATA 173,32,6,141,1,6 29044 DATA 32,106,114,173,14,6 29050 DATA 205,12,6,240,3,144 29056 DATA 10,96,173,13,6,205 29062 DATA 11,6,144,1,96,173 29068 DATA 11,6,133,4,173,12 29074 DATA 6,133,5,173,13,6 29080 DATA 133,205,173,14,6,133 29086 DATA 206,6,4,38,5,6 29092 DATA 205,38,206,56,165,205 29098 DATA 109,15,6,141,17,6 29104 DATA 165,206,109,16,6,141 29110 DATA 18,6,24,173,17,6 29116 DATA 229,4,141,19,6,173 29122 DATA 18,6,229,5,141,20 29128 DATA 6,173,18,6,16,27 29134 DATA 73,255,141,22,6,173 29140 DATA 17,6,73,255,24,105 29146 DATA 1,141,21,6,173,22 29152 DATA 6,105,0,141,22,6 29158 DATA 24,144,9,141,22,6 29164 DATA 173,17,6,141,21,6 29170 DATA 173,20,6,16,27,73 29176 DATA 255,141,24,6,173,19 29182 DATA 6,73,255,24,105,1 29188 DATA 141,23,6,173,24,6 29194 DATA 105,0,141,24,6,24 29200 DATA 144,9,141,24,6,173 29206 DATA 19,6,141,23,6,173 29212 DATA 17,6,141,15,6,173 29218 DATA 18,6,141,16,6,24 29224 DATA 173,13,6,105,1,141 29230 DATA 13,6,173,14,6,105 29236 DATA 0,141,14,6,173,22 29242 DATA 6,205,24,6,144,39 29248 DATA 208,8,173,21,6,205 29254 DATA 23,6,144,29,173,19 29260 DATA 6,141,15,6,173,20 29266 DATA 6,141,16,6,56,173 29272 DATA 11,6,233,1,141,11 29278 DATA 6,173,12,6,233,0 29284 DATA 141,12,6,76,55,112 29290 DATA 173,2,6,133,205,169 29296 DATA 0,133,206,6,205,38 29302 DATA 206,6,205,38,206,6 29308 DATA 205,38,206,165,205,133 29314 DATA 4,165,206,133,5,6 29320 DATA 205,38,206,6,205,38 29326 DATA 206,24,165,205,101,4 29332 DATA 133,205,165,206,101,5 29338 DATA 133,206,173,0,6,133 29344 DATA 4,173,1,6,133,5 29350 DATA 70,5,102,4,70,5 29356 DATA 102,4,70,5,102,4 29362 DATA 24,165,205,101,4,133 29368 DATA 205,165,206,101,5,133 29374 DATA 206,24,165,205,101,88 29380 DATA 133,205,165,206,101,89 29386 DATA 133,206,173,0,6,41 29392 DATA 7,170,160,0,173,10 29398 DATA 6,208,10,189,41,6 29404 DATA 73,255,49,205,145,205 29410 DATA 96,201,1,208,8,189 29416 DATA 41,6,17,205,145,205 29422 DATA 96,189,41,6,81,205 29428 DATA 145,205,96,0,0,0