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
-