63991 INPUT"FILENAME";F$:OPEN1,8,0,(F$+",S"):INPUT"ERSTE DATA-ZEILE";I
63992 A=INT(I/256):POKE189,A:POKE182,I-A*256
63993 GET#1,A$:B$=B$+A$:IFST<>66ANDA$<>CHR$(13)THEN63993
63994 PRINTCHR$(147)PEEK(182)+PEEK(189)*256"DATA"CHR$(34)B$:PRINT"GOTO63996"
63995 POKE631,19:POKE632,13:POKE633,13:POKE634,13:POKE198,4:END
63996 IFST<>66THENB$="":POKE152,1
63997 I=PEEK(182)+1+PEEK(189)*256:A=INT(I/256):POKE189,A:POKE182,I-A*256
63998 GOTO 63993
63999 CLOSE1