simbol basic

SIMBOL RICCARDO SINIGAGLIA
20 COLOR 15,1,1:SCREEN2
30 FOR A=1 TO 1000:NEXT A
40 LINE(0,0)-(17,182),8,BF
50 LINE(17,0)-(34,182),2,BF
60 LINE(34,0)-(51,182),3,BF
70 LINE(51,0)-(68,182),4,BF
80 LINE(68,0)-(85,182),5,BF
90 LINE(85,0)-(102,182),6,BF
100 LINE(102,0)-(119,182),7,BF
110 LINE(119,0)-(136,182),1,BF
120 LINE(136,0)-(153,182),9,BF
130 LINE(153,0)-(170,182),10,BF
140 LINE(170,0)-(187,182),11,BF
150 LINE(187,0)-(204,182),12,BF
160 LINE(204,0)-(221,182),13,BF
170 LINE(221,0)-(238,182),14,BF
180 LINE(238,0)-(255,182),15,BF
190 FOR A=1 TO 3000:NEXT A
200 LINE(90,40)-(165,152),1,BF
210 LINE(100,130)-(155,130),13
220 LINE(100,130)-(127,60),13
230 LINE(155,130)-(127,60),13
240 PAINT(127,71),13
250 PSET (10,184)
260 OPEN"GRP:"FOR OUTPUT AS #1
270 PRINT #1,"PRODOTTO DA RICCARDO SINIGAGLIA"
280 FOR A=1 TO 3000:NEXT A
290 COLOR 15,1,1
300 SCREEN2,1
310 DATA 130,16,68,40,16,146,16,16
320 DATA 254,130,130,254,176,152,140,134
330 DATA 24,0,24,24,24,24,24,24
340 DATA 252,252,192,192,192,192,252,252
350 DATA 254,254,198,198,254,254,198,198
360 DATA 248,252,206,198,198,206,252,248
370 DATA 254,254,198,198,198,198,254,254
380 DATA 254,192,192,254,254,6,6,254
390 DATA 246,246,246,214,214,214,222,222
400 DATA 254,254,198,192,222,198,254,254
410 DATA 192,192,192,192,192,192,248,248
420 DATA 198,238,254,214,198,198,198,198
430 DATA 254,254,198,252,252,198,254,254
440 DATA 248,248,192,248,248,192,248,248
450 DATA 198,198,198,254,254,198,198,198
460 REM PUT SPRITE 1,(52,124),7,1
470 PUT SPRITE 2,(8,2),10,2
480 PUT SPRITE 3,(18,18),10,3
490 PUT SPRITE 4,(34,34),10,4
500 PUT SPRITE 5,(50,50),10,4
510 PUT SPRITE 6,(66,66),10,5
520 PUT SPRITE 7,(82,82),10,2
530 PUT SPRITE 8,(98,98),10,6
540 PUT SPRITE 9,(114,114),10,7
550 PUT SPRITE 10,(28,2),2,8
560 PUT SPRITE 11,(38,18),2,3
570 PUT SPRITE 12,(54,34),2,9
580 PUT SPRITE 13,(70,50),2,3
590 PUT SPRITE 14,(86,66),2,10
600 PUT SPRITE 15,(102,82),2,5
610 PUT SPRITE 16,(118,98),2,10
620 PUT SPRITE 17,(134,114),2,11
630 PUT SPRITE 18,(144,132),2,3
640 PUT SPRITE 19,(160,148),2,5
650 PUT SPRITE20,(48,2),7,8
660 PUT SPRITE21,(58,18),7,3
670 PUT SPRITE22,(106,66),7,7
680 PUT SPRITE23,(122,82),7,11
690 PUT SPRITE24,(74,34),7,12
700 PUT SPRITE25,(90,50),7,13
710 FOR I=1 TO 8
720 READ A:A$=A$+CHR$(A)
730 SPRITE$(1)=A$
740 NEXT I
750 FOR J=1 TO 8
760 READ B:B$=B$+CHR$(B)
770 SPRITE$(2)=B$
780 NEXT J
790 FOR I=1 TO 8
800 READ C:C$=C$+CHR$(C)
810 SPRITE$(3)=C$
820 NEXT I
830 FOR I=1 TO 8
840 READ D:D$=D$+CHR$(D)
850 SPRITE$(4)=D$
860 NEXT I
870 FOR I=1 TO 8
880 READ E:E$=E$+CHR$(E)
890 SPRITE$(5)=E$
900 NEXT I
910 FOR I=1 TO 8
920 READ F:F$=F$+CHR$(F)
930 SPRITE$(6)=F$
940 NEXT I
950 FOR I=1 TO 8
960 READ G:G$=G$+CHR$(G)
970 SPRITE$(7)=G$
980 NEXT I
990 FOR I=1 TO 8
1000 READ A1:A1$=A1$+CHR$(A1)
1010 SPRITE$(8)=A1$
1020 NEXT I
1030 FOR I=1 TO 8
1040 READ A2:A2$=A2$+CHR$(A2)
1050 SPRITE$(9)=A2$
1060 NEXT I
1070 FOR I=1 TO 8
1080 READ A3:A3$=A3$+CHR$(A3)
1090 SPRITE$(10)=A3$
1100 NEXT I
1110 FOR I=1 TO 8
1120 READ A4:A4$=A4$+CHR$(A4)
1130 SPRITE$(11)=A4$
1140 NEXT I
1150 FOR I=1 TO 8
1160 READ A5:A5$=A5$+CHR$(A5)
1170 SPRITE$(12)=A5$
1180 NEXT I
1190 FOR I=1 TO 8
1200 READ A6:A6$=A6$+CHR$(A6)
1210 SPRITE$(13)=A6$
1220 NEXT I
1230 FOR A=1 TO 1000:NEXT A
1240 Y6=48
1250 Y1=58
1260 Y2=74
1270 Y3=90
1280 Y4=106
1290 Y5=122
1300 FOR B=1 TO135
1310 Y6=Y6+2
1320 Y1=Y1+4
1330 Y2=Y2+6
1340 Y3=Y3+8
1350 Y4=Y4+10
1360 Y5=Y5+12
1370 IF Y6>255 THEN Y=-32
1380 IF Y1>255 THEN Y=-32
1390 IF Y2>255 THEN Y=-32
1400 IF Y3>255 THEN Y=-32
1410 IF Y4>255 THEN Y=-32
1420 IF Y5>255 THEN Y=-32
1430 PUT SPRITE20,(Y6,2),7,8
1440 PUT SPRITE21,(Y1,18),7,3
1450 PUT SPRITE22,(Y2,34),7,12
1460 PUT SPRITE23,(Y3,50),7,13
1470 PUT SPRITE24,(Y4,66),7,7
1480 PUT SPRITE25,(Y5,82),7,11
1490 NEXT B
1500 REM   ANIMADUE
1510 COLOR 15,1,1
1520 SCREEN2,1
1530 REM SIMBOLO
1540 CIRCLE(163,100),60,,.5,3.14,2
1550 CIRCLE (104,100),60,,0,2.65,2
1560 LINE (94,100)-(174,100)
1570 LINE (134,100)-(134,180)
1580 LINE (133,100)-(133,180)
1590 LINE(94,100)-(94,130)
1600 LINE (174,100)-(174,130)
1610 LINE (94,130)-(64,130)
1620 LINE (174,130)-(204,130)
1630 F=2
1640 FOR Y=183TO 249
1650 CIRCLE (133,185),6,F
1660 PAINT (133,185),F
1670 CIRCLE (133,30),6,F
1680 PAINT (133,30),F
1690 CIRCLE (76,80),6,F
1700 PAINT (76,80),F
1710 CIRCLE (191,80),6,F
1720 PAINT (191,80),F
1730 CIRCLE (58,10),6,F
1740 PAINT (58,10),F
1750 CIRCLE (213,10),6,F
1760 PAINT (213,10),F
1770 LINE(133,145)-(117,175):CLEAR(1000)
1780 LINE (134,145)-(150,175):RESTORE 1790
1790 DATA 24,60,126,255,255,126,60,24
1800 DATA 255,128,128,128,128,128,128,128
1810 DATA 128,128,128,128,128,128,128,255
1820 DATA 1,1,1,1,1,1,1,255
1830 DATA 255,1,1,1,1,1,1,1
1840 DATA 24,24,24,255,255,24,24,24
1850 DATA 153,90,60,255,255,60,90,153
1860 DATA 153,90,60,231,231,60,90,153
1870 DATA 130,16,68,40,16,146,16,16
1880 FOR I=1 TO 8:READ A:A$=A$+CHR$(A):SPRITE$(1)=A$:NEXTI
1890 FOR J=1 TO 8:READ B:B$=B$+CHR$(B):SPRITE$(2)=B$:NEXTJ
1900 FOR G=1 TO 8:READ C:C$=C$+CHR$(C):SPRITE$(3)=C$:NEXTG
1910 FOR K=1 TO 8:READ D:D$=D$+CHR$(D):SPRITE$(4)=D$:NEXTK
1920 FOR H=1 TO 8:READ E:E$=E$+CHR$(E):SPRITE$(5)=E$:NEXTH
1930 FOR AH=1 TO 8:READ AE:AE$=AE$+CHR$(AE):SPRITE$(6)=AE$:NEXTAH
1940 FOR BH=1 TO 8:READ BE:BE$=BE$+CHR$(BE):SPRITE$(7)=BE$:NEXTBH
1950 FOR CH=1 TO 8:READ CE:CE$=CE$+CHR$(CE):SPRITE$(8)=CE$:NEXTCH
1960 FOR DH=1 TO 8:READ DE:DE$=DE$+CHR$(DE):SPRITE$(9)=DE$:NEXTDH
1970 X=126:Y=91:A=116:B=80:C=116:D=102:E=136:F=102:G=136:H=80
1980 FOR Z=1 TO 100
1990 A=A-1:B=B-1:C=C-1:D=D+1:E=E+1:F=F+1:G=G+1:H=H-1
2000 REM    QUADRATO IN MOVIMENTO
2010 PUT SPRITE1,(X,Y),5,1
2020 PUT SPRITE2,(A,B),7,2
2030 PUT SPRITE3,(C,D),7,3
2040 PUT SPRITE4,(E,F),7,4
2050 PUT SPRITE5,(G,H),7,5
2060 IF A<60THEN:A=116:B=80:C=116:D=102:E=136:F=102:G=136:H=80
2070 NEXTZ
2080 REM         IL QUADRATO VA E         TORNA PULSANDO
2090 FOR Z= 1 TO 100
2100 A=A+1:B=B+1:C=C+1:D=D-1:E=E-1:F=F-1:G=G-1:H=H+1
2110 IF A<60THEN:A=116:B=80:C=116:D=102:E=136:F=102:G=136:H=80
2120 PUT SPRITE1,(X,Y),5,1
2130 PUT SPRITE2,(A,B),7,2
2140 PUT SPRITE3,(C,D),7,3
2150 PUT SPRITE4,(E,F),7,4
2160 PUT SPRITE5,(G,H),7,5
2170 NEXTZ
2180 L=1
2190 FOR Z= 1 TO 50
2200 A=A-L:B=B-L:C=C-L:D=D+L:E=E+L:F=F+L:G=G+L:H=H-L:L=L+1
2210 IF A<60 THEN A=A+L:B=B+L:C=C+L:D=D-L:E=E-L:F=F-L:G=G-L:H=H+L
2220 PUT SPRITE1,(X,Y),5,1
2230 PUT SPRITE2,(A,B),7,2
2240 PUT SPRITE3,(C,D),7,3
2250 PUT SPRITE4,(E,F),7,4
2260 PUT SPRITE5,(G,H),7,5
2270 IF L=10 THEN L=1
2280 NEXTZ
2290 REM        MOLTIPLICAZIONE DEI        CERCHI A VELOCITA VARIABILE
2300 L=.3
2310 X=126:A=126:C=126:E=126:G=126
2320 Y=91:B=91:D=91:F=91:H=91
2330 FOR Z=1 TO230
2340 A=A-L:B=B-L:C=C-L:D=D+L:E=E+L:F=F+L:G=G+L:H=H-L:L=L+.2:Y=Y-L
2350 PUT SPRITE6,(X,Y),2,1
2360 PUT SPRITE7,(A,B),3,1
2370 PUT SPRITE8,(C,D),6,1
2380 PUT SPRITE9,(E,F),9,1
2390 PUT SPRITE10,(G,H),11,1
2400 IF L>38 THEN L=2
2410 NEXT Z
2420 CIRCLE (133,185),6,1
2430 PAINT (133,185),1
2440 CIRCLE (133,30),6,1
2450 PAINT (133,30),1
2460 CIRCLE (76,80),6,1
2470 PAINT (76,80),1
2480 CIRCLE (191,80),6,1
2490 PAINT (191,80),1
2500 CIRCLE (58,10),6,1
2510 PAINT (58,10),1
2520 CIRCLE (213,10),6,1
2530 PAINT (213,10),1
2540 X=126:Y=177:L=126:M=30:A=70:B=72:C=183:D=72:E=50:F=10:G=205:H=10
2550 V1=1E-03
2560 FOR R=1 TO 1000:NEXTR
2570 FOR Z=1 TO 108
2580 IF V1<18 THEN S=.5 ELSE S=-15
2590 Y=Y-V1:M=M+V1:A=A-V1:B=B+V1:C=C+V1:D=D+V1:E=E+V1:F=F+V1:G=G-V1:H=H+V1:V1=V1+S
2600 PUT SPRITE1,(X,Y),2,1
2610 PUT SPRITE6,(L,M),2,1
2620 PUT SPRITE7,(A,B),3,1
2630 PUT SPRITE8,(C,D),6,1
2640 PUT SPRITE9,(E,F),9,1
2650 PUT SPRITE10,(G,H),11,1
2660 NEXTZ
2670 X=6:C=127:D=177
2680 FOR A=1 TO 127 STEP.3
2690 PUT SPRITE1,(C,D),5,X
2700 IF X>9 THEN X=6
2710 X=X+.1:C=C:D=D-.2
2720 NEXTA
2730 X=126:Y=177:L=126:M=30:A=70:B=72:C=183:D=72:E=50:F=10:G=205:H=10:Z=6
2740 V1=1E-03:V2=1.23
2750 FOR ZO=1 TO 58 STEP .3
2760 IF V1<22 THEN S=.2 ELSE S=-21
2770 Y=Y-V1:M=M+V1:A=A+V2:B=B-V2:C=C-V2:D=D-V2:E=E+V1:F=F+V1:G=G-V1:H=H+V1:V1=V1+S:Z=Z+.1:V2=V2+V3
2780 PUT SPRITE1,(X,Y),2,Z
2790 PUT SPRITE6,(L,M),2,Z
2800 PUT SPRITE7,(A,B),3,Z
2810 PUT SPRITE8,(C,D),6,Z
2820 PUT SPRITE9,(E,F),9,Z
2830 PUT SPRITE10,(G,H),11,Z
2840 IF Z>9 THEN Z=6
2850 IF B<30 THEN V3=-2.2 ELSE V3=0
2860 IF D<30 THEN V3=-2.2 ELSE V3=0
2870 IF B>170THEN V3=0 ELSE V3=-2.24
2880 NEXTZO
2890 SCREEN,3
2900 DATA 192,193,1,120,204,134,3,193
2910 DATA 207,9,121,3,5,0,1,1
2920 DATA 3,131,128,30,51,97,192,131
2930 DATA 243,144,158,192,160,0,128,128
2940 A$=""
2950 FOR I=1 TO 32
2960 READ A:A$=A$+CHR$(A)
2970 NEXT I
2980 SPRITE$(1)=A$
2990 R=3.141593#/180
3000 X1=-15:X2=255:K=2
3010 FOR X=X1 TOX2 STEP K
3020 Y=SIN(T)*30+50+X*.25
3030 Y1=SIN(T1)*30+50+X*.25
3040 PUT SPRITE 1,(X,Y),7,1
3050 PUT SPRITE 3,(X-2,Y+1),5,1
3060 PUT SPRITE 2,(X*.95,Y1+30),2,1
3070 T=T+R*18
3080 T1=T1+R*50:NEXT X
3090 SWAP X1,X2:K=-K
3100 PUT SPRITE 1,(X,Y),1,1
3110 PUT SPRITE 3,(X-2,Y+1),1,1
3120 PUT SPRITE 2,(X*.95,Y1+30),1,1
3130 'ÛÛÛÛÛLABIR 4ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ SPRITE SUL POSTO
3140 COLOR 15,1,1:SCREEN 2,3:OPEN "GRP:"AS #1:COLOR15,1
3150 COLOR 5
3160 GOSUB 7980
3170 COLOR 7
3180 LINE (64,160)-(200,28),,B
3190 LINE (60,164)-(204,24),,B
3200 PAINT(203,25),7
3210 'ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ DATA ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
3220 CLEAR 1000
3230 RESTORE 3240
3240 DATA 255,128,191,160,175,168,171,170:REM A
3250 DATA 170,170,170,170,170,170,170,170: REM G
3260 DATA 255,0,255,0,255,0,255,0:REM E
3270 DATA 255,128,191,160,175,168,171,170:REM A
3280 A1$=""
3290 FOR I=1 TO 32
3300 READ A1:A1$=A1$+CHR$(A1)
3310 NEXT I
3320 SPRITE$(1)=A1$
3330 DATA 170,170,170,170,170,170,170,170: REM G
3340 DATA 170,170,170,170,170,170,170,170: REM G
3350 DATA 170,170,170,170,170,170,170,170: REM G
3360 DATA 170,170,170,170,170,170,170,170: REM G
3370 A2$=""
3380 FOR I=1 TO 32
3390 READ A2:A2$=A2$+CHR$(A2)
3400 NEXT I
3410 SPRITE$(2)=A2$
3420 DATA 170,170,170,170,170,170,170,170: REM G
3430 DATA 171,168,175,160,191,128,255,0:REM B
3440 DATA 171,168,175,160,191,128,255,0:REM B
3450 DATA 255,0,255,0,255,0,255,0:REM E
3460 A3$=""
3470 FOR I=1 TO 32
3480 READ A3:A3$=A3$+CHR$(A3)
3490 NEXT I
3500 SPRITE$(3)=A3$
3510 DATA 255,0,255,0,255,0,255,0:REM E
3520 DATA 255,0,255,0,255,0,255,0:REM E
3530 DATA 255,0,255,0,255,0,255,0:REM E
3540 DATA 255,0,255,0,255,0,255,0:REM E
3550 A4$=""
3560 FOR I=1 TO 32
3570 READ A4:A4$=A4$+CHR$(A4)
3580 NEXT I
3590 SPRITE$(4)=A4$
3600 DATA 255,128,191,160,175,168,171,170:REM A
3610 DATA 171,168,175,160,191,128,255,0:REM B
3620 DATA 255,1,253,5,245,21,213,85:REM C
3630 DATA 85,85,213,21,245,5,253,1:REM D
3640 A1$=""
3650 FOR I=1 TO 32
3660 READ A:A$=A$+CHR$(A)
3670 NEXT I
3680 SPRITE$(5)=A$
3690 DATA 255,0,255,0,255,0,255,0:REM E
3700 DATA 255,1,253,5,245,21,213,85:REM C
3710 DATA 255,1,253,5,245,21,213,85:REM C
3720 DATA 85,85,85,85,85,85,85,85:REM F
3730 A7$=""
3740 FOR I=1 TO 32
3750 READ A7:A7$=A7$+CHR$(A7)
3760 NEXT I
3770 SPRITE$(6)=A7$
3780 DATA 85,85,85,85,85,85,85,85:REM F
3790 DATA 85,85,85,85,85,85,85,85:REM F
3800 DATA 85,85,85,85,85,85,85,85:REM F
3810 DATA 85,85,85,85,85,85,85,85:REM F
3820 A8$=""
3830 FOR I=1 TO 32
3840 READ A8:A8$=A8$+CHR$(A8)
3850 NEXT I
3860 SPRITE$(7)=A8$
3870 DATA 85,85,213,21,245,5,253,1:REM D
3880 DATA 255,0,255,0,255,0,255,0:REM E
3890 DATA 85,85,85,85,85,85,85,85:REM F
3900 DATA 85,85,213,21,245,5,253,1:REM D
3910 A9$=""
3920 FOR I=1 TO 32
3930 READ A9:A9$=A9$+CHR$(A9)
3940 NEXT I
3950 SPRITE$(8)=A9$
3960 DATA 0,24,60,60,24,0,0,3
3970 DATA 14,24,16,0,48,120,120,48
3980 DATA 0,0,0,1,3,3,1,240
3990 DATA 24,12,6,3,1,1,1,63
4000 Q1$=""
4010 FOR I=1 TO 32
4020 READ Q1:Q1$=Q1$+CHR$(Q1)
4030 NEXT I
4040 SPRITE$(10)=Q1$
4050 DATA 0,0,7,0,0,0,0,0
4060 DATA 0,0,0,0,0,0,0,0
4070 DATA 33,33,225,1,3,5,9,17
4080 DATA 33,65,129,0,1,3,3,1
4090 Q2$=""
4100 FOR I=1 TO 32
4110 READ Q2:Q2$=Q2$+CHR$(Q2)
4120 NEXT I
4130 SPRITE$(11)=Q2$
4140 DATA 0,0,0,128,192,192,128,15
4150 DATA 24,48,96,192,128,128,128,252
4160 DATA 0,24,60,60,24,0,0,192
4170 DATA 112,24,8,0,24,60,60,24
4180 Q3$=""
4190 FOR I=1 TO 32
4200 READ Q3:Q3$=Q3$+CHR$(Q3)
4210 NEXT I
4220 SPRITE$(12)=Q3$
4230 DATA 132,132,135,128,192,160,144,136
4240 DATA 132,130,129,0,128,192,192,128
4250 DATA 0,0,224,0,0,0,0,0
4260 DATA 0,0,0,0,0,0,0,0
4270 Q4$=""
4280 FOR I=1 TO 32
4290 READ Q4:Q4$=Q4$+CHR$(Q4)
4300 NEXT I
4310 SPRITE$(13)=Q4$
4320 'ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ MOVIMENTI ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
4330 X1=1:X2=2:X3=3:X4=4:X5=5:X6=6:X7=7:X8=8:B1=100:B2=300
4340 FOR A=1 TO 10
4350 GOSUB 7630
4360 IF X1=8 THEN X1=1
4370 IF X2=8 THEN X2=1
4380 IF X3=8 THEN X3=1
4390 IF X4=8 THEN X4=1
4400 IF X5=8 THEN X5=1
4410 IF X6=8 THEN X6=1
4420 IF X7=8 THEN X7=1
4430 IF X8=8 THEN X8=1
4440 X1=X1+1:X2=X2+1:X3=X3+1
4450 X4=X4+1:X5=X5+1:X6=X6+1
4460 X7=X7+1:X8=X8+1
4470 FOR B=1 TO B1:NEXT B
4480 B1=B1-10
4490 NEXT A
4500 FOR A=1 TO 25
4510 X1=5:X2=5:X3=5:X4=5:X5=5:X6=5:X7=5:X8=5:T=T+3
4520 GOSUB 7630
4530 X1=2:X2=2:X3=2:X4=2:X5=2:X6=2:X7=2:X8=2
4540 FOR B=1 TO T:NEXT B
4550 GOSUB 7630
4560 X1=4:X2=4:X3=4:X4=4:X5=4:X6=4:X7=4:X8=4
4570 FOR B=1 TO T:NEXT B
4580 GOSUB 7630
4590 NEXTA
4600 X=115:Y=80:GOSUB 7730
4610 X=1:A=1:FOR A=1 TO 90
4620 CIRCLE(132,96),X,1
4630 X=X+1:NEXT A
4640 COLOR 1:GOSUB 7980
4650 FOR A2=1 TO 290:NEXT A2
4660 LINE (60,164)-(204,24),1,BF
4670 'ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ simbolo ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
4680 R=13.5:P=3.1415:X=115:Y=80:Q=122:W=12
4690 GOSUB 7730:FOR A1=1 TO 200:NEXT
4700 FOR A=0 TO9*P STEP P/14
4710 X=X+6:Y=Y+25
4720 GOSUB 7730
4730 Q=Q+R*COS(A)
4740 W=W+R*SIN(A*.1)
4750 GOSUB 7730
4760 GOSUB 7830
4770 PSET(Q+16,W),14:R=R-1E-03
4780 IF W>191 THEN W=1
4790 IF Y>195 THEN Y=1
4800 NEXTA
4810 Q=98:W=64:GOSUB 7830
4820 X=115:Y=80:Z=3
4830 FOR A=1 TO 20
4840 GOSUB 7730
4850 CIRCLE(130,191),Z,14:Z=Z+2
4860 GOSUB 7880
4870 NEXT A
4880 REM DATA6                            LA SPIRALE FORMATA DA UNA SPIRALE                  QUADRA
4890 Z=3:FOR A=1 TO 20
4900 CIRCLE(130,191),Z,1
4910 Z=Z+2:NEXT
4920 LINE(255,191)-(0,0),1,BF
4930 DATA 255,128,191,160,175,168,171,170
4940 DATA 171,168,175,160,191,128,255,0
4950 DATA 255,1,253,5,245,21,213,85
4960 DATA 85,85,213,21,245,5,253,1
4970 A$=""
4980 FOR I=1 TO 32
4990 READ A:A$=A$+CHR$(A)
5000 NEXT I
5010 SPRITE$(1)=A$
5020 DATA 171,168,175,160,191,128,255,0
5030 DATA 255,128,191,160,175,168,171,170
5040 DATA 85,85,213,21,245,5,253,1
5050 DATA 255,1,253,5,245,21,213,85
5060 D$=""
5070 FOR I=1 TO 32
5080 READ D:D$=D$+CHR$(D)
5090 NEXT I
5100 SPRITE$(3)=D$
5110 DATA 85,85,213,21,245,5,253,1
5120 DATA 255,1,253,5,245,21,213,85
5130 DATA 171,168,175,160,191,128,255,0
5140 DATA 255,128,191,160,175,168,171,170
5150 B$=""
5160 FOR I=1 TO 32
5170 READ B:B$=B$+CHR$(B)
5180 NEXT I
5190 SPRITE$(2)=B$
5200 'ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ MOVIMENTI ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
5210 X=160:Y=16:R=3.5:P=3.1415:C=1:B=2:G=160:M=16:D=7
5220 FOR A=.1TO2*P STEP P/28
5230 X=X+R*COS(A)
5240 G=G-R*COS(A)
5250 Y=Y+R*SIN(A)
5260 M=M+R*SIN(A)
5270 IF C=3 THEN C=0
5280 IF B=15 THEN B=2
5290 IF D=15 THEN D=2
5300 C=C+1:B=B+1:D=D+1
5310 GOSUB 7370
5320 NEXTA
5330 'ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ SCACCHIERE ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
5340 AS=550
5350 FOR A2=1 TO 27
5360 X=232:Y=55:G=87:M=55:B=7:D=5
5370 GOSUB 7370:AS=AS-5
5380 FOR A=1 TO AS: NEXT
5390 X=122:Y=55:G=197:M=55:B=4:D=7
5400 GOSUB 7370
5410 FOR A=1 TO AS: NEXT
5420 X=172:Y=55:G=147:M=55:B=5:D=4
5430 GOSUB 7370:AS=AS-5
5440 FOR A=1 TO AS: NEXT
5450 X=125:Y=55:G=194:M=55:B=3:D=2
5460 GOSUB 7370
5470 FOR A=1 TO AS: NEXT
5480 X=132:Y=55:G=187:M=55:B=2:D=3
5490 GOSUB 7370:AS=AS-20
5500 FOR A=1 TO AS: NEXT
5510 X=169:Y=55:G=154:M=55:B=14:D=12
5520 GOSUB 7370
5530 FOR A=1 TO AS: NEXT
5540 X=160:Y=55:G=160:M=55:B=13:D=11
5550 GOSUB 7370
5560 FOR A=1 TO AS: NEXT
5570 AS=AS-20
5580 NEXT A2
5590 X=160:Y=55:G=160:M=55:B=1:D=1
5600 GOSUB 7370
5610 'ÛÛÛÛÛÛÛÛÛÛÛÛÛCERCHIÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
5620 COLOR 15,1,1
5630 SCREEN 2
5640 REM PRIMO SIMBOLO
5650 A=2
5660 CIRCLE(156,100),60,A,.5,3.14,2
5670 CIRCLE (96,100),60,A,0,2.65,2
5680 LINE (86,100)-(166,100),A
5690 LINE (126,100)-(126,180),A
5700 LINE (86,100)-(86,130),A
5710 LINE (166,100)-(166,130),A
5720 LINE (86,130)-(56,130),A
5730 LINE (166,130)-(196,130),A
5740 CIRCLE (126,185),6,A
5750 PAINT (126,185),A
5760 CIRCLE (126,30),6,A
5770 PAINT (126,30) ,A
5780 CIRCLE (68,80),6,A
5790 PAINT (68,80) ,A
5800 CIRCLE (183,80),6,A
5810 PAINT (183,80) ,A
5820 CIRCLE (50,10),6,A
5830 PAINT (50,10) ,A
5840 CIRCLE (205,10),6,A
5850 PAINT (205,10) ,A
5860 LINE(126,145)-(110,175),A
5870 LINE (126,145)-(142,175),A
5880 COLOR 12,1,1
5890 REM TRIANGOLO
5900 LINE (126,180)-(50,10),12
5910 LINE (50,10)-(205,10),12
5920 LINE (205,10)-(125,180),12
5930 PAINT (100,12),12
5940 CIRCLE (127,66),46,1
5950 PAINT (126,111),1
5960 LINE (1,1)-(30,192),0
5970 PAINT (3,50),0
5980 CLS
5990 REM SIMBOLO CON CERCHI IN INCREMENTO
6000 A=2
6010 X=6
6020 FOR X=1 TO 100 STEP 3
6030 X=X+2
6040 A=A+1
6050 IF A>15 THEN A=2
6060 CIRCLE(156,100),60,A,.5,3.14,2
6070 CIRCLE (96,100),60,A,0,2.65,2
6080 LINE (86,100)-(166,100),A
6090 LINE (126,100)-(126,180),A
6100 LINE(86,100)-(86,130),A
6110 LINE (166,100)-(166,130),A
6120 LINE (86,130)-(56,130),A
6130 LINE (166,130)-(196,130),A
6140 CIRCLE (126,185),X,A
6150 CIRCLE (126,30),X,A
6160 CIRCLE (68,80),X,A
6170 CIRCLE (183,80),X,A
6180 CIRCLE (50,10),X,A
6190 CIRCLE (205,10),X,A
6200 LINE(126,145)-(110,175),A
6210 LINE (126,145)-(142,175),A
6220 NEXT X
6230 REM CERCHI NERI
6240 X=6
6250 FOR X=6 TO 100 STEP 3
6260 X=X+2
6270 CIRCLE (126,185),X,1
6280 CIRCLE (126,30),X,1
6290 CIRCLE (68,80),X,1
6300 CIRCLE (183,80),X,1
6310 CIRCLE (50,10),X,1
6320 CIRCLE (205,10),X,1
6330 NEXT X
6340 REM TRE SIMBOLI
6350 A=7
6360 CIRCLE(156,100),60,A,.5,3.14,2
6370 CIRCLE (96,100),60,A,0,2.65,2
6380 LINE (86,100)-(166,100),A
6390 LINE (126,100)-(126,180),A
6400 LINE(86,100)-(86,130),A
6410 LINE (166,100)-(166,130),A
6420 LINE (86,130)-(56,130),A
6430 LINE (166,130)-(196,130),A
6440 CIRCLE (126,185),6,A
6450 PAINT (126,185) ,A
6460 CIRCLE (126,30),6,A
6470 PAINT (126,30) ,A
6480 CIRCLE (68,80),6,A
6490 PAINT (68,80) ,A
6500 CIRCLE (183,80),6,A
6510 PAINT (183,80) ,A
6520 CIRCLE (50,10),6,A
6530 PAINT (50,10) ,A
6540 CIRCLE (205,10),6,A
6550 PAINT (205,10) ,A
6560 LINE(126,145)-(110,175),A
6570 LINE (126,145)-(142,175),A
6580 CIRCLE(136,100),60,A,.5,3.14,2
6590 CIRCLE (76,100),60,A,0,2.65,2
6600 LINE (66,100)-(146,100),A
6610 LINE (106,100)-(106,180),A
6620 LINE(66,100)-(66,130),A
6630 LINE (146,100)-(146,130),A
6640 LINE (66,130)-(36,130),A
6650 LINE (146,130)-(176,130),A
6660 CIRCLE (106,185),6,A
6670 PAINT (106,185) ,A
6680 CIRCLE (106,30),6,A
6690 PAINT (106,30) ,A
6700 CIRCLE (48,80),6,A
6710 PAINT (48,80) ,A
6720 CIRCLE (163,80),6,A
6730 PAINT (163,80) ,A
6740 CIRCLE (30,10),6,A
6750 PAINT (30,10) ,A
6760 CIRCLE (185,10),6,A
6770 PAINT (185,10) ,A
6780 LINE(106,145)-(90,175),A
6790 LINE (106,145)-(122,175),A
6800 CIRCLE(176,100),60,A,.5,3.14,2
6810 CIRCLE (116,100),60,A,0,2.65,2
6820 LINE (106,100)-(186,100),A
6830 LINE (146,100)-(146,180),A
6840 LINE(106,100)-(106,130),A
6850 LINE (186,100)-(186,130),A
6860 LINE (106,130)-(76,130),A
6870 LINE (186,130)-(216,130),A
6880 CIRCLE (146,185),6,A
6890 PAINT (146,185) ,A
6900 CIRCLE (146,30),6,A
6910 PAINT (146,30) ,A
6920 CIRCLE (88,80),6,A
6930 PAINT (88,80) ,A
6940 CIRCLE (203,80),6,A
6950 PAINT (203,80) ,A
6960 CIRCLE (70,10),6,A
6970 PAINT (70,10) ,A
6980 CIRCLE (225,10),6,A
6990 PAINT (225,10) ,A
7000 LINE(146,145)-(130,175),A
7010 LINE (146,145)-(162,175),A
7020 X=6
7030 FOR X=6 TO 142
7040 CIRCLE (126,185),X,7
7050 PAINT (126,185),7
7060 X=X+1
7070 NEXT X
7080 PAINT (126,1),7
7090 COLOR 2,1,1
7100 PAINT(126,1),1
7110 FOR A=1 TO 1200:NEXT A
7120 COLOR 15,1,1:SCREEN1:KEYOFF
7130 PRINT"
7140 PRINT"           SIMBOL
7150 PRINT"
7160 PRINT"
7170 PRINT" COMPOSIZIONE AUDIOVISIVA
7180 PRINT"
7190 PRINT"          DIGITALE
7200 PRINT"
7210 PRINT"   REALIZZATA CON COMPUTER
7220 PRINT"
7230 PRINT"         YAMAHA CX5M
7240 PRINT"
7250 PRINT"
7260 PRINT"
7270 PRINT"
7280 PRINT"
7290 PRINT"
7300 PRINT"
7310 PRINT"
7320 PRINT"         VERSION 2.0
7330 PRINT"
7340 PRINT"        NOVEMBRE 1984
7350 FOR A=1 TO 3000:NEXTA
7354 CLEAR
7355 GOTO 10
7360 'ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ subroutine ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
7370 PUT SPRITE12,(X,Y),D,C
7380 PSET(X,Y),14:R=R-.03
7390 PSET(X-66,Y),14
7400 PUT SPRITE1,(G-33,M),B,C
7410 PUT SPRITE2,(G-99,M),B,C
7420 PUT SPRITE3,(G,M+33),B,C
7430 PUT SPRITE4,(X-66,Y),D,C
7440 PUT SPRITE5,(G-66,M+33),B,C
7450 PUT SPRITE6,(X-99,Y+33),D,C
7460 PUT SPRITE7,(X-33,Y+33),D,C
7470 PUT SPRITE8,(X,Y+66),D,C
7480 PUT SPRITE9,(X-66,Y+66),D,C
7490 PUT SPRITE10,(G-99,M+66),B,C
7500 PSET(G,M),14
7510 PSET(G-66,M),14
7520 PUT SPRITE11,(G-33,M+66),B,C
7530 PUT SPRITE13,(G,M+99),B,C
7540 PUT SPRITE14,(X-33,Y+99),D,C
7550 PUT SPRITE15,(G-66,M+99),B,C
7560 PUT SPRITE16,(X-99,Y+99),D,C
7570 PUT SPRITE17,(G,M-33),B,C
7580 PUT SPRITE18,(X-33,Y-33),D,C
7590 PUT SPRITE19,(G-66,Y-33),B,C
7600 PUT SPRITE20,(X-99,Y-33),D,C
7610 RETURN
7620 'ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ SUBROUTINES ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
7630 PUT SPRITE5,(115-32,80-32),7,X1
7640 PUT SPRITE6,(115-32,80),7,X2
7650 PUT SPRITE7,(115-32,80+32),7,X3
7660 PUT SPRITE8,(115,80-32),7,X4
7670 PUT SPRITE9,(115,80),7,X5
7680 PUT SPRITE10,(115,80+32),7,X4
7690 PUT SPRITE11,(115+32,80-32),7,X6
7700 PUT SPRITE12,(115+32,80),7,X7
7710 PUT SPRITE13,(115+32,80+32),7,X8
7720 RETURN
7730 PUT SPRITE5,(X-32,Y-64),7,4
7740 PUT SPRITE6,(X-32,Y),7,4
7750 PUT SPRITE7,(X-32,Y+64),7,4
7760 PUT SPRITE8,(X,Y-32),7,2
7770 PUT SPRITE9,(X,Y+32),7,2
7780 PUT SPRITE10,(X+32,Y-64),7,4
7790 PUT SPRITE11,(X+32,Y),7,4
7800 PUT SPRITE12,(X+32,Y+64),7,4
7810 PUT SPRITE13,(-32,0),7,5
7820 RETURN
7830 PUT SPRITE1,(Q,W),5,10
7840 PUT SPRITE2,(Q,W+32),5,11
7850 PUT SPRITE3,(Q+32,W),5,12
7860 PUT SPRITE4,(Q+32,W+32),5,13
7870 RETURN
7880 PUT SPRITE5,(X-64,Y-64),7,1
7890 PUT SPRITE6,(X-32,Y-32),7,1
7900 PUT SPRITE7,(X-32,Y+32),7,3
7910 PUT SPRITE8,(X-64,Y+64),7,3
7920 PUT SPRITE9,(X+64,Y-64),7,6
7930 PUT SPRITE10,(X+32,Y-32),7,6
7940 PUT SPRITE11,(X+32,Y+32),7,8
7950 PUT SPRITE12,(X+64,Y+64),7,8
7960 PUT SPRITE13,(X,Y),7,5
7970 RETURN
7980 PSET (132,96)
7990 LINE -(128,96)
8000 LINE -(128,92)
8010 LINE -(136,92)
8020 LINE -(136,100)
8030 LINE -(124,100)
8040 LINE -(124,88)
8050 LINE -(140,88)
8060 LINE -(140,104)
8070 LINE -(120,104)
8080 LINE -(120,84)
8090 LINE -(140,84)
8100 LINE -(144,84)
8110 LINE -(144,108)
8120 LINE -(116,108)
8130 LINE -(116,80)
8140 LINE -(148,80)
8150 LINE -(148,112)
8160 LINE -(112,112)
8170 LINE -(112,76)
8180 LINE -(152,76)
8190 LINE -(152,116)
8200 LINE -(108,116)
8210 LINE -(108,72)
8220 LINE -(156,72)
8230 LINE -(156,120)
8240 LINE -(104,120)
8250 LINE -(104,68)
8260 LINE -(160,68)
8270 LINE -(160,124)
8280 LINE -(100,124)
8290 LINE -(100,64)
8300 LINE -(164,64)
8310 LINE -(164,128)
8320 LINE -(96,128)
8330 PSET (96,128)
8340 LINE -(96,60)
8350 LINE -(168,60)
8360 PSET (168,60)
8370 LINE -(168,132)
8380 LINE -(92,132)
8390 LINE -(92,56)
8400 LINE -(172,56)
8410 LINE -(172,136)
8420 LINE -(88,136)
8430 LINE -(88,52)
8440 LINE -(176,52)
8450 LINE -(176,140)
8460 LINE -(84,140)
8470 LINE -(84,48)
8480 LINE -(180,48)
8490 LINE -(180,144)
8500 LINE -(80,144)
8510 LINE -(80,44)
8520 LINE -(184,44)
8530 LINE -(184,148)
8540 LINE -(76,148)
8550 LINE -(76,40)
8560 LINE -(188,40)
8570 LINE -(188,152)
8580 LINE -(72,152)
8590 PSET (72,152)
8600 LINE -(72,36)
8610 LINE -(192,36)
8620 LINE -(192,156)
8630 RETURN
LINE -(92,56)
8400 LINE -(172,56)
8410 LINE -(172,136)
8420 LINE -(88,136)
8430 LINE -(88,52)
8440 LINE -(176,52)
8450 LINE -(176,140)
8460 LINE -(84,140)
8470 LINE -(84,48)
8480 LINE -(180,48)
8490 LINE -(180,1)