ZX PRINTER OPERATING INSTRUCTIONS

Sinclair ZX Spectrum
Program 2
10 DIM A$(40)
20 INPUT A$
30 FOR Y=43 TO 4 STEP -1
40 FOR X=0 TO 7
50 LET S=43-Y
60 LET N=X+8*INT(S/8)
70 LET SCAN=S-8*INT(S/8)
80 LET P=PEEK(7680+8*CODE(A$(N+1)+SCAN)
90 FOR I=7 TO 0 STEP -1
100 PLOT 8*X+7-I,Y
110 UNPLOT 8*X+7-I,Y
120 IF P<2**I THEN GO TO 150
130 LET P=P-2**I
140 PLOT 8*X+7-I,Y
150 NEXT I
160 NEXT X
170 NEXT Y


Sinclair ZX Spectrum

  Previous Page Back Next Page