home *** CD-ROM | disk | FTP | other *** search
- 10 rem crunch.ldr writes "crunch" to disk in drive 8
- 20 fort=50250to50902:reada:ck=ck+a:printt"[145]":next
- 30 ifck<>73620thenprint"[197]rror in data statements":end
- 40 print"data ok":open1,8,15:open2,8,1,"0:crunch"
- 50 print#2,chr$(74)chr$(196);:rem load address 50250
- 60 restore:fort=50250to50902:reada:print#2,chr$(a);:printt"[145]"
- 70 input#1,e,e$,tr,se:ifethenprint"[196]isk error"e;e$:t=50903
- 80 next:close2:end
- 50250 data 162,23,181,115,157,10,198,202
- 50258 data 16,248,162,7,24,165,43,105
- 50266 data 255,149,115,232,165,44,105,255
- 50274 data 149,115,232,169,96,149,115,181
- 50282 data 115,149,129,202,16,249,169,136
- 50290 data 133,130,169,137,133,134,169,141
- 50298 data 133,135,169,80,133,250,133,251
- 50306 data 160,5,177,122,201,172,208,107
- 50314 data 200,200,200,200,162,0,177,122
- 50322 data 149,252,200,232,224,4,144,246
- 50330 data 136,152,24,101,122,133,122,144
- 50338 data 2,230,123,162,0,32,115,0
- 50346 data 208,29,32,115,0,32,115,0
- 50354 data 208,12,169,35,160,198,32,30
- 50362 data 171,162,23,76,245,197,32,115
- 50370 data 0,32,115,0,76,165,196,213
- 50378 data 252,208,216,232,224,4,144,213
- 50386 data 169,10,133,251,169,182,160,198
- 50394 data 32,30,171,165,122,133,136,165
- 50402 data 123,133,137,32,115,0,240,26
- 50410 data 16,2,230,251,32,129,0,230
- 50418 data 251,208,240,165,136,208,2,198
- 50426 data 137,198,136,169,182,160,198,32
- 50434 data 30,171,160,2,177,122,208,3
- 50442 data 76,217,197,160,5,177,122,201
- 50450 data 46,240,82,201,59,240,78,201
- 50458 data 74,240,4,201,82,208,11,200
- 50466 data 177,122,201,77,240,65,201,84
- 50474 data 240,61,201,65,208,19,200,177
- 50482 data 122,201,150,240,15,201,68,208
- 50490 data 8,200,200,177,122,201,32,208
- 50498 data 3,76,183,197,200,177,122,201
- 50506 data 32,208,249,200,177,122,201,46
- 50514 data 240,66,201,74,240,4,201,82
- 50522 data 208,35,200,177,122,201,84,240
- 50530 data 51,201,77,208,24,240,45,200
- 50538 data 177,122,208,251,136,136,136,152
- 50546 data 24,101,251,197,250,176,29,165
- 50554 data 250,133,251,208,72,169,0,32
- 50562 data 129,0,162,3,134,251,32,115
- 50570 data 0,32,129,0,230,251,202,16
- 50578 data 245,76,229,196,169,0,32,129
- 50586 data 0,165,250,133,251,162,3,32
- 50594 data 115,0,32,129,0,202,16,247
- 50602 data 32,115,0,208,3,76,4,197
- 50610 data 32,129,0,208,243,200,177,122
- 50618 data 208,251,136,136,136,152,24,101
- 50626 data 251,197,250,176,184,169,58,32
- 50634 data 129,0,230,251,162,3,32,115
- 50642 data 0,202,16,250,76,229,196,162
- 50650 data 3,169,0,32,129,0,202,16
- 50658 data 250,165,136,133,45,133,47,133
- 50666 data 48,165,137,133,46,133,48,133
- 50674 data 49,162,23,189,10,198,149,115
- 50682 data 202,16,248,32,51,165,169,198
- 50690 data 160,198,32,30,171,108,2,160
- 50698 data 230,122,208,2,230,123,173,6
- 50706 data 2,76,138,199,10,201,32,240
- 50714 data 239,56,233,48,56,233,208,96
- 50722 data 0,147,17,17,17,17,14,213
- 50730 data 78,65,66,76,69,32,84,79
- 50738 data 32,77,65,84,67,72,32,72
- 50746 data 69,88,32,68,73,71,73,84
- 50754 data 83,32,79,70,32,83,84,65
- 50762 data 82,84,13,65,68,68,82,69
- 50770 data 83,83,32,40,42,61,32,36
- 50778 data 88,88,88,88,41,32,84,79
- 50786 data 32,76,65,66,69,76,32,79
- 50794 data 70,32,70,73,82,83,84,13
- 50802 data 76,73,78,69,32,79,70,32
- 50810 data 67,79,68,69,32,70,79,76
- 50818 data 76,79,87,73,78,71,32,68
- 50826 data 69,70,73,78,73,84,73,79
- 50834 data 78,83,46,13,17,17,211,72
- 50842 data 79,85,76,68,32,66,69,32
- 50850 data 34,65,68,48,56,48,49,34
- 50858 data 84,89,80,69,32,76,65,66
- 50866 data 69,76,13,0,17,14,195,82
- 50874 data 85,78,67,72,73,78,71,46
- 50882 data 46,46,13,0,145,195,82,85
- 50890 data 78,67,72,69,68,33,32,32
- 50898 data 32,13,0,0,0
-