PROGRAM:SkinnyVaders
01 DA 10,0,0,24,24,36,36,64,64,64,0
02 DA 20,0,40,68,128,236,128,40,108
03 DA 28,196,0,0,40,68,128,236,128
04 DA 36,108,196,108,0,0,0,236,128
05 DA 44,236,68,40,108,196,0,0,108
06 DA 52,40,68,236,128,236,40,108,0
07 DA 60,0,0,24,36,124,64,36,60,100
08 DA 69,0,0,0,24,36,124,64,60,100
09 DA 78,60,0,0,0,4,8,16,60,64,36
10 DA 88,24,0,0,0,160,144,136,252
11 DA 96,128,36,24,0,0,48,24,12,24
12 DA 105,48,24,12,24,48
13 VM 4:FOR A=1TO 10:FOR B=0TO 9
14 C=A*10+B:D=1448+A+(B*128)
15 VP D,AR(C):NEXT :NEXT :G=3:S=0
16 DA 110,0,-1,-1,1,1,"*",$80
17 DA 120,0,-1,-1,1,1,1,$86
18 DA 130,0,-1,-1,1,1,10,$86
19 DA 140,0,-1,-1,1,1,"!",$86
20 DA 150,2,-1,-1,1,2,8,9,$82,$82
21 DA 165,11,4,9,4,7,4,5,4
22 DA 175,19,1,19,1,19,1,144,4
23 DA 185,117,1,114,1,117,1,116,1
24 F=0:J=0:IF EPEEK(5)<128:GO 26
25 EPOKE 4,0:EPOKE 5,0
26 K=1:O=EPEEK(4)+256*EPEEK(5)
27 COL 7,0:? @0,13;!10;O
28 FOR A=1TO 19:SCROLL 2:NEXT
29 M=-1:N=-1:X=3:Y=-1:D=1:U=54:W=12
30 FOR A=0TO 4:L=A*2+2:COL L/4+3,0
31 C=6-A:FOR B=0TO 10:P=B*2+2
32 ? @L,P;%C;%0:NEXT :NEXT :WAIT 10
33 IF S>989:SCROLL 2:SCROLL 2
34 IF S>1979:SCROLL 2:SCROLL 2
35 T=0:COL 7,0:FOR A=0TO 3:P=A*6+4
36 ? @21,P;%15;%15;%15;%15:NEXT
37 ? @0,23;%1;G:PLAY 165,4,W,128
38 ? @0,3;!10;S:IF T>U:T=0:GO 76
39 SPR 120,22,X:IF AR(120)=0:GO 43
40 DA 120,0:DA 127,0:? @22,X;%16
41 G=G-1:? @0,24;G:IF G<1:GO 91
42 NO 191:WAIT 10:X=3:GO 37
43 X=X+KEY(6):SYNC 3
44 LIM X,3,26:IF M>0:Y=Y-1:GO 46
45 IF KEY(4)=-1:M=X:Y=21:NO 63
46 R=20:T=T+1:IF Y<1:Y=-1:M=-1
47 SPR 140,Y,M:IF AR(140)=0:GO 58
48 DA 140,0:GCH H,Y,M:? @Y,M;%16
49 DA 147,0:Y=-1:M=-1:H=H/2*10
50 DA 193,43,1,40,1:IF H>40:GO 58
51 IF H<40:NO 62:U=U-1:GO 55
52 H=(RND(6)+1)*50:PLAY 193,2,10,4
53 F=-1:V=0:SPR 150,-1,-1
54 ? @1,26;!5;H
55 LIM H,10,300:S=S+H:IF K=0:GO 58
56 DA 0,45,2:IF S<1500:GO 58
57 G=G+K:K=0:? @0,24;G:PLAY 0,1,4,6
58 IF U<0:PLAY 175,4,12,1:GO 28
59 Q=RND(24)+3:IF N>0:Z=Z+1:GO 64
60 GCH H,R,Q:IF H<2:GO 62
61 IF H<7:N=Q:Z=R+1:GO 64
62 R=R-1:IF R<2:R=20:Z=-1:GO 64
63 GO 60
64 IF Z>22:Z=-1:N=-1
65 SPR 130,Z,N:IF AR(130)=0:GO 68
66 DA 130,0:GCH H,Z,N:? @Z,N;%16
67 DA 137,0:Z=-1:N=-1:IF H=1:GO 41
68 IF F>0:F=F+V:DA 159,0,0:GO 72
69 V=RND(1000)-1:IF V>1:V=0
70 IF V=0:SPR 150,-1,-1:GO 38
71 PLAY 185,4,6,10:F=2:IF V<0:F=56
72 IF F<2:F=-1:V=0:SPR 150,-1,-1
73 IF F>56:F=-1:V=0:SPR 150,-1,-1
74 IF F>0:SPR 150,1,F/2
75 GO 38
76 IF PSTAT(255)=0:PLAY 165,4,W,128
77 SPR 130,-1,-1
78 SPR 140,-1,-1:IF D>1:GO 84
79 SCROLL (2-D):E=2:IF D=1:E=27
80 J=J+1:IF J>25:J=0:U=-1:GO 58
81 FOR A=2TO 22:SPR 110,A,E
82 NEXT :IF AR(110)=0:GO 38
83 DA 110,0:D=D*-1+3:GO 38
84 FOR A=2TO 29:SPR 110,20,A:NEXT
85 J=0:IF AR(110)>0:GO 89
86 SCROLL 2:D=D-3:W=U/5+2
87 IF F>0:GO 38
88 GO 37
89 FOR A=2 TO 27:GCH H,20,A:COL 6,0
90 ? @22,A;%H:NEXT :SCROLL 2:NO 191
91 IF S>O:EP 4,LO(S):EP 5,HI(S)
92 COL 7,0:? @10,10;"GAME OVER"
93 ? @21,9;"PRESS ENTER":H=PSTAT(0)
94 WAIT 10:IF KEY(0)=234:GO 1
95 GO 94:'@jbretro.com 2025
#