home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / DECODE.SDA / CRUNCH.LDR (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  3.0 KB  |  91 lines

  1. 10 REM CRUNCH.LDR WRITES "CRUNCH" TO DISK IN DRIVE 8
  2. 20 FORT=50250TO50902:READA:CK=CK+A:PRINTT"[145]":NEXT
  3. 30 IFCK<>73620THENPRINT"[197]RROR IN DATA STATEMENTS":END
  4. 40 PRINT"DATA OK":OPEN1,8,15:OPEN2,8,1,"0:CRUNCH"
  5. 50 PRINT#2,CHR$(74)CHR$(196);:REM LOAD ADDRESS 50250
  6. 60 RESTORE:FORT=50250TO50902:READA:PRINT#2,CHR$(A);:PRINTT"[145]"
  7. 70 INPUT#1,E,E$,TR,SE:IFETHENPRINT"[196]ISK ERROR"E;E$:T=50903
  8. 80 NEXT:CLOSE2:END
  9. 50250 DATA 162,23,181,115,157,10,198,202
  10. 50258 DATA 16,248,162,7,24,165,43,105
  11. 50266 DATA 255,149,115,232,165,44,105,255
  12. 50274 DATA 149,115,232,169,96,149,115,181
  13. 50282 DATA 115,149,129,202,16,249,169,136
  14. 50290 DATA 133,130,169,137,133,134,169,141
  15. 50298 DATA 133,135,169,80,133,250,133,251
  16. 50306 DATA 160,5,177,122,201,172,208,107
  17. 50314 DATA 200,200,200,200,162,0,177,122
  18. 50322 DATA 149,252,200,232,224,4,144,246
  19. 50330 DATA 136,152,24,101,122,133,122,144
  20. 50338 DATA 2,230,123,162,0,32,115,0
  21. 50346 DATA 208,29,32,115,0,32,115,0
  22. 50354 DATA 208,12,169,35,160,198,32,30
  23. 50362 DATA 171,162,23,76,245,197,32,115
  24. 50370 DATA 0,32,115,0,76,165,196,213
  25. 50378 DATA 252,208,216,232,224,4,144,213
  26. 50386 DATA 169,10,133,251,169,182,160,198
  27. 50394 DATA 32,30,171,165,122,133,136,165
  28. 50402 DATA 123,133,137,32,115,0,240,26
  29. 50410 DATA 16,2,230,251,32,129,0,230
  30. 50418 DATA 251,208,240,165,136,208,2,198
  31. 50426 DATA 137,198,136,169,182,160,198,32
  32. 50434 DATA 30,171,160,2,177,122,208,3
  33. 50442 DATA 76,217,197,160,5,177,122,201
  34. 50450 DATA 46,240,82,201,59,240,78,201
  35. 50458 DATA 74,240,4,201,82,208,11,200
  36. 50466 DATA 177,122,201,77,240,65,201,84
  37. 50474 DATA 240,61,201,65,208,19,200,177
  38. 50482 DATA 122,201,150,240,15,201,68,208
  39. 50490 DATA 8,200,200,177,122,201,32,208
  40. 50498 DATA 3,76,183,197,200,177,122,201
  41. 50506 DATA 32,208,249,200,177,122,201,46
  42. 50514 DATA 240,66,201,74,240,4,201,82
  43. 50522 DATA 208,35,200,177,122,201,84,240
  44. 50530 DATA 51,201,77,208,24,240,45,200
  45. 50538 DATA 177,122,208,251,136,136,136,152
  46. 50546 DATA 24,101,251,197,250,176,29,165
  47. 50554 DATA 250,133,251,208,72,169,0,32
  48. 50562 DATA 129,0,162,3,134,251,32,115
  49. 50570 DATA 0,32,129,0,230,251,202,16
  50. 50578 DATA 245,76,229,196,169,0,32,129
  51. 50586 DATA 0,165,250,133,251,162,3,32
  52. 50594 DATA 115,0,32,129,0,202,16,247
  53. 50602 DATA 32,115,0,208,3,76,4,197
  54. 50610 DATA 32,129,0,208,243,200,177,122
  55. 50618 DATA 208,251,136,136,136,152,24,101
  56. 50626 DATA 251,197,250,176,184,169,58,32
  57. 50634 DATA 129,0,230,251,162,3,32,115
  58. 50642 DATA 0,202,16,250,76,229,196,162
  59. 50650 DATA 3,169,0,32,129,0,202,16
  60. 50658 DATA 250,165,136,133,45,133,47,133
  61. 50666 DATA 48,165,137,133,46,133,48,133
  62. 50674 DATA 49,162,23,189,10,198,149,115
  63. 50682 DATA 202,16,248,32,51,165,169,198
  64. 50690 DATA 160,198,32,30,171,108,2,160
  65. 50698 DATA 230,122,208,2,230,123,173,6
  66. 50706 DATA 2,76,138,199,10,201,32,240
  67. 50714 DATA 239,56,233,48,56,233,208,96
  68. 50722 DATA 0,147,17,17,17,17,14,213
  69. 50730 DATA 78,65,66,76,69,32,84,79
  70. 50738 DATA 32,77,65,84,67,72,32,72
  71. 50746 DATA 69,88,32,68,73,71,73,84
  72. 50754 DATA 83,32,79,70,32,83,84,65
  73. 50762 DATA 82,84,13,65,68,68,82,69
  74. 50770 DATA 83,83,32,40,42,61,32,36
  75. 50778 DATA 88,88,88,88,41,32,84,79
  76. 50786 DATA 32,76,65,66,69,76,32,79
  77. 50794 DATA 70,32,70,73,82,83,84,13
  78. 50802 DATA 76,73,78,69,32,79,70,32
  79. 50810 DATA 67,79,68,69,32,70,79,76
  80. 50818 DATA 76,79,87,73,78,71,32,68
  81. 50826 DATA 69,70,73,78,73,84,73,79
  82. 50834 DATA 78,83,46,13,17,17,211,72
  83. 50842 DATA 79,85,76,68,32,66,69,32
  84. 50850 DATA 34,65,68,48,56,48,49,34
  85. 50858 DATA 84,89,80,69,32,76,65,66
  86. 50866 DATA 69,76,13,0,17,14,195,82
  87. 50874 DATA 85,78,67,72,73,78,71,46
  88. 50882 DATA 46,46,13,0,145,195,82,85
  89. 50890 DATA 78,67,72,69,68,33,32,32
  90. 50898 DATA 32,13,0,0,0
  91.