home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1988 July / 64er_Magazin_88-07_1988_Markt__Technik_de_Side_A.d64 / if-perfekt (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  433 b   |  16 lines
  1. 10 input"startadresse";s
  2. 20 fori=0to62:reada:p=p+a:pokes+i,a:next:ifp=7129then40
  3. 30 print"datenfehler":list
  4. 40 pokes+16,peek(776)
  5. 50 pokes+17,peek(777)
  6. 60 poke780,s-256*int(s/256)
  7. 70 poke781,int(s/256):syss+56:new
  8. 100 data 32,115,0,201,139,240,11,165
  9. 110 data 122,208,2,198,123,198,122,76
  10. 120 data 228,167,32,115,0,32,158,173
  11. 130 data 32,121,0,201,137,240,5,169
  12. 140 data 167,32,255,174,165,97,208,8
  13. 150 data 32,9,169,208,3,76,251,168
  14. 160 data 32,121,0,176,210,76,160,168
  15. 170 data 141,8,3,142,9,3,96
  16.