home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / s85xx / s8505.d64 / fehlermeldung (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  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.