0D?y>ID:\!680D12345o &w103g,79O:104h,0:-15,-15:207,79O:0,-8:-15,-15 '888X,24:15,15:0,20 'C6,13 ;1;6;1;"DAGENS STORMSTARE" '917,14;1;6;"1=INSTRUKTIONER." '918,14;1;6;"2=STARTA SPELET." '919,14;1;6;"3=DEMONSTRATION." '620,14;1;6;"0=SLUTSPELAT!" 't0,0:255,0:0,168:223,175:-223,0:0,-175 ' <t=811 :t,14;1;6;Z$(t):t '  ' SAVE RUTIN 'B0:7:7::'" 'RUN' startar spelet"  &%:%&Xq  'em"" lޓmI>W P P α3ZMף(m1Ve3Zv>>B<|BD>R<BBpBR|B ><BBBB|ZBR<BBBR J><@BFBDBDBF@D @>BBDBB@@@@ B>D@BBFBDBBF b>B@BB@@@B@  @>>B<BPW!] "\ P]" K SR P* * SOLITAIRE av * * Stefan Andersson * * FR JOYSTICK 1-86 * *  MCMLXXXV * *  9500% 0Z$(15,17):Q=8:DEMO=0 DIMENSIONERING *0:7:0::I(15) L=5:O=1 *0,28;" SA " L(15,2) X=115 (I(X)=1  2X 7$SIMULERING AV TOM RUTA <Z=(1+*15) =DEMO=1Z=5 FI(Z)=0 IUTPLAC. AV RUTOR K PX=115 dL(X,1),L(X,2) nX s!KOORDINATER FR RUTOR x13 ,2,13 ,6,13 ,10 ,13 ,14,13 ,18,11 ,4,11 ,8,11 ,12 ,11 ,16,9 ,6,9 ,10 ,9 ,14,7,8,7,12 ,5,10 } 8000@ S P E L DEMO=11000 D"FLYTTA BRICKA NR: ";A$:A$="STOPP"A$="stopp"A$=""9500% D"TILL VILKEN RUTA: ";B$:B$="STOPP"B$="stopp"B$=""9500% aa$<480ůA$>579#1;"OBS BRICK NUMMER 1-15 !!!":.50,-10 :130 aB$<480ůB$>579#1;"OBS BRICK NUMMER 1-15 !!!":.50,-10 :130 a=a$:b=b$ ]a>15b>15#1;"OBS BRICK NUMMER 1-15 !!!":.50,-10 :130 KONTROLL AV DRAG 180 C,D,E A=CB=D205 QC=999#1;"FELAKTIGT DRAG ";A;"-";B:.50,-10 :140 170 GODKNDA DRAG '1,3,2,2,4,3,3,5,4,6,8,7,7,9 ,8,10 ,12 ,11 ,3,1,2,4,2,3,5,3,4,8,6,7,9 ,7,8,12 ,10 ,11 51,10 ,6,6,13 ,10 ,10 ,15,13 ,2,11 ,7,7,14,11 ,3,12 ,8,10 ,1,6,13 ,6,10 ,15,10 ,13 ,11 ,2,7,14,7,11 ,12 ,3,8 S5,12 ,9 ,9 ,14,12 ,12 ,15,14,4,11 ,8,8,13 ,11 ,3,10 ,7,12 ,5,9 ,14,9 ,12 ,15,12 ,14,11 ,4,8,13 ,8,11 ,10 ,3,7,999,999,999 SI(E)=0#1;"FELAKTIGT DRAG ";A;;"-";B:.50,-10 :140 ҲI(A)=1I(B)=0I(E)=1I(A)=0::I(B)=1:I(E)=0:L(A,1),L(A,2)-1;0;" ":L(A,1),L(A,2);0;7;A:L(B,1),L(B,2)-1;7;" ":L(B,1),L(B,2);7;0;B:L(E,1),L(E,2)-1;0;" ":L(E,1),L(E,2);0;7;E:L,23;A;"-";B:L=L+1:.01z# =,39' GI(E)=1#1;"FELAKTIGT DRAG ";A;"-";B:.50,-10 SLUTSPEL  180 C,D,E C=9999100# 7I(C)=1I(D)=0I(E)=1DEMO=1 "3I(C)=1I(D)=0I(E)=1140 , 270 DEMO O=113 "O=1A=12 :B=5 #O=2A=15:B=12 !O=3A=7:B=9 "O=4A=13 :B=8 "O=5A=6:B=13 "O=6A=4:B=11 !O=7A=2:B=4 !O=8A=5:B=3 "O=9 A=9 :B=14 #O=10 A=14:B=7 #O=11 A=3:B=10 #O=12 A=13 :B=6 #O=13 A=1:B=10  157 O ?UTRITNING AV SPELPLAN @*0,28;" SA " Aa180,138:46.,0:0,-130:-46.,0:0,130 B180,138:4,4:46.,0:-4,-4:230,142:0,-130:-4,-4 D20,160:200,0:0,-4:-200,0:0,4:20,160:4,4:200,0:-4,-4:224,164:0,-4:-4,-4 E62,3;1;" S O L I T A I R E " G\0,0:251,0:4,4:-251,0:-4,-4 JX=115 K.01z# =,-1 TcL(X,1),L(X,2)-1;7;" ":L(X,1),L(X,2);7;0;X ^X ccL(Z,1),L(Z,2)-1;0;" ":L(Z,1),L(Z,2);0;7;Z #a=072H16 #("p=7+a135-a32 #).01z# =,1 #2Vp,72H+a:25,0:0,-9 :-25,0:0,9 #3p,72H+a:4,4:25,0:-4,-4:p+29,76L+a:0,-9 :-4,-4 #<p #Fa #K$#1;1;"DEMONSTRATION." #P #RANKING # M=0 #X=115 #I(X)=1M=M+1 #X #+17,0;"ANTAL BRICKOR KVAR:";M # '"RANKAD:"; #%M=11;"STORMSTARE !" #"M=21;"MSTARE !!" #M=3"HALVPROFFS !" #$M=41;" AMAT !!! " #%M51;" NYBRJARE ? " #0,14:169,0:0,26:-169,0:0,-26:0,14+26:4,4:169,0:-4,-4:173,18+26:0,-26:-4,-4 # 9188# #?M2X=115:A,B:B/100d,A+12 :x #7,10 ,7,10 ,7,15,2,15,11 ,10 ,11 ,10 ,11 ,15,7,15,7,10 ,11 ,10 ,14,20,14,10 ,12 ,10 ,11 ,10 ,9 ,25 #SM=1#1;"TRYCK EN TANGENT":1:0:9900&:9235$ #&DEMO=19900&:9235$ #""MATA IN DITT NAMN:"';Z$(q) $ MENYVAL $ 9900& $$Q=Q+1:Q=12 Q=8 $DEMO=0 $eDEMO=0:.01z# =,30:.020{# =,31:.030{u\,32 :=4919600% $=5029 $$=513DEMO=1:9 $=4809999' $" 9235$ %Vz$(15,17):236099\,45-: PROGSTARTSV.BOKST. % 9560X% %&M=13 %0X$ %:N=07 %DX %N X$+N,X %ON %PM %XL"",0,24,60<,66B,126~,66B,66B,0 %bL"",0,36$,60<,66B,126~,66B,66B,0 %lK"",0,36$,60<,66B,66B,66B,60<,0 %v#Q=8:9900&:9235$ %w9900&:9235$ %SPELREGLER %>0:0::0,28;" SA " %20,160:200,0:0,-4:-200,0:0,4:20,160:4,4:200,0:-4,-4:224,164:0,-4:-4,-4 %62,3;1;" S O L I T A I R E " %&4,5;"SPELINSTRUKTIONER" %&5,5;"=" % %8"*SPELET BRJAR MED BRICKOR P"'" ALLA RUTOR UTOM EN." % %;"*HOPPA VER EN AV BRICKORNA"'" NRMAST DEN TOMMA RUTAN." %3" DATORN PLOCKAR BORT BRICKAN"'" DU HOPPAT VER." % %H"*FORTSTT P SAMMA STT."''"*EN BRICKA KVAR=";1;"STORMSTARE." %$:" (STOPP=AVBRYTA P SPEL)" %.::" TRYCK EN TANGENT":1:0 &H 9591w% &PROGRAMVINJETT &1:0: &*0,28;" SA " &6:20,160:200,0:0,-4:-200,0:0,4:20,160:4,4:200,0:-4,-4:224,164:0,-4:-4,-4 &H2,3;1;6;1;" S O L I T A I R E " &E4,0;1;6;" Stefan Andersson  MCMLXXXV " &214,5;6;" " &2x=10 18:x,10 ;6;" ":x &6:40(,64@:15,15:30,0:80P,96`:15,15:8,0:-15,-15:88X,64@:15,15:0,31