10 SCREEN 7:DIM Z(4,247,7),B(3),C(4),D(4):FOR H=0 TO 4:READ A$:D(H)=LEN(A$)*8-1:C(H)=INT((319-D(H))/2):PRINT A$:FOR I=0 TO 7:FOR J=0 TO D(H):Z(H,J,I)=POINT(J,I+H*8):NEXT J,I,H:CLS:B(0)=0:B(1)=8:B(2)=7:B(3)=15
20 FOR H=0 TO 4:L=C(H)-1:M=C(H)+D(H)+1:FOR K=1 TO 3:On-(INKEY$=" ")GOTO 90:COLOR B(K):LINE(L,102)-(L,94):LINE(L,94)-(M,94):ON-(K>2)GOTO 30:FOR I=0 TO 7:FOR J=0 TO D(H):IF Z(H,J,I)=0 THEN PSET(C(H)+J,95+I)
25 NEXT J,I
30 IF K<2 THEN LINE(M,95)-(M,103):LINE(L,103)-(M,103)
40 DELAY .15:NEXT:DELAY .5:FOR K=2 TO 0 STEP-1:On-(INKEY$=" ")GOTO 90:COLOR B(K):LINE(L,102)-(L,94):LINE(L,94)-(M,94):ON-(K>1)GOTO 60:FOR I=0 TO 7:FOR J=0 TO D(H):IF Z(H,J,I)=0 THEN PSET(C(H)+J,95+I)
55 NEXT J,I
60 IF K<1 THEN LINE(M,95)-(M,103):LINE(L,103)-(M,103)
70 DELAY .15:NEXT:DELAY .5:NEXT:GOTO 20
80 DATA"C.E. Software","presents:","F O N T D E M O","programmed by Carsten Engelmann","(C)opyright 2010"
90 SCREEN 9:CLEAR:DIM Z(2,119,13),B(5),C(2),D(2):FOR H=0 TO 2:READ A$:D(H)=LEN(A$)*8-1:C(H)=INT((319-D(H))/2):PRINT A$:FOR I=0 TO 13:FOR J=0 TO D(H):Z(H,J,I)=POINT(J,I+H*14):NEXT J,I,H:CLS:B(0)=2:B(1)=10:B(2)=14:B(3)=15:B(4)=14:B(5)=10:SCREEN 7
105 DELAY .09:ON-(INKEY$=" ")GOTO 130:Z=Z-1:IF Z<0 THEN Z=5
110 Y=Z:FOR H=0 TO 2:FOR I=0 TO 13:K=70+I+H*22:FOR J=0 TO D(H):IF Z(H,J,I) THEN PSET(C(H)+J,K),B(Y)
115 NEXT:Y=Y+1:IF Y=6 THEN Y=0
120 NEXT I,H:GOTO 105
125 DATA"C.E. Software","presents:","F O N T D E M O"
130 SCREEN 9:CLEAR:DIM A(311,13),B(5):B(0)=4:B(1)=12:B(2)=14:B(3)=15:B(4)=14:B(5)=12:PRINT"C.E. Software presents: F O N T D E M O":FOR I=0 TO 311:FOR J=0 TO 13:A(I,J)=POINT(I,J):NEXT J,I:L=-311
135 SCREEN 7,,X,1-X:DELAY .08:X=1-X:ON-(INKEY$=" ")GOTO 160:W=W-1:IF W<0 THEN W=5
140 Z=W:CLS:FOR I=0 TO 13:FOR J=0 TO 311:M=L+J:IF A(J,I) AND M>-1 AND M<320 THEN PSET(M,92+I),B(Z)
145 NEXT:Z=Z+1:IF Z=6 THEN Z=0
150 NEXT:L=L+2:IF L=323 THEN L=-311
155 GOTO 135
160 SCREEN 7:CLEAR:DIM A(311,7),B(5):B(0)=4:B(1)=12:B(2)=14:B(3)=15:B(4)=14:B(5)=12:PRINT"C.E. Software presents: F O N T D E M O":FOR I=0 TO 311:FOR J=0 TO 7:A(I,J)=POINT(I,J):NEXT J,I:L=-308
165 SCREEN,,X,1-X:DELAY .08:X=1-X:ON-(INKEY$=" ")GOTO 190:W=W-1:IF W<0 THEN W=5
170 Z=W:CLS:FOR I=0 TO 7:FOR J=0 TO 311:M=L+J-I:IF A(J,I) AND M>-1 AND M<320 THEN PSET(M,95+I),B(Z)
175 NEXT:Z=Z+1:IF Z=6 THEN Z=0
180 NEXT:L=L+2:IF L=328 THEN L=-308
185 GOTO 165
190 SCREEN 7:CLEAR:DIM A(311,7),B(5):B(0)=4:B(1)=12:B(2)=14:B(3)=15:B(4)=14:B(5)=12:PRINT"C.E. Software presents: F O N T D E M O":FOR I=0 TO 311:FOR J=0 TO 7:A(I,J)=POINT(I,J):NEXT J,I:B=1:L=-311
195 SCREEN,,X,1-X:DELAY .08:X=1-X:ON-(INKEY$=" ")GOTO 230:W=W-1:IF W<0 THEN W=5
200 A=A+B:IF A=0 OR A=3 THEN IF V>3 THEN B=-O:V=0 ELSE V=V+1:IF V=1 THEN O=B:B=0
205 Z=W:C=A:D=B:P=O:CLS:FOR I=0 TO 7:FOR J=0 TO 311:M=L+J+C:IF A(J,I) AND M>-1 AND M<320 THEN PSET(M,95+I),B(Z)
210 NEXT:Z=Z+1:IF Z=6 THEN Z=0
215 C=C+D:IF C=0 OR C=3 THEN IF U>3 THEN D=-P:U=0 ELSE U=U+1:IF U=1 THEN P=D:D=0
220 NEXT:L=L+2:IF L=323 THEN L=-311
225 GOTO 195
230 SCREEN 7:CLEAR:DIM A(311,7),B(5):B(0)=4:B(1)=12:B(2)=14:B(3)=15:B(4)=14:B(5)=12:PRINT"C.E. Software presents: F O N T D E M O":FOR I=0 TO 311:FOR J=0 TO 7:A(I,J)=POINT(I,J):NEXT J,I:L=-309
235 SCREEN,,X,1-X:DELAY .08:X=1-X:ON-(INKEY$=" ")GOTO 260:W=W-1:IF W<0 THEN W=5
240 Z=W:CLS:LINE(0,99)-(319,107),1,BF:FOR I=0 TO 7:FOR J=0 TO 311:M=J+L:IF A(J,I) AND M>-1 AND M<320 THEN PSET(M,91+I),B(Z):PSET(M,106-I),B(Z)
245 NEXT:Z=Z+1:IF Z=6 THEN Z=0
250 NEXT:L=L+2:IF L=323 THEN L=-309
255 GOTO 235
260 SCREEN 7:CLEAR:DIM A(311,7),B(5):B(0)=4:B(1)=12:B(2)=14:B(3)=15:B(4)=14:B(5)=12:PRINT"C.E. Software presents: F O N T D E M O":FOR I=0 TO 311:FOR J=0 TO 7:A(I,J)=POINT(I,J):NEXT J,I:B=1:L=-310
265 SCREEN,,X,1-X:DELAY .08:X=1-X:ON-(INKEY$=" ")GOTO 300:W=W-1:IF W<0 THEN W=5
270 K=1-K:ON-(K=0)GOTO 275:A=A+B:IF A=0 OR A=2 THEN IF O=0 THEN O=B:B=0 ELSE B=-O:O=0
275 Z=W:C=A:D=B:P=O:CLS:LINE(0,99)-(319,107),1,BF:FOR I=0 TO 7:FOR J=0 TO 311:M=J+L:IF A(J,I) AND M>-1 AND M<320 THEN PSET(M,91+I),B(Z):PSET(M+C-1,106-I),B(Z)
280 NEXT:Z=Z+1:IF Z=6 THEN Z=0
285 C=C+D:IF C=0 OR C=2 THEN IF P=0 THEN P=D:D=0 ELSE D=-P:P=0
290 NEXT:L=L+2:IF L=322 THEN L=-310
295 GOTO 265
300 SCREEN 7:CLEAR:DIM A(311,7),B(5):B(0)=4:B(1)=12:B(2)=14:B(3)=15:B(4)=14:B(5)=12:PRINT"C.E. Software presents: F O N T D E M O":FOR I=0 TO 311:FOR J=0 TO 7:A(I,J)=POINT(I,J):NEXT J,I:B=1:L=319
305 SCREEN,,X,1-X:DELAY .08:X=1-X:ON-(INKEY$=" ")GOTO 340:W=W-1:IF W<0 THEN W=5
310 A=A+B:IF A=0 OR A=3 THEN IF V>3 THEN B=-O:V=0 ELSE V=V+1:IF V=1 THEN O=B:B=0
315 Z=W:C=A:D=B:P=O:U=V:CLS:FOR I=0 TO 311:M=I+L:FOR J=0 TO 7:IF A(I,J) AND M>-1 AND M<320 THEN PSET(M,95+J+C),B(Z)
320 NEXT:Z=Z+1:IF Z=6 THEN Z=0
325 C=C+D:IF C=0 OR C=3 THEN IF U>3 THEN D=-P:U=0 ELSE U=U+1:IF U=1 THEN P=D:D=0
330 NEXT:L=L-2:IF L=-4 THEN L=319
335 GOTO 305
340 SCREEN 7:CLEAR:DIM A(311,7),B(5):B(0)=4:B(1)=12:B(2)=14:B(3)=15:B(4)=14:B(5)=12:PRINT"C.E. Software presents: F O N T D E M O":FOR I=0 TO 311:FOR J=0 TO 7:A(I,J)=POINT(I,J):NEXT J,I:L=-7
345 SCREEN,,X,1-X:DELAY .08:X=1-X:ON-(INKEY$=" ")GOTO 370:W=W-1:IF W<0 THEN W=5
350 Z=W:CLS:FOR I=0 TO 311:FOR J=0 TO 7:M=L+J:IF A(I,J) AND M>-1 AND M<320 THEN PSET(4+I,M),B(Z)
355 NEXT:Z=Z+1:IF Z=6 THEN Z=0
360 NEXT:L=L+2:IF L=203 THEN L=-7
365 GOTO 345
370 SCREEN 7:CLEAR:DIM A(311,7),B(5):B(0)=4:B(1)=12:B(2)=14:B(3)=15:B(4)=14:B(5)=12:PRINT"C.E. Software presents: F O N T D E M O":FOR I=0 TO 311:FOR J=0 TO 7:A(I,J)=POINT(I,J):NEXT J,I:B=1:L=-9
375 SCREEN,,X,1-X:DELAY .08:X=1-X:ON-(INKEY$=" ")GOTO 410:W=W-1:IF W<0 THEN W=5
380 A=A+B:IF A=0 OR A=3 THEN IF V>3 THEN B=-O:V=0 ELSE V=V+1:IF V=1 THEN O=B:B=0
385 Z=W:C=A:D=B:P=O:U=V:CLS:FOR I=0 TO 311:FOR J=0 TO 7:M=L+J+C:IF A(I,J) AND M>-1 AND M<320 THEN PSET(4+I,M),B(Z)
390 NEXT:Z=Z+1:IF Z=6 THEN Z=0
395 C=C+D:IF C=0 OR C=3 THEN IF U>3 THEN D=-P:U=0 ELSE U=U+1:IF U=1 THEN P=D:D=0
400 NEXT:L=L+2:IF L=203 THEN L=-9
405 GOTO 375
410 CLS