flippit  T"flippit"10  j4;3,9 ;" ";4,9 ;" ";5,9 ;" " 29 ,1;"1983 Leslie George Hartridge" # 7000X & 150 (:a=220:1 2K2,a;"";20,a;"";a,2;"";a,20;"":a:0 0,0;"SHUFFLING ":4 =""180 ""240 !ta=0:c$(9 ,5) #n=19 :c$(n)=b$(n):n #n=19 :b$(n)=c$(n):n 50,0;"DISPLAY DOTS OR FIGURES ? D or F" "=""280 , o$=:o$"d"o$"f"280 6Bmo=-1:0,0;" " ; 0,12 ;"TARGET ";ta @n=19 J 6000p D 4000 I.3,n-2 Nn X j=0 ]mo=mo+1 bn=173 lx=b$(n)(1)+b$(n)(2)+b$(n+1)(1)+b$(n+1)(2)+b$(n+2)(1)+b$(n+2)(2) vjx>9 1+2*n,21;x-9 ;5+2*n,21;7;2;x-9 jx<9 5+2*n,21;9 -x;1+2*n,21;7;2;9 -x Yx=9 1+2*n,21;" ";5+2*n,21;" ":j=j+1 n ae=b$(1)(1)+b$(1)(4)+b$(5)(1)+b$(5)(4)+b$(9 )(1)+b$(9 )(4) +ae>9 21,21;ae-9 =ae<9 21,21;7;2;9 -ae 1ae=9 21,21;" ":j=j+1 n=31-1 Ѓx=b$(n)(2)+b$(n)(4)+b$(n+3)(2)+b$(n+3)(4)+b$(n+6)(2)+b$(n+6)(4) jx>9 21,1+6*n;x-9 ;21,6*n-3;7;2;x-9 jx<9 21,6*n-3;9 -x;21,1+6*n;7;2;9 -x =x=9 21,6*n-3;" ":j=j+1 n ce=b$(3)(2)+b$(3)(3)+b$(5)(2)+b$(5)(3)+b$(7)(2)+b$(7)(3)  *ce>9 21,1;ce-9 <ce<9 21,1;7;2;9 -ce  0ce=9 21,1;" ":j=j+1 *0,2;"MOVES ";mo 4j81000 > z=2 Hn=19 R 3500 \ 4000 zn U1,24;"You ARE";3,24;"flippin";5,24;"clever!"  4500 )n=17:.05|L,20+n  ta>mon n =""923 l$= l$"l"l$"w"923  5500| l$="l"10 ta=0ta>mota=mo m=3183 n=3183 m,n;" ";m+1,n;" " n m 7:270 g1,25;"ALTER";3,26;"ABC";4,26;"DEF";5,26;"GHI"  4500  .15~,8 g$="abcdefghiwlmkprstu" =""1050 $x$= .""1070. 8n=111 Bx$=g$(n)o=n:1120` Ln V 1050 ` 5000 jo9 3+((o-1)/3),26+3*((o-1)/3-((o-1)/3));1;1;" " ~o1,25;"SWOP ";7,25;"TURN";9 ,26;"*M";10 ,26;"KP" O12 ,25;"FLIP";14,26;"RS";15,26;"TU" =""1170 y$= ""1180 n=118 y$=g$(n)v=n:1220 n  1170  5000 v<10 2000 %v>11 (3000 +10 *v)  5500|  600X !w$=b$(o):b$(o)=b$(v):b$(v)=w$ n=o:6000p n=v:6000p  0Lw$=b$(o)(3)+b$(o)(1)+b$(o)(4)+b$(o)(2):3200 :Lw$=b$(o)(2)+b$(o)(4)+b$(o)(1)+b$(o)(3):3200 DLw$=b$(o)(4)+b$(o)(3)+b$(o)(2)+b$(o)(1):3200 NLw$=b$(o)(1)+b$(o)(3)+b$(o)(2)+b$(o)(4):3200 XLw$=b$(o)(2)+b$(o)(1)+b$(o)(4)+b$(o)(3):3200 bLw$=b$(o)(3)+b$(o)(4)+b$(o)(1)+b$(o)(2):3200 lLw$=b$(o)(4)+b$(o)(2)+b$(o)(3)+b$(o)(1):3200 b$(o)(14)=w$ n=o 6000p  *y=a$(n)(2):x=a$(n)(4): Sm=12:y,x-m;z;" ";y,x+m;" ";y-m,x;" ";y+m,x;" " m: u17,24;"NEW RUN";18,27;"L";20,25;"RERUN";21,27;"W": #n=10 5500|:270 "n=11 5500|:10  |0n=121:n,24;" ":n: pz=b$(n)(5) z 3500 o$="f"6240` q=b$(n)(1) %q>1y-2,x-2;"" %q<2y-2,x-2;" " /q=1q=3y-1,x-1;"" /q=0q=2y-1,x-1;" " q=b$(n)(2) %q>1y-2,x+2;"" %q<2y-2,x+2;" " /q=1q=3y-1,x+1;"" /q=0q=2y-1,x+1;" " q=b$(n)(3) %q>1y+2,x-2;"" %q<2y+2,x-2;" " /q=1q=3y+1,x-1;"" /q=0q=2y+1,x-1;" " $q=b$(n)(4) .%q>1y+2,x+2;"" 8%q<2y+2,x+2;" " B/q=1q=3y+1,x+1;"" L/q=0q=2y+1,x+1;" " Vo$="d"6270~ `Iy-2,x-2;b$(n)(1);y-2,x+2;b$(n)(2) jey-1,x-1;" ";y-1,x+1;" ";y+1,x-1;" ";y+1,x+1;" " tIy+2,x-2;b$(n)(3);y+2,x+2;b$(n)(4) ~ 4000  X13 ,9 ;"" b14,8;"";15,7;"";16,7;"";17,7;"";18,8;"";19,9 ;"" lg4;14,9 ;" ";15,8;" ";15,11 ;" ";16,8;" " vq4;16,12 ;" PERANTO";17,8;" ";17,11 ;" ";18,9 ;" " u14,12 ;" ";15,13 ;"";17,13 ;"";18,12 ;""  1 Z79O,568:0,-8:-8,0:0,-8:8,0 E0,-8:8,0:0,8:8,0 F0,8:-8,0:0,8:-8,0  0 Z81Q,33!:0,21:5,0:0,-1:-4,0 G0,-9 :4,0:0,-1:-4,0 G0,-9 :4,0:0,-1:-4,0 .16,9 ;"L";16,11 ;"Z"