home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1990 November / 1990-11.d64 / ditto.bas (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  3KB  |  77 lines
  1. 1 rem copyright 1990 compute publications, intl., ltd. - all rights reserved
  2. 2 print"[147]reading data..."
  3. 3 colr=0:t=0
  4. 10 for a=0to491:readb:t=t+b:poke49152+a,b:next:poke49544,colr
  5. 20 if t<>70387 then print"error in data":end
  6. 30 print"create a disk file [y/n] ?"
  7. 40 poke198,0:wait198,1:geta$
  8. 50 if a$<>"y" then 101
  9. 60 input "filename";a$
  10. 70 open2,8,2,"0:"+a$+",p,w"
  11. 80 print#2,chr$(0)chr$(192);
  12. 90 fort=49152to49643:print#2,chr$(peek(t));:next
  13. 100 close2
  14. 101 sys49152
  15. 49152 data 120,169,51,141,20,3,169,192
  16. 49160 data 141,21,3,169,0,141,230,193
  17. 49168 data 141,233,193,141,234,193,88,169
  18. 49176 data 31,160,192,32,30,171,96,17
  19. 49184 data 69,68,73,84,79,82,32,65
  20. 49192 data 67,84,73,86,65,84,69,68
  21. 49200 data 46,17,0,173,230,193,240,3
  22. 49208 data 76,237,192,165,197,205,235,193
  23. 49216 data 240,19,141,235,193,201,3,240
  24. 49224 data 45,201,4,240,76,201,5,240
  25. 49232 data 104,201,6,240,3,76,49,234
  26. 49240 data 173,134,2,141,229,193,173,233
  27. 49248 data 193,240,8,173,234,193,240,3
  28. 49256 data 32,140,193,169,0,141,233,193
  29. 49264 data 141,234,193,76,49,234,173,233
  30. 49272 data 193,240,27,173,234,193,240,22
  31. 49280 data 173,134,2,141,229,193,32,140
  32. 49288 data 193,169,1,141,230,193,169,0
  33. 49296 data 141,233,193,141,234,193,76,49
  34. 49304 data 234,32,217,192,32,21,193,173
  35. 49312 data 231,193,133,251,173,232,193,133
  36. 49320 data 252,169,1,141,233,193,173,234
  37. 49328 data 193,240,3,32,92,193,76,49
  38. 49336 data 234,32,217,192,32,21,193,173
  39. 49344 data 231,193,133,253,173,232,193,133
  40. 49352 data 254,169,1,141,234,193,173,233
  41. 49360 data 193,240,3,32,92,193,76,49
  42. 49368 data 234,173,233,193,240,14,173,234
  43. 49376 data 193,240,9,173,134,2,141,229
  44. 49384 data 193,32,140,193,96,160,0,177
  45. 49392 data 251,32,49,193,141,119,2,169
  46. 49400 data 1,133,198,165,251,197,253,208
  47. 49408 data 11,165,252,197,254,208,5,169
  48. 49416 data 0,141,230,193,230,251,208,2
  49. 49424 data 230,252,76,49,234,165,209,141
  50. 49432 data 231,193,165,210,141,232,193,173
  51. 49440 data 231,193,24,101,211,141,231,193
  52. 49448 data 173,232,193,105,190,141,232,193
  53. 49456 data 96,162,0,134,199,72,41,128
  54. 49464 data 240,4,169,1,133,199,104,41
  55. 49472 data 127,201,32,176,6,24,105,64
  56. 49480 data 76,91,193,201,64,144,12,201
  57. 49488 data 127,176,6,24,105,128,76,91
  58. 49496 data 193,169,191,96,165,254,197,252
  59. 49504 data 144,110,208,6,165,253,197,251
  60. 49512 data 144,102,160,0,185,0,4,153
  61. 49520 data 0,194,185,0,5,153,0,195
  62. 49528 data 185,0,6,153,0,196,185,0
  63. 49536 data 7,153,0,197,200,208,229,169
  64. 49544 data 0,141,229,193,165,253,56,229
  65. 49552 data 251,141,227,193,165,254,229,252
  66. 49560 data 141,228,193,165,251,133,2,165
  67. 49568 data 252,24,105,22,133,3,238,227
  68. 49576 data 193,208,3,238,228,193,160,0
  69. 49584 data 173,229,193,145,2,173,227,193
  70. 49592 data 208,3,206,228,193,206,227,193
  71. 49600 data 200,208,2,230,3,173,227,193
  72. 49608 data 208,230,173,228,193,208,225,96
  73. 49616 data 166,251,164,252,165,253,133,251
  74. 49624 data 165,254,133,252,134,253,132,254
  75. 49632 data 76,106,193,0,0,0,0,0
  76. 49640 data 0,0,0,0
  77.