100 REM ===============================
110 REM = FLOPPY - FEHLERKANALABFRAGE =
120 REM =   - IN MASCHINENSPRACHE -   =
140 REM =-----------------------------=
150 REM = (C) 2/1986 ANDREAS MEISSNER =
160 REM ===============================
170 :
1000 POKE53280,11:POKE53281,11
1010 PRINTCHR$(147)CHR$(14)CHR$(8)CHR$(155);
1020 PRINTCHR$(18)"[198]LOPPY-[198]EHLERKANALABFRAGE IN [205]ASCH.-[211]P."
1030 PRINT" ([195]) [198]EBRUAR 1986 BY [193]NDREAS [205]EISSNER  "
1040 PRINT"======================================="
1050 PRINT"[196]IESE KOMPAKTE [205]ASCHINENROUTINE DIENT"
1060 PRINT"ZUM [193]USLESEN UND [193]NZEIGEN DES [198]EHLERKA-"
1070 PRINT"NALS DER [198]LOPPY ([193]DRESSE 8). [197]IN EIN-"
1080 PRINT"FACHES '[211][217][211] 965' ERSPART EINE UMSTAEND-"
1090 PRINT"LICHE [194][193][211][201][195]-[218]EILE UND ENTSPRICHT SOMIT"
1100 PRINT"DEM [208][210][201][206][212] [196][211]$ DER GROSSEN [195][194][205]-[195]OMPUTER."
1110 PRINT"[196]A DIE [210]OUTINE I.A. NUR BEI [194]LINKEN DER"
1120 PRINT"ROTEN [198]LOPPY-[204][197][196] AUFGERUFEN WIRD, ER-"
1130 PRINT"UEBRIGT SICH EINE [198]EHLERBEHANDLUNG; DIE"
1140 PRINT"[198]LOPPY MUSS ALSO VOR DEM [211][217][211] 965-[194]EFEHL"
1150 PRINT"UNBEDINGT EINGESCHALTET SEIN !"
1160 PRINT"======================================="
1170 PRINT"[208]OSITION: [203]ASSETTENPUFFER (965-1016)"
1180 PRINT"ABER IM [211]PEICHER FREI VERSCHIEBBAR !"
1190 PRINT"======================================="
1200 PRINT"[193]UFRUF: [211][217][211] 965 BZW. [202][211][210] $03[195]5 SOWOHL"
1210 PRINT"IM [208]ROGRAMM- ALS AUCH IM [196]IREKT-[205]ODUS"
1220 PRINT"======================================="
1300 :
1310 FORI=965TO1016
1320 READX:POKEI,X:Y=Y+X
1330 NEXT
1340 IFY<>7065THENPRINTCHR$(18)"[198]EHLER IN [196][193][212][193]S !!  -> [193]BBRUCH !":END
1400 :
1410 INPUT"[210]OUTINE AUF [196]ISK SPEICHERN (J/N) ";JN$
1420 IFJN$="N"THEN1600
1430 IFJN$<>"J"THENPRINTCHR$(145);:GOTO1410
1440 OPEN1,8,2,"@:ML-DISKERROR/965,P,W"
1450 PRINT#1,CHR$(197)CHR$(3);
1460 FORI=965TO1016
1470 PRINT#1,CHR$(PEEK(I));
1480 NEXT
1490 CLOSE1
1500 SYS965:PRINTCHR$(145);
1600 :
1610 POKE53280,14:POKE53281,6:PRINTCHR$(154)CHR$(9);
1620 END
1700 :
1710 :
59990 REM========================= DATAS
60000 DATA 169 , 000 , 133 :REM AB 965
60010 DATA 144 , 169 , 120 :REM AB 968
60020 DATA 162 , 008 , 160 :REM AB 971
60030 DATA 015 , 032 , 186 :REM AB 974
60040 DATA 255 , 169 , 000 :REM AB 977
60050 DATA 032 , 189 , 255 :REM AB 980
60060 DATA 032 , 192 , 255 :REM AB 983
60070 DATA 169 , 008 , 032 :REM AB 986
60080 DATA 180 , 255 , 165 :REM AB 989
60090 DATA 185 , 032 , 150 :REM AB 992
60100 DATA 255 , 032 , 165 :REM AB 995
60110 DATA 255 , 032 , 210 :REM AB 998
60120 DATA 255 , 036 , 144 :REM AB 1001
60130 DATA 080 , 246 , 169 :REM AB 1004
60140 DATA 008 , 032 , 171 :REM AB 1007
60150 DATA 255 , 169 , 120 :REM AB 1010
60160 DATA 032 , 195 , 255 :REM AB 1013
60170 DATA 096             :REM AB 1016
60180 REM                               ========================================