0 REM *********************************
1 REM **  AUTOMATISCHE FEHLERMELDUNG **
2 REM **   VON DER FLOPPY DISK 1541  **
3 REM **-----------------------------**
4 REM **   WRITTEN BY GEORG KRAMER   **
5 REM **      AUF DEM MOORE 15       **
6 REM **       4783 ANROECHTE        **
7 REM **      TEL.: 02947/3511       **
8 REM **       (C) JUNI 1985         **
9 REM *********************************
10 :
20 PRINTCHR$(147)
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]"
40 PRINT" [194] AUTO. FEHLERMELDUNG VON DER FLOPPY [194]"
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]"
60 PRINTSPC(88)"WRITTEN BY GEORG KRAMER"
70 PRINTSPC(93)"(C) JUNI 1985":PRINT
80 FORI=1TO40:PRINT"-";:NEXT
90 PRINTSPC(44)" ACHTUNG: [146] FLOPPY EINSCHALTEN !"
100 PRINTSPC(94)"<< TASTE >>"
110 POKE198,0
120 GETA$:IFA$=""THEN120
130 :
140 PRINTCHR$(147):PRINT:PRINT
150 INPUT "  STARTADRESSE : [146] 49152[157][157][157][157][157][157][157]";S
160 FORI=0TO247:READA:X=X+A
170 POKES+I,A:NEXT
180 IFX<>32204THENPRINT"DATEN-FEHLER !":END
185 REM *** PROGRAMM ANPASSEN ***
190 POKES+7,(S+13)/256
200 POKES+2,(S+13)-PEEK(S+7)*256
202 POKES+154,(S+218)/256
204 POKES+153,(S+218)-PEEK(S+154)*256
210 SYS(S)
220 PRINTCHR$(147):PRINTSPC(8)"   PROGRAMM AKTIVIERT    "
230 PRINTSPC(8)" START:   SYS"S"[157]      "
240 PRINTSPC(8)" ENDE : RUN-STOP/RESTORE "
250 END
1000 REM *** MASCHINENPROGRAMM ***
1001 DATA120,169,13,141,20,3,169,192,141,21,3,88,96,230,182,240,3,76,49,234
1002 DATA165,144,201,66,240,8,165,144,201,128,240,2,208,239,169,255,162,8
1003 DATA160,15,32,186,255,169,0,32,189,255,32,192,255,162,255,32,198,255
1004 DATA32,207,255,201,48,208,7,32,47,243,88,76,49,234,72,165,211,141,168
1005 DATA2,165,214,141,178,2,162,0,189,0,4,157,132,3,232,224,120,208,245,162
1006 DATA0,169,32,157,0,4,232,224,120,208,246,32,102,229,169,207,240,252,169
1007 DATA1,133,204,173,134,2,133,189,169,1,141,134,2,169,1,133,199,104,32
1008 DATA210,255,32,207,255,32,210,255,165,144,201,64,208,244,32,47,243,162
1009 DATA0,189,218,192,32,210,255,232,224,30,208,245,32,135,234,165,203,201
1010 DATA64,240,247,165,189,141,134,2,162,0,162,0,189,132,3,157,0,4,232,224
1011 DATA120,208,245,165,189,157,0,216,232,224,120,208,246,173,168,2,133,211
1012 DATA173,178,2,133,214,32,16,229,76,49,234,18,32,60,60,32,66,73,84,84
1013 DATA69,32,84,65,83,84,69,32,68,82,85,69,67,75,69,78,32,62,62,32,146