home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh4x / sh47b.d64 / schreib.patch (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  861b  |  41 lines
  1. 100 :
  2. 110 REM  PATCH BY HEUSLER/PD/DA 1988
  3. 120 :
  4. 130 IF PEEK (49152) + PEEK (50160) <> 169 THEN LOAD "M-SCHREIB",8,8
  5. 140 :
  6. 150 FORI=.TO69:READQ:S=S+Q:NEXT
  7. 160 IF S<>10226 THEN PRINT "FEHLER IN DEN DATA-ZEILEN!":END
  8. 170 :
  9. 180 RESTORE
  10. 190 :
  11. 200 FOR X=50792 TO 50824:READ A:POKE X,A:NEXT X
  12. 210 DATA 169,1,162,4,172,198,195,32,186,255,169,,32,189,255,32,192,255,162
  13. 220 DATA 1,32,201,255,96,32,204,255,169,1,32,195,255,96
  14. 230 :
  15. 240 FOR X=50160 TO 50170:READ A:POKE X,A:NEXT X
  16. 250 DATA 32,104,198,234,234,234,234,234,234,234,234
  17. 260 :
  18. 270 POKE 50238,32
  19. 280 POKE 50239,128
  20. 290 POKE 50240,198
  21. 300 :
  22. 310 FOR X=50335 TO 50345:READ A:POKE X,A:NEXT X
  23. 320 DATA 32,104,198,234,234,234,234,234,234,234,234
  24. 330 :
  25. 340 POKE 50529,32
  26. 350 POKE 50530,128
  27. 360 POKE 50531,198
  28. 370 :
  29. 380 FOR X=49760 TO 49774:READ A:POKE X,A:NEXT X
  30. 390 DATA 240,4,176,3,9,64,96,201,63,176,1,96,9,96,96
  31. 400 :
  32. 410 SYS 57812"M-SCHREIB2",8
  33. 420 POKE 174,137
  34. 430 POKE 175,198
  35. 440 POKE 193,0
  36. 450 POKE 194,192
  37. 460 SYS 62957
  38. 470 :
  39. 480 END
  40. 490 :
  41.