home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 65 / 64er_Magazin_Sonderheft_65_19xx_Markt__Technik_de_Side_B.d64 / fehlermeldung (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  53 lines
  1. 0 rem *********************************
  2. 1 rem **  automatische fehlermeldung **
  3. 2 rem **   von der floppy disk 1541  **
  4. 3 rem **-----------------------------**
  5. 4 rem **   written by georg kramer   **
  6. 5 rem **      auf dem moore 15       **
  7. 6 rem **       4783 anroechte        **
  8. 7 rem **      tel.: 02947/3511       **
  9. 8 rem **       (c) juni 1985         **
  10. 9 rem *********************************
  11. 10 :
  12. 20 printchr$(147)
  13. 30 printspc(81)"[213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]"
  14. 40 print" [194] auto. fehlermeldung von der floppy [194]"
  15. 50 print" [202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]"
  16. 60 printspc(88)"written by georg kramer"
  17. 70 printspc(93)"(c) juni 1985":print
  18. 80 fori=1to40:print"-";:next
  19. 90 printspc(44)" achtung: [146] floppy einschalten !"
  20. 100 printspc(94)"<< taste >>"
  21. 110 poke198,0
  22. 120 geta$:ifa$=""then120
  23. 130 :
  24. 140 printchr$(147):print:print
  25. 150 input "  startadresse : [146] 49152[157][157][157][157][157][157][157]";s
  26. 160 fori=0to247:reada:x=x+a
  27. 170 pokes+i,a:next
  28. 180 ifx<>32204thenprint"daten-fehler !":end
  29. 185 rem *** programm anpassen ***
  30. 190 pokes+7,(s+13)/256
  31. 200 pokes+2,(s+13)-peek(s+7)*256
  32. 202 pokes+154,(s+218)/256
  33. 204 pokes+153,(s+218)-peek(s+154)*256
  34. 210 sys(s)
  35. 220 printchr$(147):printspc(8)"   programm aktiviert    "
  36. 230 printspc(8)" start:   sys"s"[157]      "
  37. 240 printspc(8)" ende : run-stop/restore "
  38. 250 end
  39. 1000 rem *** maschinenprogramm ***
  40. 1001 data120,169,13,141,20,3,169,192,141,21,3,88,96,230,182,240,3,76,49,234
  41. 1002 data165,144,201,66,240,8,165,144,201,128,240,2,208,239,169,255,162,8
  42. 1003 data160,15,32,186,255,169,0,32,189,255,32,192,255,162,255,32,198,255
  43. 1004 data32,207,255,201,48,208,7,32,47,243,88,76,49,234,72,165,211,141,168
  44. 1005 data2,165,214,141,178,2,162,0,189,0,4,157,132,3,232,224,120,208,245,162
  45. 1006 data0,169,32,157,0,4,232,224,120,208,246,32,102,229,169,207,240,252,169
  46. 1007 data1,133,204,173,134,2,133,189,169,1,141,134,2,169,1,133,199,104,32
  47. 1008 data210,255,32,207,255,32,210,255,165,144,201,64,208,244,32,47,243,162
  48. 1009 data0,189,218,192,32,210,255,232,224,30,208,245,32,135,234,165,203,201
  49. 1010 data64,240,247,165,189,141,134,2,162,0,162,0,189,132,3,157,0,4,232,224
  50. 1011 data120,208,245,165,189,157,0,216,232,224,120,208,246,173,168,2,133,211
  51. 1012 data173,178,2,133,214,32,16,229,76,49,234,18,32,60,60,32,66,73,84,84
  52. 1013 data69,32,84,65,83,84,69,32,68,82,85,69,67,75,69,78,32,62,62,32,146
  53.