Programm1: BallE
01 Go 73
02 CLS:DA 0,2,-1,-1,1,1,26,22
03 DA 9,0,-1,-1,1,1,27,6
04 y=20:x=2:n=17:b=5:l=0:z=20:j=3
05 DA 19,0,-1,-1,1,1,206,19:r=4
06 GOS 52:COL 8:O=0
07 Draw 45,0,45,60
08 DRAW 43,0,43,60:DRAW 44,0,44,60
09 DRAW 42,0,42,60: GCH a,y,x
10 SPR 0,y,x:LIMIT x,2,28
11 if (IN(2)=1)&(M<>15) then x=x+1
12 if (IN(0)=1)&(D<>15) then x=x-1
13 if (IN(7)=1)&(c=0) then s=1
14 if S=1 then y=y-1:NO y-y*6
15 if y<n then c=1:no 102:s=0
16 if c=1 then y=y+1
17 if y=20 then c=0
18 if (a=240)#(a=162) no 255:j=j-1
19 if x>28:x=1:cls:GOS 52
20 if a=27 then gos 42
21 col 7:? @1,1;"LEVEL:";L
22 if p=1 then ? @17,F;%32
23 col 6,1:? @1,22;%27
24 col 7,1:? @1,23;":";O
25 if a=228 no 70:k=1
26 if O>8 then n=16
27 if a=206 bo 255:z=z+1:j=j-1
28 col 6,1:? @1,14;%26
29 col 7,1:? @1,15;":";j
30 if j<0:j=0:wait 1:go 68
31 if k=0 col 12:? @17,h;%228
32 if k=1 col 11,1:? @17,b;%132
33 if a=132 no 180:j=j+1:k=2
34 if k=1 then ? @17,h;%32
35 if k=2 then ? @17,b;%32
36 if l>4 col 5:? @18,z;%206:gos 44
37 GCH w,y+1,x:if w=12:gos 50
38 if l>8 then k=5
39 if O>16 then n=15
40 if O>24 then n=14
41 col 8:SYNC 4: GO 7
42 p=1:O=O+1: for i=100 to 110
43 sync 1:no i:next:ret
44 z=z-1
45 if L>3 then ? @18,z+2;%32
46 if z<0 then z=28:? @18,0;%32
47 for i=2 to 5
48 if L<10 ? @21,i*5;%12
49 next: ret
50 no 255:j=j-1
51 ret
52 p=0:l=l+1:h=rnd(20):b=rnd(20)
53 col 1:fbox 0,0,41,59:r=r+1
54 if l=10 then k=5
55 if l<10 then k=0
56 for i=3 to r:v=rnd(4)+1
57 col 2,1:? @20,i*v;%240;
58 col 4,1:? @19,i*v;%162;
59 next:f=rnd(28):limit f,4,22
60 if p=0 col 6,1:? @17,f;%27
61 col 7:for i=1 to 4
62 ? @3,i*6;%136;%137
63 ? @4,i*6-1;%136;%143;%143;%137
64 next: for i=1 to 4
65 ? @6,i*8;%136;%137
66 ? @7,i*8-1;%136;%143;%143;%137
67 next:z=rnd(15)+10:ret
68 g=xpeek(10):? @12,9;"GAME OVER"
69 if O<g col 1,0:wait 8:go 71
70 xpoke 10,O:color 1,0:wait 8
71 y=20:x=2:n=17:b=5:l=0:z=20:j=3
72
73 da 31,75,2,85,4,90,2,127,4
74 play 31,5,3,128
75 cls:a=0
76 col 1,0:b=rnd(40):limit b,25,28
77 sync 4:a=a+1:if a=10 then a=0
78 frame 9,4,11,23
79 col 14,0:? @1,4!66;"Ball E."
80 ? @7,6;"The golden coins ";%27
81 ? @7,4;%27:col a*3:u=xpeek(10)
82 if a>5 ? @17,8;"            "
83 if a<5 ? @17,8;"Press START!"
84 if IN(3)=1 play 0,0,0,0:Go 2
85 if in(7)=1 xpoke 10,0
86 col 9,0:box 1,2,17,53:col 7,0
87 ? @21,5;"(C) 2012 D.Kristen"
88 col 2:m=xpeek(15)
89 ? @14,4;"Button UP to clear HS"
90 col 7,0:? @10,8;"Highscore:";u
91 col 7:? @12,8;"Last Score:";O
92 c=c+10:if c>90 then c=70
93 d=rnd(100):limit d,78,90
94 da 31,c,2,d,4,90,2,85,4,127,4
95 goto 76
#