10 SCREEN 9
20 INPUT "Screenshot file ", SS$
30 CLS
40 OPEN "a:\notebook\" + SS$ FOR BINARY AS #1
50 FOR y = 0 TO 127
60 FOR x = 0 TO 479
70 IF (x MOD 8) = 0 THEN p$ = INPUT$(1, #1): p = ASC(p$)
80 IF p = 0 THEN x = x + 7
90 IF (p AND (2 ^ (7 - (x MOD 8)))) > 0 THEN LINE (x, y)-(x, y)
100 NEXT
110 FOR I = 1 TO 4: d$ = INPUT$(1, #1): NEXT
120 NEXT
130 CLOSE