ZXTape!Seven Up g gDi 430 Ia=0:i=9 :p=0:t=1:0:0:7: /n=1921:n,0;0,,:n (n=189 -1:n,5;7;6;" ";n,14;" ";n,23;" ";n,0;0;" ";n,8;" ";n,17;" ";n,26;" ":n 2]19,5;6;0;"";19,14;"";19,23;"" 570::6,8;"Tube is empty!":.1}L,12 :.1}L,36$:n=1150:n:.2~L,12 :90Z n=12 18 S(n,a)=15q$="1":n,a;7;" ":x=n:y=a:s$=q$:p=1:290" S(n,a)=23q$="2":n,a;7;" ":x=n:y=a:s$=q$:p=2:290" S(n,a)=31q$="3":n,a;7;" ":x=n:y=a:s$=q$:p=3:290" S(n,a)=32 q$="4":n,a;7;" ":x=n:y=a:s$=q$:p=4:290" S(n,a)=40(q$="5":n,a;7;" ":x=n:y=a:s$=q$:p=5:290" S(n,a)=480q$="6":n,a;7;" ":x=n:y=a:s$=q$:p=6:290" S(n,a)=568q$="7":n,a;7;" ":x=n:y=a:s$=q$:p=7:290" n "0570::6,8;"Into which tube?" ,B21,2;7;"The number being moved is ";p;i;q$ 6 0 @a$= J!a$"1"a$"2"a$"3"320@ Ta$="1"a=6 ^a$="2"a=15 ha$="3"a=24 r421,2;" " |gf=1812 -1:(f,a)62>f,a;i;p;q$:.02{# =,44,:400:90Z f (f+1,a)=6 (f,a)>(f+1,a).2~L,12 :.2~L,36$:570::6,0;"You tried to put a larger number on top of a smaller one!":o=1200:o:.2~L,12 :f,a;7;" ":x,y;p;i;s$:n=n+1  6:0:6: "2,10 ;"""SEVEN UP""" ³''"The aim of the puzzle is to move"''" all the numbers from the centre"''" tube to either of the outer"''" tubes without putting a larger"''" number on top of a smaller one." f'"You should then have the column"''" of numbers in the same order"''" but in a different tube." 8#0;0,3;"Press Any Key To Continue."  0: (12 ,6)=15ƫ(13 ,6)=23ƫ(14,6)=31ƫ(15,6)=32 ƫ(16,6)=40(ƫ(17,6)=480ƫ(18,6)=568n=1150:n::520 (12 ,24)=15ƫ(13 ,24)=23ƫ(14,24)=31ƫ(15,24)=32 ƫ(16,24)=40(ƫ(17,24)=480ƫ(18,24)=568n=1150:n::520  `6:0:6::10 ,11 ;"Well Done!"''" You did it in ";t;" moves." 621,0;"Would you like another go (Y/N)?"  0 &="n"Ŧ="N"10000' 0 :5,0,,,,,,: