Sinclair ZX Series - Page 7

Program 1
5 REM TEXT EDIT
10 FAST
15 INPUT A$
20 IF LEN A$>32 THEN GOTO 35
25 INPUT A$
30 GO TO 15
35 LET C=0
40 IF C=32 THE GO TO 65
45 LET B$=A$(32-C)
50 IF A$(33-C)=" " OR B$="," OR B$="." OR B$=":"
OR B$=";" OR B$="?" OR B$=CHR$11 THE GO TO 70
55 LET C=C+1
60 GO TO 40
65 LET C=0
70 LPRINT A$(TO 32-C)
75 LET A$=A$(33-C TO)
80 IF A$(1)=" " THEN LET A$=A$(2 TO)
85 GO TO 20
Program 2
10 DIM A$(40)
20 INUT 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
Program 3