~~dPICKUP n 1100L x" PICKUP STICKS" #T=4:1400x:2800 S=21:L=7 2800 :: Z$=(S) "TOTAL IS ";Z$ T=1:1400x :"YOUR GO "; 21004 K>L 150 K0 280 K>S 150 S=S-K S>0 330J S=0 300, S=S+K ":"SILLY":1400x:150 ""T=2:1400x:410 ,:"YOU TOOK LAST STICK" 6:"YOU LOSE !!" @ 500 J Z$=(S) T:"TOTAL IS ";Z$ ^T=1:1400x hS1 400 r:"I HAVE TO TAKE " |:"LAST STICK" :"YOU WIN !!":500 KR=S-((S-1)/(L+1))*(L+1)-1:R>0 420 *N=S-1:1300:R>L 410  Z$=(R) :"I TAKE AWAY ";Z$ S=S-R   Z$=(S) "TOTAL IS ";Z$ #T=3:1400x:2800  150  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$):