10 REM ********************************
20 REM * REM-ZEILEN NICHT ABTIPPEN !! *
30 REM ********************************
40 :
210 REM *******************************
240 REM *       PETER      ZUSER      *
250 REM *       BAHNHOFSTR.  346      *
260 REM *       A-8950  STAINACH      *
270 REM *       ================      *
290 REM *       TEL.: 03682/2648      *
300 REM *******************************
310 :
63974 PRINTCHR$(147)CHR$(17)
63975 PRINTTAB(11)"PROGRAMM PRINTLIST"
63976 PRINTTAB(11)"=================="
63977 PRINT
63978 PRINTTAB(14)"COPYRIGHT BY"
63979 PRINTTAB(12)"ZUSER PETER 1984"
63980 FORK=1TO4:PRINT:NEXT
63981 INPUT"UEBERSCHRIFT: ";UE$
63982 AN=PEEK(43)+256*PEEK(44)
63983 ZN=-1:LZ=63974:SZ=0
63984 OPEN1,4:PRINT#1
63985 PRINT#1,UE$
63986 SZ=SZ+1:EZ=ZN+1
63987 FORI=1TO60:ZN=PEEK(AN+2)+256*PEEK(AN+3)
63988 IFZN=LZTHENZN=ZN-1:ZZ=I:I=61
63989 AN=PEEK(AN)+256*PEEK(AN+1)
63990 NEXT
63991 PRINT#1,SPC(70)"SEITE:";SZ
63992 POKE198,10
63993 FORJ=631TO640:READA:POKEJ,A:NEXT:RESTORE
63994 PRINTCHR$(147)"CMD1:LIST"EZ"-"ZN:END
63995 FORK=1TO4:PRINT#1:NEXT
63996 ONI-60GOTO63985
63997 FORL=1TO61-ZZ:PRINT#1:NEXT
63998 CLOSE1:POKE198,0:END
63999 DATA 19,13,71,207,54,51,57,57,53,13