10 PRINTCHR$(147)CHR$(31)
20 FORA=678TO755:READB
30 POKEA,B:X=X+B
40 NEXT:IFX=10962GOTO90
50 PRINT"FEHLER IN DATAS!"
60 END
90 PRINT"ALLES OK!"
100 OPEN1,8,1,"HELP SYS 678"
110 PRINT#1,CHR$(166)CHR$(2);
200 FORA=678TO755:B=PEEK(A)
210 PRINT#1,CHR$(B);
250 NEXT:CLOSE1
1000 DATA165,43,24,105,4
1001 DATA133,253,165,44,105
1002 DATA0,133,254,160,0
1003 DATA177,253,240,8,200
1004 DATA192,88,208,247,76
1005 DATA8,207,200,152,160
1006 DATA0,24,101,253,145
1007 DATA43,133,253,144,2
1008 DATA230,254,165,254,200
1009 DATA145,43,136,177,253
1010 DATA170,200,177,253,240
1011 DATA7,133,254,134,253
1012 DATA76,213,2,165,253
1013 DATA24,105,2,133,45
1014 DATA165,254,32,85,198
1015 DATA76,156,198