d PYRAMID n X(10 ) x 1100L N=0:C=9 L=1 10 A=C C+N 2 X=A:Y=L:1700:"* " A C=C-1 N=N+2 L 6X=0:Y=14:1700:"ENTER 10 DIGITS" N=1 10 81500:K$=G$:P=1:2700 :Y=A-480 "Y<0 Y>9 230 X(N)=Y 2X=2*N-2:Y=10 :1700:G$; N 7X=0:Y=14:1700:"PRESS S TO START" "1500:G$"S"290" ,L=9 1 -1 6T=2:1400x @N=1 L JX(N)=X(N)+X(N+1) T3X(N)>9 X(N)=X(N)-9 *(X(N)/10 ) ^0X=8-L+2*N:Y=L:1700:;X(N); hN rL |#X=0:Y=14:1700 !"THE END RESULT IS ";X(1)  SPECTRUM SUBROUTINES L1W=32 :D=22:F=8:1200: :8,0;: R=(N*+1): xZ=1 200*T:Z: ""1500 =""1510 G$=: @K$=:  Y,X;:  (X);: l(11 );: (9 );: 42200:K=("0"+K$): K$="" !1500:(G$)=13 : ,(G$)12 K$=K$+G$:G$;:2210 (K$)=0 2210 @(8);" ";(8);:K$=K$( ̱(K$)-1):2210 : `.1}L,Z/10 -6: R$=(R+64@): ( P$=K$(P): 2600( :A=(P$): : TV$(26): W$(60<,26):  GG=(G$): }