20 Z=0:MODE 1:INK 0,0:BORDER 0:DIM X(700),Y(700):INPUT"TEXT (MAX.20) : ",T$:IF LEN(T$)>20 THEN 20 30 PEN 2:LOCATE 1,10:PRINT"BITTE WARTEN,COMPUTER ARBEITET.":PEN 1:LOCATE 1,25:PRINT T$;:BR=LEN(T$)*16 40 FOR A=1 TO BR:FOR B=1 TO 16 50 IF TEST(A,B)=1 THEN PLOT A,B,3:Z=Z+1 60 NEXT:NEXT:LOCATE 1,5:PRINT A2$;SPC(9):PRINT A3$:P=0 70 A=INT(RND*BR)+1:B=INT(RND*16)+1:IF TEST(A,B)=3 THEN P=P+1:PLOT A,B,1:X(P)=A:Y(P)=B ELSE 70 80 IF P<>Z THEN 70 90 CLS:LOCATE 1,15:INPUT"NAME:",N$:OPENOUT N$:PRINT#9,Z:FOR L=1 TO Z:PRINT#9,X(L),Y(L):NEXT:CLOSEOUT:END 100 ' demonstration 110 MODE 1:LOCATE 5,3:PEN 3:PRINT"Dies ist eine Demonstartion von:":PEN 1:LOCATE 13,8:PRINT"BROECKELSCRIPT":PLOT 10,10,3:DRAW 10,390:DRAW 630,390:DRAW 630,10:DRAW 10,10:K=INT((640-BR)/2)-16:FOR M=1 TO Z:PLOT K+X(M),160+Y(M),2:NEXT:CALL &BB06:GOTO 110