REM TEST CARD DRIVER ROUTINE 20 DIM CARD%(1322) 30 SCREEN 1,320,200,5,1 40 WINDOW 2,"QUEEN.HEARTS",(10,10)-(290,170),15,1 PALETTE 0,0!,.27,.8 PALETTE 1,0!,0!,0! PALETTE 2,.73,.67,.67 PALETTE 3,1!,1!,1! PALETTE 4,.47,.53,.13 PALETTE 5,.67,.53,.27 PALETTE 6,.53,.4,.27 PALETTE 7,.6,.27,0! PALETTE 8,1!,0!,0! PALETTE 9,1!,.73,.2 PALETTE 10,.93,1!,0! PALETTE 11,0!,1!,.33 PALETTE 12,0!,.87,.73 PALETTE 13,.33,.47,1! PALETTE 14,.67,.33,1! PALETTE 15,1!,.07,1! PALETTE 16,0!,0!,0! PALETTE 17,.87,.13,.13 PALETTE 18,0!,0!,0! PALETTE 19,.67,.73,.8 PALETTE 20,.27,.27,.27 PALETTE 21,.33,.33,.33 PALETTE 22,.4,.4,.4 PALETTE 23,.47,.47,.47 PALETTE 24,.53,.53,.53 PALETTE 25,.6,.6,.6 PALETTE 26,.67,.67,.67 PALETTE 27,.73,.73,.73 PALETTE 28,.8,.8,.8 PALETTE 29,.87,.87,.87 PALETTE 30,.93,.93,.93 PALETTE 31,1!,1!,1! PRINT "Reading Data. . ." 50 FOR I=0 TO 1322 60 READ CARD%(I) 70 NEXT I CLS 80 PUT (50,50),CARD%,PSET PRINT "Press Any Key" 90 A$=INKEY$ 100 IF A$ = "" THEN 90 110 WINDOW CLOSE 2 115 SCREEN CLOSE 1 120 END REM *** Queen_Hearts *** DATA 51,66,5 DATA 4095,-1,-2,0,16383,-1,-1,-32768,32767,-1,-1,-16384,29183,-1,-1,-16384,-6913,-1,-1,-8192,-12673,-1,-1,-8192,-12673,-1,-1,-8192,-12673,-1,-16385,-8192,-6913,-1,-24577,-8192,-3848,-28673,-12289,-8192 DATA -400,1919,-4097,-8192,-16,1919,-4097,-8192,-6928,1663,-16385,-8192,-7944,3711,-16385,-8192,-3588,7807,-24577,-8192,-1026,16127,-24577,-8192,-1,31999,-1,-8192,-1,-513,-1,-8192,-1,-1537,8191,-8192,-1,-484,16383,-8192 DATA -1,-127,-1,-8192,-1,-1,-1,-8192,-1,-7169,-2049,-8192,-4,31999,-8193,-8192,-15,16203,32767,-8192,-29,-26625,-1,-8192,-23,16383,-1,-8192,-4,28159,-16385,-8192,-23,-6145,-1,-8192,-29,-3202,-1,-8192 DATA -1,-1793,-1,-8192,-1,-293,-1,-8192,-1,-1,-1,-8192,-1,-1,-1,-8192,-1,-1169,-1,-8192,-1,-29,-1,-8192,-1,-4135,-1793,-8192,-1,-4,-3329,-8192,-1,-16394,-14337,-8192,-1,-1,-27905,-8192 DATA -1,-3,14591,-8192,-1,-9633,-28161,-8192,-1,32743,-14337,-8192,-3,-8,-1,-8192,-1,-1,-1,-8192,-1,-4033,-1,-8192,-1,-30961,-1,-8192,-1,8179,-1,-8192,-1,-9,-1,-8192,-1,-25,-8193,-8192 DATA -1,16367,-28677,-8192,-1,16335,2033,-8192,-1,-16434,992,-8192,-1,-16436,484,-8192,-2,-36,511,-8192,-2,-36,463,-8192,-2,32766,9185,-8192,-1,16383,-28,-8192,-1,-16385,-50,24576,-1,-1,-50,24576 DATA -1,-1,-50,24576,-1,-1,-28,-8192,32767,-1,-15,-16384,32767,-1,-1,-16384,16383,-1,-1,-32768,4095,-1,-2,0 DATA 4095,-1,-2,0,16383,-1,-1,-32768,32767,-1,-1,-16384,29183,-1,-1,-16384,-6913,-1,-1,-8192,-12673,-1,-1,-8192,-12736,0,127,-8192,-12705,-128,1919,-8192,-6945,-120,1919,-8192,-3880,-28865,895,-8192 DATA -432,1636,-31873,-8192,-48,1654,-30849,-8192,-6960,1143,-28801,-8192,-7976,3191,-28801,-8192,-3620,7283,-28801,-8192,-1058,14463,3967,-8192,-33,30754,2687,-8192,-33,-4042,127,-8192,-33,-4068,127,-8192,-33,-4096,1407,-8192 DATA -33,-7168,9599,-8192,-33,-32128,9855,-8192,-36,54,-31617,-8192,-48,16384,127,-8192,-64,8192,2687,-8192,-64,512,21631,-8192,-64,4352,-29825,-8192,-64,2177,5247,-8192,-63,1090,11391,-8192,-62,548,21119,-8192 DATA -47,24,-24193,-8192,-64,-32127,8319,-8192,-64,4392,16511,-8192,-64,17041,127,-8192,-64,-28632,8319,-8192,-48,-23808,4479,-8192,-55,17544,2175,-8192,-58,-30652,4223,-8192,-59,4130,127,-8192,-38,8209,127,-8192 DATA -59,16392,127,-8192,-54,0,-32641,-8192,-64,0,16767,-8192,-60,11648,1919,-8192,-52,-32728,16255,-8192,-44,-32764,-129,-8192,-44,1,-129,-8192,-64,1793,-129,-8192,-64,3457,-129,-8192,-54,2179,-8321,-8192 DATA -34,8131,-28805,-8192,-34,14791,1905,-8192,-34,15814,864,-8192,-34,15812,356,-8192,-36,11724,383,-8192,-40,9420,335,-8192,-40,8094,9057,-8192,-36,575,-156,-8192,-36,63,-178,24576,-64,0,78,24576 DATA -1,-1,-50,24576,-1,-1,-28,-8192,32767,-1,-15,-16384,32767,-1,-1,-16384,16383,-1,-1,-32768,4095,-1,-2,0 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,0,0,3584,0,0,0,6912,0,0,0,12672,0,0,0,12672,0,0,0,12672,28,-4096,0,6912,54,28672,0,3847,28672,30720,0 DATA 399,-1920,14336,0,15,-1920,4096,0,6927,-1664,16384,0,7943,-3712,16384,0,3587,-7808,24576,0,1025,-16128,24576,0,0,-32000,25856,0,0,512,-6912,0,0,1601,-4352,0,0,483,-11776,0 DATA 0,126,2560,0,0,0,2048,0,0,7168,2048,0,3,-32000,12288,0,15,-16204,-31744,0,31,-1853,2048,0,31,-8090,0,0,31,-11716,18432,0,30,14360,0,0,28,3201,8192,0 DATA 0,5888,1024,0,4,26916,19968,0,14,16386,-22016,0,10,-22528,19968,0,14,17554,-15360,0,4,29,0,0,0,-28634,1792,0,0,771,-28928,0,2,18313,32512,0,0,3264,-256,0 DATA 2,6243,-256,0,4,9632,32256,0,1,-32744,14336,0,2,7,0,0,2,0,0,0,10,4032,0,0,9,30960,0,0,30,-4020,0,0,20,-8184,0,0,20,-16360,8192,0 DATA 0,-16368,28676,0,0,-16336,-2034,0,0,16433,-993,0,0,16435,-485,0,1,35,-512,0,3,-32733,-464,0,3,-16383,-9186,0,1,-12928,27,0,1,-6400,49,-32768,0,0,49,-32768 DATA 0,0,49,-32768,0,0,27,0,0,0,14,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0