A200:20: == SOLITAIRE == V$(6,6):DM0:XO3:YO3 T$"Druecke eine Taste":CO$"32" S$"S = beenden"  100!$:%!." S O L I T A I R E"+!89!B:"MENU"V!L:" 1 = SPIELREGEL"p!V:" 2 = SPIELEN"!`:" 3 = DEMONSTRATION"!j:" 4 = STOPPEN"!t:" 1,2,3 of 4";!~210!IN49 5020:1000!IN50 1220"IN51 DM1:1220#"IN52 950-"11503"<"600Z" === TEKEN SPEELBORD ===c"CN0y"HO.4 .63 .075"VE.1:620:VE.8:630"HO"HO.25 .78 .075" VE.3:620:VE.6:630"HO"VE.3 .6 .1#(HO.25:620:HO.775:630 #2VE #<VE.1 .81 .1<#FHO.4:620:HO.625:630D#PVEU#ZHO.05:VE.9r#dDM1 SR$T$:650:1410#nSR$S$:650#x === ARRAY VULLEN ===#X0 6:Y2 4#V$(X,Y)"*":Y:X#X2 4:Y0 6#V$(X,Y)"*":Y:X$V$(3,3)" " $ === SPEELBORD VULLEN ===4$X0 6:Y0 6R$HO.27X.075:VE.14Y.1q$V$(X,Y)"*" SR$"*":650{$Y:X$X3:Y3:3020$$ *** HET SPEELPROGRAMMA ***$$ === TOETSINVOER ===$DM1 6010:1000%210::2070:2050$%  === ANALYSE TOETSINVOER ===-%QING% (Q27)(Q32) 2510\%*IN$" " 3130q%4IN83 1000: Sw%>% === PIJLTOETSEN ===% RQ27:R 2530,2570,2610,2650% % (X2)((Y2)(Y4))% X0 % XX1:3020:% & (X4)((Y2)(Y4)) & X6 2& XX1:3020:8&( S&2 (Y4)((X2)(X4))_&< Y6 q&F YY1:3020:w&P &Z (Y2)((X2)(X4))&d Y0 &n YY1:3020:& & === VERPLAATS DE CURSOR ===& CN1:PXO:QYO:3060' CN0:PX:QY:3060' XOX:YOY' A' HO.264P.075:VE.121Q.1:620Y' HO.312P.075:630o' VE.185Q.1:630' HO.264P.075:630' VE.121Q.1:630'& '0 === NA SPATIE SLAAN ===': 210:QIN'D (Q28)(Q31)'N V$(X,Y)"*" (X QQ27 (b Q 3190,3290,3390,3490&(l 2(v X2 I( V$(X1,Y)"*" `( V$(X2,Y)" " v( V$(X,Y)" ":3600( XX1:3020( V$(X,Y)" ":3600( XX1:3020( V$(X,Y)"*":3600( 3570( ( X4 ( V$(X1,Y)"*" ) V$(X2,Y)" " ") V$(X,Y)" ":36002) XX1:3020H) V$(X,Y)" ":3600X) XX1:3020n) V$(X,Y)"*":3600x)* 3570~)4 )> Y4 )H V$(X,Y1)"*" )R V$(X,Y2)" " )\ V$(X,Y)" ":3600)f YY1:3020)p V$(X,Y)" ":3600*z YY1:3020* V$(X,Y)"*":3600$* 3570** 6* Y2 M* V$(X,Y1)"*" d* V$(X,Y2)" " z* V$(X,Y)" ":3600* YY1:3020* V$(X,Y)" ":3600* YY1:3020* V$(X,Y)"*":3600* 4020:* * === WERK HET BORD BIJ ===+HO.27X.075:VE.14Y.1,+CN1:SR$"*":650F+$CN0:SR$V$(X,Y):650L+.R+q+ === HOE IS DE STAND? ===+C0:M0 6:N0 6+V$(M,N)"*" CC1+N:M+SRC:300:C$SR$+HO.05:VE.02:CN1:SR$"NOCH "CO$:650,CN0:CO$C$:C1 4160,DM0 4100L,SR$"FERTIG! NUN SELBST PROBIEREN...":650:4110{,SR$"Das ist geglueckt! GRATULATION!":650,HO.05:VE.9:CN1:SR$T$:650,SR$S$:650,"CN0:SR$"DRUECKE RETURN":650,,210:IN13 4140,61000 -@SR$"NOCH "C$:650:-+- === INSTRUCTIES ===4-100c-:"Durch ueberspringen der Sterne werden"-:"diese entfernt. Ziel ist es, dass nur"-:"ein Stern (in der Mitte) uebrigbleibt."-:"Die Absprungposition erreicht man mit"$.:"den Cursortasten, dann Leertaste druecken"D.:" =Sprungbereitschaft"t.:"und durch Cursor-Taste die gewuenschte".:"Sprungrichtung festlegen.".:"Falsche *Zuege* werden vom Computer".:" verweigert."/ :" VIEL SPASS !"#/:"---> TASTE DRUECKEN";./210:H/p ===DEMONSTRATIE ===Y/zD1 31:A$r/X$(A$,1,1):X(X$)/Y$(A$,2,1):Y(Y$)/3020:210/Q$(A$,3,1):Q(Q$)/3170:210/D:1000/a"313","521","444","464","262"0a"631","433","464","322","621"80a"413","433","641","454","122"[0a"203","401","321","022","234"~0a"203","254","223","032","233"0a"042","254","331","354","431"0a"132"0}0 } GEMAAKT OP EEN BBC COMPUTER0} DOOR0}0(} Ch.W. Brederode12} Lisse / Niederlande1<}61d} TROS RADIO dd 870923<1n}]1x} Erstausstrahlung Radio DDRj1} 891115.W. Breder