home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d3xx / d375 / cardmaker.lha / CardMaker / queen.bas < prev    next >
BASIC Source File  |  1989-06-06  |  6KB  |  90 lines
  1. REM   TEST CARD DRIVER ROUTINE
  2. 20 DIM CARD%(1322)
  3. 30 SCREEN 1,320,200,5,1
  4. 40 WINDOW 2,"QUEEN.HEARTS",(10,10)-(290,170),15,1
  5. PALETTE 0,0!,.27,.8
  6. PALETTE 1,0!,0!,0!
  7. PALETTE 2,.73,.67,.67
  8. PALETTE 3,1!,1!,1!
  9. PALETTE 4,.47,.53,.13
  10. PALETTE 5,.67,.53,.27
  11. PALETTE 6,.53,.4,.27
  12. PALETTE 7,.6,.27,0!
  13. PALETTE 8,1!,0!,0!
  14. PALETTE 9,1!,.73,.2
  15. PALETTE 10,.93,1!,0!
  16. PALETTE 11,0!,1!,.33
  17. PALETTE 12,0!,.87,.73
  18. PALETTE 13,.33,.47,1!
  19. PALETTE 14,.67,.33,1!
  20. PALETTE 15,1!,.07,1!
  21. PALETTE 16,0!,0!,0!
  22. PALETTE 17,.87,.13,.13
  23. PALETTE 18,0!,0!,0!
  24. PALETTE 19,.67,.73,.8
  25. PALETTE 20,.27,.27,.27
  26. PALETTE 21,.33,.33,.33
  27. PALETTE 22,.4,.4,.4
  28. PALETTE 23,.47,.47,.47
  29. PALETTE 24,.53,.53,.53
  30. PALETTE 25,.6,.6,.6
  31. PALETTE 26,.67,.67,.67
  32. PALETTE 27,.73,.73,.73
  33. PALETTE 28,.8,.8,.8
  34. PALETTE 29,.87,.87,.87
  35. PALETTE 30,.93,.93,.93
  36. PALETTE 31,1!,1!,1!
  37. PRINT "Reading Data. . ."
  38. 50 FOR I=0 TO 1322
  39. 60 READ CARD%(I)
  40. 70 NEXT I
  41. CLS
  42.  
  43. 80 PUT (50,50),CARD%,PSET
  44.  
  45. PRINT "Press Any Key"
  46. 90 A$=INKEY$
  47. 100 IF A$ = "" THEN 90
  48.  
  49. 110 WINDOW CLOSE 2
  50. 115 SCREEN CLOSE 1
  51. 120 END
  52.  
  53. REM *** Queen_Hearts *** 
  54. DATA 51,66,5
  55. 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
  56. 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
  57. 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
  58. 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
  59. 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
  60. 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
  61. 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
  62. 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
  63. 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
  64. 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
  65. 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
  66. 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
  67. 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
  68. 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
  69. 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
  70. 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
  71. 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
  72. 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
  73. 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
  74. 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
  75. 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
  76. 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
  77. 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
  78. 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
  79. 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
  80. 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
  81. 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
  82. 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
  83. 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
  84. 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
  85. 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
  86. 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
  87. 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
  88. 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
  89. 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
  90.