1 BORDER 0: PAPER 0: BRIGHT 1: INK 7: CLS
2 LET X=7
3 LET Y=1
4 LET A$="(C) 2000 ALEXSOFT"
5 FOR N=1 TO LEN A$
10 DEF FN B$ (A$, Z, N)=A$(Z TO N)
20 LET Z=0: LET B$=FN B$ (A$,Z+N,N)
30 PRINT AT Y,X+N: "-": PAUSE 10: PRINT AT Y, X+N: B$: "_"
40 BEEP .1,-10: NEXT N: PRINT AT Y,X+LEN A$+1: " ": PAUSE 20
50 LET X=9: LET Y=2: LET A$="DEMO 'TAIDR'"
60 FOR N=1 TO LEN A$
70 FOR M=31 TO N+X STEP -1
80 LET B$=FN B$ (A$,Z+N,N)
90 PRINT AT Y,M; B$; " "
100 NEXT M: BEEP .05, -10: NEXT N: PAUSE 100
110 FOR A=0 TO 7: BEEP .1, -5: BEEP .1,7: NEXT A
120 FOR N=0 TO 6: PRINT AT 10, N: "1. NORMAL DEMO (3 能恣.)": NEXT N
130 FOR N=20 TO 11 STEP -1: PRINT AT N,6: "2. MODIFICATE DEMO (34 能恣.)": NEXT N
140 FOR N=1 TO 6: PRINT AT 12, N: "3. MODIFICATE DEMO 2 (4 能恣.)": NEXT N
150 FOR N=20 TO 13 STEP -1: PRINT AT N,6: "4. MODIFICATE DEMO 3 (34 能恣.)": NEXT N
160 PRINT AT 15,7: "ENTER KIND OF DEMO"
170 LET V$=INKEY$
180 IF V$="1" OR V$="2" OR V$="3" THEN GO TO 200
190 IF NOT V$="4" THEN GO TO 170
200 FOR N=1 TO 26: DIM X(N): DIM Y(N)
210 LET R=80: LET DT=2* PI/N: LET T=O
220 FOR I=1 TO N: T=T+DT
230 LET X(I)=120+R*SIN(T): LET Y(I)=95-R*COS (T)
240 NEXT I: CLS
250 LET B=INT (RND*7): IF V$="1" THEN LET C=B: INK C: IF C=0 THEN GO TO 250
260 FOR I=1 TO N-1
270 LET H=INT (RND*7): IF V$="2" THEN LET C=H: INK C: IF C=0 THEN GO TO 270
280 FOR J=I+1 TO N
290 LET G=INT (RND*7): IF V$="3" THEN LET C=G: INK C: IF C=0 THEN GO TO 290
300 PLOT X (I), Y (I)
310 IF V$="4" THEN DRAW OVER 1: X(J), Y(J)-Y(I): GO TO 330
320 DRAW X(J)-X(I), Y(J)-Y(I)
330 NEXT J: NEXT I: NEXT N
340 A$="WRITEN BY SNITKO ALEXEY"
350 FOR A=1 TO LEN A$-1
360 B$=FN B$(A$,A,A+1)
370 BEEP.05,-20: PRINT AT 21, A: B$ :BEEP .05,20: NEXT A
380 PAUSE 100: LET C$="IN TOWN MOSTY 15.09.2000"
390 FOR A=0 TO LEN A$: BEEP .05, -20: PRINT AT 21, 24-A: " ": NEXT A: PAUSE 30
400 FOR A=1 TO LEN C$-1: LET B$=FN B$ (C$, A, A+1)
410 BEEP. 05, -20: PRINT AT 21, A: B$: BEEP .05, 20: NEXT A
420 PAUSE 100: FOR A=1 TO 25: BEEP .05, -20: PRINT AT 21, 27-A; " ": NEXT A: PAUSE 200: CLS
430 LET A$="32 能恣."
440 LET B$="**END**"
450 LET C$=A$+B$+A$
460 FOR N=1 TO LET C$-31
470 LET B$=FN B$ (C$, N,N+31)
480 PRINT AT 0, 0: INK 7: PAPER 2: B$: PAUSE 10
490 NEXT N: CLS
500 NEXT N: CLS
500 PAUSE 0: GO TO 1