Sunday, February 10, 2013

Shared Program (1)


    This is the first shared program. It was from Richard Duncan - Chesapeake, USA and works for iPad in Portrait.

4 CN=15
5 K=4
10 SCREEN 1
18 NN=1.1
19 NN=1
20 N=80
21 CLS
22 SCREEN 1: CLS
23 CC=384:HH=100:RT=4
24 P3$="12345":P4$="67891":P5$="1011121314"
25 RT=4
26 GOSUB 129
27 T=T
28 CC=384+T:HH=100-S:RT=3
30 GOSUB 152
34 P3$="54123":P4$="17896":P5$="141213101115"
35 CC=384:HH=100+N:RT=3:P3$="28953":P4$="17346"
36 GOSUB 129
38 CC=384+T:HH=100+N-S:RT=2:P3$="68972":P4$="13254"
40 GOSUB 152
42 P5$="1310151214"
45 CC=384:HH=100+2*N:RT=2:P4$="86921":P3$="34215":GOSUB 129
48 CC=384+T:HH=100+2*N-S:RT=1:GOSUB 152
49 P5$="10141312"
50 CC=384:HH=100+3*N:RT=1:P3$="1439":P4$="2678":GOSUB 129
52 CC=384+T:HH=100+3*N-S:RT=0:GOSUB 152
56 C=384:H=100+4*N:P3=2:P4=14:P5=15:GOSUB 230
100 GOTO 280
129 FOR R=0 TO RT
130 GOSUB 281:P5=CN:GOSUB 281:P3=CN
131 GOSUB 281: P4=CN
132 C=CC-R*T:H=HH-R*N/2
133 OC=C+T
136 GOSUB 230
137 IF R=0 THEN 148
138 GOSUB 281:P6=CN
142 FOR I=0 TO N
143 T3=INT(I*.8660+.5)*NN:S3=INT(I/2+.5)
144 LINE OC+T3,KY-S3,OC+T3-T,KY-S3-S,P6
145 LINE OC+T3,KY-S3-1,OC+T3-T,KY-S3-S-1,P6
146 NEXT I
148 NEXT R
149 RETURN
150 L=6
152 FOR R=0 TO RT
153 GOSUB 281:P3=CN
154 GOSUB 281:P4=CN
155 GOSUB 281:P5=CN
156 C=CC+R*T:H=HH-R*N/2
157 OC=C-T
159 GOSUB 230
160 IF R=0 THEN 162
161 P6=VAL(MID$(P3$,R,1))
162 IF R=0 THEN P6=6
163 FOR I=0 TO N
165 T3=INT(I*.8660+.5)*NN:S3=INT(I/2+.5)
166 LINE OC+T3,KY-S3,OC+T3-T,KY-S3-S,P6
167 LINE OC+T3,KY-S3-1,OC+T3-T,KY-S3-S-1,P6
168 NEXT I
170 NEXT R
171 RETURN
230 FOR I = 0 TO N
232 S=INT(N/2+.5):T=INT(S*1.732+.5)*NN
233 S5=2*N+2
235 LINE C,S5-I,C-T,S5-I-S,P3
237 LINE C,S5-I,C+T,S5-I-S,P5
238 T1=INT(I*.8660+.5)*NN:S1=INT(I/2+.5)
239 LINE C+T1,S5-N-S1,C+T1-T,S5-N-S-S1,P4
240 NEXT I
245 I=I-1
247 BOT=726-2*N-H
250 FOR J = 0 TO BOT
255 LINE C,S5+J,C-T,S5-S+J,P3
256 LINE C,S5+J-1,C-T,S5-S+J-1,P3
260 LINE C,S5-N+J,C-T,S5-S-N+J,P4
261 LINE C,S5-N+J-1,C-T,S5-S-N+J-1,P4
265 LINE C,S5+J,C+T,S5-S+J,P5
266 LINE C,S5+J-1,C+T,S5-S+J-1,P5
268 LINE C,S5-N+J,C+T,S5-S-N+J,P4
269 LINE C,S5-N+J-1,C+T,S5-S-N+J-1,P4
271 T2=INT(J*.8660+.5)*NN:S2=INT(J/2+.5)
272 LINE C+T1,S5-N-S1+J-1,C+T1-T,S5-N-S1-S+J-1,0
273 LINE C+T1-T,S5-N-S1+J-S-1,C-T,S5-N-S1+J-1,0
274 KY=KY
275 LINE C+T1,S5-N-S1+J-2,C+T1-T,S5-N-S1-S+J-2,0
276 LINE C+T1-T,S5-N-S1+J-S-2,C-T,S5-N-S1+J-2,0
277 KY=S5-S-N+J
278 NEXT J
279 RETURN
280 GOTO 300
281 CN=CN+1:RED=RND(0)*255:GREEN=RND(0)*255:BLUE=RND(0)*255
282 CSET CN,RED,GREEN,BLUE,255
283 RETURN
290 END
300 MIDE=384:YV=568:S0=N/2+.5:T0=(S0*1.732+.5)*1
305 NX=MIDE:NY=YV-2*N:GOSUB 400
310 NX=MIDE-T0:NY=YV+S0-N:GOSUB 400
315 NX=MIDE-T0*2:NY=YV+N:GOSUB 400
320 NX=MIDE-T0*3:NY=YV+2*N+S0:GOSUB 400
325 NX=MIDE+T0:NY=YV+S0-N:GOSUB 400
330 NX=MIDE+2*T0:NY=YV+N:GOSUB 400
335 NX=MIDE+T0*3:NY=YV+2*N+S0:GOSUB 400
340 NX=MIDE:NY=YV:GOSUB 400
345 NX=MIDE-T0:NY=YV+S0+N:GOSUB 400
350 NX=MIDE+T0:NY=YV+S0+N:GOSUB 400
355 NX=MIDE-2*T0:NY=YV+3*N:GOSUB 400
360 NX=MIDE+2*T0:NY=YV+3*N:GOSUB 400
365 NX=MIDE:NY=YV+2*N:GOSUB 400
370 NX=MIDE-T0:NY=YV+3*N+S0:GOSUB 400
375 NX=MIDE+T0:NY=YV+3*N+S0:GOSUB 400
380 NX=MIDE:NY=YV+4*N:GOSUB 400
390 SLEEP 200:GOTO 390
400 GOSUB 281:A1=CN
402 GOSUB 281:B1=CN
403 GOSUB 281:C1=CN
405 TY=1212
410 FOR I=0 TO N
415 S=N/2:T=(S*1.732+.5)*1:S5=2*N+2
420 LINE NX,TY-S5-I,NX-T,TY-S5-I-S,A1
425 LINE NX,TY-S5-I,NX+T,TY-S5-I-S,C1
430 T1=(I*.8660+.5)*1:S1=(I/2+.5)
435 LINE NX+T1,TY-S5-N-S1,NX+T1-T,TY-S5-N-S-S1,B1
440 NEXT I
441 N=N
445 I=I-1
446 H=NY
450 BOT=TY-H-N-62
455 FOR J=0 TO BOT
460 NT=-1
465 LINE NX,TY-S5-J-NT,NX-T-1,TY-S5-S-J-NT,A1
466 LINE NX,TY-S5-J-NT-1,NX-T-1,TY-S5-S-J-NT-1,A1
470 LINE NX,TY-S5-J-NT-N,NX-T-1,TY-S5-S-J-NT,B1
471 LINE NX,TY-S5-J-NT-N-1,NX-T-1,TY-S5-S-J-NT-1,B1
475 LINE NX,TY-S5-J-NT,NX+T,TY-S5-S-J-NT,C1
476 LINE NX,TY-S5-J-NT-1,NX+T,TY-S5-S-J-NT-1,C1
480 LINE NX,TY-S5-J-N-NT,NX+T,TY-S5-S-J-NT,B1
481 LINE NX,TY-S5-J-N-NT-1,NX+T,TY-S5-S-J-NT-1,B1
485 LINE NX+T1+2,TY-S5-J+S+1,NX-T+T1-1,TY-S5+S+S-J+1,0
486 LINE NX+T1+2,TY-S5-J+S+1-1,NX-T+T1-1,TY-S5+S+S-J,0
490 LINE NX+T1-T+1,TY-S5+S+S-J+1,NX-T-3,TY-S5+S-J+1,0
491 LINE NX+T1-T+1,TY-S5+S+S-J,NX-T-3,TY-S5+S-J,0
492 NEXT J
500 RETURN
510 END


No comments:

Post a Comment