Poster

Das Programm "Poster" für den Spectrum 16/48 K erstellt einen Bildschirmausdruck in achtfacher Größe. Das
X in Zeile 52 soll nur als Beispiel dienen; man kann auch jedes andere oder selbst definierte Grafikzeichen verwenden. Soll das Bild invertiert zu Papier kommen, muß das Leerzeichen in Zeile 52 stehen, das zu druckende in Zeile 51. Das Programm wurde .für den ZX-Drucker bzw. GP 50S geschrieben, läßt sich aber leicht an andere Printer und an Microdrive anpassen.

1 REM Frank Fahrenkrug
2 REM Maerz 1987
3 REM fuer Computer Kontakt
4 REM
5 REM POSTER
10 LOAD ""SCREEN$
20 LET a$=""
30 FOR x=0 TO 255 STEP 32
35 FOR y=175 TO 0 STEP -1
40 FOR a=x TO x+31
50 LET p=POINT (a,y)
51 IF p=0 THEN LET a$=a$+" "
52 IF p=1 THEN LET a$=a$+"X"
53 PLOT OVER 1;a,y
60 NEXT a
62 LPRINT a$
65 LET a$=""
70 NEXT y
80 NEXT x