topnotch 4 TOP NOTCH SU SEPT85'  STEVE MOVATT  s:23658j\,8:4:1::2200:2000:1700:1900l:1950:2300  1600@ 1800:2700 # 1000 'az alapadatok beolvasasa (|g=113 :t=1p:2800 :21004:1400x:c=13:2600( :2450 :2500 -c=3110n 2!1300:a=6502 <a=32 100d F"a=13 c=3:110n P2400` :502 d2460 :c ny2500 :2460 :2470 :a:2460 :a>13 a<1s(t,a+(3*(a>6)))0110n x~3000 :2480 :0:2460 :t:g:t=1p:1500:2800 :21004:1400x:300,:t }%n=1p:n$(n),s(n,19):n !p=1s=1:150 Z s=1: n=1  p-1: s(n,19)h$(1)h$(1)=s(s,19):h$(2)=n$(s) H"legtobb pontot elert:";h$(1):"utana:";h$(2):"Uj jatek?" ="N"9999' "I"170 1800:35# a jatekasztal l:1050:n=220:z$:7;n,14;z$:n:1060$:n=220:z$:5;n,26;z$:n:1070.:n=220:z$:6;n,12 ;z$:n:n=220:7;n,28;" ":n:10808:n=15:w,x,y,z:w,x:y,z:n:n=1608-8:96`,n:152,0:n: " egyes "," kettes "," harmas "," negyes "," otos "," hatos "," osszes "," jutalom "," EGESZ "," harom egyf."," negy egyf. "," telt haz "," kis sor. "," nagy sor. "," szerencse p"," POKER "," osszeg "," telj.osszeg"," mind egyutt" $`"*1","*2","*3","*4","*5","*6"," ","50"," ","FV","FV","25","35","45","FV","50"," "," "," " .`" 1"," 2"," 3"," 4"," 5"," 6"," "," "," "," 7"," 8"," 9","10","11","12","13"," "," "," " 896`,160,0,-152,112p,160,0,-152,208,160,0,-152,224,160,0,-152,248,160,0,-152 Lkocka megjelenites Qn=15:1110V+d(n,2):x,y,z:1;7;2;n*5-(n+3),1;g$(x);n*5-(n+2),1;g$(y);n*5-(n+1),1;g$(z):n: W1,4,1 X2,1,5 Y2,4,5 Z3,1,3 [3,4,3 \3,3,3 dobom a kockakat .n=15:d(n,1)=0n: Dd(n,2)=(-1*(((+.55 )*5.50)-2)):N:  gombnyomas ""1305 Aa=:(a<491a32 a13 )a>5461310 #;a13 a32 a=a-480:.05|L,25: (*.05|L,25:.05|L,25: x a pontok }:n=119:s(t,n)=0a$=" ":1420 )s(t,n)=9999'a$=" - ":1420  a$=s(t,n) /1;n+1,28;7;a$:n: a teljes eredmeny =s=0:n=16:s(t,n)9999's=s+s(t,n) 6n:s(t,7)=s:s62>s(t,8)=502 s(t,9 )=s(t,7)+s(t,8):s(t,18)=s(t,9 ):s=0:n=10 16:s(t,n)9999's=s+s(t,n) An:s(t,17)=s:s(t,19)=s(t,17)+s(t,18): @a jatekosok szama EU:21,0;"Hany jatekos lesz? (max 6)":1300:a>61600@ J :p=a:  magyarazat :"Ez a jatek"  jatekosok a tomb-ben  !s(p,19):n$(p,10 ): lkockak a memoriaban qd(5,2):  kockadobas >n=15:d(n,1)=1:d(n,2)=n:n: legtobb pont )h$(2,10 ):h$(1)="0": 4a ponttabla torles 95n=220:n,28;7;"__":n: UDG definialasa 92210:n=023:z:144+n,z:n: 128,128,128,128,128,128,128,255,1,1,1,1,1,1,1,255,255,231,195,129,129,195,231,255 kocka grafika @g$(5,3):2320 :n=15:g$(n):n: "","","","","" `dobas e\0;7;1;a*5-(a+2),5;"Tartom":d(a,1)=0: kocka valasztas H21,0;7;0;"Valaszd ki,melyiket tartod meg": kiiras torles a 21-sorban 821,0;" ": pontvalasztas ?21,0;0;7;"Hova irjam be(1-13) ?": a kovetkezo jatekos A21,0;0;7;"Kovetkezo jatekos,nyomj": kijeloles torles `n=15:4;n*5-(n+2),5;" ":d(n,1)=1:n: (gurul a kocka -0a=18:1200:1100L:a: a jatekos hivasa *n=1p:;(n);".JATEKOS ";n$(n):n: kiirom a jatekos nevet -0,12 ;3;7;n$(t): szamolom a pontokat (3000 +(a*100d):3010 : &s(t,a)=0a$=" ":3025 )s(t,a)=9999'a$=" - ":3025 a$=s(t,a) 5a+1,28;0;7;1;a$: egyes kocka kettes kocka harmas kocka Hnegyes kocka otos kocka hatos kocka ]5000:co=5s(t,16)=502d(1,2)=as(t,a)=co*a+100d: Lco=5s(t,16)=502d(1,2)as(t,a)=100d: 8co=0:n=15:d(n,2)=aco=co+a $n:co=0co=9999' ) s(t,a)=co: tharom egyforma negy egyforma ݅a=a+3:s=0:n=15:s=d(n,2)+s:n:5000:co=5s(t,16)=502s(t,a)=s+100d: kn=13-(a=11 ):co=1:m=n+15:d(n,2)=d(m,2)co=co+1 'm:co3+(a=8)s(t,a)=s: n:s(t,a)=9999': < telt haz APa=a+3:5000:co=5s(t,16)=502s(t,a)=125}: F!co=5 s(t,a)=125}: K,co<2co>3s(t,a)=9999': P8n= 25:d(1,2)=d(n,2)n UHs=1:m=n+15:d(n,2)=d(m,2)s=s+1 Z&m:s+co5s(t,a)=9999': _s(t,a)=25:  kis sorozat ?4100:(s(t,a)=9999'co3)s(t,a)=100d Nn=34:m=15:d(m,2)nm:s(t,a)=9999': n En=12:m=15:d(m,2)nm:4030 n:s(t,a)=35#: En=56:m=15:d(m,2)nm:4040 n:s(t,a)=35#: Nn=25:m=15:d(m,2)nm:s(t,a)=9999': n:s(t,a)=35#: nagy sorozat  Pa=a+3:5000:co=5s(t,16)=502s(t,a)=100d: !co2s(t,a)=9999': s=0:n=25:m=15:s=s+1*(d(m,2)=1d(m,2)=6):d(m,2)nm:s(t,a)=9999' !n:s0s(t,a)=45-: s(t,a)=9999': hszerencse pont ma=a+3:s=0:n=15:s=s+d(n,2):n:5000:co=5s(t,16)=502s(t,a)=100d+s: r s(t,a)=s: POKER Ga=a+3:5000:co=5s(t,a)=0s(t,a)=502: s(t,a)=9999': Oco=1:n=25:d(n,2)=d(1,2)co=co+1 n: z 134 LACIKA 7- pwxy (((sd Z A