home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / utils / miscutil.zip / QUICKCHA.ZIP / QUICKCHA.BAS next >
BASIC Source File  |  1987-08-06  |  4KB  |  111 lines
  1. 1 ' Program to create SETCOLOR.COM
  2. 2 'COPYRIGHT 1987 COMPUTE! PUBLICATIONS, INC.
  3. 3 'ALL RIGHTS RESERVED.
  4. 4 CLS:PRINT "COPYRIGHT 1987":PRINT"COMPUTE! PUBLICATIONS, INC.":PRINT ALL RIGHTS RESERVED."
  5. 5 FOR ZZ=1 TO 1500:NEXT:CLS
  6. 6 PRINT "CREATING SETCOLOR.COM ....... PLEASE WAIT."
  7. 10 OPEN "SETCOLOR.COM" FOR OUTPUT AS 1
  8. 20 PRINT#1,CHR$(&HE9);CHR$(&H32);CHR$(&H4);
  9. 30 PRINT#1,CHR$(34);
  10. 40 FOR N=1 TO 146:PRINT#1,CHR$(0);:NEXT
  11. 50 T=0:FOR J=1 TO 963:READ A$:N=VAL("&H"+A$)
  12. 60 T=T+N:PRINT#1,CHR$(N);:NEXT:CLOSE 1
  13. 70 IF T=88099! THEN PRINT"SETCOLOR.COM SUCCESSFULLY CREATED!":END
  14. 80 DATA 00,00,00,00,00,00,C9,07,CD,07
  15. 90 DATA CD,07,CD,07,CD,07,CD,07,CD,07
  16. 100 DATA CD,07,CD,07,CD,07,CD,07,CD,07
  17. 110 DATA CD,07,BB,07,BA,07,20,07,42,07
  18. 120 DATA 4F,07,52,07,44,07,45,07,52,07
  19. 130 DATA 20,07,20,07,20,07,20,07,20,07
  20. 140 DATA BA,07,BA,07,20,07,42,07,41,07
  21. 150 DATA 43,07,4B,07,47,07,52,07,4F,07
  22. 160 DATA 55,07,4E,07,44,07,20,07,BA,07
  23. 170 DATA BA,07,20,07,46,07,4F,07,52,07
  24. 180 DATA 45,07,47,07,52,07,4F,07,55,07
  25. 190 DATA 4E,07,44,07,20,07,BA,07,C8,07
  26. 200 DATA CD,07,CD,07,CD,07,CD,07,CD,07
  27. 210 DATA CD,07,CD,07,CD,07,CD,07,CD,07
  28. 220 DATA CD,07,CD,07,BC,07,00,00,00,00
  29. 230 DATA 2E,80,3E,04,01,00,75,22,FB,50
  30. 240 DATA 53,51,52,56,57,1E,06,E4,60,2E
  31. 250 DATA 3A,06,03,01,75,08,B4,02,CD,16
  32. 260 DATA A8,08,75,0D,07,1F,5F,5E,5A,59
  33. 270 DATA 5B,58,2E,FF,2E,28,02,E8,C4,02
  34. 280 DATA 0E,1F,0E,07,B4,0F,CD,10,3C,01
  35. 290 DATA 74,0D,3C,03,74,09,07,1F,5F,5E
  36. 300 DATA 5A,59,5B,58,CF,A2,05,01,C6,06
  37. 310 DATA 9A,01,01,C6,06,9B,01,01,C6,06
  38. 320 DATA 95,01,00,C6,06,96,01,00,C6,06
  39. 330 DATA 97,01,00,88,3E,06,01,C6,06,04
  40. 340 DATA 01,01,B4,03,CD,10,89,0E,07,01
  41. 350 DATA B4,01,E8,51,02,E8,1E,01,E8,96
  42. 360 DATA 01,E8,DE,01,E8,5D,02,B4,00,CD
  43. 370 DATA 16,3C,1B,75,03,E9,95,00,80,FC
  44. 380 DATA 48,75,10,80,3E,9A,01,01,74,E9
  45. 390 DATA FE,0E,9A,01,E8,BD,01,EB,E0,80
  46. 400 DATA FC,50,75,10,80,3E,9A,01,03,74
  47. 410 DATA D4,FE,06,9A,01,E8,A8,01,EB,CB
  48. 420 DATA 80,FC,4D,75,C6,80,3E,9A,01,01
  49. 430 DATA 75,1C,FE,06,95,01,80,26,95,01
  50. 440 DATA 07,E8,F8,01,B8,00,0B,B7,00,8A
  51. 450 DATA 1E,95,01,CD,10,E8,02,02,EB,A3
  52. 460 DATA 80,3E,9A,01,02,75,20,FE,06,96
  53. 470 DATA 01,80,26,96,01,07,8A,16,96,01
  54. 480 DATA B1,04,D2,E2,88,16,99,01,C6,06
  55. 490 DATA 98,01,8F,E8,38,00,E9,7C,FF,FE
  56. 500 DATA 06,97,01,80,26,97,01,0F,8A,16
  57. 510 DATA 97,01,88,16,99,01,C6,06,98,01
  58. 520 DATA F0,E8,1C,00,E9,60,FF,E8,A2,01
  59. 530 DATA E8,BE,00,E8,B4,01,B4,01,8B,0E
  60. 540 DATA 07,01,CD,10,C6,06,04,01,00,E9
  61. 550 DATA 00,FF,E8,89,01,06,B8,00,B8,8E
  62. 560 DATA C0,B9,D0,07,B8,00,10,80,3E,05
  63. 570 DATA 01,03,74,06,B9,E8,03,B8,00,05
  64. 580 DATA 8A,1E,06,01,32,FF,F7,E3,8B,F8
  65. 590 DATA 47,8A,36,98,01,8A,16,99,01,26
  66. 600 DATA 8A,05,22,C6,0A,C2,26,88,05,47
  67. 610 DATA 47,E2,F2,07,8D,3E,09,01,47,B9
  68. 620 DATA 46,00,8A,05,22,C6,0A,C2,88,05
  69. 630 DATA 47,47,E2,F4,E8,82,00,E8,CA,00
  70. 640 DATA E8,49,01,C3,06,0E,07,BE,82,06
  71. 650 DATA B8,00,10,80,3E,05,01,03,74,06
  72. 660 DATA BE,3A,03,B8,00,05,8A,1E,06,01
  73. 670 DATA 32,FF,F7,E3,03,F0,8D,3E,09,01
  74. 680 DATA 1E,B8,00,B8,8E,D8,E8,03,00,1F
  75. 690 DATA 07,C3,BB,05,00,B8,84,00,2E,80
  76. 700 DATA 3E,05,01,03,74,03,B8,34,00,B9
  77. 710 DATA 1C,00,F3,A4,03,F0,4B,83,FB,00
  78. 720 DATA 75,F3,C3,06,8D,36,09,01,BF,82
  79. 730 DATA 06,B8,00,10,80,3E,05,01,03,74
  80. 740 DATA 06,BF,3A,03,B8,00,05,8A,1E,06
  81. 750 DATA 01,32,FF,F7,E3,03,F8,B8,00,B8
  82. 760 DATA 8E,C0,E8,2F,00,07,C3,06,8D,36
  83. 770 DATA 9C,01,BF,82,06,B8,00,10,80,3E
  84. 780 DATA 05,01,03,74,06,BF,3A,03,B8,00
  85. 790 DATA 05,8A,1E,06,01,32,FF,F7,E3,03
  86. 800 DATA F8,B8,00,B8,8E,C0,E8,03,00,07
  87. 810 DATA C3,C3,BB,05,00,B8,84,00,80,3E
  88. 820 DATA 05,01,03,74,03,B8,34,00,B9,1C
  89. 830 DATA 00,F3,A4,03,F8,4B,83,FB,00,75
  90. 840 DATA F3,C3,E8,67,00,06,B8,00,B8,8E
  91. 850 DATA C0,BF,87,06,B8,00,10,80,3E,05
  92. 860 DATA 01,03,74,06,BF,3F,03,B8,00,05
  93. 870 DATA 8A,1E,06,01,32,FF,F7,E3,03,F8
  94. 880 DATA 8B,F7,8A,0E,9B,01,BB,A0,00,80
  95. 890 DATA 3E,05,01,03,74,03,BB,50,00,03
  96. 900 DATA FB,E2,FC,B0,07,B9,0A,00,26,88
  97. 910 DATA 05,47,47,E2,F9,8B,FE,8A,0E,9A
  98. 920 DATA 01,03,FB,E2,FC,B0,70,B9,0A,00
  99. 930 DATA 26,88,05,47,47,E2,F9,A0,9A,01
  100. 940 DATA A2,9B,01,07,E8,19,00,C3,BA,DA
  101. 950 DATA 03,EC,A8,08,74,FB,83,EA,02,B0
  102. 960 DATA 25,80,3E,05,01,03,74,02,FE,C8
  103. 970 DATA EE,C3,B0,29,80,3E,05,01,03,74
  104. 980 DATA 02,FE,C8,BA,D8,03,EE,C3,E4,61
  105. 990 DATA 8A,E0,0C,80,E6,61,8A,C4,E6,61
  106. 1000 DATA FA,B0,20,E6,20,FB,C3,B9,07,06
  107. 1010 DATA B4,01,CD,10,B4,35,B0,09,CD,21
  108. 1020 DATA 89,1E,28,02,8C,06,2A,02,B4,25
  109. 1030 DATA B0,09,8D,16,2C,02,CD,21,BA,36
  110. 1040 DATA 05,CD,27
  111.