home *** CD-ROM | disk | FTP | other *** search
- 100 rem*** ram save ***
- 110 rem *** (w) axel spoerl 2'88 ***
- 120 rem
- 130 ad=49152:rem startadresse kann beliebig geaendert werden
- 140 ps=0
- 150 for x=ad to ad+142
- 160 read w:ps=ps+w:poke x,w
- 170 next x
- 180 if ps<> 18777 then 200
- 190 end: rem hier koennte ein goto etc. stehen!
- 200 print"fehler in den datazeilen!!!"
- 210 end
- 220 data 32,84,226,32,253,174,32,107,169,166,20,164
- 230 data 21,134,172,132,173,32,253,174,32,107,169,166
- 240 data 20,164,21,134,174,132,175,164,183,208,5,162
- 250 data 8,76,55,164,169,0,133,144,169,8,32,12
- 260 data 237,169,241,32,185,237,165,144,16,5,162,5
- 270 data 76,55,164,160,0,177,187,32,221,237,200,196
- 280 data 183,208,246,32,254,237,169,8,32,12,237,169
- 290 data 97,32,185,237,165,172,32,221,237,165,173,32
- 300 data 221,237,32,209,252,176,21,120,162,52,134,1,160,0
- 310 data 177,172,162,55,134,1,88,32,221,237,32,219
- 320 data 252,24,144,228,32,254,237,169,8,32,12,237
- 330 data 169,225,32,185,237,32,254,237,96
-