vielen dank an euch ihr habt mir sehr weitergeholfen und es funktioniert einwandfrei !!!

hier der code damit es läuft:

Code:
10 KEY OFF
20 CLS
30 OPEN "COM1:9600,N8,1,CS,DS" AS #1

40 PRINT #1,CHR$(128);CHR$(1);CHR$(0);CHR$(0);CHR$(5);
50 PRINT #1,CHR$(128);CHR$(1);CHR$(1);CHR$(0);CHR$(20);
60 PRINT #1,CHR$(128);CHR$(1);CHR$(2);CHR$(0);CHR$(72);
69 GOSUB 70

70 FOR I=1 TO 15000
71 NEXT I
72 RETURN 73
73 GOTO 140

140 PRINT #1,CHR$(128);CHR$(1);CHR$(0);CHR$(0);CHR$(5);
150 PRINT #1,CHR$(128);CHR$(1);CHR$(1);CHR$(0);CHR$(20);
160 PRINT #1,CHR$(128);CHR$(1);CHR$(2);CHR$(0);CHR$(13);

170 FOR I=1 TO 15000
171 NEXT I
172 RETURN 173
173 GOTO 200

200 GOTO 40
danke[/code]