100 DATA 169,24,133,43,169,121,133,44,169,37,133,45,169,133,133,46,169,45
110 DATA 141,25,3,141,23,3,169,152,141,24,3,141,22,3,169,177,141,248,7,169
120 DATA 120,141,0,208,169,52,141,1,208,169,30,141,24,208,169,14,141,39,208
130 DATA 169,8,76,210,255
140 FORI=1TO62:READA:B=B+A:NEXT
150 IF B<>6718 THENPRINT"FEHLER IN DATAS":END
160 PRINT"DISKETTE EINLEGEN! <RETURN>"
170 GETA$:IFA$<>CHR$(13)THEN170
180 RESTORE
190 OPEN2,8,2,"VIZA.PATCH,P,W"
200 PRINT#2,CHR$(0);CHR$(4);: REM LADEADRESSE $0400
210 FORI=1TO62:READA:PRINT#2,CHR$(A);:NEXT
220 CLOSE2