home *** CD-ROM | disk | FTP | other *** search
/ PC-Blue - MS DOS Public Domain Library / PC-Blue MS-DOS Public Domain Library - NYACC.iso / vol048 / create.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1987-01-11  |  1.9 KB  |  82 lines
  1. 10  REM  ===============================
  2. 20  REM  * * * * * * * * * * * * * * * *
  3. 30  REM    IBM Microsoft Basic Program
  4. 40  REM    DUMPSCRN (C) Copyright 1983
  5. 50  REM         by  L.C. Systems
  6. 51  REM           P.O.Box 5360
  7. 52  REM       Coralville, IA  52241
  8. 53  REM          (319) 354-2630
  9. 60  REM          February  1983
  10. 70  REM  * * * * * * * * * * * * * * * *
  11. 80  REM  ===============================
  12. 90  DEF SEG = &H1700
  13. 100  FOR I% = 0 TO 168                             'LOAD THE SUBROUTINE
  14. 110  READ J%
  15. 120  POKE I%,J%
  16. 130  NEXT
  17. 140  DEF SEG = &H1700:BSAVE "DUMPSCRN",0,&HA9      'SAVE THE SUBROUTINE
  18. 150  END
  19. 160  DATA &H55
  20. 170  DATA &H06
  21. 180  DATA &HEB,&H05,&H90
  22. 190  DATA &H00,&H00
  23. 200  DATA &H80
  24. 210  DATA &H80
  25. 220  DATA &HBA,&H00,&HB8
  26. 230  DATA &H8E,&HC2
  27. 240  DATA &HB4,&H05
  28. 250  DATA &HB2,&H1B
  29. 260  DATA &HCD,&H21
  30. 270  DATA &HB2,&H41
  31. 280  DATA &HCD,&H21
  32. 290  DATA &HB2,&H08
  33. 300  DATA &HCD,&H21
  34. 310  DATA &HB9,&H0C,&H00
  35. 320  DATA &HB2,&H20
  36. 330  DATA &HB4,&H05
  37. 340  DATA &HCD,&H21
  38. 350  DATA &HE2,&HF8
  39. 360  DATA &HB2,&H1B
  40. 370  DATA &HCD,&H21
  41. 380  DATA &HB2,&H4C
  42. 390  DATA &HCD,&H21
  43. 400  DATA &HB2,&H80
  44. 410  DATA &HCD,&H21
  45. 420  DATA &HB2,&H02
  46. 430  DATA &HCD,&H21
  47. 440  DATA &HB9,&H50,&H00
  48. 450  DATA &H2E,&H8B,&H1E,&H05,&H00
  49. 460  DATA &H2A,&HD2
  50. 470  DATA &H26,&H8A,&H37
  51. 480  DATA &H2E,&H22,&H36,&H07,&H00
  52. 490  DATA &H2E,&H84,&H36,&H07,&H00
  53. 500  DATA &H74,&H05
  54. 510  DATA &H2E,&H02,&H16,&H08,&H00
  55. 520  DATA &H2E,&HF6,&H06,&H08,&H00,&HAA
  56. 530  DATA &H75,&H07
  57. 540  DATA &H81,&HEB,&HB0,&H1F
  58. 550  DATA &HEB,&H05,&H90
  59. 560  DATA &H81,&HC3,&H00,&H20
  60. 570  DATA &H2E,&HD0,&H0E,&H08,&H00
  61. 580  DATA &H73,&HD2
  62. 590  DATA &HB4,&H05
  63. 600  DATA &HCD,&H21
  64. 610  DATA &H2E,&HD0,&H0E,&H07,&H00
  65. 620  DATA &H73,&HC0
  66. 630  DATA &H2E,&HFF,&H06,&H05,&H00
  67. 640  DATA &HE2,&HB9
  68. 650  DATA &HB2,&H0A
  69. 660  DATA &HB4,&H05
  70. 670  DATA &HCD,&H21
  71. 680  DATA &H2E,&H81,&H06,&H05,&H00,&HF0,&H00
  72. 690  DATA &H2E,&H81,&H3E,&H05,&H00,&H40,&H1F
  73. 700  DATA &H75,&H85
  74. 710  DATA &HB2,&H1B
  75. 720  DATA &HCD,&H21
  76. 730  DATA &HB2,&H40
  77. 740  DATA &HCD,&H21
  78. 750  DATA &H2E,&HC7,&H06,&H05,&H00,&H00,&H00
  79. 760  DATA &H07
  80. 770  DATA &H5D
  81. 780  DATA &HCB
  82.