Aktualności ze świata Atari

mono · 2024-03-29 19:02:47

mono
Starszy Atarowiec
Nieaktywny

Skąd: inąd
Zarejestrowany: 2007-08-20
Posty: 2,900

Temat: Prima Aprilis Compo 2024

Jako że ostatnio zaczęliśmy z dużym opóźnieniem, latoś wystartujmy z dużym zapasem.

Zasady jak łońskiego roku:
1. Atari BASIC (uruchamiać można w dowolnym np. Turbo BASIC XL żeby było szybciej).
2. Można, a nawet TRZEBA dopisywać swoje linie.
3. Przenosić, usuwać, lub modyfikować linie można ale bez szkody dla funkcjonalności zaimplementowanej przez innych uczestników (poprawki ewentualnych bugów mile widziane).
4. Wszystko kończy się 2 IV 2024 CEST o godzinie 0:00.
5. Nagrodą jest przednia zabawa i satysfakcja, że odwaliło się kawał dobrej, nikomu niepotrzebnej roboty.

UWAGA! Pamiętać należy, że w Niedzielę Wielkanocną czyli 31 III przestawiamy zegarki godzinę wprzód!

Zatem Prima Aprilis Compo Roku Pańskiego 2024 czas zacząć!

32760 REM --
32761 REM PRIMA APRILIS COMPO 2024 BY
32762 REM MONO

Ostatnio edytowany przez mono (2024-03-29 19:04:49)

Post's attachments

PA2024.LST 66 b, liczba pobrań: 5 (od 2024-03-29)

Tylko zalogowani mogą pobierać załączniki.

hex, code and ror'n'rol
niewiedza buduje, wiedza rujnuje

Adam Klobukowski · 2024-03-30 09:47:58

Adam Klobukowski
Moderator
Nieaktywny

Skąd: Trollmiasto
Zarejestrowany: 2002-03-10
Posty: 5,907

Odp: Prima Aprilis Compo 2024

32760 REM --
32761 REM PRIMA APRILIS COMPO 2024 BY
32762 REM MONO
1 GRAPHICS 9

Atari: FireBee, (Falcon030 CT60e SuperVidel SvEthlana CTPCI), TT, (520ST Pak030 Frak PuPla Panther), (520ST 4MB ST RAM 8MB TT RAM CosmosEx SC1435), (1040STFM UltraSatan SM124), (1040STE 4MB ST RAM 8MB TT RAM CosmosEx NetUSBee SM144 SC1224), 260ST, 520 ST+, (MEGA ST SM125), (65XE Rapidus U1MB VBXE SIDE2 SIO2PC), (Jaguar SkunkBoard), Lynx II, 2x Portfolio

seban · 2024-03-30 11:15:08

seban
Starszy Atarowiec
Nieaktywny

Skąd: -oo
Zarejestrowany: 2002-07-13
Posty: 2,988

Odp: Prima Aprilis Compo 2024

1 GRAPHICS 9: REM -- set the mode by Adam K.
10 REM -- let's start by Seban/Slt --
11 DL=PEEK(560)+256*PEEK(561)
12 FOR I=1536 TO 1548:READ A:POKE I,A:NEXT I:POKE DL+134,143:POKE 512,0:POKE 513,6:POKE 54286,192
13 FOR Y=128 TO 191
14 COLOR Y/4:PLOT 0,Y:DRAWTO 79,Y
15 R=RND(0)*79: COLOR R
16 PLOT R,RND(0)*127
17 NEXT Y
18 FOR X=60 TO 76
19 COLOR X+3:PLOT X/1.5,128:DRAWTO X,191
20 NEXT X
21 FOR X=0 TO 31
22 COLOR X/2:PLOT 30,12:DRAWTO X+14,51:DRAWTO 30,91
23 NEXT X
24 DATA 72,169,192,141,27,208,169,4,141,26,208,104,64
25 REM -- end of let's start --
32759 GOTO 32759
32760 REM --
32761 REM PRIMA APRILIS COMPO 2024 BY
32762 REM MONO
32763 REM Adam Klobukowski
32764 REM Seban/Slt

Ostatnio edytowany przez seban (2024-03-30 11:17:11)

GitHUB: https://github.com/seban-slt

Mq · 2024-03-30 11:55:54

Mq
Starszy Atarowiec
Nieaktywny

Skąd: Poznań
Zarejestrowany: 2016-10-13
Posty: 2,927

Odp: Prima Aprilis Compo 2024

Dodajmy udźwiękowienie science fiction:-)

1 GRAPHICS 9: REM -- set the mode by Adam K.
10 REM -- let's start by Seban/Slt -- +sound by Mq
11 DL=PEEK(560)+256*PEEK(561)
12 FOR I=1536 TO 1548:READ A:POKE I,A:NEXT I:POKE DL+134,143:POKE 512,0:POKE 513,6:POKE 54286,192
13 FOR Y=128 TO 191
14 COLOR Y/4:PLOT 0,Y:DRAWTO 79,Y
15 R=RND(0)*79: COLOR R
16 PLOT R,RND(0)*127
17 SOUND 0,4,5,Y:NEXT Y
18 FOR X=60 TO 76
19 COLOR X+3:PLOT X/1.5,128:DRAWTO X,191
20 SOUND 0,7,8,X:NEXT X
21 FOR X=0 TO 31
22 COLOR X/2:PLOT 30,12:DRAWTO X+14,51:DRAWTO 30,91
23 SOUND 0,1,2,X:NEXT X:SOUND 0,0,0,0
24 DATA 72,169,192,141,27,208,169,4,141,26,208,104,64
25 REM -- end of let's start --
32759 GOTO 32759
32760 REM --
32761 REM PRIMA APRILIS COMPO 2024 BY
32762 REM MONO
32763 REM Adam Klobukowski
32764 REM Seban/Slt
32765 REM Mq

mono · 2024-03-30 11:56:20

mono
Starszy Atarowiec
Nieaktywny

Skąd: inąd
Zarejestrowany: 2007-08-20
Posty: 2,900

Odp: Prima Aprilis Compo 2024

GR.9 - świetny pomysł! Chyba jeszcze nie używaliśmy :)
Tradycyjnie HUDBA:

1 GRAPHICS 9: REM -- set the mode by Adam K.

100 REM -- let's start by Seban/Slt --
110 DL=PEEK(560)+256*PEEK(561)
120 FOR I=1536 TO 1548:READ A:POKE I,A:NEXT I:POKE DL+134,143:POKE 512,0:POKE 513,6:POKE 54286,192
125 GOSUB 32000: REM -- Mono init
130 FOR Y=128 TO 191
140 COLOR Y/4:PLOT 0,Y:DRAWTO 79,Y
150 R=RND(0)*79: COLOR R
160 PLOT R,RND(0)*127
170 NEXT Y
180 FOR X=60 TO 76
190 COLOR X+3:PLOT X/1.5,128:DRAWTO X,191
200 NEXT X
210 FOR X=0 TO 31
220 COLOR X/2:PLOT 30,12:DRAWTO X+14,51:DRAWTO 30,91
230 NEXT X
240 DATA 72,169,192,141,27,208,169,4,141,26,208,104,64
250 REM -- end of let's start --

10000 REM -- Mono part
10010 Z20=20:C20=PEEK(Z20)

11000 T20=PEEK(Z20):IF T20<>C20 THEN C20=T20:C=C+Z1

29800 IF C<Z6 THEN 11000
29810 C=0

29820 IF T0=Z0 THEN P0=F(N):V0=VF(N):S0=VT(N):T0=L(N):POKE PF0,P0:N=N+Z1:IF N>E THEN N=Z0
29830 POKE PC0,V0:IF V0>S0 THEN V0=V0-Z2
29840 T0=T0-Z1

29850 IF T1=Z0 THEN P1=F(N):V1=VF(N):S1=VT(N):T1=L(N):POKE PF1,P1:N=N+Z1:IF N>E THEN N=Z0
29860 POKE PC1,V1:IF V1>S1 THEN V1=V1-Z2
29870 T1=T1-Z1

29880 IF T2=Z0 THEN P2=F(N):V2=VF(N):S2=VT(N):T2=L(N):POKE PF2,P2:N=N+Z1:IF N>E THEN N=Z0
29890 POKE PC2,V2:IF V2>S2 THEN V2=V2-Z2
29900 T2=T2-Z1

29910 IF T3=Z0 THEN P3=F(N):V3=VF(N):S3=VT(N):T3=L(N):POKE PF3,P3:N=N+Z1:IF N>E THEN N=Z0
29920 POKE PC3,V3:IF V3>S3 THEN V3=V3-Z2
29930 T3=T3-Z1

29990 GOTO 11000

32000 Z0=0:Z1=1:Z2=2:Z6=6:T0=Z0:T1=Z0:T2=Z0:T3=Z0
32010 PF0=53760:PC0=PF0+Z1:PF1=PC0+Z1:PC1=PF1+Z1:PF2=PC1+Z1:PC2=PF2+Z1:PF3=PC2+Z1:PC3=PF3+Z1
32020 E=410:DIM F(E),VF(E),VT(E),L(E):E=E-1:RESTORE 32040:FOR I=Z0 TO E:READ F,VF,VT,L:F(I)=F:VF(I)=VF:VT(I)=VT:L(I)=L:NEXT I
32030 FOR I=0 TO Z3:SOUND I,Z0,Z0,Z0:NEXT I:C=Z0:N=Z0:RETURN

32040 DATA 255,168,161,4
32041 DATA 0,160,160,32
32042 DATA 0,160,160,32
32043 DATA 0,160,160,32
32044 DATA 128,168,161,4
32045 DATA 173,168,161,4
32046 DATA 162,168,161,4
32047 DATA 255,168,161,4
32048 DATA 128,168,161,4
32049 DATA 173,168,161,4
32050 DATA 162,168,161,4
32051 DATA 255,168,161,4
32052 DATA 0,160,160,32
32053 DATA 85,170,162,4
32054 DATA 64,170,162,4
32055 DATA 128,168,161,4
32056 DATA 96,170,162,4
32057 DATA 72,170,162,4
32058 DATA 173,168,161,4
32059 DATA 85,170,162,8
32060 DATA 64,170,162,8
32061 DATA 162,168,161,4
32062 DATA 255,168,161,4
32063 DATA 0,160,160,16
32064 DATA 0,160,160,16
32065 DATA 128,168,161,4
32066 DATA 173,168,161,4
32067 DATA 162,168,161,4
32068 DATA 255,168,161,4
32069 DATA 0,160,160,32
32070 DATA 85,170,162,4
32071 DATA 64,170,162,4
32072 DATA 128,168,161,4
32073 DATA 96,170,162,4
32074 DATA 72,170,162,4
32075 DATA 173,168,161,4
32076 DATA 85,170,162,8
32077 DATA 64,170,162,8
32078 DATA 162,168,161,4
32079 DATA 255,168,161,4
32080 DATA 0,160,160,16
32081 DATA 0,160,160,16
32082 DATA 128,168,161,4
32083 DATA 173,168,161,4
32084 DATA 162,168,161,4
32085 DATA 193,168,161,4
32086 DATA 0,160,160,32
32087 DATA 64,170,162,2
32088 DATA 47,170,162,2
32089 DATA 64,170,162,2
32090 DATA 47,170,162,2
32091 DATA 96,168,161,4
32092 DATA 64,170,162,2
32093 DATA 47,170,162,2
32094 DATA 64,170,162,2
32095 DATA 47,170,162,2
32096 DATA 193,168,161,4
32097 DATA 72,170,162,4
32098 DATA 53,170,162,4
32099 DATA 96,168,161,4
32100 DATA 64,170,162,4
32101 DATA 47,170,162,4
32102 DATA 193,168,161,4
32103 DATA 64,170,162,2
32104 DATA 47,170,162,2
32105 DATA 64,170,162,2
32106 DATA 47,170,162,2
32107 DATA 96,168,161,4
32108 DATA 64,170,162,2
32109 DATA 47,170,162,2
32110 DATA 64,170,162,2
32111 DATA 47,170,162,2
32112 DATA 193,168,161,4
32113 DATA 72,170,162,4
32114 DATA 53,170,162,4
32115 DATA 96,168,161,4
32116 DATA 64,170,162,4
32117 DATA 47,170,162,4
32118 DATA 255,168,161,4
32119 DATA 64,168,160,2
32120 DATA 85,170,162,4
32121 DATA 64,170,162,4
32122 DATA 108,168,160,2
32123 DATA 128,168,161,4
32124 DATA 85,168,160,2
32125 DATA 96,170,162,4
32126 DATA 72,170,162,4
32127 DATA 81,168,160,2
32128 DATA 173,168,161,4
32129 DATA 85,168,160,2
32130 DATA 85,170,162,8
32131 DATA 64,170,162,8
32132 DATA 108,168,160,2
32133 DATA 162,168,161,4
32134 DATA 57,168,160,2
32135 DATA 64,168,160,2
32136 DATA 255,168,161,4
32137 DATA 0,160,160,16
32138 DATA 0,160,160,16
32139 DATA 0,160,160,16
32140 DATA 128,168,161,4
32141 DATA 173,168,161,4
32142 DATA 162,168,161,4
32143 DATA 255,168,161,4
32144 DATA 64,168,160,2
32145 DATA 85,170,162,4
32146 DATA 64,170,162,4
32147 DATA 108,168,160,2
32148 DATA 128,168,161,4
32149 DATA 85,168,160,2
32150 DATA 96,170,162,4
32151 DATA 72,170,162,4
32152 DATA 81,168,160,2
32153 DATA 173,168,161,4
32154 DATA 85,168,160,2
32155 DATA 85,170,162,8
32156 DATA 64,170,162,8
32157 DATA 108,168,160,2
32158 DATA 162,168,161,4
32159 DATA 57,168,160,2
32160 DATA 64,168,160,2
32161 DATA 255,168,161,4
32162 DATA 0,160,160,16
32163 DATA 0,160,160,16
32164 DATA 0,160,160,16
32165 DATA 128,168,161,4
32166 DATA 173,168,161,4
32167 DATA 162,168,161,4
32168 DATA 193,168,161,4
32169 DATA 19,168,160,1
32170 DATA 64,170,162,2
32171 DATA 47,170,162,2
32172 DATA 23,168,160,1
32173 DATA 31,168,160,1
32174 DATA 64,170,162,2
32175 DATA 47,170,162,2
32176 DATA 40,168,160,1
32177 DATA 96,168,161,4
32178 DATA 47,168,160,1
32179 DATA 64,170,162,2
32180 DATA 47,170,162,2
32181 DATA 64,168,160,1
32182 DATA 81,168,160,1
32183 DATA 64,170,162,2
32184 DATA 47,170,162,2
32185 DATA 96,168,160,1
32186 DATA 193,168,161,4
32187 DATA 0,160,160,8
32188 DATA 72,170,162,4
32189 DATA 53,170,162,4
32190 DATA 96,168,161,4
32191 DATA 64,170,162,4
32192 DATA 47,170,162,4
32193 DATA 193,168,161,4
32194 DATA 19,168,160,1
32195 DATA 64,170,162,2
32196 DATA 47,170,162,2
32197 DATA 23,168,160,1
32198 DATA 31,168,160,1
32199 DATA 64,170,162,2
32200 DATA 47,170,162,2
32201 DATA 40,168,160,1
32202 DATA 96,168,161,4
32203 DATA 47,168,160,1
32204 DATA 64,170,162,2
32205 DATA 47,170,162,2
32206 DATA 64,168,160,1
32207 DATA 81,168,160,1
32208 DATA 64,170,162,2
32209 DATA 47,170,162,2
32210 DATA 96,168,160,1
32211 DATA 193,168,161,4
32212 DATA 0,160,160,8
32213 DATA 72,170,162,4
32214 DATA 53,170,162,4
32215 DATA 96,168,161,4
32216 DATA 64,170,162,4
32217 DATA 47,170,162,4
32218 DATA 114,168,161,2
32219 DATA 173,168,161,2
32220 DATA 68,168,162,8
32221 DATA 85,168,162,8
32222 DATA 114,168,161,2
32223 DATA 173,168,161,2
32224 DATA 114,168,161,2
32225 DATA 173,168,161,2
32226 DATA 114,168,161,2
32227 DATA 173,168,161,2
32228 DATA 128,168,161,4
32229 DATA 193,168,161,4
32230 DATA 76,168,162,4
32231 DATA 96,168,162,4
32232 DATA 114,168,161,4
32233 DATA 173,168,161,4
32234 DATA 68,168,162,4
32235 DATA 85,168,162,4
32236 DATA 114,168,161,2
32237 DATA 173,168,161,2
32238 DATA 68,168,162,8
32239 DATA 57,168,162,8
32240 DATA 114,168,161,2
32241 DATA 173,168,161,2
32242 DATA 114,168,161,2
32243 DATA 173,168,161,2
32244 DATA 114,168,161,2
32245 DATA 173,168,161,2
32246 DATA 128,168,161,4
32247 DATA 193,168,161,4
32248 DATA 76,168,162,4
32249 DATA 64,168,162,4
32250 DATA 114,168,161,4
32251 DATA 173,168,161,4
32252 DATA 68,168,162,4
32253 DATA 57,168,162,4
32254 DATA 114,168,161,2
32255 DATA 173,168,160,2
32256 DATA 68,170,162,12
32257 DATA 42,170,162,12
32258 DATA 114,168,161,2
32259 DATA 173,168,160,2
32260 DATA 114,168,161,2
32261 DATA 173,168,160,2
32262 DATA 114,168,161,2
32263 DATA 173,168,160,2
32264 DATA 128,168,161,4
32265 DATA 193,168,160,4
32266 DATA 114,168,161,4
32267 DATA 173,168,160,4
32268 DATA 0,160,160,4
32269 DATA 0,160,160,4
32270 DATA 173,168,161,2
32271 DATA 20,168,160,1
32272 DATA 20,170,162,1
32273 DATA 31,170,162,1
32274 DATA 28,168,160,1
32275 DATA 42,170,162,1
32276 DATA 64,170,162,1
32277 DATA 173,168,161,2
32278 DATA 33,168,160,1
32279 DATA 0,160,160,4
32280 DATA 0,160,160,4
32281 DATA 42,168,160,1
32282 DATA 173,168,161,2
32283 DATA 57,168,160,1
32284 DATA 68,168,160,1
32285 DATA 173,168,161,2
32286 DATA 85,168,160,1
32287 DATA 20,170,162,1
32288 DATA 31,170,162,1
32289 DATA 114,168,160,1
32290 DATA 42,170,162,1
32291 DATA 64,170,162,1
32292 DATA 173,168,161,2
32293 DATA 85,168,160,2
32294 DATA 0,160,160,4
32295 DATA 0,160,160,4
32296 DATA 0,160,160,6
32297 DATA 0,160,160,6
32298 DATA 0,160,160,4
32299 DATA 0,160,160,4
32300 DATA 255,167,161,4
32301 DATA 64,164,160,2
32302 DATA 85,169,162,4
32303 DATA 64,169,162,4
32304 DATA 108,164,160,2
32305 DATA 128,167,161,4
32306 DATA 85,164,160,2
32307 DATA 96,169,162,4
32308 DATA 72,169,162,4
32309 DATA 81,164,160,2
32310 DATA 173,167,161,4
32311 DATA 85,164,160,2
32312 DATA 85,169,162,8
32313 DATA 64,169,162,8
32314 DATA 108,164,160,2
32315 DATA 162,167,161,4
32316 DATA 57,164,160,2
32317 DATA 64,164,160,2
32318 DATA 255,167,161,4
32319 DATA 0,160,160,16
32320 DATA 0,160,160,16
32321 DATA 0,160,160,16
32322 DATA 128,167,161,4
32323 DATA 173,167,161,4
32324 DATA 162,167,161,4
32325 DATA 255,167,161,4
32326 DATA 64,164,160,2
32327 DATA 85,169,162,4
32328 DATA 64,169,162,4
32329 DATA 108,164,160,2
32330 DATA 128,167,161,4
32331 DATA 85,164,160,2
32332 DATA 96,169,162,4
32333 DATA 72,169,162,4
32334 DATA 81,164,160,2
32335 DATA 173,167,161,4
32336 DATA 85,164,160,2
32337 DATA 85,169,162,8
32338 DATA 64,169,162,8
32339 DATA 108,164,160,2
32340 DATA 162,167,161,4
32341 DATA 57,164,160,2
32342 DATA 64,164,160,2
32343 DATA 255,167,161,4
32344 DATA 0,160,160,16
32345 DATA 0,160,160,16
32346 DATA 0,160,160,16
32347 DATA 128,167,161,4
32348 DATA 173,167,161,4
32349 DATA 162,167,161,4
32350 DATA 255,165,161,4
32351 DATA 64,163,160,2
32352 DATA 85,167,162,4
32353 DATA 64,167,162,4
32354 DATA 108,163,160,2
32355 DATA 128,165,161,4
32356 DATA 85,163,160,2
32357 DATA 96,167,162,4
32358 DATA 72,167,162,4
32359 DATA 81,163,160,2
32360 DATA 173,165,161,4
32361 DATA 85,163,160,2
32362 DATA 85,167,162,8
32363 DATA 64,167,162,8
32364 DATA 108,163,160,2
32365 DATA 162,165,161,4
32366 DATA 57,163,160,2
32367 DATA 64,163,160,2
32368 DATA 255,165,161,4
32369 DATA 0,160,160,16
32370 DATA 0,160,160,16
32371 DATA 0,160,160,16
32372 DATA 128,165,161,4
32373 DATA 173,165,161,4
32374 DATA 162,165,161,4
32375 DATA 255,165,161,4
32376 DATA 64,163,160,2
32377 DATA 85,167,162,4
32378 DATA 64,167,162,4
32379 DATA 108,163,160,2
32380 DATA 128,165,161,4
32381 DATA 85,163,160,2
32382 DATA 96,167,162,4
32383 DATA 72,167,162,4
32384 DATA 81,163,160,2
32385 DATA 173,165,161,4
32386 DATA 85,163,160,2
32387 DATA 85,167,162,8
32388 DATA 64,167,162,8
32389 DATA 108,163,160,2
32390 DATA 162,165,161,4
32391 DATA 57,163,160,2
32392 DATA 64,163,160,2
32393 DATA 255,165,161,4
32394 DATA 0,160,160,16
32395 DATA 0,160,160,16
32396 DATA 0,160,160,16
32397 DATA 128,165,161,4
32398 DATA 173,165,161,4
32399 DATA 162,165,161,4
32400 DATA 255,163,161,4
32401 DATA 64,162,160,2
32402 DATA 85,164,161,4
32403 DATA 64,164,161,4
32404 DATA 108,162,160,2
32405 DATA 128,163,161,4
32406 DATA 85,162,160,2
32407 DATA 96,164,161,4
32408 DATA 72,164,161,4
32409 DATA 81,162,160,2
32410 DATA 173,163,161,4
32411 DATA 85,162,160,2
32412 DATA 85,164,161,8
32413 DATA 64,164,161,8
32414 DATA 108,162,160,2
32415 DATA 162,163,161,4
32416 DATA 57,162,160,2
32417 DATA 64,162,160,2
32418 DATA 255,163,161,4
32419 DATA 0,160,160,16
32420 DATA 0,160,160,16
32421 DATA 0,160,160,16
32422 DATA 128,163,161,4
32423 DATA 173,163,161,4
32424 DATA 162,163,161,4
32425 DATA 255,163,161,4
32426 DATA 64,162,160,2
32427 DATA 85,164,161,4
32428 DATA 64,164,161,4
32429 DATA 108,162,160,2
32430 DATA 128,163,161,4
32431 DATA 85,162,160,2
32432 DATA 96,164,161,4
32433 DATA 72,164,161,4
32434 DATA 81,162,160,2
32435 DATA 173,163,161,4
32436 DATA 85,162,160,2
32437 DATA 85,164,161,8
32438 DATA 64,164,161,8
32439 DATA 108,162,160,2
32440 DATA 162,163,161,4
32441 DATA 57,162,160,2
32442 DATA 64,162,160,2
32443 DATA 255,163,161,4
32444 DATA 0,160,160,16
32445 DATA 0,160,160,16
32446 DATA 0,160,160,16
32447 DATA 128,163,161,4
32448 DATA 173,163,161,4
32449 DATA 162,163,161,4

32760 REM --
32761 REM PRIMA APRILIS COMPO 2024 BY
32762 REM Mono
32763 REM Adam Klobukowski
32764 REM Seban/Slt

hex, code and ror'n'rol
niewiedza buduje, wiedza rujnuje

Mq · 2024-03-30 12:14:59

Mq
Starszy Atarowiec
Nieaktywny

Skąd: Poznań
Zarejestrowany: 2016-10-13
Posty: 2,927

Odp: Prima Aprilis Compo 2024

@mono: robiliśmy chyba jednocześnie - dodasz moje soundy? Bo nie uwzględniłeś w swojej iteracji.

mono · 2024-03-30 12:15:34

mono
Starszy Atarowiec
Nieaktywny

Skąd: inąd
Zarejestrowany: 2007-08-20
Posty: 2,900

Odp: Prima Aprilis Compo 2024

@Mq: Zintegrowałem Twoje zmiany i idąc Twoim tokiem rozumowania dołożyłem udźwiękowienie swoich kalkulacji.
Poza tym:
1. Zmodyfikowałem numerację w sekcji Sebanowej.
2. Scaliłem autorów do jednej linii.

1 GRAPHICS 9: REM -- set the mode by Adam K.

100 REM -- let's start by Seban/Slt -- +sound by Mq
110 DL=PEEK(560)+256*PEEK(561)
120 FOR I=1536 TO 1548:READ A:POKE I,A:NEXT I:POKE DL+134,143:POKE 512,0:POKE 513,6:POKE 54286,192
125 GOSUB 32000: REM -- Mono init
130 FOR Y=128 TO 191
140 COLOR Y/4:PLOT 0,Y:DRAWTO 79,Y
150 R=RND(0)*79: COLOR R
160 PLOT R,RND(0)*127
170 SOUND 0,4,5,Y:NEXT Y
180 FOR X=60 TO 76
190 COLOR X+3:PLOT X/1.5,128:DRAWTO X,191
200 SOUND 0,7,8,X:NEXT X
210 FOR X=0 TO 31
220 COLOR X/2:PLOT 30,12:DRAWTO X+14,51:DRAWTO 30,91
230 SOUND 0,1,2,X:NEXT X:SOUND 0,0,0,0
240 DATA 72,169,192,141,27,208,169,4,141,26,208,104,64
250 REM -- end of let's start --

10000 REM -- Mono part
10010 Z20=20:C20=PEEK(Z20)

11000 T20=PEEK(Z20):IF T20<>C20 THEN C20=T20:C=C+Z1

29800 IF C<Z6 THEN 11000
29810 C=0

29820 IF T0=Z0 THEN P0=F(N):V0=VF(N):S0=VT(N):T0=L(N):POKE PF0,P0:N=N+Z1:IF N>E THEN N=Z0
29830 POKE PC0,V0:IF V0>S0 THEN V0=V0-Z2
29840 T0=T0-Z1

29850 IF T1=Z0 THEN P1=F(N):V1=VF(N):S1=VT(N):T1=L(N):POKE PF1,P1:N=N+Z1:IF N>E THEN N=Z0
29860 POKE PC1,V1:IF V1>S1 THEN V1=V1-Z2
29870 T1=T1-Z1

29880 IF T2=Z0 THEN P2=F(N):V2=VF(N):S2=VT(N):T2=L(N):POKE PF2,P2:N=N+Z1:IF N>E THEN N=Z0
29890 POKE PC2,V2:IF V2>S2 THEN V2=V2-Z2
29900 T2=T2-Z1

29910 IF T3=Z0 THEN P3=F(N):V3=VF(N):S3=VT(N):T3=L(N):POKE PF3,P3:N=N+Z1:IF N>E THEN N=Z0
29920 POKE PC3,V3:IF V3>S3 THEN V3=V3-Z2
29930 T3=T3-Z1

29990 GOTO 11000

32000 Z0=0:Z1=1:Z2=2:Z6=6:T0=Z0:T1=Z0:T2=Z0:T3=Z0
32010 PF0=53760:PC0=PF0+Z1:PF1=PC0+Z1:PC1=PF1+Z1:PF2=PC1+Z1:PC2=PF2+Z1:PF3=PC2+Z1:PC3=PF3+Z1
32020 E=410:DIM F(E),VF(E),VT(E),L(E):E=E-1:RESTORE 32040:FOR I=Z0 TO E:SOUND Z0,Z2,10,Z6*RND(Z0):READ F,VF,VT,L:F(I)=F:VF(I)=VF:VT(I)=VT:L(I)=L:NEXT I
32030 FOR I=Z0 TO Z3:SOUND I,Z0,Z0,Z0:NEXT I:C=Z0:N=Z0:RETURN

32040 DATA 255,168,161,4
32041 DATA 0,160,160,32
32042 DATA 0,160,160,32
32043 DATA 0,160,160,32
32044 DATA 128,168,161,4
32045 DATA 173,168,161,4
32046 DATA 162,168,161,4
32047 DATA 255,168,161,4
32048 DATA 128,168,161,4
32049 DATA 173,168,161,4
32050 DATA 162,168,161,4
32051 DATA 255,168,161,4
32052 DATA 0,160,160,32
32053 DATA 85,170,162,4
32054 DATA 64,170,162,4
32055 DATA 128,168,161,4
32056 DATA 96,170,162,4
32057 DATA 72,170,162,4
32058 DATA 173,168,161,4
32059 DATA 85,170,162,8
32060 DATA 64,170,162,8
32061 DATA 162,168,161,4
32062 DATA 255,168,161,4
32063 DATA 0,160,160,16
32064 DATA 0,160,160,16
32065 DATA 128,168,161,4
32066 DATA 173,168,161,4
32067 DATA 162,168,161,4
32068 DATA 255,168,161,4
32069 DATA 0,160,160,32
32070 DATA 85,170,162,4
32071 DATA 64,170,162,4
32072 DATA 128,168,161,4
32073 DATA 96,170,162,4
32074 DATA 72,170,162,4
32075 DATA 173,168,161,4
32076 DATA 85,170,162,8
32077 DATA 64,170,162,8
32078 DATA 162,168,161,4
32079 DATA 255,168,161,4
32080 DATA 0,160,160,16
32081 DATA 0,160,160,16
32082 DATA 128,168,161,4
32083 DATA 173,168,161,4
32084 DATA 162,168,161,4
32085 DATA 193,168,161,4
32086 DATA 0,160,160,32
32087 DATA 64,170,162,2
32088 DATA 47,170,162,2
32089 DATA 64,170,162,2
32090 DATA 47,170,162,2
32091 DATA 96,168,161,4
32092 DATA 64,170,162,2
32093 DATA 47,170,162,2
32094 DATA 64,170,162,2
32095 DATA 47,170,162,2
32096 DATA 193,168,161,4
32097 DATA 72,170,162,4
32098 DATA 53,170,162,4
32099 DATA 96,168,161,4
32100 DATA 64,170,162,4
32101 DATA 47,170,162,4
32102 DATA 193,168,161,4
32103 DATA 64,170,162,2
32104 DATA 47,170,162,2
32105 DATA 64,170,162,2
32106 DATA 47,170,162,2
32107 DATA 96,168,161,4
32108 DATA 64,170,162,2
32109 DATA 47,170,162,2
32110 DATA 64,170,162,2
32111 DATA 47,170,162,2
32112 DATA 193,168,161,4
32113 DATA 72,170,162,4
32114 DATA 53,170,162,4
32115 DATA 96,168,161,4
32116 DATA 64,170,162,4
32117 DATA 47,170,162,4
32118 DATA 255,168,161,4
32119 DATA 64,168,160,2
32120 DATA 85,170,162,4
32121 DATA 64,170,162,4
32122 DATA 108,168,160,2
32123 DATA 128,168,161,4
32124 DATA 85,168,160,2
32125 DATA 96,170,162,4
32126 DATA 72,170,162,4
32127 DATA 81,168,160,2
32128 DATA 173,168,161,4
32129 DATA 85,168,160,2
32130 DATA 85,170,162,8
32131 DATA 64,170,162,8
32132 DATA 108,168,160,2
32133 DATA 162,168,161,4
32134 DATA 57,168,160,2
32135 DATA 64,168,160,2
32136 DATA 255,168,161,4
32137 DATA 0,160,160,16
32138 DATA 0,160,160,16
32139 DATA 0,160,160,16
32140 DATA 128,168,161,4
32141 DATA 173,168,161,4
32142 DATA 162,168,161,4
32143 DATA 255,168,161,4
32144 DATA 64,168,160,2
32145 DATA 85,170,162,4
32146 DATA 64,170,162,4
32147 DATA 108,168,160,2
32148 DATA 128,168,161,4
32149 DATA 85,168,160,2
32150 DATA 96,170,162,4
32151 DATA 72,170,162,4
32152 DATA 81,168,160,2
32153 DATA 173,168,161,4
32154 DATA 85,168,160,2
32155 DATA 85,170,162,8
32156 DATA 64,170,162,8
32157 DATA 108,168,160,2
32158 DATA 162,168,161,4
32159 DATA 57,168,160,2
32160 DATA 64,168,160,2
32161 DATA 255,168,161,4
32162 DATA 0,160,160,16
32163 DATA 0,160,160,16
32164 DATA 0,160,160,16
32165 DATA 128,168,161,4
32166 DATA 173,168,161,4
32167 DATA 162,168,161,4
32168 DATA 193,168,161,4
32169 DATA 19,168,160,1
32170 DATA 64,170,162,2
32171 DATA 47,170,162,2
32172 DATA 23,168,160,1
32173 DATA 31,168,160,1
32174 DATA 64,170,162,2
32175 DATA 47,170,162,2
32176 DATA 40,168,160,1
32177 DATA 96,168,161,4
32178 DATA 47,168,160,1
32179 DATA 64,170,162,2
32180 DATA 47,170,162,2
32181 DATA 64,168,160,1
32182 DATA 81,168,160,1
32183 DATA 64,170,162,2
32184 DATA 47,170,162,2
32185 DATA 96,168,160,1
32186 DATA 193,168,161,4
32187 DATA 0,160,160,8
32188 DATA 72,170,162,4
32189 DATA 53,170,162,4
32190 DATA 96,168,161,4
32191 DATA 64,170,162,4
32192 DATA 47,170,162,4
32193 DATA 193,168,161,4
32194 DATA 19,168,160,1
32195 DATA 64,170,162,2
32196 DATA 47,170,162,2
32197 DATA 23,168,160,1
32198 DATA 31,168,160,1
32199 DATA 64,170,162,2
32200 DATA 47,170,162,2
32201 DATA 40,168,160,1
32202 DATA 96,168,161,4
32203 DATA 47,168,160,1
32204 DATA 64,170,162,2
32205 DATA 47,170,162,2
32206 DATA 64,168,160,1
32207 DATA 81,168,160,1
32208 DATA 64,170,162,2
32209 DATA 47,170,162,2
32210 DATA 96,168,160,1
32211 DATA 193,168,161,4
32212 DATA 0,160,160,8
32213 DATA 72,170,162,4
32214 DATA 53,170,162,4
32215 DATA 96,168,161,4
32216 DATA 64,170,162,4
32217 DATA 47,170,162,4
32218 DATA 114,168,161,2
32219 DATA 173,168,161,2
32220 DATA 68,168,162,8
32221 DATA 85,168,162,8
32222 DATA 114,168,161,2
32223 DATA 173,168,161,2
32224 DATA 114,168,161,2
32225 DATA 173,168,161,2
32226 DATA 114,168,161,2
32227 DATA 173,168,161,2
32228 DATA 128,168,161,4
32229 DATA 193,168,161,4
32230 DATA 76,168,162,4
32231 DATA 96,168,162,4
32232 DATA 114,168,161,4
32233 DATA 173,168,161,4
32234 DATA 68,168,162,4
32235 DATA 85,168,162,4
32236 DATA 114,168,161,2
32237 DATA 173,168,161,2
32238 DATA 68,168,162,8
32239 DATA 57,168,162,8
32240 DATA 114,168,161,2
32241 DATA 173,168,161,2
32242 DATA 114,168,161,2
32243 DATA 173,168,161,2
32244 DATA 114,168,161,2
32245 DATA 173,168,161,2
32246 DATA 128,168,161,4
32247 DATA 193,168,161,4
32248 DATA 76,168,162,4
32249 DATA 64,168,162,4
32250 DATA 114,168,161,4
32251 DATA 173,168,161,4
32252 DATA 68,168,162,4
32253 DATA 57,168,162,4
32254 DATA 114,168,161,2
32255 DATA 173,168,160,2
32256 DATA 68,170,162,12
32257 DATA 42,170,162,12
32258 DATA 114,168,161,2
32259 DATA 173,168,160,2
32260 DATA 114,168,161,2
32261 DATA 173,168,160,2
32262 DATA 114,168,161,2
32263 DATA 173,168,160,2
32264 DATA 128,168,161,4
32265 DATA 193,168,160,4
32266 DATA 114,168,161,4
32267 DATA 173,168,160,4
32268 DATA 0,160,160,4
32269 DATA 0,160,160,4
32270 DATA 173,168,161,2
32271 DATA 20,168,160,1
32272 DATA 20,170,162,1
32273 DATA 31,170,162,1
32274 DATA 28,168,160,1
32275 DATA 42,170,162,1
32276 DATA 64,170,162,1
32277 DATA 173,168,161,2
32278 DATA 33,168,160,1
32279 DATA 0,160,160,4
32280 DATA 0,160,160,4
32281 DATA 42,168,160,1
32282 DATA 173,168,161,2
32283 DATA 57,168,160,1
32284 DATA 68,168,160,1
32285 DATA 173,168,161,2
32286 DATA 85,168,160,1
32287 DATA 20,170,162,1
32288 DATA 31,170,162,1
32289 DATA 114,168,160,1
32290 DATA 42,170,162,1
32291 DATA 64,170,162,1
32292 DATA 173,168,161,2
32293 DATA 85,168,160,2
32294 DATA 0,160,160,4
32295 DATA 0,160,160,4
32296 DATA 0,160,160,6
32297 DATA 0,160,160,6
32298 DATA 0,160,160,4
32299 DATA 0,160,160,4
32300 DATA 255,167,161,4
32301 DATA 64,164,160,2
32302 DATA 85,169,162,4
32303 DATA 64,169,162,4
32304 DATA 108,164,160,2
32305 DATA 128,167,161,4
32306 DATA 85,164,160,2
32307 DATA 96,169,162,4
32308 DATA 72,169,162,4
32309 DATA 81,164,160,2
32310 DATA 173,167,161,4
32311 DATA 85,164,160,2
32312 DATA 85,169,162,8
32313 DATA 64,169,162,8
32314 DATA 108,164,160,2
32315 DATA 162,167,161,4
32316 DATA 57,164,160,2
32317 DATA 64,164,160,2
32318 DATA 255,167,161,4
32319 DATA 0,160,160,16
32320 DATA 0,160,160,16
32321 DATA 0,160,160,16
32322 DATA 128,167,161,4
32323 DATA 173,167,161,4
32324 DATA 162,167,161,4
32325 DATA 255,167,161,4
32326 DATA 64,164,160,2
32327 DATA 85,169,162,4
32328 DATA 64,169,162,4
32329 DATA 108,164,160,2
32330 DATA 128,167,161,4
32331 DATA 85,164,160,2
32332 DATA 96,169,162,4
32333 DATA 72,169,162,4
32334 DATA 81,164,160,2
32335 DATA 173,167,161,4
32336 DATA 85,164,160,2
32337 DATA 85,169,162,8
32338 DATA 64,169,162,8
32339 DATA 108,164,160,2
32340 DATA 162,167,161,4
32341 DATA 57,164,160,2
32342 DATA 64,164,160,2
32343 DATA 255,167,161,4
32344 DATA 0,160,160,16
32345 DATA 0,160,160,16
32346 DATA 0,160,160,16
32347 DATA 128,167,161,4
32348 DATA 173,167,161,4
32349 DATA 162,167,161,4
32350 DATA 255,165,161,4
32351 DATA 64,163,160,2
32352 DATA 85,167,162,4
32353 DATA 64,167,162,4
32354 DATA 108,163,160,2
32355 DATA 128,165,161,4
32356 DATA 85,163,160,2
32357 DATA 96,167,162,4
32358 DATA 72,167,162,4
32359 DATA 81,163,160,2
32360 DATA 173,165,161,4
32361 DATA 85,163,160,2
32362 DATA 85,167,162,8
32363 DATA 64,167,162,8
32364 DATA 108,163,160,2
32365 DATA 162,165,161,4
32366 DATA 57,163,160,2
32367 DATA 64,163,160,2
32368 DATA 255,165,161,4
32369 DATA 0,160,160,16
32370 DATA 0,160,160,16
32371 DATA 0,160,160,16
32372 DATA 128,165,161,4
32373 DATA 173,165,161,4
32374 DATA 162,165,161,4
32375 DATA 255,165,161,4
32376 DATA 64,163,160,2
32377 DATA 85,167,162,4
32378 DATA 64,167,162,4
32379 DATA 108,163,160,2
32380 DATA 128,165,161,4
32381 DATA 85,163,160,2
32382 DATA 96,167,162,4
32383 DATA 72,167,162,4
32384 DATA 81,163,160,2
32385 DATA 173,165,161,4
32386 DATA 85,163,160,2
32387 DATA 85,167,162,8
32388 DATA 64,167,162,8
32389 DATA 108,163,160,2
32390 DATA 162,165,161,4
32391 DATA 57,163,160,2
32392 DATA 64,163,160,2
32393 DATA 255,165,161,4
32394 DATA 0,160,160,16
32395 DATA 0,160,160,16
32396 DATA 0,160,160,16
32397 DATA 128,165,161,4
32398 DATA 173,165,161,4
32399 DATA 162,165,161,4
32400 DATA 255,163,161,4
32401 DATA 64,162,160,2
32402 DATA 85,164,161,4
32403 DATA 64,164,161,4
32404 DATA 108,162,160,2
32405 DATA 128,163,161,4
32406 DATA 85,162,160,2
32407 DATA 96,164,161,4
32408 DATA 72,164,161,4
32409 DATA 81,162,160,2
32410 DATA 173,163,161,4
32411 DATA 85,162,160,2
32412 DATA 85,164,161,8
32413 DATA 64,164,161,8
32414 DATA 108,162,160,2
32415 DATA 162,163,161,4
32416 DATA 57,162,160,2
32417 DATA 64,162,160,2
32418 DATA 255,163,161,4
32419 DATA 0,160,160,16
32420 DATA 0,160,160,16
32421 DATA 0,160,160,16
32422 DATA 128,163,161,4
32423 DATA 173,163,161,4
32424 DATA 162,163,161,4
32425 DATA 255,163,161,4
32426 DATA 64,162,160,2
32427 DATA 85,164,161,4
32428 DATA 64,164,161,4
32429 DATA 108,162,160,2
32430 DATA 128,163,161,4
32431 DATA 85,162,160,2
32432 DATA 96,164,161,4
32433 DATA 72,164,161,4
32434 DATA 81,162,160,2
32435 DATA 173,163,161,4
32436 DATA 85,162,160,2
32437 DATA 85,164,161,8
32438 DATA 64,164,161,8
32439 DATA 108,162,160,2
32440 DATA 162,163,161,4
32441 DATA 57,162,160,2
32442 DATA 64,162,160,2
32443 DATA 255,163,161,4
32444 DATA 0,160,160,16
32445 DATA 0,160,160,16
32446 DATA 0,160,160,16
32447 DATA 128,163,161,4
32448 DATA 173,163,161,4
32449 DATA 162,163,161,4

32760 REM --
32761 REM PRIMA APRILIS COMPO 2024 BY
32762 REM Mono, Adam Klobukowski, Seban/Slt, Mq

Edit: Od 11000 zaczyna się pętla główna i tam można coś dopisywać co się będzie dziać podczas odtwarzania muzyki.
Do sekcji Sebanowej wsadziłem swoje GOSUB, ale można je wywołać w sumie już po (myślałem, że procedura DLI coś robi w międzyczasie i skorzystam :]).

Ostatnio edytowany przez mono (2024-03-30 12:20:21)

Post's attachments

PA2024.LST 11.58 kb, nikt jeszcze nie pobierał tego pliku.

Tylko zalogowani mogą pobierać załączniki.

hex, code and ror'n'rol
niewiedza buduje, wiedza rujnuje

Mq · 2024-03-30 12:23:14

Mq
Starszy Atarowiec
Nieaktywny

Skąd: Poznań
Zarejestrowany: 2016-10-13
Posty: 2,927

Odp: Prima Aprilis Compo 2024

@mono: linię 32020 sugeruję podzielić na dwie linie, bo nie da się wkleić tak długiej w standardowym Basicu

mono · 2024-03-30 12:32:47

mono
Starszy Atarowiec
Nieaktywny

Skąd: inąd
Zarejestrowany: 2007-08-20
Posty: 2,900

Odp: Prima Aprilis Compo 2024

@Mq: Zrobione.
Poza tym przywróciłem numerację Sebanową i wyjąłem swoje GOSUB z jego kodu.

1 GRAPHICS 9: REM -- set the mode by Adam K.

10 REM -- let's start by Seban/Slt -- +sound by Mq
11 DL=PEEK(560)+256*PEEK(561)
12 FOR I=1536 TO 1548:READ A:POKE I,A:NEXT I:POKE DL+134,143:POKE 512,0:POKE 513,6:POKE 54286,192
13 FOR Y=128 TO 191
14 COLOR Y/4:PLOT 0,Y:DRAWTO 79,Y
15 R=RND(0)*79: COLOR R
16 PLOT R,RND(0)*127
17 SOUND 0,4,5,Y:NEXT Y
18 FOR X=60 TO 76
19 COLOR X+3:PLOT X/1.5,128:DRAWTO X,191
20 SOUND 0,7,8,X:NEXT X
21 FOR X=0 TO 31
22 COLOR X/2:PLOT 30,12:DRAWTO X+14,51:DRAWTO 30,91
23 SOUND 0,1,2,X:NEXT X:SOUND 0,0,0,0
24 DATA 72,169,192,141,27,208,169,4,141,26,208,104,64
25 REM -- end of let's start --

10000 REM -- Mono part
10010 GOSUB 32000:Z20=20:C20=PEEK(Z20)

11000 T20=PEEK(Z20):IF T20<>C20 THEN C20=T20:C=C+Z1

29800 IF C<Z6 THEN 11000
29810 C=0

29820 IF T0=Z0 THEN P0=F(N):V0=VF(N):S0=VT(N):T0=L(N):POKE PF0,P0:N=N+Z1:IF N>E THEN N=Z0
29830 POKE PC0,V0:IF V0>S0 THEN V0=V0-Z2
29840 T0=T0-Z1

29850 IF T1=Z0 THEN P1=F(N):V1=VF(N):S1=VT(N):T1=L(N):POKE PF1,P1:N=N+Z1:IF N>E THEN N=Z0
29860 POKE PC1,V1:IF V1>S1 THEN V1=V1-Z2
29870 T1=T1-Z1

29880 IF T2=Z0 THEN P2=F(N):V2=VF(N):S2=VT(N):T2=L(N):POKE PF2,P2:N=N+Z1:IF N>E THEN N=Z0
29890 POKE PC2,V2:IF V2>S2 THEN V2=V2-Z2
29900 T2=T2-Z1

29910 IF T3=Z0 THEN P3=F(N):V3=VF(N):S3=VT(N):T3=L(N):POKE PF3,P3:N=N+Z1:IF N>E THEN N=Z0
29920 POKE PC3,V3:IF V3>S3 THEN V3=V3-Z2
29930 T3=T3-Z1

29990 GOTO 11000

32000 Z0=0:Z1=1:Z2=2:Z6=6:T0=Z0:T1=Z0:T2=Z0:T3=Z0
32010 PF0=53760:PC0=PF0+Z1:PF1=PC0+Z1:PC1=PF1+Z1:PF2=PC1+Z1:PC2=PF2+Z1:PF3=PC2+Z1:PC3=PF3+Z1
32020 E=410:DIM F(E),VF(E),VT(E),L(E):E=E-1:RESTORE 32050
32030 FOR I=Z0 TO E:SOUND Z0,Z2,10,Z6*RND(Z0):READ F,VF,VT,L:F(I)=F:VF(I)=VF:VT(I)=VT:L(I)=L:NEXT I
32040 FOR I=Z0 TO Z3:SOUND I,Z0,Z0,Z0:NEXT I:C=Z0:N=Z0:RETURN

32050 DATA 255,168,161,4
32051 DATA 0,160,160,32
32052 DATA 0,160,160,32
32053 DATA 0,160,160,32
32054 DATA 128,168,161,4
32055 DATA 173,168,161,4
32056 DATA 162,168,161,4
32057 DATA 255,168,161,4
32058 DATA 128,168,161,4
32059 DATA 173,168,161,4
32060 DATA 162,168,161,4
32061 DATA 255,168,161,4
32062 DATA 0,160,160,32
32063 DATA 85,170,162,4
32064 DATA 64,170,162,4
32065 DATA 128,168,161,4
32066 DATA 96,170,162,4
32067 DATA 72,170,162,4
32068 DATA 173,168,161,4
32069 DATA 85,170,162,8
32070 DATA 64,170,162,8
32071 DATA 162,168,161,4
32072 DATA 255,168,161,4
32073 DATA 0,160,160,16
32074 DATA 0,160,160,16
32075 DATA 128,168,161,4
32076 DATA 173,168,161,4
32077 DATA 162,168,161,4
32078 DATA 255,168,161,4
32079 DATA 0,160,160,32
32080 DATA 85,170,162,4
32081 DATA 64,170,162,4
32082 DATA 128,168,161,4
32083 DATA 96,170,162,4
32084 DATA 72,170,162,4
32085 DATA 173,168,161,4
32086 DATA 85,170,162,8
32087 DATA 64,170,162,8
32088 DATA 162,168,161,4
32089 DATA 255,168,161,4
32090 DATA 0,160,160,16
32091 DATA 0,160,160,16
32092 DATA 128,168,161,4
32093 DATA 173,168,161,4
32094 DATA 162,168,161,4
32095 DATA 193,168,161,4
32096 DATA 0,160,160,32
32097 DATA 64,170,162,2
32098 DATA 47,170,162,2
32099 DATA 64,170,162,2
32100 DATA 47,170,162,2
32101 DATA 96,168,161,4
32102 DATA 64,170,162,2
32103 DATA 47,170,162,2
32104 DATA 64,170,162,2
32105 DATA 47,170,162,2
32106 DATA 193,168,161,4
32107 DATA 72,170,162,4
32108 DATA 53,170,162,4
32109 DATA 96,168,161,4
32110 DATA 64,170,162,4
32111 DATA 47,170,162,4
32112 DATA 193,168,161,4
32113 DATA 64,170,162,2
32114 DATA 47,170,162,2
32115 DATA 64,170,162,2
32116 DATA 47,170,162,2
32117 DATA 96,168,161,4
32118 DATA 64,170,162,2
32119 DATA 47,170,162,2
32120 DATA 64,170,162,2
32121 DATA 47,170,162,2
32122 DATA 193,168,161,4
32123 DATA 72,170,162,4
32124 DATA 53,170,162,4
32125 DATA 96,168,161,4
32126 DATA 64,170,162,4
32127 DATA 47,170,162,4
32128 DATA 255,168,161,4
32129 DATA 64,168,160,2
32130 DATA 85,170,162,4
32131 DATA 64,170,162,4
32132 DATA 108,168,160,2
32133 DATA 128,168,161,4
32134 DATA 85,168,160,2
32135 DATA 96,170,162,4
32136 DATA 72,170,162,4
32137 DATA 81,168,160,2
32138 DATA 173,168,161,4
32139 DATA 85,168,160,2
32140 DATA 85,170,162,8
32141 DATA 64,170,162,8
32142 DATA 108,168,160,2
32143 DATA 162,168,161,4
32144 DATA 57,168,160,2
32145 DATA 64,168,160,2
32146 DATA 255,168,161,4
32147 DATA 0,160,160,16
32148 DATA 0,160,160,16
32149 DATA 0,160,160,16
32150 DATA 128,168,161,4
32151 DATA 173,168,161,4
32152 DATA 162,168,161,4
32153 DATA 255,168,161,4
32154 DATA 64,168,160,2
32155 DATA 85,170,162,4
32156 DATA 64,170,162,4
32157 DATA 108,168,160,2
32158 DATA 128,168,161,4
32159 DATA 85,168,160,2
32160 DATA 96,170,162,4
32161 DATA 72,170,162,4
32162 DATA 81,168,160,2
32163 DATA 173,168,161,4
32164 DATA 85,168,160,2
32165 DATA 85,170,162,8
32166 DATA 64,170,162,8
32167 DATA 108,168,160,2
32168 DATA 162,168,161,4
32169 DATA 57,168,160,2
32170 DATA 64,168,160,2
32171 DATA 255,168,161,4
32172 DATA 0,160,160,16
32173 DATA 0,160,160,16
32174 DATA 0,160,160,16
32175 DATA 128,168,161,4
32176 DATA 173,168,161,4
32177 DATA 162,168,161,4
32178 DATA 193,168,161,4
32179 DATA 19,168,160,1
32180 DATA 64,170,162,2
32181 DATA 47,170,162,2
32182 DATA 23,168,160,1
32183 DATA 31,168,160,1
32184 DATA 64,170,162,2
32185 DATA 47,170,162,2
32186 DATA 40,168,160,1
32187 DATA 96,168,161,4
32188 DATA 47,168,160,1
32189 DATA 64,170,162,2
32190 DATA 47,170,162,2
32191 DATA 64,168,160,1
32192 DATA 81,168,160,1
32193 DATA 64,170,162,2
32194 DATA 47,170,162,2
32195 DATA 96,168,160,1
32196 DATA 193,168,161,4
32197 DATA 0,160,160,8
32198 DATA 72,170,162,4
32199 DATA 53,170,162,4
32200 DATA 96,168,161,4
32201 DATA 64,170,162,4
32202 DATA 47,170,162,4
32203 DATA 193,168,161,4
32204 DATA 19,168,160,1
32205 DATA 64,170,162,2
32206 DATA 47,170,162,2
32207 DATA 23,168,160,1
32208 DATA 31,168,160,1
32209 DATA 64,170,162,2
32210 DATA 47,170,162,2
32211 DATA 40,168,160,1
32212 DATA 96,168,161,4
32213 DATA 47,168,160,1
32214 DATA 64,170,162,2
32215 DATA 47,170,162,2
32216 DATA 64,168,160,1
32217 DATA 81,168,160,1
32218 DATA 64,170,162,2
32219 DATA 47,170,162,2
32220 DATA 96,168,160,1
32221 DATA 193,168,161,4
32222 DATA 0,160,160,8
32223 DATA 72,170,162,4
32224 DATA 53,170,162,4
32225 DATA 96,168,161,4
32226 DATA 64,170,162,4
32227 DATA 47,170,162,4
32228 DATA 114,168,161,2
32229 DATA 173,168,161,2
32230 DATA 68,168,162,8
32231 DATA 85,168,162,8
32232 DATA 114,168,161,2
32233 DATA 173,168,161,2
32234 DATA 114,168,161,2
32235 DATA 173,168,161,2
32236 DATA 114,168,161,2
32237 DATA 173,168,161,2
32238 DATA 128,168,161,4
32239 DATA 193,168,161,4
32240 DATA 76,168,162,4
32241 DATA 96,168,162,4
32242 DATA 114,168,161,4
32243 DATA 173,168,161,4
32244 DATA 68,168,162,4
32245 DATA 85,168,162,4
32246 DATA 114,168,161,2
32247 DATA 173,168,161,2
32248 DATA 68,168,162,8
32249 DATA 57,168,162,8
32250 DATA 114,168,161,2
32251 DATA 173,168,161,2
32252 DATA 114,168,161,2
32253 DATA 173,168,161,2
32254 DATA 114,168,161,2
32255 DATA 173,168,161,2
32256 DATA 128,168,161,4
32257 DATA 193,168,161,4
32258 DATA 76,168,162,4
32259 DATA 64,168,162,4
32260 DATA 114,168,161,4
32261 DATA 173,168,161,4
32262 DATA 68,168,162,4
32263 DATA 57,168,162,4
32264 DATA 114,168,161,2
32265 DATA 173,168,160,2
32266 DATA 68,170,162,12
32267 DATA 42,170,162,12
32268 DATA 114,168,161,2
32269 DATA 173,168,160,2
32270 DATA 114,168,161,2
32271 DATA 173,168,160,2
32272 DATA 114,168,161,2
32273 DATA 173,168,160,2
32274 DATA 128,168,161,4
32275 DATA 193,168,160,4
32276 DATA 114,168,161,4
32277 DATA 173,168,160,4
32278 DATA 0,160,160,4
32279 DATA 0,160,160,4
32280 DATA 173,168,161,2
32281 DATA 20,168,160,1
32282 DATA 20,170,162,1
32283 DATA 31,170,162,1
32284 DATA 28,168,160,1
32285 DATA 42,170,162,1
32286 DATA 64,170,162,1
32287 DATA 173,168,161,2
32288 DATA 33,168,160,1
32289 DATA 0,160,160,4
32290 DATA 0,160,160,4
32291 DATA 42,168,160,1
32292 DATA 173,168,161,2
32293 DATA 57,168,160,1
32294 DATA 68,168,160,1
32295 DATA 173,168,161,2
32296 DATA 85,168,160,1
32297 DATA 20,170,162,1
32298 DATA 31,170,162,1
32299 DATA 114,168,160,1
32300 DATA 42,170,162,1
32301 DATA 64,170,162,1
32302 DATA 173,168,161,2
32303 DATA 85,168,160,2
32304 DATA 0,160,160,4
32305 DATA 0,160,160,4
32306 DATA 0,160,160,6
32307 DATA 0,160,160,6
32308 DATA 0,160,160,4
32309 DATA 0,160,160,4
32310 DATA 255,167,161,4
32311 DATA 64,164,160,2
32312 DATA 85,169,162,4
32313 DATA 64,169,162,4
32314 DATA 108,164,160,2
32315 DATA 128,167,161,4
32316 DATA 85,164,160,2
32317 DATA 96,169,162,4
32318 DATA 72,169,162,4
32319 DATA 81,164,160,2
32320 DATA 173,167,161,4
32321 DATA 85,164,160,2
32322 DATA 85,169,162,8
32323 DATA 64,169,162,8
32324 DATA 108,164,160,2
32325 DATA 162,167,161,4
32326 DATA 57,164,160,2
32327 DATA 64,164,160,2
32328 DATA 255,167,161,4
32329 DATA 0,160,160,16
32330 DATA 0,160,160,16
32331 DATA 0,160,160,16
32332 DATA 128,167,161,4
32333 DATA 173,167,161,4
32334 DATA 162,167,161,4
32335 DATA 255,167,161,4
32336 DATA 64,164,160,2
32337 DATA 85,169,162,4
32338 DATA 64,169,162,4
32339 DATA 108,164,160,2
32340 DATA 128,167,161,4
32341 DATA 85,164,160,2
32342 DATA 96,169,162,4
32343 DATA 72,169,162,4
32344 DATA 81,164,160,2
32345 DATA 173,167,161,4
32346 DATA 85,164,160,2
32347 DATA 85,169,162,8
32348 DATA 64,169,162,8
32349 DATA 108,164,160,2
32350 DATA 162,167,161,4
32351 DATA 57,164,160,2
32352 DATA 64,164,160,2
32353 DATA 255,167,161,4
32354 DATA 0,160,160,16
32355 DATA 0,160,160,16
32356 DATA 0,160,160,16
32357 DATA 128,167,161,4
32358 DATA 173,167,161,4
32359 DATA 162,167,161,4
32360 DATA 255,165,161,4
32361 DATA 64,163,160,2
32362 DATA 85,167,162,4
32363 DATA 64,167,162,4
32364 DATA 108,163,160,2
32365 DATA 128,165,161,4
32366 DATA 85,163,160,2
32367 DATA 96,167,162,4
32368 DATA 72,167,162,4
32369 DATA 81,163,160,2
32370 DATA 173,165,161,4
32371 DATA 85,163,160,2
32372 DATA 85,167,162,8
32373 DATA 64,167,162,8
32374 DATA 108,163,160,2
32375 DATA 162,165,161,4
32376 DATA 57,163,160,2
32377 DATA 64,163,160,2
32378 DATA 255,165,161,4
32379 DATA 0,160,160,16
32380 DATA 0,160,160,16
32381 DATA 0,160,160,16
32382 DATA 128,165,161,4
32383 DATA 173,165,161,4
32384 DATA 162,165,161,4
32385 DATA 255,165,161,4
32386 DATA 64,163,160,2
32387 DATA 85,167,162,4
32388 DATA 64,167,162,4
32389 DATA 108,163,160,2
32390 DATA 128,165,161,4
32391 DATA 85,163,160,2
32392 DATA 96,167,162,4
32393 DATA 72,167,162,4
32394 DATA 81,163,160,2
32395 DATA 173,165,161,4
32396 DATA 85,163,160,2
32397 DATA 85,167,162,8
32398 DATA 64,167,162,8
32399 DATA 108,163,160,2
32400 DATA 162,165,161,4
32401 DATA 57,163,160,2
32402 DATA 64,163,160,2
32403 DATA 255,165,161,4
32404 DATA 0,160,160,16
32405 DATA 0,160,160,16
32406 DATA 0,160,160,16
32407 DATA 128,165,161,4
32408 DATA 173,165,161,4
32409 DATA 162,165,161,4
32410 DATA 255,163,161,4
32411 DATA 64,162,160,2
32412 DATA 85,164,161,4
32413 DATA 64,164,161,4
32414 DATA 108,162,160,2
32415 DATA 128,163,161,4
32416 DATA 85,162,160,2
32417 DATA 96,164,161,4
32418 DATA 72,164,161,4
32419 DATA 81,162,160,2
32420 DATA 173,163,161,4
32421 DATA 85,162,160,2
32422 DATA 85,164,161,8
32423 DATA 64,164,161,8
32424 DATA 108,162,160,2
32425 DATA 162,163,161,4
32426 DATA 57,162,160,2
32427 DATA 64,162,160,2
32428 DATA 255,163,161,4
32429 DATA 0,160,160,16
32430 DATA 0,160,160,16
32431 DATA 0,160,160,16
32432 DATA 128,163,161,4
32433 DATA 173,163,161,4
32434 DATA 162,163,161,4
32435 DATA 255,163,161,4
32436 DATA 64,162,160,2
32437 DATA 85,164,161,4
32438 DATA 64,164,161,4
32439 DATA 108,162,160,2
32440 DATA 128,163,161,4
32441 DATA 85,162,160,2
32442 DATA 96,164,161,4
32443 DATA 72,164,161,4
32444 DATA 81,162,160,2
32445 DATA 173,163,161,4
32446 DATA 85,162,160,2
32447 DATA 85,164,161,8
32448 DATA 64,164,161,8
32449 DATA 108,162,160,2
32450 DATA 162,163,161,4
32451 DATA 57,162,160,2
32452 DATA 64,162,160,2
32453 DATA 255,163,161,4
32454 DATA 0,160,160,16
32455 DATA 0,160,160,16
32456 DATA 0,160,160,16
32457 DATA 128,163,161,4
32458 DATA 173,163,161,4
32459 DATA 162,163,161,4

32760 REM --
32761 REM PRIMA APRILIS COMPO 2024 BY
32762 REM Mono, Adam Klobukowski, Seban/Slt, Mq

Post's attachments

PA2024.LST 11.55 kb, nikt jeszcze nie pobierał tego pliku.

Tylko zalogowani mogą pobierać załączniki.

hex, code and ror'n'rol
niewiedza buduje, wiedza rujnuje

Mq · 2024-03-30 12:41:41

Mq
Starszy Atarowiec
Nieaktywny

Skąd: Poznań
Zarejestrowany: 2016-10-13
Posty: 2,927

Odp: Prima Aprilis Compo 2024

Dzięki mono! Fajny program:-)
Osobiście niewielki mam wkład, bo czasu za bardzo na to nie mam... Ale staram się prawie co roku brać minimalny udział w Prima Aprilis Compo, chyba trzeci raz wziąłem udział minimalny:-)
Jeszcze jest czas, może ktoś się jeszcze dołączy, ale już teraz programik jest zacny:-)

mono · 2024-03-30 12:49:53

mono
Starszy Atarowiec
Nieaktywny

Skąd: inąd
Zarejestrowany: 2007-08-20
Posty: 2,900

Odp: Prima Aprilis Compo 2024

Mamy jeszcze 2.5 dnia :) Bez godziny.

Edit: Tylko drobne optymalizacje: FOR/NEXT zamiast GOTO i przeniosłem kod Sebana dalej tak, żeby ewentualne GOTO nie musiały zbyt dużo szukać. Klawisze konsoli pozwalają elegancko zakończyć program.

1 GRAPHICS 9: REM -- set the mode by Adam K.

10010 GOSUB 31900:GOSUB 32000:Z20=20:C20=PEEK(Z20)

11000 FOR Z=Z0 TO Z1:T20=PEEK(Z20):IF T20<>C20 THEN C20=T20:C=C+Z1

29800 IF C<Z6 THEN Z=Z0:NEXT Z
29810 C=0

29820 IF T0=Z0 THEN P0=F(N):V0=VF(N):S0=VT(N):T0=L(N):POKE PF0,P0:N=N+Z1:IF N>E THEN N=Z0
29830 POKE PC0,V0:IF V0>S0 THEN V0=V0-Z2
29840 T0=T0-Z1

29850 IF T1=Z0 THEN P1=F(N):V1=VF(N):S1=VT(N):T1=L(N):POKE PF1,P1:N=N+Z1:IF N>E THEN N=Z0
29860 POKE PC1,V1:IF V1>S1 THEN V1=V1-Z2
29870 T1=T1-Z1

29880 IF T2=Z0 THEN P2=F(N):V2=VF(N):S2=VT(N):T2=L(N):POKE PF2,P2:N=N+Z1:IF N>E THEN N=Z0
29890 POKE PC2,V2:IF V2>S2 THEN V2=V2-Z2
29900 T2=T2-Z1

29910 IF T3=Z0 THEN P3=F(N):V3=VF(N):S3=VT(N):T3=L(N):POKE PF3,P3:N=N+Z1:IF N>E THEN N=Z0
29920 POKE PC3,V3:IF V3>S3 THEN V3=V3-Z2
29930 T3=T3-Z1

29980 IF PEEK(GC)=7 THEN Z=Z0:NEXT Z
29990 END

31900 REM -- let's start by Seban/Slt -- +sound by Mq
31901 DL=PEEK(560)+256*PEEK(561)
31902 FOR I=1536 TO 1548:READ A:POKE I,A:NEXT I:POKE DL+134,143:POKE 512,0:POKE 513,6:POKE 54286,192
31903 FOR Y=128 TO 191
31904 COLOR Y/4:PLOT 0,Y:DRAWTO 79,Y
31905 R=RND(0)*79: COLOR R
31906 PLOT R,RND(0)*127
31907 SOUND 0,4,5,Y:NEXT Y
31908 FOR X=60 TO 76
31909 COLOR X+3:PLOT X/1.5,128:DRAWTO X,191
31910 SOUND 0,7,8,X:NEXT X
31911 FOR X=0 TO 31
31912 COLOR X/2:PLOT 30,12:DRAWTO X+14,51:DRAWTO 30,91
31913 SOUND 0,1,2,X:NEXT X:SOUND 0,0,0,0:RETURN
31914 DATA 72,169,192,141,27,208,169,4,141,26,208,104,64
31915 REM -- end of let's start --

31990 REM -- Mono part
32000 Z0=0:Z1=1:Z2=2:Z6=6:T0=Z0:T1=Z0:T2=Z0:T3=Z0
32010 GC=53279:PF0=53760:PC0=PF0+Z1:PF1=PC0+Z1:PC1=PF1+Z1:PF2=PC1+Z1:PC2=PF2+Z1:PF3=PC2+Z1:PC3=PF3+Z1
32020 E=409:DIM F(E),VF(E),VT(E),L(E):RESTORE 32050
32030 FOR I=Z0 TO E:SOUND Z0,Z2,10,Z6*RND(Z0):READ F,VF,VT,L:F(I)=F:VF(I)=VF:VT(I)=VT:L(I)=L:NEXT I
32040 C=Z0:N=Z0:RETURN

32050 DATA 255,168,161,4
32051 DATA 0,160,160,32
32052 DATA 0,160,160,32
32053 DATA 0,160,160,32
32054 DATA 128,168,161,4
32055 DATA 173,168,161,4
32056 DATA 162,168,161,4
32057 DATA 255,168,161,4
32058 DATA 128,168,161,4
32059 DATA 173,168,161,4
32060 DATA 162,168,161,4
32061 DATA 255,168,161,4
32062 DATA 0,160,160,32
32063 DATA 85,170,162,4
32064 DATA 64,170,162,4
32065 DATA 128,168,161,4
32066 DATA 96,170,162,4
32067 DATA 72,170,162,4
32068 DATA 173,168,161,4
32069 DATA 85,170,162,8
32070 DATA 64,170,162,8
32071 DATA 162,168,161,4
32072 DATA 255,168,161,4
32073 DATA 0,160,160,16
32074 DATA 0,160,160,16
32075 DATA 128,168,161,4
32076 DATA 173,168,161,4
32077 DATA 162,168,161,4
32078 DATA 255,168,161,4
32079 DATA 0,160,160,32
32080 DATA 85,170,162,4
32081 DATA 64,170,162,4
32082 DATA 128,168,161,4
32083 DATA 96,170,162,4
32084 DATA 72,170,162,4
32085 DATA 173,168,161,4
32086 DATA 85,170,162,8
32087 DATA 64,170,162,8
32088 DATA 162,168,161,4
32089 DATA 255,168,161,4
32090 DATA 0,160,160,16
32091 DATA 0,160,160,16
32092 DATA 128,168,161,4
32093 DATA 173,168,161,4
32094 DATA 162,168,161,4
32095 DATA 193,168,161,4
32096 DATA 0,160,160,32
32097 DATA 64,170,162,2
32098 DATA 47,170,162,2
32099 DATA 64,170,162,2
32100 DATA 47,170,162,2
32101 DATA 96,168,161,4
32102 DATA 64,170,162,2
32103 DATA 47,170,162,2
32104 DATA 64,170,162,2
32105 DATA 47,170,162,2
32106 DATA 193,168,161,4
32107 DATA 72,170,162,4
32108 DATA 53,170,162,4
32109 DATA 96,168,161,4
32110 DATA 64,170,162,4
32111 DATA 47,170,162,4
32112 DATA 193,168,161,4
32113 DATA 64,170,162,2
32114 DATA 47,170,162,2
32115 DATA 64,170,162,2
32116 DATA 47,170,162,2
32117 DATA 96,168,161,4
32118 DATA 64,170,162,2
32119 DATA 47,170,162,2
32120 DATA 64,170,162,2
32121 DATA 47,170,162,2
32122 DATA 193,168,161,4
32123 DATA 72,170,162,4
32124 DATA 53,170,162,4
32125 DATA 96,168,161,4
32126 DATA 64,170,162,4
32127 DATA 47,170,162,4
32128 DATA 255,168,161,4
32129 DATA 64,168,160,2
32130 DATA 85,170,162,4
32131 DATA 64,170,162,4
32132 DATA 108,168,160,2
32133 DATA 128,168,161,4
32134 DATA 85,168,160,2
32135 DATA 96,170,162,4
32136 DATA 72,170,162,4
32137 DATA 81,168,160,2
32138 DATA 173,168,161,4
32139 DATA 85,168,160,2
32140 DATA 85,170,162,8
32141 DATA 64,170,162,8
32142 DATA 108,168,160,2
32143 DATA 162,168,161,4
32144 DATA 57,168,160,2
32145 DATA 64,168,160,2
32146 DATA 255,168,161,4
32147 DATA 0,160,160,16
32148 DATA 0,160,160,16
32149 DATA 0,160,160,16
32150 DATA 128,168,161,4
32151 DATA 173,168,161,4
32152 DATA 162,168,161,4
32153 DATA 255,168,161,4
32154 DATA 64,168,160,2
32155 DATA 85,170,162,4
32156 DATA 64,170,162,4
32157 DATA 108,168,160,2
32158 DATA 128,168,161,4
32159 DATA 85,168,160,2
32160 DATA 96,170,162,4
32161 DATA 72,170,162,4
32162 DATA 81,168,160,2
32163 DATA 173,168,161,4
32164 DATA 85,168,160,2
32165 DATA 85,170,162,8
32166 DATA 64,170,162,8
32167 DATA 108,168,160,2
32168 DATA 162,168,161,4
32169 DATA 57,168,160,2
32170 DATA 64,168,160,2
32171 DATA 255,168,161,4
32172 DATA 0,160,160,16
32173 DATA 0,160,160,16
32174 DATA 0,160,160,16
32175 DATA 128,168,161,4
32176 DATA 173,168,161,4
32177 DATA 162,168,161,4
32178 DATA 193,168,161,4
32179 DATA 19,168,160,1
32180 DATA 64,170,162,2
32181 DATA 47,170,162,2
32182 DATA 23,168,160,1
32183 DATA 31,168,160,1
32184 DATA 64,170,162,2
32185 DATA 47,170,162,2
32186 DATA 40,168,160,1
32187 DATA 96,168,161,4
32188 DATA 47,168,160,1
32189 DATA 64,170,162,2
32190 DATA 47,170,162,2
32191 DATA 64,168,160,1
32192 DATA 81,168,160,1
32193 DATA 64,170,162,2
32194 DATA 47,170,162,2
32195 DATA 96,168,160,1
32196 DATA 193,168,161,4
32197 DATA 0,160,160,8
32198 DATA 72,170,162,4
32199 DATA 53,170,162,4
32200 DATA 96,168,161,4
32201 DATA 64,170,162,4
32202 DATA 47,170,162,4
32203 DATA 193,168,161,4
32204 DATA 19,168,160,1
32205 DATA 64,170,162,2
32206 DATA 47,170,162,2
32207 DATA 23,168,160,1
32208 DATA 31,168,160,1
32209 DATA 64,170,162,2
32210 DATA 47,170,162,2
32211 DATA 40,168,160,1
32212 DATA 96,168,161,4
32213 DATA 47,168,160,1
32214 DATA 64,170,162,2
32215 DATA 47,170,162,2
32216 DATA 64,168,160,1
32217 DATA 81,168,160,1
32218 DATA 64,170,162,2
32219 DATA 47,170,162,2
32220 DATA 96,168,160,1
32221 DATA 193,168,161,4
32222 DATA 0,160,160,8
32223 DATA 72,170,162,4
32224 DATA 53,170,162,4
32225 DATA 96,168,161,4
32226 DATA 64,170,162,4
32227 DATA 47,170,162,4
32228 DATA 114,168,161,2
32229 DATA 173,168,161,2
32230 DATA 68,168,162,8
32231 DATA 85,168,162,8
32232 DATA 114,168,161,2
32233 DATA 173,168,161,2
32234 DATA 114,168,161,2
32235 DATA 173,168,161,2
32236 DATA 114,168,161,2
32237 DATA 173,168,161,2
32238 DATA 128,168,161,4
32239 DATA 193,168,161,4
32240 DATA 76,168,162,4
32241 DATA 96,168,162,4
32242 DATA 114,168,161,4
32243 DATA 173,168,161,4
32244 DATA 68,168,162,4
32245 DATA 85,168,162,4
32246 DATA 114,168,161,2
32247 DATA 173,168,161,2
32248 DATA 68,168,162,8
32249 DATA 57,168,162,8
32250 DATA 114,168,161,2
32251 DATA 173,168,161,2
32252 DATA 114,168,161,2
32253 DATA 173,168,161,2
32254 DATA 114,168,161,2
32255 DATA 173,168,161,2
32256 DATA 128,168,161,4
32257 DATA 193,168,161,4
32258 DATA 76,168,162,4
32259 DATA 64,168,162,4
32260 DATA 114,168,161,4
32261 DATA 173,168,161,4
32262 DATA 68,168,162,4
32263 DATA 57,168,162,4
32264 DATA 114,168,161,2
32265 DATA 173,168,160,2
32266 DATA 68,170,162,12
32267 DATA 42,170,162,12
32268 DATA 114,168,161,2
32269 DATA 173,168,160,2
32270 DATA 114,168,161,2
32271 DATA 173,168,160,2
32272 DATA 114,168,161,2
32273 DATA 173,168,160,2
32274 DATA 128,168,161,4
32275 DATA 193,168,160,4
32276 DATA 114,168,161,4
32277 DATA 173,168,160,4
32278 DATA 0,160,160,4
32279 DATA 0,160,160,4
32280 DATA 173,168,161,2
32281 DATA 20,168,160,1
32282 DATA 20,170,162,1
32283 DATA 31,170,162,1
32284 DATA 28,168,160,1
32285 DATA 42,170,162,1
32286 DATA 64,170,162,1
32287 DATA 173,168,161,2
32288 DATA 33,168,160,1
32289 DATA 0,160,160,4
32290 DATA 0,160,160,4
32291 DATA 42,168,160,1
32292 DATA 173,168,161,2
32293 DATA 57,168,160,1
32294 DATA 68,168,160,1
32295 DATA 173,168,161,2
32296 DATA 85,168,160,1
32297 DATA 20,170,162,1
32298 DATA 31,170,162,1
32299 DATA 114,168,160,1
32300 DATA 42,170,162,1
32301 DATA 64,170,162,1
32302 DATA 173,168,161,2
32303 DATA 85,168,160,2
32304 DATA 0,160,160,4
32305 DATA 0,160,160,4
32306 DATA 0,160,160,6
32307 DATA 0,160,160,6
32308 DATA 0,160,160,4
32309 DATA 0,160,160,4
32310 DATA 255,167,161,4
32311 DATA 64,164,160,2
32312 DATA 85,169,162,4
32313 DATA 64,169,162,4
32314 DATA 108,164,160,2
32315 DATA 128,167,161,4
32316 DATA 85,164,160,2
32317 DATA 96,169,162,4
32318 DATA 72,169,162,4
32319 DATA 81,164,160,2
32320 DATA 173,167,161,4
32321 DATA 85,164,160,2
32322 DATA 85,169,162,8
32323 DATA 64,169,162,8
32324 DATA 108,164,160,2
32325 DATA 162,167,161,4
32326 DATA 57,164,160,2
32327 DATA 64,164,160,2
32328 DATA 255,167,161,4
32329 DATA 0,160,160,16
32330 DATA 0,160,160,16
32331 DATA 0,160,160,16
32332 DATA 128,167,161,4
32333 DATA 173,167,161,4
32334 DATA 162,167,161,4
32335 DATA 255,167,161,4
32336 DATA 64,164,160,2
32337 DATA 85,169,162,4
32338 DATA 64,169,162,4
32339 DATA 108,164,160,2
32340 DATA 128,167,161,4
32341 DATA 85,164,160,2
32342 DATA 96,169,162,4
32343 DATA 72,169,162,4
32344 DATA 81,164,160,2
32345 DATA 173,167,161,4
32346 DATA 85,164,160,2
32347 DATA 85,169,162,8
32348 DATA 64,169,162,8
32349 DATA 108,164,160,2
32350 DATA 162,167,161,4
32351 DATA 57,164,160,2
32352 DATA 64,164,160,2
32353 DATA 255,167,161,4
32354 DATA 0,160,160,16
32355 DATA 0,160,160,16
32356 DATA 0,160,160,16
32357 DATA 128,167,161,4
32358 DATA 173,167,161,4
32359 DATA 162,167,161,4
32360 DATA 255,165,161,4
32361 DATA 64,163,160,2
32362 DATA 85,167,162,4
32363 DATA 64,167,162,4
32364 DATA 108,163,160,2
32365 DATA 128,165,161,4
32366 DATA 85,163,160,2
32367 DATA 96,167,162,4
32368 DATA 72,167,162,4
32369 DATA 81,163,160,2
32370 DATA 173,165,161,4
32371 DATA 85,163,160,2
32372 DATA 85,167,162,8
32373 DATA 64,167,162,8
32374 DATA 108,163,160,2
32375 DATA 162,165,161,4
32376 DATA 57,163,160,2
32377 DATA 64,163,160,2
32378 DATA 255,165,161,4
32379 DATA 0,160,160,16
32380 DATA 0,160,160,16
32381 DATA 0,160,160,16
32382 DATA 128,165,161,4
32383 DATA 173,165,161,4
32384 DATA 162,165,161,4
32385 DATA 255,165,161,4
32386 DATA 64,163,160,2
32387 DATA 85,167,162,4
32388 DATA 64,167,162,4
32389 DATA 108,163,160,2
32390 DATA 128,165,161,4
32391 DATA 85,163,160,2
32392 DATA 96,167,162,4
32393 DATA 72,167,162,4
32394 DATA 81,163,160,2
32395 DATA 173,165,161,4
32396 DATA 85,163,160,2
32397 DATA 85,167,162,8
32398 DATA 64,167,162,8
32399 DATA 108,163,160,2
32400 DATA 162,165,161,4
32401 DATA 57,163,160,2
32402 DATA 64,163,160,2
32403 DATA 255,165,161,4
32404 DATA 0,160,160,16
32405 DATA 0,160,160,16
32406 DATA 0,160,160,16
32407 DATA 128,165,161,4
32408 DATA 173,165,161,4
32409 DATA 162,165,161,4
32410 DATA 255,163,161,4
32411 DATA 64,162,160,2
32412 DATA 85,164,161,4
32413 DATA 64,164,161,4
32414 DATA 108,162,160,2
32415 DATA 128,163,161,4
32416 DATA 85,162,160,2
32417 DATA 96,164,161,4
32418 DATA 72,164,161,4
32419 DATA 81,162,160,2
32420 DATA 173,163,161,4
32421 DATA 85,162,160,2
32422 DATA 85,164,161,8
32423 DATA 64,164,161,8
32424 DATA 108,162,160,2
32425 DATA 162,163,161,4
32426 DATA 57,162,160,2
32427 DATA 64,162,160,2
32428 DATA 255,163,161,4
32429 DATA 0,160,160,16
32430 DATA 0,160,160,16
32431 DATA 0,160,160,16
32432 DATA 128,163,161,4
32433 DATA 173,163,161,4
32434 DATA 162,163,161,4
32435 DATA 255,163,161,4
32436 DATA 64,162,160,2
32437 DATA 85,164,161,4
32438 DATA 64,164,161,4
32439 DATA 108,162,160,2
32440 DATA 128,163,161,4
32441 DATA 85,162,160,2
32442 DATA 96,164,161,4
32443 DATA 72,164,161,4
32444 DATA 81,162,160,2
32445 DATA 173,163,161,4
32446 DATA 85,162,160,2
32447 DATA 85,164,161,8
32448 DATA 64,164,161,8
32449 DATA 108,162,160,2
32450 DATA 162,163,161,4
32451 DATA 57,162,160,2
32452 DATA 64,162,160,2
32453 DATA 255,163,161,4
32454 DATA 0,160,160,16
32455 DATA 0,160,160,16
32456 DATA 0,160,160,16
32457 DATA 128,163,161,4
32458 DATA 173,163,161,4
32459 DATA 162,163,161,4
32460 REM -- end of Mono part

32760 REM --
32761 REM PRIMA APRILIS COMPO 2024 BY
32762 REM Mono, Adam Klobukowski, Seban/Slt, Mq

Ostatnio edytowany przez mono (2024-03-30 15:48:49)

Post's attachments

PA2024.LST 11.66 kb, liczba pobrań: 2 (od 2024-03-30)

Tylko zalogowani mogą pobierać załączniki.

hex, code and ror'n'rol
niewiedza buduje, wiedza rujnuje

Sikor · 2024-03-30 19:57:19

Sikor
Naddyskownik
Nieaktywny

Skąd: Warszawa
Zarejestrowany: 2002-06-17
Posty: 10,940

Odp: Prima Aprilis Compo 2024

Podoba mi się motyw grafiki kradziony z Ataroida (i poprawiony) nie podoba mi się sam kod - idea się nieco zatraciła, jak proponowałem konkurs dla każdego - dla zabawy - kod mial być prosty i zrozumiały, aby się każdy mógł dołaczyć. Tu już tak nie jest.
Chętnie bym dodał jakieś UFO, ale jestem noga z duszków - super by było scalić to z częścią muzyczną od mono, ale za cienki jestem ;) Choć w sumie muza z Bruce Lee (nieco wolniejsza), więc może Bruce by latal po powierzchni w lewo i prawo (na wysokości przerwania DLI)?
Jakąś popierdółkę zaraz spróbuję dodać, o ile mi się uda - nieco mało czasu mam ostatnio na przyjemności, ale z 15 minut znajdę chyba...
------------------------------------------------------------------------------------------------------------------------------------------------------------
Ok, w tym roku ode mnie tylko wstępna popierdółka i pomysł na sprite-a, ale tego nie zdążę dodać :/

10 REM SOME INFO BEFORE DEMO MODE BY SIKOR
11 GRAPHICS 0:POKE 710,0:POKE 709,15:POKE 755,0
12 ? "Another year, another PA compo...":? "------------------------------------"
13 ? "Take it easy..."
14 ? :? :? "This year they had their fingers:"
15 ? "mono, Adam K, seban, Mq, Sikor"
50 FOR I=0 TO 500:NEXT I
10000 GRAPHICS 9:REM -- set the mode by Adam K.
10010 GOSUB 31900:GOSUB 32000:Z20=20:C20=PEEK(Z20)
11000 FOR Z=Z0 TO Z1:T20=PEEK(Z20):IF T20<>C20 THEN C20=T20:C=C+Z1
29800 IF C<Z6 THEN Z=Z0:NEXT Z
29810 C=0
29820 IF T0=Z0 THEN P0=F(N):V0=VF(N):S0=VT(N):T0=L(N):POKE PF0,P0:N=N+Z1:IF N>E THEN N=Z0
29830 POKE PC0,V0:IF V0>S0 THEN V0=V0-Z2
29840 T0=T0-Z1
29850 IF T1=Z0 THEN P1=F(N):V1=VF(N):S1=VT(N):T1=L(N):POKE PF1,P1:N=N+Z1:IF N>E THEN N=Z0
29860 POKE PC1,V1:IF V1>S1 THEN V1=V1-Z2
29870 T1=T1-Z1
29880 IF T2=Z0 THEN P2=F(N):V2=VF(N):S2=VT(N):T2=L(N):POKE PF2,P2:N=N+Z1:IF N>E THEN N=Z0
29890 POKE PC2,V2:IF V2>S2 THEN V2=V2-Z2
29900 T2=T2-Z1
29910 IF T3=Z0 THEN P3=F(N):V3=VF(N):S3=VT(N):T3=L(N):POKE PF3,P3:N=N+Z1:IF N>E THEN N=Z0
29920 POKE PC3,V3:IF V3>S3 THEN V3=V3-Z2
29930 T3=T3-Z1
29980 IF PEEK(GC)=7 THEN Z=Z0:NEXT Z
29990 END 
31900 REM -- let's start by Seban/Slt -- +sound by Mq
31901 DL=PEEK(560)+256*PEEK(561)
31902 FOR I=1536 TO 1548:READ A:POKE I,A:NEXT I:POKE DL+134,143:POKE 512,0:POKE 513,6:POKE 54286,192
31903 FOR Y=128 TO 191
31904 COLOR Y/4:PLOT 0,Y:DRAWTO 79,Y
31905 R=RND(0)*79:COLOR R
31906 PLOT R,RND(0)*127
31907 SOUND 0,4,5,Y:NEXT Y
31908 FOR X=60 TO 76
31909 COLOR X+3:PLOT X/1.5,128:DRAWTO X,191
31910 SOUND 0,7,8,X:NEXT X
31911 FOR X=0 TO 31
31912 COLOR X/2:PLOT 30,12:DRAWTO X+14,51:DRAWTO 30,91
31913 SOUND 0,1,2,X:NEXT X:SOUND 0,0,0,0:RETURN 
31914 DATA 72,169,192,141,27,208,169,4,141,26,208,104,64
31915 REM -- end of let's start --
31990 REM -- Mono part
32000 Z0=0:Z1=1:Z2=2:Z6=6:T0=Z0:T1=Z0:T2=Z0:T3=Z0
32010 GC=53279:PF0=53760:PC0=PF0+Z1:PF1=PC0+Z1:PC1=PF1+Z1:PF2=PC1+Z1:PC2=PF2+Z1:PF3=PC2+Z1:PC3=PF3+Z1
32020 E=409:DIM F(E),VF(E),VT(E),L(E):RESTORE 32050
32030 FOR I=Z0 TO E:SOUND Z0,Z2,10,Z6*RND(Z0):READ F,VF,VT,L:F(I)=F:VF(I)=VF:VT(I)=VT:L(I)=L:NEXT I
32040 C=Z0:N=Z0:RETURN 
32050 DATA 255,168,161,4
32051 DATA 0,160,160,32
32052 DATA 0,160,160,32
32053 DATA 0,160,160,32
32054 DATA 128,168,161,4
32055 DATA 173,168,161,4
32056 DATA 162,168,161,4
32057 DATA 255,168,161,4
32058 DATA 128,168,161,4
32059 DATA 173,168,161,4
32060 DATA 162,168,161,4
32061 DATA 255,168,161,4
32062 DATA 0,160,160,32
32063 DATA 85,170,162,4
32064 DATA 64,170,162,4
32065 DATA 128,168,161,4
32066 DATA 96,170,162,4
32067 DATA 72,170,162,4
32068 DATA 173,168,161,4
32069 DATA 85,170,162,8
32070 DATA 64,170,162,8
32071 DATA 162,168,161,4
32072 DATA 255,168,161,4
32073 DATA 0,160,160,16
32074 DATA 0,160,160,16
32075 DATA 128,168,161,4
32076 DATA 173,168,161,4
32077 DATA 162,168,161,4
32078 DATA 255,168,161,4
32079 DATA 0,160,160,32
32080 DATA 85,170,162,4
32081 DATA 64,170,162,4
32082 DATA 128,168,161,4
32083 DATA 96,170,162,4
32084 DATA 72,170,162,4
32085 DATA 173,168,161,4
32086 DATA 85,170,162,8
32087 DATA 64,170,162,8
32088 DATA 162,168,161,4
32089 DATA 255,168,161,4
32090 DATA 0,160,160,16
32091 DATA 0,160,160,16
32092 DATA 128,168,161,4
32093 DATA 173,168,161,4
32094 DATA 162,168,161,4
32095 DATA 193,168,161,4
32096 DATA 0,160,160,32
32097 DATA 64,170,162,2
32098 DATA 47,170,162,2
32099 DATA 64,170,162,2
32100 DATA 47,170,162,2
32101 DATA 96,168,161,4
32102 DATA 64,170,162,2
32103 DATA 47,170,162,2
32104 DATA 64,170,162,2
32105 DATA 47,170,162,2
32106 DATA 193,168,161,4
32107 DATA 72,170,162,4
32108 DATA 53,170,162,4
32109 DATA 96,168,161,4
32110 DATA 64,170,162,4
32111 DATA 47,170,162,4
32112 DATA 193,168,161,4
32113 DATA 64,170,162,2
32114 DATA 47,170,162,2
32115 DATA 64,170,162,2
32116 DATA 47,170,162,2
32117 DATA 96,168,161,4
32118 DATA 64,170,162,2
32119 DATA 47,170,162,2
32120 DATA 64,170,162,2
32121 DATA 47,170,162,2
32122 DATA 193,168,161,4
32123 DATA 72,170,162,4
32124 DATA 53,170,162,4
32125 DATA 96,168,161,4
32126 DATA 64,170,162,4
32127 DATA 47,170,162,4
32128 DATA 255,168,161,4
32129 DATA 64,168,160,2
32130 DATA 85,170,162,4
32131 DATA 64,170,162,4
32132 DATA 108,168,160,2
32133 DATA 128,168,161,4
32134 DATA 85,168,160,2
32135 DATA 96,170,162,4
32136 DATA 72,170,162,4
32137 DATA 81,168,160,2
32138 DATA 173,168,161,4
32139 DATA 85,168,160,2
32140 DATA 85,170,162,8
32141 DATA 64,170,162,8
32142 DATA 108,168,160,2
32143 DATA 162,168,161,4
32144 DATA 57,168,160,2
32145 DATA 64,168,160,2
32146 DATA 255,168,161,4
32147 DATA 0,160,160,16
32148 DATA 0,160,160,16
32149 DATA 0,160,160,16
32150 DATA 128,168,161,4
32151 DATA 173,168,161,4
32152 DATA 162,168,161,4
32153 DATA 255,168,161,4
32154 DATA 64,168,160,2
32155 DATA 85,170,162,4
32156 DATA 64,170,162,4
32157 DATA 108,168,160,2
32158 DATA 128,168,161,4
32159 DATA 85,168,160,2
32160 DATA 96,170,162,4
32161 DATA 72,170,162,4
32162 DATA 81,168,160,2
32163 DATA 173,168,161,4
32164 DATA 85,168,160,2
32165 DATA 85,170,162,8
32166 DATA 64,170,162,8
32167 DATA 108,168,160,2
32168 DATA 162,168,161,4
32169 DATA 57,168,160,2
32170 DATA 64,168,160,2
32171 DATA 255,168,161,4
32172 DATA 0,160,160,16
32173 DATA 0,160,160,16
32174 DATA 0,160,160,16
32175 DATA 128,168,161,4
32176 DATA 173,168,161,4
32177 DATA 162,168,161,4
32178 DATA 193,168,161,4
32179 DATA 19,168,160,1
32180 DATA 64,170,162,2
32181 DATA 47,170,162,2
32182 DATA 23,168,160,1
32183 DATA 31,168,160,1
32184 DATA 64,170,162,2
32185 DATA 47,170,162,2
32186 DATA 40,168,160,1
32187 DATA 96,168,161,4
32188 DATA 47,168,160,1
32189 DATA 64,170,162,2
32190 DATA 47,170,162,2
32191 DATA 64,168,160,1
32192 DATA 81,168,160,1
32193 DATA 64,170,162,2
32194 DATA 47,170,162,2
32195 DATA 96,168,160,1
32196 DATA 193,168,161,4
32197 DATA 0,160,160,8
32198 DATA 72,170,162,4
32199 DATA 53,170,162,4
32200 DATA 96,168,161,4
32201 DATA 64,170,162,4
32202 DATA 47,170,162,4
32203 DATA 193,168,161,4
32204 DATA 19,168,160,1
32205 DATA 64,170,162,2
32206 DATA 47,170,162,2
32207 DATA 23,168,160,1
32208 DATA 31,168,160,1
32209 DATA 64,170,162,2
32210 DATA 47,170,162,2
32211 DATA 40,168,160,1
32212 DATA 96,168,161,4
32213 DATA 47,168,160,1
32214 DATA 64,170,162,2
32215 DATA 47,170,162,2
32216 DATA 64,168,160,1
32217 DATA 81,168,160,1
32218 DATA 64,170,162,2
32219 DATA 47,170,162,2
32220 DATA 96,168,160,1
32221 DATA 193,168,161,4
32222 DATA 0,160,160,8
32223 DATA 72,170,162,4
32224 DATA 53,170,162,4
32225 DATA 96,168,161,4
32226 DATA 64,170,162,4
32227 DATA 47,170,162,4
32228 DATA 114,168,161,2
32229 DATA 173,168,161,2
32230 DATA 68,168,162,8
32231 DATA 85,168,162,8
32232 DATA 114,168,161,2
32233 DATA 173,168,161,2
32234 DATA 114,168,161,2
32235 DATA 173,168,161,2
32236 DATA 114,168,161,2
32237 DATA 173,168,161,2
32238 DATA 128,168,161,4
32239 DATA 193,168,161,4
32240 DATA 76,168,162,4
32241 DATA 96,168,162,4
32242 DATA 114,168,161,4
32243 DATA 173,168,161,4
32244 DATA 68,168,162,4
32245 DATA 85,168,162,4
32246 DATA 114,168,161,2
32247 DATA 173,168,161,2
32248 DATA 68,168,162,8
32249 DATA 57,168,162,8
32250 DATA 114,168,161,2
32251 DATA 173,168,161,2
32252 DATA 114,168,161,2
32253 DATA 173,168,161,2
32254 DATA 114,168,161,2
32255 DATA 173,168,161,2
32256 DATA 128,168,161,4
32257 DATA 193,168,161,4
32258 DATA 76,168,162,4
32259 DATA 64,168,162,4
32260 DATA 114,168,161,4
32261 DATA 173,168,161,4
32262 DATA 68,168,162,4
32263 DATA 57,168,162,4
32264 DATA 114,168,161,2
32265 DATA 173,168,160,2
32266 DATA 68,170,162,12
32267 DATA 42,170,162,12
32268 DATA 114,168,161,2
32269 DATA 173,168,160,2
32270 DATA 114,168,161,2
32271 DATA 173,168,160,2
32272 DATA 114,168,161,2
32273 DATA 173,168,160,2
32274 DATA 128,168,161,4
32275 DATA 193,168,160,4
32276 DATA 114,168,161,4
32277 DATA 173,168,160,4
32278 DATA 0,160,160,4
32279 DATA 0,160,160,4
32280 DATA 173,168,161,2
32281 DATA 20,168,160,1
32282 DATA 20,170,162,1
32283 DATA 31,170,162,1
32284 DATA 28,168,160,1
32285 DATA 42,170,162,1
32286 DATA 64,170,162,1
32287 DATA 173,168,161,2
32288 DATA 33,168,160,1
32289 DATA 0,160,160,4
32290 DATA 0,160,160,4
32291 DATA 42,168,160,1
32292 DATA 173,168,161,2
32293 DATA 57,168,160,1
32294 DATA 68,168,160,1
32295 DATA 173,168,161,2
32296 DATA 85,168,160,1
32297 DATA 20,170,162,1
32298 DATA 31,170,162,1
32299 DATA 114,168,160,1
32300 DATA 42,170,162,1
32301 DATA 64,170,162,1
32302 DATA 173,168,161,2
32303 DATA 85,168,160,2
32304 DATA 0,160,160,4
32305 DATA 0,160,160,4
32306 DATA 0,160,160,6
32307 DATA 0,160,160,6
32308 DATA 0,160,160,4
32309 DATA 0,160,160,4
32310 DATA 255,167,161,4
32311 DATA 64,164,160,2
32312 DATA 85,169,162,4
32313 DATA 64,169,162,4
32314 DATA 108,164,160,2
32315 DATA 128,167,161,4
32316 DATA 85,164,160,2
32317 DATA 96,169,162,4
32318 DATA 72,169,162,4
32319 DATA 81,164,160,2
32320 DATA 173,167,161,4
32321 DATA 85,164,160,2
32322 DATA 85,169,162,8
32323 DATA 64,169,162,8
32324 DATA 108,164,160,2
32325 DATA 162,167,161,4
32326 DATA 57,164,160,2
32327 DATA 64,164,160,2
32328 DATA 255,167,161,4
32329 DATA 0,160,160,16
32330 DATA 0,160,160,16
32331 DATA 0,160,160,16
32332 DATA 128,167,161,4
32333 DATA 173,167,161,4
32334 DATA 162,167,161,4
32335 DATA 255,167,161,4
32336 DATA 64,164,160,2
32337 DATA 85,169,162,4
32338 DATA 64,169,162,4
32339 DATA 108,164,160,2
32340 DATA 128,167,161,4
32341 DATA 85,164,160,2
32342 DATA 96,169,162,4
32343 DATA 72,169,162,4
32344 DATA 81,164,160,2
32345 DATA 173,167,161,4
32346 DATA 85,164,160,2
32347 DATA 85,169,162,8
32348 DATA 64,169,162,8
32349 DATA 108,164,160,2
32350 DATA 162,167,161,4
32351 DATA 57,164,160,2
32352 DATA 64,164,160,2
32353 DATA 255,167,161,4
32354 DATA 0,160,160,16
32355 DATA 0,160,160,16
32356 DATA 0,160,160,16
32357 DATA 128,167,161,4
32358 DATA 173,167,161,4
32359 DATA 162,167,161,4
32360 DATA 255,165,161,4
32361 DATA 64,163,160,2
32362 DATA 85,167,162,4
32363 DATA 64,167,162,4
32364 DATA 108,163,160,2
32365 DATA 128,165,161,4
32366 DATA 85,163,160,2
32367 DATA 96,167,162,4
32368 DATA 72,167,162,4
32369 DATA 81,163,160,2
32370 DATA 173,165,161,4
32371 DATA 85,163,160,2
32372 DATA 85,167,162,8
32373 DATA 64,167,162,8
32374 DATA 108,163,160,2
32375 DATA 162,165,161,4
32376 DATA 57,163,160,2
32377 DATA 64,163,160,2
32378 DATA 255,165,161,4
32379 DATA 0,160,160,16
32380 DATA 0,160,160,16
32381 DATA 0,160,160,16
32382 DATA 128,165,161,4
32383 DATA 173,165,161,4
32384 DATA 162,165,161,4
32385 DATA 255,165,161,4
32386 DATA 64,163,160,2
32387 DATA 85,167,162,4
32388 DATA 64,167,162,4
32389 DATA 108,163,160,2
32390 DATA 128,165,161,4
32391 DATA 85,163,160,2
32392 DATA 96,167,162,4
32393 DATA 72,167,162,4
32394 DATA 81,163,160,2
32395 DATA 173,165,161,4
32396 DATA 85,163,160,2
32397 DATA 85,167,162,8
32398 DATA 64,167,162,8
32399 DATA 108,163,160,2
32400 DATA 162,165,161,4
32401 DATA 57,163,160,2
32402 DATA 64,163,160,2
32403 DATA 255,165,161,4
32404 DATA 0,160,160,16
32405 DATA 0,160,160,16
32406 DATA 0,160,160,16
32407 DATA 128,165,161,4
32408 DATA 173,165,161,4
32409 DATA 162,165,161,4
32410 DATA 255,163,161,4
32411 DATA 64,162,160,2
32412 DATA 85,164,161,4
32413 DATA 64,164,161,4
32414 DATA 108,162,160,2
32415 DATA 128,163,161,4
32416 DATA 85,162,160,2
32417 DATA 96,164,161,4
32418 DATA 72,164,161,4
32419 DATA 81,162,160,2
32420 DATA 173,163,161,4
32421 DATA 85,162,160,2
32422 DATA 85,164,161,8
32423 DATA 64,164,161,8
32424 DATA 108,162,160,2
32425 DATA 162,163,161,4
32426 DATA 57,162,160,2
32427 DATA 64,162,160,2
32428 DATA 255,163,161,4
32429 DATA 0,160,160,16
32430 DATA 0,160,160,16
32431 DATA 0,160,160,16
32432 DATA 128,163,161,4
32433 DATA 173,163,161,4
32434 DATA 162,163,161,4
32435 DATA 255,163,161,4
32436 DATA 64,162,160,2
32437 DATA 85,164,161,4
32438 DATA 64,164,161,4
32439 DATA 108,162,160,2
32440 DATA 128,163,161,4
32441 DATA 85,162,160,2
32442 DATA 96,164,161,4
32443 DATA 72,164,161,4
32444 DATA 81,162,160,2
32445 DATA 173,163,161,4
32446 DATA 85,162,160,2
32447 DATA 85,164,161,8
32448 DATA 64,164,161,8
32449 DATA 108,162,160,2
32450 DATA 162,163,161,4
32451 DATA 57,162,160,2
32452 DATA 64,162,160,2
32453 DATA 255,163,161,4
32454 DATA 0,160,160,16
32455 DATA 0,160,160,16
32456 DATA 0,160,160,16
32457 DATA 128,163,161,4
32458 DATA 173,163,161,4
32459 DATA 162,163,161,4
32460 REM -- end of Mono part
32760 REM --
32761 REM PRIMA APRILIS COMPO 2024 BY
32762 REM Mono, Adam Klobukowski, Seban/Slt, Mq

I standardowo jako ATR - dla mnie łatwiej ;)

Ostatnio edytowany przez Sikor (2024-03-30 20:20:59)

Post's attachments

prima_aprilis_2024.atr 90.02 kb, liczba pobrań: 1 (od 2024-03-30)

Tylko zalogowani mogą pobierać załączniki.

Sikor umarł...

mono · 2024-03-30 20:30:25

mono
Starszy Atarowiec
Nieaktywny

Skąd: inąd
Zarejestrowany: 2007-08-20
Posty: 2,900

Odp: Prima Aprilis Compo 2024

Na czym polegają optymalizacje?
1. Dostęp do zmiennych numerycznych jest szybki w porównaniu do zmiennych tablicowych, bo nie trzeba wyszukiwać w tablicy (mnożenie i sumowanie FP) - stąd te wszystkie PFx, PCx i Px, Vx, Tx, Sx.
2. Skok przez GOTO zawsze wyszukuje linię o podanym numerze począwszy od początku kodu - stąd zamiana na FOR..NEXT, ponieważ punkt zapętlenia jest zachowywany na stosie BASIC-a i nie trzeba niczego wyszukiwać.
3. Zastąpienie stałych numerycznych zmiennymi powoduje tylko krótszy kod, bo są one zachowywane jako 2 bajty, a nie jako 8 przy każdym wystąpieniu. Prędkościowych optymalizacji to się tu nie spodziewam.
Tu akurat dużych oszczędności to wszystko nie przyniesie, więc można by w sumie z tych rzeczy zrezygnować - przesadziłem z optymalizacjami.

Jaka w ogóle za tym stoi idea?
1. Ponieważ program startuje od pierwszej linii, to tam znajduje się GOTO do kodu inicjalizującego różne tablice i zmienne - tego co wykonuje się tylko raz i do czego potem nigdy się nie wraca.
2. Następnie definiowane są procedury które są wywoływane w kodzie przez GOSUB. Są na początku, więc BASIC nie straci zbyt dużo czasu na poszukiwania.
3. Następnie definiowany jest punkt wejścia do pętli głównej i program główny - tu się skacze po wykonaniu procedury inicjalizującej i tu jest właśnie ten FOR..NEXT z reinicjalizacją licznika, który pętli pętlę główną.
4. Teraz następuje kod inicjalizujący tablice i zmienne - właśnie ten do którego jest GOTO w pierwszej linii.
5. Na samym końcu umieszczam komentarze o autorach i inne informacje o programie.
Widać, że wszystko jest postawione na głowie. Czemu tak? Ano z powodu czasochłonnego algorytmu wyszukiwania linii w BASIC-u. Tej wady częściowo pozbawiony jest TBXL bo on linii o numerze większym niż aktualna potrafi poszukiwać wprzód, ale linii o numerze mniejszym już nie potrafi (w stokenizowanej linii jest jej długość więc łatwo skoczyć wprzód, ale nie ma długości poprzedniej linii, więc nie można skoczyć wstecz).

A czemu w ogóle optymalizowałem? Bo obawiam się, że muzyką z Bruce Lee zabiłem projekt i już nikt niczego nie będzie chciał dodać. Za ciężka.
Ale w TBXL chodzi lepiej :)

hex, code and ror'n'rol
niewiedza buduje, wiedza rujnuje

seban · 2024-03-30 20:39:11

seban
Starszy Atarowiec
Nieaktywny

Skąd: -oo
Zarejestrowany: 2002-07-13
Posty: 2,988

Odp: Prima Aprilis Compo 2024

dodałem drobiazg na PMG...

ps1) mono nie wiem tylko czy nie dodawałem zmian kiedy Ty robiłeś poprawki, mam nadzieję że nie bo będzie trzeba merge robić :P
ps2) widzę że Sikor też w międzczasie dodał coś od siebie, to co wklejałem poniżej nie ma jego zmian, zatem pozostaje merge. Kto robi? bo jak się zabiorą znowu dwie osoby to będzie rzeźnia :P @mono poprawisz?

1 GRAPHICS 9:POKE 106,PEEK(106)-16:GRAPHICS 9:REM -- set the mode by Adam K.
10010 GOSUB 31900:GOSUB 32000:Z20=20:POKE Z20,X:C20=X
11000 FOR Z=Z0 TO Z1:T20=PEEK(Z20):POKE PM0,T20:IF T20<>C20 THEN C20=T20:C=C+Z1
29800 IF C<Z6 THEN Z=Z0:NEXT Z
29810 C=0
29820 IF T0=Z0 THEN P0=F(N):V0=VF(N):S0=VT(N):T0=L(N):POKE PF0,P0:N=N+Z1:IF N>E THEN N=Z0
29830 POKE PC0,V0:IF V0>S0 THEN V0=V0-Z2
29840 T0=T0-Z1
29850 IF T1=Z0 THEN P1=F(N):V1=VF(N):S1=VT(N):T1=L(N):POKE PF1,P1:N=N+Z1:IF N>E THEN N=Z0
29860 POKE PC1,V1:IF V1>S1 THEN V1=V1-Z2
29870 T1=T1-Z1
29880 IF T2=Z0 THEN P2=F(N):V2=VF(N):S2=VT(N):T2=L(N):POKE PF2,P2:N=N+Z1:IF N>E THEN N=Z0
29890 POKE PC2,V2:IF V2>S2 THEN V2=V2-Z2
29900 T2=T2-Z1
29910 IF T3=Z0 THEN P3=F(N):V3=VF(N):S3=VT(N):T3=L(N):POKE PF3,P3:N=N+Z1:IF N>E THEN N=Z0
29920 POKE PC3,V3:IF V3>S3 THEN V3=V3-Z2
29930 T3=T3-Z1
29980 IF PEEK(GC)=7 THEN Z=Z0:NEXT Z
29990 END 
31900 REM -- let's start by Seban/Slt -- +sound by Mq
31901 DL=PEEK(560)+256*PEEK(561)
31902 FOR I=1536 TO 1548:READ A:POKE I,A:NEXT I:POKE DL+134,143:POKE 512,0:POKE 513,6:POKE 54286,192
31903 FOR Y=128 TO 191
31904 COLOR Y/4:PLOT 0,Y:DRAWTO 79,Y
31905 R=RND(0)*79:COLOR R
31906 PLOT R,RND(0)*127
31907 SOUND 0,4,5,Y:NEXT Y
31908 FOR X=60 TO 76
31909 COLOR X+3:PLOT X/1.5,128:DRAWTO X,191
31910 SOUND 0,7,8,X:NEXT X
31911 FOR X=0 TO 31
31912 COLOR X/2:PLOT 30,12:DRAWTO X+14,51:DRAWTO 30,91
31913 SOUND 0,1,2,X:NEXT X:SOUND 0,0,0,0
31914 DATA 72,169,192,141,27,208,169,4,141,26,208,104,64
31920 REM -- PMG init --
31921 X=48:PM0=53248:POKE 54279,PEEK(106):POKE 559,58:POKE 704,56:POKE 53277,2:POKE 53256,1: POKE PM0,X
31922 DIM T$(32):T$="BEHIND JAGGI LINES!":PM0A=(PEEK(106)+4)*256+32
31923 FOR I=1 TO LEN(T$)
31924 A=57344+(ASC(T$(I))-32)*8
31925 FOR J=0 TO 7:POKE PM0A+J,PEEK(A+J)
31926 NEXT J:PM0A=PM0A+8:NEXT I
31927 RETURN 
31915 REM -- end of let's start --
31990 REM -- Mono part
32000 Z0=0:Z1=1:Z2=2:Z6=6:T0=Z0:T1=Z0:T2=Z0:T3=Z0
32010 GC=53279:PF0=53760:PC0=PF0+Z1:PF1=PC0+Z1:PC1=PF1+Z1:PF2=PC1+Z1:PC2=PF2+Z1:PF3=PC2+Z1:PC3=PF3+Z1
32020 E=409:DIM F(E),VF(E),VT(E),L(E):RESTORE 32050
32030 FOR I=Z0 TO E:SOUND Z0,Z2,10,Z6*RND(Z0):READ F,VF,VT,L:F(I)=F:VF(I)=VF:VT(I)=VT:L(I)=L:NEXT I
32040 C=Z0:N=Z0:RETURN 
32050 DATA 255,168,161,4
32051 DATA 0,160,160,32
32052 DATA 0,160,160,32
32053 DATA 0,160,160,32
32054 DATA 128,168,161,4
32055 DATA 173,168,161,4
32056 DATA 162,168,161,4
32057 DATA 255,168,161,4
32058 DATA 128,168,161,4
32059 DATA 173,168,161,4
32060 DATA 162,168,161,4
32061 DATA 255,168,161,4
32062 DATA 0,160,160,32
32063 DATA 85,170,162,4
32064 DATA 64,170,162,4
32065 DATA 128,168,161,4
32066 DATA 96,170,162,4
32067 DATA 72,170,162,4
32068 DATA 173,168,161,4
32069 DATA 85,170,162,8
32070 DATA 64,170,162,8
32071 DATA 162,168,161,4
32072 DATA 255,168,161,4
32073 DATA 0,160,160,16
32074 DATA 0,160,160,16
32075 DATA 128,168,161,4
32076 DATA 173,168,161,4
32077 DATA 162,168,161,4
32078 DATA 255,168,161,4
32079 DATA 0,160,160,32
32080 DATA 85,170,162,4
32081 DATA 64,170,162,4
32082 DATA 128,168,161,4
32083 DATA 96,170,162,4
32084 DATA 72,170,162,4
32085 DATA 173,168,161,4
32086 DATA 85,170,162,8
32087 DATA 64,170,162,8
32088 DATA 162,168,161,4
32089 DATA 255,168,161,4
32090 DATA 0,160,160,16
32091 DATA 0,160,160,16
32092 DATA 128,168,161,4
32093 DATA 173,168,161,4
32094 DATA 162,168,161,4
32095 DATA 193,168,161,4
32096 DATA 0,160,160,32
32097 DATA 64,170,162,2
32098 DATA 47,170,162,2
32099 DATA 64,170,162,2
32100 DATA 47,170,162,2
32101 DATA 96,168,161,4
32102 DATA 64,170,162,2
32103 DATA 47,170,162,2
32104 DATA 64,170,162,2
32105 DATA 47,170,162,2
32106 DATA 193,168,161,4
32107 DATA 72,170,162,4
32108 DATA 53,170,162,4
32109 DATA 96,168,161,4
32110 DATA 64,170,162,4
32111 DATA 47,170,162,4
32112 DATA 193,168,161,4
32113 DATA 64,170,162,2
32114 DATA 47,170,162,2
32115 DATA 64,170,162,2
32116 DATA 47,170,162,2
32117 DATA 96,168,161,4
32118 DATA 64,170,162,2
32119 DATA 47,170,162,2
32120 DATA 64,170,162,2
32121 DATA 47,170,162,2
32122 DATA 193,168,161,4
32123 DATA 72,170,162,4
32124 DATA 53,170,162,4
32125 DATA 96,168,161,4
32126 DATA 64,170,162,4
32127 DATA 47,170,162,4
32128 DATA 255,168,161,4
32129 DATA 64,168,160,2
32130 DATA 85,170,162,4
32131 DATA 64,170,162,4
32132 DATA 108,168,160,2
32133 DATA 128,168,161,4
32134 DATA 85,168,160,2
32135 DATA 96,170,162,4
32136 DATA 72,170,162,4
32137 DATA 81,168,160,2
32138 DATA 173,168,161,4
32139 DATA 85,168,160,2
32140 DATA 85,170,162,8
32141 DATA 64,170,162,8
32142 DATA 108,168,160,2
32143 DATA 162,168,161,4
32144 DATA 57,168,160,2
32145 DATA 64,168,160,2
32146 DATA 255,168,161,4
32147 DATA 0,160,160,16
32148 DATA 0,160,160,16
32149 DATA 0,160,160,16
32150 DATA 128,168,161,4
32151 DATA 173,168,161,4
32152 DATA 162,168,161,4
32153 DATA 255,168,161,4
32154 DATA 64,168,160,2
32155 DATA 85,170,162,4
32156 DATA 64,170,162,4
32157 DATA 108,168,160,2
32158 DATA 128,168,161,4
32159 DATA 85,168,160,2
32160 DATA 96,170,162,4
32161 DATA 72,170,162,4
32162 DATA 81,168,160,2
32163 DATA 173,168,161,4
32164 DATA 85,168,160,2
32165 DATA 85,170,162,8
32166 DATA 64,170,162,8
32167 DATA 108,168,160,2
32168 DATA 162,168,161,4
32169 DATA 57,168,160,2
32170 DATA 64,168,160,2
32171 DATA 255,168,161,4
32172 DATA 0,160,160,16
32173 DATA 0,160,160,16
32174 DATA 0,160,160,16
32175 DATA 128,168,161,4
32176 DATA 173,168,161,4
32177 DATA 162,168,161,4
32178 DATA 193,168,161,4
32179 DATA 19,168,160,1
32180 DATA 64,170,162,2
32181 DATA 47,170,162,2
32182 DATA 23,168,160,1
32183 DATA 31,168,160,1
32184 DATA 64,170,162,2
32185 DATA 47,170,162,2
32186 DATA 40,168,160,1
32187 DATA 96,168,161,4
32188 DATA 47,168,160,1
32189 DATA 64,170,162,2
32190 DATA 47,170,162,2
32191 DATA 64,168,160,1
32192 DATA 81,168,160,1
32193 DATA 64,170,162,2
32194 DATA 47,170,162,2
32195 DATA 96,168,160,1
32196 DATA 193,168,161,4
32197 DATA 0,160,160,8
32198 DATA 72,170,162,4
32199 DATA 53,170,162,4
32200 DATA 96,168,161,4
32201 DATA 64,170,162,4
32202 DATA 47,170,162,4
32203 DATA 193,168,161,4
32204 DATA 19,168,160,1
32205 DATA 64,170,162,2
32206 DATA 47,170,162,2
32207 DATA 23,168,160,1
32208 DATA 31,168,160,1
32209 DATA 64,170,162,2
32210 DATA 47,170,162,2
32211 DATA 40,168,160,1
32212 DATA 96,168,161,4
32213 DATA 47,168,160,1
32214 DATA 64,170,162,2
32215 DATA 47,170,162,2
32216 DATA 64,168,160,1
32217 DATA 81,168,160,1
32218 DATA 64,170,162,2
32219 DATA 47,170,162,2
32220 DATA 96,168,160,1
32221 DATA 193,168,161,4
32222 DATA 0,160,160,8
32223 DATA 72,170,162,4
32224 DATA 53,170,162,4
32225 DATA 96,168,161,4
32226 DATA 64,170,162,4
32227 DATA 47,170,162,4
32228 DATA 114,168,161,2
32229 DATA 173,168,161,2
32230 DATA 68,168,162,8
32231 DATA 85,168,162,8
32232 DATA 114,168,161,2
32233 DATA 173,168,161,2
32234 DATA 114,168,161,2
32235 DATA 173,168,161,2
32236 DATA 114,168,161,2
32237 DATA 173,168,161,2
32238 DATA 128,168,161,4
32239 DATA 193,168,161,4
32240 DATA 76,168,162,4
32241 DATA 96,168,162,4
32242 DATA 114,168,161,4
32243 DATA 173,168,161,4
32244 DATA 68,168,162,4
32245 DATA 85,168,162,4
32246 DATA 114,168,161,2
32247 DATA 173,168,161,2
32248 DATA 68,168,162,8
32249 DATA 57,168,162,8
32250 DATA 114,168,161,2
32251 DATA 173,168,161,2
32252 DATA 114,168,161,2
32253 DATA 173,168,161,2
32254 DATA 114,168,161,2
32255 DATA 173,168,161,2
32256 DATA 128,168,161,4
32257 DATA 193,168,161,4
32258 DATA 76,168,162,4
32259 DATA 64,168,162,4
32260 DATA 114,168,161,4
32261 DATA 173,168,161,4
32262 DATA 68,168,162,4
32263 DATA 57,168,162,4
32264 DATA 114,168,161,2
32265 DATA 173,168,160,2
32266 DATA 68,170,162,12
32267 DATA 42,170,162,12
32268 DATA 114,168,161,2
32269 DATA 173,168,160,2
32270 DATA 114,168,161,2
32271 DATA 173,168,160,2
32272 DATA 114,168,161,2
32273 DATA 173,168,160,2
32274 DATA 128,168,161,4
32275 DATA 193,168,160,4
32276 DATA 114,168,161,4
32277 DATA 173,168,160,4
32278 DATA 0,160,160,4
32279 DATA 0,160,160,4
32280 DATA 173,168,161,2
32281 DATA 20,168,160,1
32282 DATA 20,170,162,1
32283 DATA 31,170,162,1
32284 DATA 28,168,160,1
32285 DATA 42,170,162,1
32286 DATA 64,170,162,1
32287 DATA 173,168,161,2
32288 DATA 33,168,160,1
32289 DATA 0,160,160,4
32290 DATA 0,160,160,4
32291 DATA 42,168,160,1
32292 DATA 173,168,161,2
32293 DATA 57,168,160,1
32294 DATA 68,168,160,1
32295 DATA 173,168,161,2
32296 DATA 85,168,160,1
32297 DATA 20,170,162,1
32298 DATA 31,170,162,1
32299 DATA 114,168,160,1
32300 DATA 42,170,162,1
32301 DATA 64,170,162,1
32302 DATA 173,168,161,2
32303 DATA 85,168,160,2
32304 DATA 0,160,160,4
32305 DATA 0,160,160,4
32306 DATA 0,160,160,6
32307 DATA 0,160,160,6
32308 DATA 0,160,160,4
32309 DATA 0,160,160,4
32310 DATA 255,167,161,4
32311 DATA 64,164,160,2
32312 DATA 85,169,162,4
32313 DATA 64,169,162,4
32314 DATA 108,164,160,2
32315 DATA 128,167,161,4
32316 DATA 85,164,160,2
32317 DATA 96,169,162,4
32318 DATA 72,169,162,4
32319 DATA 81,164,160,2
32320 DATA 173,167,161,4
32321 DATA 85,164,160,2
32322 DATA 85,169,162,8
32323 DATA 64,169,162,8
32324 DATA 108,164,160,2
32325 DATA 162,167,161,4
32326 DATA 57,164,160,2
32327 DATA 64,164,160,2
32328 DATA 255,167,161,4
32329 DATA 0,160,160,16
32330 DATA 0,160,160,16
32331 DATA 0,160,160,16
32332 DATA 128,167,161,4
32333 DATA 173,167,161,4
32334 DATA 162,167,161,4
32335 DATA 255,167,161,4
32336 DATA 64,164,160,2
32337 DATA 85,169,162,4
32338 DATA 64,169,162,4
32339 DATA 108,164,160,2
32340 DATA 128,167,161,4
32341 DATA 85,164,160,2
32342 DATA 96,169,162,4
32343 DATA 72,169,162,4
32344 DATA 81,164,160,2
32345 DATA 173,167,161,4
32346 DATA 85,164,160,2
32347 DATA 85,169,162,8
32348 DATA 64,169,162,8
32349 DATA 108,164,160,2
32350 DATA 162,167,161,4
32351 DATA 57,164,160,2
32352 DATA 64,164,160,2
32353 DATA 255,167,161,4
32354 DATA 0,160,160,16
32355 DATA 0,160,160,16
32356 DATA 0,160,160,16
32357 DATA 128,167,161,4
32358 DATA 173,167,161,4
32359 DATA 162,167,161,4
32360 DATA 255,165,161,4
32361 DATA 64,163,160,2
32362 DATA 85,167,162,4
32363 DATA 64,167,162,4
32364 DATA 108,163,160,2
32365 DATA 128,165,161,4
32366 DATA 85,163,160,2
32367 DATA 96,167,162,4
32368 DATA 72,167,162,4
32369 DATA 81,163,160,2
32370 DATA 173,165,161,4
32371 DATA 85,163,160,2
32372 DATA 85,167,162,8
32373 DATA 64,167,162,8
32374 DATA 108,163,160,2
32375 DATA 162,165,161,4
32376 DATA 57,163,160,2
32377 DATA 64,163,160,2
32378 DATA 255,165,161,4
32379 DATA 0,160,160,16
32380 DATA 0,160,160,16
32381 DATA 0,160,160,16
32382 DATA 128,165,161,4
32383 DATA 173,165,161,4
32384 DATA 162,165,161,4
32385 DATA 255,165,161,4
32386 DATA 64,163,160,2
32387 DATA 85,167,162,4
32388 DATA 64,167,162,4
32389 DATA 108,163,160,2
32390 DATA 128,165,161,4
32391 DATA 85,163,160,2
32392 DATA 96,167,162,4
32393 DATA 72,167,162,4
32394 DATA 81,163,160,2
32395 DATA 173,165,161,4
32396 DATA 85,163,160,2
32397 DATA 85,167,162,8
32398 DATA 64,167,162,8
32399 DATA 108,163,160,2
32400 DATA 162,165,161,4
32401 DATA 57,163,160,2
32402 DATA 64,163,160,2
32403 DATA 255,165,161,4
32404 DATA 0,160,160,16
32405 DATA 0,160,160,16
32406 DATA 0,160,160,16
32407 DATA 128,165,161,4
32408 DATA 173,165,161,4
32409 DATA 162,165,161,4
32410 DATA 255,163,161,4
32411 DATA 64,162,160,2
32412 DATA 85,164,161,4
32413 DATA 64,164,161,4
32414 DATA 108,162,160,2
32415 DATA 128,163,161,4
32416 DATA 85,162,160,2
32417 DATA 96,164,161,4
32418 DATA 72,164,161,4
32419 DATA 81,162,160,2
32420 DATA 173,163,161,4
32421 DATA 85,162,160,2
32422 DATA 85,164,161,8
32423 DATA 64,164,161,8
32424 DATA 108,162,160,2
32425 DATA 162,163,161,4
32426 DATA 57,162,160,2
32427 DATA 64,162,160,2
32428 DATA 255,163,161,4
32429 DATA 0,160,160,16
32430 DATA 0,160,160,16
32431 DATA 0,160,160,16
32432 DATA 128,163,161,4
32433 DATA 173,163,161,4
32434 DATA 162,163,161,4
32435 DATA 255,163,161,4
32436 DATA 64,162,160,2
32437 DATA 85,164,161,4
32438 DATA 64,164,161,4
32439 DATA 108,162,160,2
32440 DATA 128,163,161,4
32441 DATA 85,162,160,2
32442 DATA 96,164,161,4
32443 DATA 72,164,161,4
32444 DATA 81,162,160,2
32445 DATA 173,163,161,4
32446 DATA 85,162,160,2
32447 DATA 85,164,161,8
32448 DATA 64,164,161,8
32449 DATA 108,162,160,2
32450 DATA 162,163,161,4
32451 DATA 57,162,160,2
32452 DATA 64,162,160,2
32453 DATA 255,163,161,4
32454 DATA 0,160,160,16
32455 DATA 0,160,160,16
32456 DATA 0,160,160,16
32457 DATA 128,163,161,4
32458 DATA 173,163,161,4
32459 DATA 162,163,161,4
32460 REM -- end of Mono part
32760 REM --
32761 REM PRIMA APRILIS COMPO 2024 BY
32762 REM Mono, Adam Klobukowski, Seban/Slt, Mq

Ostatnio edytowany przez seban (2024-03-30 20:42:57)

Post's attachments

PA2024.LST 12.05 kb, liczba pobrań: 1 (od 2024-03-30)

Tylko zalogowani mogą pobierać załączniki.

GitHUB: https://github.com/seban-slt

mono · 2024-03-30 20:54:26

mono
Starszy Atarowiec
Nieaktywny

Skąd: inąd
Zarejestrowany: 2007-08-20
Posty: 2,900

Odp: Prima Aprilis Compo 2024

Tak. Właśnie merguję :) Cierpliwości. Ja też dodałem w międzyczasie swoje zmiany.

Edit: Połączone. Dodałem jeszcze efekt dźwiękowy przy malowaniu napisu i znikanie sprajtów przy wyjściu, bowiem przypominam że dowolnym klawiszem konsoli można program zakończyć.

10 REM SOME INFO BEFORE DEMO MODE BY SIKOR
11 GRAPHICS 0:POKE 710,0:POKE 709,15:POKE 755,0
12 ? "Another year, another PA compo...":? "------------------------------------"
13 ? "Take it easy..."
14 ? :? :? "This year they had their fingers:"
15 ? "Mono, Adam K, Seban, Mq, Sikor"
50 GOSUB 32000

10000 POKE 106,PEEK(106)-16:GRAPHICS 9:REM -- set the mode by Adam K.
10010 GOSUB 31900:Z20=20:POKE Z20,X:C20=X

11000 T20=PEEK(Z20):POKE PM0,T20:IF T20<>C20 THEN C20=T20:C=C+Z1

29800 IF C<Z6 THEN 11000
29810 C=Z0

29820 IF T0=Z0 THEN P0=F(N):V0=VF(N):S0=VT(N):T0=L(N):POKE PF0,P0:N=N+Z1:IF N>E THEN N=Z0
29830 POKE PC0,V0:IF V0>S0 THEN V0=V0-Z2
29840 T0=T0-Z1
29850 IF T1=Z0 THEN P1=F(N):V1=VF(N):S1=VT(N):T1=L(N):POKE PF1,P1:N=N+Z1:IF N>E THEN N=Z0
29860 POKE PC1,V1:IF V1>S1 THEN V1=V1-Z2
29870 T1=T1-Z1
29880 IF T2=Z0 THEN P2=F(N):V2=VF(N):S2=VT(N):T2=L(N):POKE PF2,P2:N=N+Z1:IF N>E THEN N=Z0
29890 POKE PC2,V2:IF V2>S2 THEN V2=V2-Z2
29900 T2=T2-Z1
29910 IF T3=Z0 THEN P3=F(N):V3=VF(N):S3=VT(N):T3=L(N):POKE PF3,P3:N=N+Z1:IF N>E THEN N=Z0
29920 POKE PC3,V3:IF V3>S3 THEN V3=V3-Z2
29930 T3=T3-Z1

29980 IF PEEK(GC)=7 THEN 11000
29990 POKE 53277,0:POKE 53261,0:END

31900 REM -- let's start by Seban/Slt -- +sound by Mq
31901 DL=PEEK(560)+256*PEEK(561)
31902 RESTORE 31914:FOR I=1536 TO 1548:READ A:POKE I,A:NEXT I:POKE DL+134,143:POKE 512,0:POKE 513,6:POKE 54286,192
31903 FOR Y=128 TO 191
31904 COLOR Y/4:PLOT 0,Y:DRAWTO 79,Y
31905 R=RND(0)*79:COLOR R
31906 PLOT R,RND(0)*127
31907 SOUND 0,4,5,Y:NEXT Y
31908 FOR X=60 TO 76
31909 COLOR X+3:PLOT X/1.5,128:DRAWTO X,191
31910 SOUND 0,7,8,X:NEXT X
31911 FOR X=0 TO 31
31912 COLOR X/2:PLOT 30,12:DRAWTO X+14,51:DRAWTO 30,91
31913 SOUND 0,1,2,X:NEXT X:SOUND 0,0,0,0
31914 DATA 72,169,192,141,27,208,169,4,141,26,208,104,64
31915 REM -- end of let's start --
31920 REM -- PMG init --
31921 X=48:PM0=53248:POKE 54279,PEEK(106):POKE 559,58:POKE 704,56:POKE 53277,2:POKE 53256,1:POKE PM0,X
31922 DIM T$(32):T$="BEHIND JAGGI LINES!":PM0A=(PEEK(106)+4)*256+32
31923 FOR I=1 TO LEN(T$)
31924 A=57344+(ASC(T$(I))-32)*8
31925 FOR J=0 TO 7:POKE PM0A+J,PEEK(A+J)
31926 SOUND 0,I*RND(0),12,J*RND(0):NEXT J:PM0A=PM0A+8:NEXT I
31927 RETURN 

32000 REM -- Mono part
32010 Z0=0:Z1=1:Z2=2:Z6=6:T0=Z0:T1=Z0:T2=Z0:T3=Z0
32020 GC=53279:PF0=53760:PC0=PF0+Z1:PF1=PC0+Z1:PC1=PF1+Z1:PF2=PC1+Z1:PC2=PF2+Z1:PF3=PC2+Z1:PC3=PF3+Z1
32030 E=409:DIM F(E),VF(E),VT(E),L(E):RESTORE 32060
32040 FOR I=Z0 TO E:SOUND Z0,Z2,10,Z6*RND(Z0):READ F,VF,VT,L:F(I)=F:VF(I)=VF:VT(I)=VT:L(I)=L:NEXT I
32050 C=Z0:N=Z0:RETURN
32060 DATA 255,168,161,4
32061 DATA 0,160,160,32
32062 DATA 0,160,160,32
32063 DATA 0,160,160,32
32064 DATA 128,168,161,4
32065 DATA 173,168,161,4
32066 DATA 162,168,161,4
32067 DATA 255,168,161,4
32068 DATA 128,168,161,4
32069 DATA 173,168,161,4
32070 DATA 162,168,161,4
32071 DATA 255,168,161,4
32072 DATA 0,160,160,32
32073 DATA 85,170,162,4
32074 DATA 64,170,162,4
32075 DATA 128,168,161,4
32076 DATA 96,170,162,4
32077 DATA 72,170,162,4
32078 DATA 173,168,161,4
32079 DATA 85,170,162,8
32080 DATA 64,170,162,8
32081 DATA 162,168,161,4
32082 DATA 255,168,161,4
32083 DATA 0,160,160,16
32084 DATA 0,160,160,16
32085 DATA 128,168,161,4
32086 DATA 173,168,161,4
32087 DATA 162,168,161,4
32088 DATA 255,168,161,4
32089 DATA 0,160,160,32
32090 DATA 85,170,162,4
32091 DATA 64,170,162,4
32092 DATA 128,168,161,4
32093 DATA 96,170,162,4
32094 DATA 72,170,162,4
32095 DATA 173,168,161,4
32096 DATA 85,170,162,8
32097 DATA 64,170,162,8
32098 DATA 162,168,161,4
32099 DATA 255,168,161,4
32100 DATA 0,160,160,16
32101 DATA 0,160,160,16
32102 DATA 128,168,161,4
32103 DATA 173,168,161,4
32104 DATA 162,168,161,4
32105 DATA 193,168,161,4
32106 DATA 0,160,160,32
32107 DATA 64,170,162,2
32108 DATA 47,170,162,2
32109 DATA 64,170,162,2
32110 DATA 47,170,162,2
32111 DATA 96,168,161,4
32112 DATA 64,170,162,2
32113 DATA 47,170,162,2
32114 DATA 64,170,162,2
32115 DATA 47,170,162,2
32116 DATA 193,168,161,4
32117 DATA 72,170,162,4
32118 DATA 53,170,162,4
32119 DATA 96,168,161,4
32120 DATA 64,170,162,4
32121 DATA 47,170,162,4
32122 DATA 193,168,161,4
32123 DATA 64,170,162,2
32124 DATA 47,170,162,2
32125 DATA 64,170,162,2
32126 DATA 47,170,162,2
32127 DATA 96,168,161,4
32128 DATA 64,170,162,2
32129 DATA 47,170,162,2
32130 DATA 64,170,162,2
32131 DATA 47,170,162,2
32132 DATA 193,168,161,4
32133 DATA 72,170,162,4
32134 DATA 53,170,162,4
32135 DATA 96,168,161,4
32136 DATA 64,170,162,4
32137 DATA 47,170,162,4
32138 DATA 255,168,161,4
32139 DATA 64,168,160,2
32140 DATA 85,170,162,4
32141 DATA 64,170,162,4
32142 DATA 108,168,160,2
32143 DATA 128,168,161,4
32144 DATA 85,168,160,2
32145 DATA 96,170,162,4
32146 DATA 72,170,162,4
32147 DATA 81,168,160,2
32148 DATA 173,168,161,4
32149 DATA 85,168,160,2
32150 DATA 85,170,162,8
32151 DATA 64,170,162,8
32152 DATA 108,168,160,2
32153 DATA 162,168,161,4
32154 DATA 57,168,160,2
32155 DATA 64,168,160,2
32156 DATA 255,168,161,4
32157 DATA 0,160,160,16
32158 DATA 0,160,160,16
32159 DATA 0,160,160,16
32160 DATA 128,168,161,4
32161 DATA 173,168,161,4
32162 DATA 162,168,161,4
32163 DATA 255,168,161,4
32164 DATA 64,168,160,2
32165 DATA 85,170,162,4
32166 DATA 64,170,162,4
32167 DATA 108,168,160,2
32168 DATA 128,168,161,4
32169 DATA 85,168,160,2
32170 DATA 96,170,162,4
32171 DATA 72,170,162,4
32172 DATA 81,168,160,2
32173 DATA 173,168,161,4
32174 DATA 85,168,160,2
32175 DATA 85,170,162,8
32176 DATA 64,170,162,8
32177 DATA 108,168,160,2
32178 DATA 162,168,161,4
32179 DATA 57,168,160,2
32180 DATA 64,168,160,2
32181 DATA 255,168,161,4
32182 DATA 0,160,160,16
32183 DATA 0,160,160,16
32184 DATA 0,160,160,16
32185 DATA 128,168,161,4
32186 DATA 173,168,161,4
32187 DATA 162,168,161,4
32188 DATA 193,168,161,4
32189 DATA 19,168,160,1
32190 DATA 64,170,162,2
32191 DATA 47,170,162,2
32192 DATA 23,168,160,1
32193 DATA 31,168,160,1
32194 DATA 64,170,162,2
32195 DATA 47,170,162,2
32196 DATA 40,168,160,1
32197 DATA 96,168,161,4
32198 DATA 47,168,160,1
32199 DATA 64,170,162,2
32200 DATA 47,170,162,2
32201 DATA 64,168,160,1
32202 DATA 81,168,160,1
32203 DATA 64,170,162,2
32204 DATA 47,170,162,2
32205 DATA 96,168,160,1
32206 DATA 193,168,161,4
32207 DATA 0,160,160,8
32208 DATA 72,170,162,4
32209 DATA 53,170,162,4
32210 DATA 96,168,161,4
32211 DATA 64,170,162,4
32212 DATA 47,170,162,4
32213 DATA 193,168,161,4
32214 DATA 19,168,160,1
32215 DATA 64,170,162,2
32216 DATA 47,170,162,2
32217 DATA 23,168,160,1
32218 DATA 31,168,160,1
32219 DATA 64,170,162,2
32220 DATA 47,170,162,2
32221 DATA 40,168,160,1
32222 DATA 96,168,161,4
32223 DATA 47,168,160,1
32224 DATA 64,170,162,2
32225 DATA 47,170,162,2
32226 DATA 64,168,160,1
32227 DATA 81,168,160,1
32228 DATA 64,170,162,2
32229 DATA 47,170,162,2
32230 DATA 96,168,160,1
32231 DATA 193,168,161,4
32232 DATA 0,160,160,8
32233 DATA 72,170,162,4
32234 DATA 53,170,162,4
32235 DATA 96,168,161,4
32236 DATA 64,170,162,4
32237 DATA 47,170,162,4
32238 DATA 114,168,161,2
32239 DATA 173,168,161,2
32240 DATA 68,168,162,8
32241 DATA 85,168,162,8
32242 DATA 114,168,161,2
32243 DATA 173,168,161,2
32244 DATA 114,168,161,2
32245 DATA 173,168,161,2
32246 DATA 114,168,161,2
32247 DATA 173,168,161,2
32248 DATA 128,168,161,4
32249 DATA 193,168,161,4
32250 DATA 76,168,162,4
32251 DATA 96,168,162,4
32252 DATA 114,168,161,4
32253 DATA 173,168,161,4
32254 DATA 68,168,162,4
32255 DATA 85,168,162,4
32256 DATA 114,168,161,2
32257 DATA 173,168,161,2
32258 DATA 68,168,162,8
32259 DATA 57,168,162,8
32260 DATA 114,168,161,2
32261 DATA 173,168,161,2
32262 DATA 114,168,161,2
32263 DATA 173,168,161,2
32264 DATA 114,168,161,2
32265 DATA 173,168,161,2
32266 DATA 128,168,161,4
32267 DATA 193,168,161,4
32268 DATA 76,168,162,4
32269 DATA 64,168,162,4
32270 DATA 114,168,161,4
32271 DATA 173,168,161,4
32272 DATA 68,168,162,4
32273 DATA 57,168,162,4
32274 DATA 114,168,161,2
32275 DATA 173,168,160,2
32276 DATA 68,170,162,12
32277 DATA 42,170,162,12
32278 DATA 114,168,161,2
32279 DATA 173,168,160,2
32280 DATA 114,168,161,2
32281 DATA 173,168,160,2
32282 DATA 114,168,161,2
32283 DATA 173,168,160,2
32284 DATA 128,168,161,4
32285 DATA 193,168,160,4
32286 DATA 114,168,161,4
32287 DATA 173,168,160,4
32288 DATA 0,160,160,4
32289 DATA 0,160,160,4
32290 DATA 173,168,161,2
32291 DATA 20,168,160,1
32292 DATA 20,170,162,1
32293 DATA 31,170,162,1
32294 DATA 28,168,160,1
32295 DATA 42,170,162,1
32296 DATA 64,170,162,1
32297 DATA 173,168,161,2
32298 DATA 33,168,160,1
32299 DATA 0,160,160,4
32300 DATA 0,160,160,4
32301 DATA 42,168,160,1
32302 DATA 173,168,161,2
32303 DATA 57,168,160,1
32304 DATA 68,168,160,1
32305 DATA 173,168,161,2
32306 DATA 85,168,160,1
32307 DATA 20,170,162,1
32308 DATA 31,170,162,1
32309 DATA 114,168,160,1
32310 DATA 42,170,162,1
32311 DATA 64,170,162,1
32312 DATA 173,168,161,2
32313 DATA 85,168,160,2
32314 DATA 0,160,160,4
32315 DATA 0,160,160,4
32316 DATA 0,160,160,6
32317 DATA 0,160,160,6
32318 DATA 0,160,160,4
32319 DATA 0,160,160,4
32320 DATA 255,167,161,4
32321 DATA 64,164,160,2
32322 DATA 85,169,162,4
32323 DATA 64,169,162,4
32324 DATA 108,164,160,2
32325 DATA 128,167,161,4
32326 DATA 85,164,160,2
32327 DATA 96,169,162,4
32328 DATA 72,169,162,4
32329 DATA 81,164,160,2
32330 DATA 173,167,161,4
32331 DATA 85,164,160,2
32332 DATA 85,169,162,8
32333 DATA 64,169,162,8
32334 DATA 108,164,160,2
32335 DATA 162,167,161,4
32336 DATA 57,164,160,2
32337 DATA 64,164,160,2
32338 DATA 255,167,161,4
32339 DATA 0,160,160,16
32340 DATA 0,160,160,16
32341 DATA 0,160,160,16
32342 DATA 128,167,161,4
32343 DATA 173,167,161,4
32344 DATA 162,167,161,4
32345 DATA 255,167,161,4
32346 DATA 64,164,160,2
32347 DATA 85,169,162,4
32348 DATA 64,169,162,4
32349 DATA 108,164,160,2
32350 DATA 128,167,161,4
32351 DATA 85,164,160,2
32352 DATA 96,169,162,4
32353 DATA 72,169,162,4
32354 DATA 81,164,160,2
32355 DATA 173,167,161,4
32356 DATA 85,164,160,2
32357 DATA 85,169,162,8
32358 DATA 64,169,162,8
32359 DATA 108,164,160,2
32360 DATA 162,167,161,4
32361 DATA 57,164,160,2
32362 DATA 64,164,160,2
32363 DATA 255,167,161,4
32364 DATA 0,160,160,16
32365 DATA 0,160,160,16
32366 DATA 0,160,160,16
32367 DATA 128,167,161,4
32368 DATA 173,167,161,4
32369 DATA 162,167,161,4
32370 DATA 255,165,161,4
32371 DATA 64,163,160,2
32372 DATA 85,167,162,4
32373 DATA 64,167,162,4
32374 DATA 108,163,160,2
32375 DATA 128,165,161,4
32376 DATA 85,163,160,2
32377 DATA 96,167,162,4
32378 DATA 72,167,162,4
32379 DATA 81,163,160,2
32380 DATA 173,165,161,4
32381 DATA 85,163,160,2
32382 DATA 85,167,162,8
32383 DATA 64,167,162,8
32384 DATA 108,163,160,2
32385 DATA 162,165,161,4
32386 DATA 57,163,160,2
32387 DATA 64,163,160,2
32388 DATA 255,165,161,4
32389 DATA 0,160,160,16
32390 DATA 0,160,160,16
32391 DATA 0,160,160,16
32392 DATA 128,165,161,4
32393 DATA 173,165,161,4
32394 DATA 162,165,161,4
32395 DATA 255,165,161,4
32396 DATA 64,163,160,2
32397 DATA 85,167,162,4
32398 DATA 64,167,162,4
32399 DATA 108,163,160,2
32400 DATA 128,165,161,4
32401 DATA 85,163,160,2
32402 DATA 96,167,162,4
32403 DATA 72,167,162,4
32404 DATA 81,163,160,2
32405 DATA 173,165,161,4
32406 DATA 85,163,160,2
32407 DATA 85,167,162,8
32408 DATA 64,167,162,8
32409 DATA 108,163,160,2
32410 DATA 162,165,161,4
32411 DATA 57,163,160,2
32412 DATA 64,163,160,2
32413 DATA 255,165,161,4
32414 DATA 0,160,160,16
32415 DATA 0,160,160,16
32416 DATA 0,160,160,16
32417 DATA 128,165,161,4
32418 DATA 173,165,161,4
32419 DATA 162,165,161,4
32420 DATA 255,163,161,4
32421 DATA 64,162,160,2
32422 DATA 85,164,161,4
32423 DATA 64,164,161,4
32424 DATA 108,162,160,2
32425 DATA 128,163,161,4
32426 DATA 85,162,160,2
32427 DATA 96,164,161,4
32428 DATA 72,164,161,4
32429 DATA 81,162,160,2
32430 DATA 173,163,161,4
32431 DATA 85,162,160,2
32432 DATA 85,164,161,8
32433 DATA 64,164,161,8
32434 DATA 108,162,160,2
32435 DATA 162,163,161,4
32436 DATA 57,162,160,2
32437 DATA 64,162,160,2
32438 DATA 255,163,161,4
32439 DATA 0,160,160,16
32440 DATA 0,160,160,16
32441 DATA 0,160,160,16
32442 DATA 128,163,161,4
32443 DATA 173,163,161,4
32444 DATA 162,163,161,4
32445 DATA 255,163,161,4
32446 DATA 64,162,160,2
32447 DATA 85,164,161,4
32448 DATA 64,164,161,4
32449 DATA 108,162,160,2
32450 DATA 128,163,161,4
32451 DATA 85,162,160,2
32452 DATA 96,164,161,4
32453 DATA 72,164,161,4
32454 DATA 81,162,160,2
32455 DATA 173,163,161,4
32456 DATA 85,162,160,2
32457 DATA 85,164,161,8
32458 DATA 64,164,161,8
32459 DATA 108,162,160,2
32460 DATA 162,163,161,4
32461 DATA 57,162,160,2
32462 DATA 64,162,160,2
32463 DATA 255,163,161,4
32464 DATA 0,160,160,16
32465 DATA 0,160,160,16
32466 DATA 0,160,160,16
32467 DATA 128,163,161,4
32468 DATA 173,163,161,4
32469 DATA 162,163,161,4
32470 REM -- end of Mono part

32760 REM --
32761 REM PRIMA APRILIS COMPO 2024 BY
32762 REM Mono, Adam Klobukowski, Seban/Slt, Mq, Sikor

Ostatnio edytowany przez mono (2024-03-30 21:30:57)

Post's attachments

PA2024.LST 12.35 kb, liczba pobrań: 2 (od 2024-03-30)

Tylko zalogowani mogą pobierać załączniki.

hex, code and ror'n'rol
niewiedza buduje, wiedza rujnuje

Sikor · 2024-03-30 21:25:05

Sikor
Naddyskownik
Nieaktywny

Skąd: Warszawa
Zarejestrowany: 2002-06-17
Posty: 10,940

Odp: Prima Aprilis Compo 2024

W każdym razie zabawa przednia. Aż sprawdziłem - bawimy się od 2007 roku. Przez te 17 lat było już 12 edycji :)

Sikor umarł...

mono · 2024-03-30 22:33:37

mono
Starszy Atarowiec
Nieaktywny

Skąd: inąd
Zarejestrowany: 2007-08-20
Posty: 2,900

Odp: Prima Aprilis Compo 2024

I jeszcze inny sposób tablicowania tej muzyki (przy użyciu stringa).

10 REM SOME INFO BEFORE DEMO MODE BY SIKOR
11 GRAPHICS 0:POKE 710,0:POKE 709,15:POKE 755,0
12 ? "Another year, another PA compo...":? "------------------------------------"
13 ? "Take it easy..."
14 ? :? :? "This year they had their fingers:"
15 ? "Mono, Adam K, Seban, Mq, Sikor"
50 GOSUB 32000

10000 POKE 106,PEEK(106)-16:GRAPHICS 9:REM -- set the mode by Adam K.
10010 GOSUB 31900:Z20=20:POKE Z20,X:C20=X

11000 T20=PEEK(Z20):POKE PM0,T20:IF T20<>C20 THEN C20=T20:C=C+Z1

29800 IF C<Z4 THEN 11000
29810 C=Z0

29820 IF T0=Z0 THEN P0=PEEK(AM+Z0):V0=PEEK(AM+Z1):S0=PEEK(AM+Z2):T0=PEEK(AM+Z3):AM=AM+Z4:POKE PF0,P0:IF AM=AME THEN AM=AMB
29830 POKE PC0,V0:IF V0>S0 THEN V0=V0-Z2
29840 T0=T0-Z1
29850 IF T1=Z0 THEN P1=PEEK(AM+Z0):V1=PEEK(AM+Z1):S1=PEEK(AM+Z2):T1=PEEK(AM+Z3):AM=AM+Z4:POKE PF1,P1:IF AM=AME THEN AM=AMB
29860 POKE PC1,V1:IF V1>S1 THEN V1=V1-Z2
29870 T1=T1-Z1
29880 IF T2=Z0 THEN P2=PEEK(AM+Z0):V2=PEEK(AM+Z1):S2=PEEK(AM+Z2):T2=PEEK(AM+Z3):AM=AM+Z4:POKE PF2,P2:IF AM=AME THEN AM=AMB
29890 POKE PC2,V2:IF V2>S2 THEN V2=V2-Z2
29900 T2=T2-Z1
29910 IF T3=Z0 THEN P3=PEEK(AM+Z0):V3=PEEK(AM+Z1):S3=PEEK(AM+Z2):T3=PEEK(AM+Z3):AM=AM+Z4:POKE PF3,P3:IF AM=AME THEN AM=AMB
29920 POKE PC3,V3:IF V3>S3 THEN V3=V3-Z2
29930 T3=T3-Z1

29980 IF PEEK(GC)=7 THEN 11000
29990 POKE 53277,0:POKE 53261,0:END

31900 REM -- let's start by Seban/Slt -- +sound by Mq
31901 DL=PEEK(560)+256*PEEK(561)
31902 RESTORE 31914:FOR I=1536 TO 1548:READ A:POKE I,A:NEXT I:POKE DL+134,143:POKE 512,0:POKE 513,6:POKE 54286,192
31903 FOR Y=128 TO 191
31904 COLOR Y/4:PLOT 0,Y:DRAWTO 79,Y
31905 R=RND(0)*79:COLOR R
31906 PLOT R,RND(0)*127
31907 SOUND 0,4,5,Y:NEXT Y
31908 FOR X=60 TO 76
31909 COLOR X+3:PLOT X/1.5,128:DRAWTO X,191
31910 SOUND 0,7,8,X:NEXT X
31911 FOR X=0 TO 31
31912 COLOR X/2:PLOT 30,12:DRAWTO X+14,51:DRAWTO 30,91
31913 SOUND 0,1,2,X:NEXT X:SOUND 0,0,0,0
31914 DATA 72,169,192,141,27,208,169,4,141,26,208,104,64
31915 REM -- end of let's start --
31920 REM -- PMG init --
31921 X=48:PM0=53248:POKE 54279,PEEK(106):POKE 559,58:POKE 704,56:POKE 53277,2:POKE 53256,1:POKE PM0,X
31922 DIM T$(32):T$="BEHIND JAGGI LINES!":PM0A=(PEEK(106)+4)*256+32
31923 FOR I=1 TO LEN(T$)
31924 A=57344+(ASC(T$(I))-32)*8
31925 FOR J=0 TO 7:POKE PM0A+J,PEEK(A+J)
31926 SOUND Z0,I*RND(Z0),12,J*RND(Z0):NEXT J:PM0A=PM0A+8:NEXT I
31927 RETURN 

32000 REM -- Mono part
32010 Z0=0:Z1=1:Z2=2:Z3=3:Z4=4:Z6=6:T0=Z0:T1=Z0:T2=Z0:T3=Z0
32020 GC=53279:PF0=53760:PC0=PF0+Z1:PF1=PC0+Z1:PC1=PF1+Z1:PF2=PC1+Z1:PC2=PF2+Z1:PF3=PC2+Z1:PC3=PF3+Z1
32030 E=Z4*410:DIM M$(E):RESTORE 32060
32040 FOR I=Z1 TO E:SOUND Z0,Z2,10,Z6*RND(Z0):READ V:M$(I)=CHR$(V):NEXT I
32050 AMB=ADR(M$):AME=AMB+E:AM=AMB:C=Z0:RETURN
32060 DATA 255,168,161,4
32061 DATA 0,160,160,32
32062 DATA 0,160,160,32
32063 DATA 0,160,160,32
32064 DATA 128,168,161,4
32065 DATA 173,168,161,4
32066 DATA 162,168,161,4
32067 DATA 255,168,161,4
32068 DATA 128,168,161,4
32069 DATA 173,168,161,4
32070 DATA 162,168,161,4
32071 DATA 255,168,161,4
32072 DATA 0,160,160,32
32073 DATA 85,170,162,4
32074 DATA 64,170,162,4
32075 DATA 128,168,161,4
32076 DATA 96,170,162,4
32077 DATA 72,170,162,4
32078 DATA 173,168,161,4
32079 DATA 85,170,162,8
32080 DATA 64,170,162,8
32081 DATA 162,168,161,4
32082 DATA 255,168,161,4
32083 DATA 0,160,160,16
32084 DATA 0,160,160,16
32085 DATA 128,168,161,4
32086 DATA 173,168,161,4
32087 DATA 162,168,161,4
32088 DATA 255,168,161,4
32089 DATA 0,160,160,32
32090 DATA 85,170,162,4
32091 DATA 64,170,162,4
32092 DATA 128,168,161,4
32093 DATA 96,170,162,4
32094 DATA 72,170,162,4
32095 DATA 173,168,161,4
32096 DATA 85,170,162,8
32097 DATA 64,170,162,8
32098 DATA 162,168,161,4
32099 DATA 255,168,161,4
32100 DATA 0,160,160,16
32101 DATA 0,160,160,16
32102 DATA 128,168,161,4
32103 DATA 173,168,161,4
32104 DATA 162,168,161,4
32105 DATA 193,168,161,4
32106 DATA 0,160,160,32
32107 DATA 64,170,162,2
32108 DATA 47,170,162,2
32109 DATA 64,170,162,2
32110 DATA 47,170,162,2
32111 DATA 96,168,161,4
32112 DATA 64,170,162,2
32113 DATA 47,170,162,2
32114 DATA 64,170,162,2
32115 DATA 47,170,162,2
32116 DATA 193,168,161,4
32117 DATA 72,170,162,4
32118 DATA 53,170,162,4
32119 DATA 96,168,161,4
32120 DATA 64,170,162,4
32121 DATA 47,170,162,4
32122 DATA 193,168,161,4
32123 DATA 64,170,162,2
32124 DATA 47,170,162,2
32125 DATA 64,170,162,2
32126 DATA 47,170,162,2
32127 DATA 96,168,161,4
32128 DATA 64,170,162,2
32129 DATA 47,170,162,2
32130 DATA 64,170,162,2
32131 DATA 47,170,162,2
32132 DATA 193,168,161,4
32133 DATA 72,170,162,4
32134 DATA 53,170,162,4
32135 DATA 96,168,161,4
32136 DATA 64,170,162,4
32137 DATA 47,170,162,4
32138 DATA 255,168,161,4
32139 DATA 64,168,160,2
32140 DATA 85,170,162,4
32141 DATA 64,170,162,4
32142 DATA 108,168,160,2
32143 DATA 128,168,161,4
32144 DATA 85,168,160,2
32145 DATA 96,170,162,4
32146 DATA 72,170,162,4
32147 DATA 81,168,160,2
32148 DATA 173,168,161,4
32149 DATA 85,168,160,2
32150 DATA 85,170,162,8
32151 DATA 64,170,162,8
32152 DATA 108,168,160,2
32153 DATA 162,168,161,4
32154 DATA 57,168,160,2
32155 DATA 64,168,160,2
32156 DATA 255,168,161,4
32157 DATA 0,160,160,16
32158 DATA 0,160,160,16
32159 DATA 0,160,160,16
32160 DATA 128,168,161,4
32161 DATA 173,168,161,4
32162 DATA 162,168,161,4
32163 DATA 255,168,161,4
32164 DATA 64,168,160,2
32165 DATA 85,170,162,4
32166 DATA 64,170,162,4
32167 DATA 108,168,160,2
32168 DATA 128,168,161,4
32169 DATA 85,168,160,2
32170 DATA 96,170,162,4
32171 DATA 72,170,162,4
32172 DATA 81,168,160,2
32173 DATA 173,168,161,4
32174 DATA 85,168,160,2
32175 DATA 85,170,162,8
32176 DATA 64,170,162,8
32177 DATA 108,168,160,2
32178 DATA 162,168,161,4
32179 DATA 57,168,160,2
32180 DATA 64,168,160,2
32181 DATA 255,168,161,4
32182 DATA 0,160,160,16
32183 DATA 0,160,160,16
32184 DATA 0,160,160,16
32185 DATA 128,168,161,4
32186 DATA 173,168,161,4
32187 DATA 162,168,161,4
32188 DATA 193,168,161,4
32189 DATA 19,168,160,1
32190 DATA 64,170,162,2
32191 DATA 47,170,162,2
32192 DATA 23,168,160,1
32193 DATA 31,168,160,1
32194 DATA 64,170,162,2
32195 DATA 47,170,162,2
32196 DATA 40,168,160,1
32197 DATA 96,168,161,4
32198 DATA 47,168,160,1
32199 DATA 64,170,162,2
32200 DATA 47,170,162,2
32201 DATA 64,168,160,1
32202 DATA 81,168,160,1
32203 DATA 64,170,162,2
32204 DATA 47,170,162,2
32205 DATA 96,168,160,1
32206 DATA 193,168,161,4
32207 DATA 0,160,160,8
32208 DATA 72,170,162,4
32209 DATA 53,170,162,4
32210 DATA 96,168,161,4
32211 DATA 64,170,162,4
32212 DATA 47,170,162,4
32213 DATA 193,168,161,4
32214 DATA 19,168,160,1
32215 DATA 64,170,162,2
32216 DATA 47,170,162,2
32217 DATA 23,168,160,1
32218 DATA 31,168,160,1
32219 DATA 64,170,162,2
32220 DATA 47,170,162,2
32221 DATA 40,168,160,1
32222 DATA 96,168,161,4
32223 DATA 47,168,160,1
32224 DATA 64,170,162,2
32225 DATA 47,170,162,2
32226 DATA 64,168,160,1
32227 DATA 81,168,160,1
32228 DATA 64,170,162,2
32229 DATA 47,170,162,2
32230 DATA 96,168,160,1
32231 DATA 193,168,161,4
32232 DATA 0,160,160,8
32233 DATA 72,170,162,4
32234 DATA 53,170,162,4
32235 DATA 96,168,161,4
32236 DATA 64,170,162,4
32237 DATA 47,170,162,4
32238 DATA 114,168,161,2
32239 DATA 173,168,161,2
32240 DATA 68,168,162,8
32241 DATA 85,168,162,8
32242 DATA 114,168,161,2
32243 DATA 173,168,161,2
32244 DATA 114,168,161,2
32245 DATA 173,168,161,2
32246 DATA 114,168,161,2
32247 DATA 173,168,161,2
32248 DATA 128,168,161,4
32249 DATA 193,168,161,4
32250 DATA 76,168,162,4
32251 DATA 96,168,162,4
32252 DATA 114,168,161,4
32253 DATA 173,168,161,4
32254 DATA 68,168,162,4
32255 DATA 85,168,162,4
32256 DATA 114,168,161,2
32257 DATA 173,168,161,2
32258 DATA 68,168,162,8
32259 DATA 57,168,162,8
32260 DATA 114,168,161,2
32261 DATA 173,168,161,2
32262 DATA 114,168,161,2
32263 DATA 173,168,161,2
32264 DATA 114,168,161,2
32265 DATA 173,168,161,2
32266 DATA 128,168,161,4
32267 DATA 193,168,161,4
32268 DATA 76,168,162,4
32269 DATA 64,168,162,4
32270 DATA 114,168,161,4
32271 DATA 173,168,161,4
32272 DATA 68,168,162,4
32273 DATA 57,168,162,4
32274 DATA 114,168,161,2
32275 DATA 173,168,160,2
32276 DATA 68,170,162,12
32277 DATA 42,170,162,12
32278 DATA 114,168,161,2
32279 DATA 173,168,160,2
32280 DATA 114,168,161,2
32281 DATA 173,168,160,2
32282 DATA 114,168,161,2
32283 DATA 173,168,160,2
32284 DATA 128,168,161,4
32285 DATA 193,168,160,4
32286 DATA 114,168,161,4
32287 DATA 173,168,160,4
32288 DATA 0,160,160,4
32289 DATA 0,160,160,4
32290 DATA 173,168,161,2
32291 DATA 20,168,160,1
32292 DATA 20,170,162,1
32293 DATA 31,170,162,1
32294 DATA 28,168,160,1
32295 DATA 42,170,162,1
32296 DATA 64,170,162,1
32297 DATA 173,168,161,2
32298 DATA 33,168,160,1
32299 DATA 0,160,160,4
32300 DATA 0,160,160,4
32301 DATA 42,168,160,1
32302 DATA 173,168,161,2
32303 DATA 57,168,160,1
32304 DATA 68,168,160,1
32305 DATA 173,168,161,2
32306 DATA 85,168,160,1
32307 DATA 20,170,162,1
32308 DATA 31,170,162,1
32309 DATA 114,168,160,1
32310 DATA 42,170,162,1
32311 DATA 64,170,162,1
32312 DATA 173,168,161,2
32313 DATA 85,168,160,2
32314 DATA 0,160,160,4
32315 DATA 0,160,160,4
32316 DATA 0,160,160,6
32317 DATA 0,160,160,6
32318 DATA 0,160,160,4
32319 DATA 0,160,160,4
32320 DATA 255,167,161,4
32321 DATA 64,164,160,2
32322 DATA 85,169,162,4
32323 DATA 64,169,162,4
32324 DATA 108,164,160,2
32325 DATA 128,167,161,4
32326 DATA 85,164,160,2
32327 DATA 96,169,162,4
32328 DATA 72,169,162,4
32329 DATA 81,164,160,2
32330 DATA 173,167,161,4
32331 DATA 85,164,160,2
32332 DATA 85,169,162,8
32333 DATA 64,169,162,8
32334 DATA 108,164,160,2
32335 DATA 162,167,161,4
32336 DATA 57,164,160,2
32337 DATA 64,164,160,2
32338 DATA 255,167,161,4
32339 DATA 0,160,160,16
32340 DATA 0,160,160,16
32341 DATA 0,160,160,16
32342 DATA 128,167,161,4
32343 DATA 173,167,161,4
32344 DATA 162,167,161,4
32345 DATA 255,167,161,4
32346 DATA 64,164,160,2
32347 DATA 85,169,162,4
32348 DATA 64,169,162,4
32349 DATA 108,164,160,2
32350 DATA 128,167,161,4
32351 DATA 85,164,160,2
32352 DATA 96,169,162,4
32353 DATA 72,169,162,4
32354 DATA 81,164,160,2
32355 DATA 173,167,161,4
32356 DATA 85,164,160,2
32357 DATA 85,169,162,8
32358 DATA 64,169,162,8
32359 DATA 108,164,160,2
32360 DATA 162,167,161,4
32361 DATA 57,164,160,2
32362 DATA 64,164,160,2
32363 DATA 255,167,161,4
32364 DATA 0,160,160,16
32365 DATA 0,160,160,16
32366 DATA 0,160,160,16
32367 DATA 128,167,161,4
32368 DATA 173,167,161,4
32369 DATA 162,167,161,4
32370 DATA 255,165,161,4
32371 DATA 64,163,160,2
32372 DATA 85,167,162,4
32373 DATA 64,167,162,4
32374 DATA 108,163,160,2
32375 DATA 128,165,161,4
32376 DATA 85,163,160,2
32377 DATA 96,167,162,4
32378 DATA 72,167,162,4
32379 DATA 81,163,160,2
32380 DATA 173,165,161,4
32381 DATA 85,163,160,2
32382 DATA 85,167,162,8
32383 DATA 64,167,162,8
32384 DATA 108,163,160,2
32385 DATA 162,165,161,4
32386 DATA 57,163,160,2
32387 DATA 64,163,160,2
32388 DATA 255,165,161,4
32389 DATA 0,160,160,16
32390 DATA 0,160,160,16
32391 DATA 0,160,160,16
32392 DATA 128,165,161,4
32393 DATA 173,165,161,4
32394 DATA 162,165,161,4
32395 DATA 255,165,161,4
32396 DATA 64,163,160,2
32397 DATA 85,167,162,4
32398 DATA 64,167,162,4
32399 DATA 108,163,160,2
32400 DATA 128,165,161,4
32401 DATA 85,163,160,2
32402 DATA 96,167,162,4
32403 DATA 72,167,162,4
32404 DATA 81,163,160,2
32405 DATA 173,165,161,4
32406 DATA 85,163,160,2
32407 DATA 85,167,162,8
32408 DATA 64,167,162,8
32409 DATA 108,163,160,2
32410 DATA 162,165,161,4
32411 DATA 57,163,160,2
32412 DATA 64,163,160,2
32413 DATA 255,165,161,4
32414 DATA 0,160,160,16
32415 DATA 0,160,160,16
32416 DATA 0,160,160,16
32417 DATA 128,165,161,4
32418 DATA 173,165,161,4
32419 DATA 162,165,161,4
32420 DATA 255,163,161,4
32421 DATA 64,162,160,2
32422 DATA 85,164,161,4
32423 DATA 64,164,161,4
32424 DATA 108,162,160,2
32425 DATA 128,163,161,4
32426 DATA 85,162,160,2
32427 DATA 96,164,161,4
32428 DATA 72,164,161,4
32429 DATA 81,162,160,2
32430 DATA 173,163,161,4
32431 DATA 85,162,160,2
32432 DATA 85,164,161,8
32433 DATA 64,164,161,8
32434 DATA 108,162,160,2
32435 DATA 162,163,161,4
32436 DATA 57,162,160,2
32437 DATA 64,162,160,2
32438 DATA 255,163,161,4
32439 DATA 0,160,160,16
32440 DATA 0,160,160,16
32441 DATA 0,160,160,16
32442 DATA 128,163,161,4
32443 DATA 173,163,161,4
32444 DATA 162,163,161,4
32445 DATA 255,163,161,4
32446 DATA 64,162,160,2
32447 DATA 85,164,161,4
32448 DATA 64,164,161,4
32449 DATA 108,162,160,2
32450 DATA 128,163,161,4
32451 DATA 85,162,160,2
32452 DATA 96,164,161,4
32453 DATA 72,164,161,4
32454 DATA 81,162,160,2
32455 DATA 173,163,161,4
32456 DATA 85,162,160,2
32457 DATA 85,164,161,8
32458 DATA 64,164,161,8
32459 DATA 108,162,160,2
32460 DATA 162,163,161,4
32461 DATA 57,162,160,2
32462 DATA 64,162,160,2
32463 DATA 255,163,161,4
32464 DATA 0,160,160,16
32465 DATA 0,160,160,16
32466 DATA 0,160,160,16
32467 DATA 128,163,161,4
32468 DATA 173,163,161,4
32469 DATA 162,163,161,4
32470 REM -- end of Mono part

32760 REM --
32761 REM PRIMA APRILIS COMPO 2024 BY
32762 REM Mono, Adam Klobukowski, Seban/Slt, Mq, Sikor

Post's attachments

PA2024.LST 12.48 kb, liczba pobrań: 2 (od 2024-03-30)

Tylko zalogowani mogą pobierać załączniki.

hex, code and ror'n'rol
niewiedza buduje, wiedza rujnuje

Mq · 2024-03-30 23:40:26

Mq
Starszy Atarowiec
Nieaktywny

Skąd: Poznań
Zarejestrowany: 2016-10-13
Posty: 2,927

Odp: Prima Aprilis Compo 2024

Znowu zrobiliście linie, których się nie da wkleić do normalnego Basica...

mono · 2024-03-31 17:26:29

mono
Starszy Atarowiec
Nieaktywny

Skąd: inąd
Zarejestrowany: 2007-08-20
Posty: 2,900

Odp: Prima Aprilis Compo 2024

Proszę uprzejmie:

50 GOSUB 30000:GOSUB 32000

10000 POKE 106,PEEK(106)-16:GRAPHICS 9:REM -- set the mode by Adam K.
10010 GOSUB 31900:Z20=20:POKE Z20,X:C20=X

11000 T20=PEEK(Z20):POKE PM0,T20:IF T20<>C20 THEN C20=T20:C=C+Z1

29800 IF C<Z4 THEN 11000
29810 C=Z0

29820 IF T0=0 THEN P0=PEEK(AM):V0=PEEK(AM+1):S0=PEEK(AM+2):T0=PEEK(AM+3):AM=AM+4:POKE PF0,P0:IF AM=AME THEN AM=AMB
29830 T0=T0-Z1:POKE PC0,V0:IF V0>S0 THEN V0=V0-Z2
29840 IF T1=0 THEN P1=PEEK(AM):V1=PEEK(AM+1):S1=PEEK(AM+2):T1=PEEK(AM+3):AM=AM+4:POKE PF1,P1:IF AM=AME THEN AM=AMB
29850 T1=T1-Z1:POKE PC1,V1:IF V1>S1 THEN V1=V1-Z2
29860 IF T2=0 THEN P2=PEEK(AM):V2=PEEK(AM+1):S2=PEEK(AM+2):T2=PEEK(AM+3):AM=AM+4:POKE PF2,P2:IF AM=AME THEN AM=AMB
29870 T2=T2-Z1:POKE PC2,V2:IF V2>S2 THEN V2=V2-Z2
29880 IF T3=0 THEN P3=PEEK(AM):V3=PEEK(AM+1):S3=PEEK(AM+2):T3=PEEK(AM+3):AM=AM+4:POKE PF3,P3:IF AM=AME THEN AM=AMB
29890 T3=T3-Z1:POKE PC3,V3:IF V3>S3 THEN V3=V3-Z2

29980 IF PEEK(GC)=7 THEN 11000
29990 POKE 53277,0:POKE 53261,0:END

30000 REM SOME INFO BEFORE DEMO MODE BY SIKOR
30010 GRAPHICS 0:POKE 710,0:POKE 709,15:POKE 755,0
30020 ? "Another year, another PA compo...":? "------------------------------------"
30030 ? "Take it easy..."
30040 ? :? :? "This year they had their fingers:"
30050 ? "Mono, Adam K, Seban, Mq, Sikor"
30060 RETURN

31900 REM -- let's start by Seban/Slt -- +sound by Mq
31901 DL=PEEK(560)+256*PEEK(561)
31902 RESTORE 31914:FOR I=1536 TO 1548:READ A:POKE I,A:NEXT I:POKE DL+134,143:POKE 512,0:POKE 513,6:POKE 54286,192
31903 FOR Y=128 TO 191
31904 COLOR Y/4:PLOT 0,Y:DRAWTO 79,Y
31905 R=RND(0)*79:COLOR R
31906 PLOT R,RND(0)*127
31907 SOUND 0,4,5,Y:NEXT Y
31908 FOR X=60 TO 76
31909 COLOR X+3:PLOT X/1.5,128:DRAWTO X,191
31910 SOUND 0,7,8,X:NEXT X
31911 FOR X=0 TO 31
31912 COLOR X/2:PLOT 30,12:DRAWTO X+14,51:DRAWTO 30,91
31913 SOUND 0,1,2,X:NEXT X:SOUND 0,0,0,0
31914 DATA 72,169,192,141,27,208,169,4,141,26,208,104,64
31915 REM -- end of let's start --
31920 REM -- PMG init --
31921 X=48:PM0=53248:POKE 54279,PEEK(106):POKE 559,58:POKE 704,56:POKE 53277,2:POKE 53256,1:POKE PM0,X
31922 DIM T$(32):T$="BEHIND JAGGI LINES!":PM0A=(PEEK(106)+4)*256+32
31923 FOR I=1 TO LEN(T$)
31924 A=57344+(ASC(T$(I))-32)*8
31925 FOR J=0 TO 7:POKE PM0A+J,PEEK(A+J)
31926 SOUND Z0,I*RND(Z0),12,J*RND(Z0):NEXT J:PM0A=PM0A+8:NEXT I
31927 RETURN 

32000 REM -- Mono part
32010 Z0=0:Z1=1:Z2=2:Z3=3:Z4=4:Z6=6:T0=Z0:T1=Z0:T2=Z0:T3=Z0
32020 GC=53279:PF0=53760:PC0=PF0+Z1:PF1=PC0+Z1:PC1=PF1+Z1:PF2=PC1+Z1:PC2=PF2+Z1:PF3=PC2+Z1:PC3=PF3+Z1
32030 E=Z4*410:DIM M$(E):RESTORE 32060
32040 FOR I=Z1 TO E:SOUND Z0,Z2,10,Z6*RND(Z0):READ V:M$(I)=CHR$(V):NEXT I
32050 AMB=ADR(M$):AME=AMB+E:AM=AMB:C=Z0:RETURN
32060 DATA 255,168,161,4
32061 DATA 0,160,160,32
32062 DATA 0,160,160,32
32063 DATA 0,160,160,32
32064 DATA 128,168,161,4
32065 DATA 173,168,161,4
32066 DATA 162,168,161,4
32067 DATA 255,168,161,4
32068 DATA 128,168,161,4
32069 DATA 173,168,161,4
32070 DATA 162,168,161,4
32071 DATA 255,168,161,4
32072 DATA 0,160,160,32
32073 DATA 85,170,162,4
32074 DATA 64,170,162,4
32075 DATA 128,168,161,4
32076 DATA 96,170,162,4
32077 DATA 72,170,162,4
32078 DATA 173,168,161,4
32079 DATA 85,170,162,8
32080 DATA 64,170,162,8
32081 DATA 162,168,161,4
32082 DATA 255,168,161,4
32083 DATA 0,160,160,16
32084 DATA 0,160,160,16
32085 DATA 128,168,161,4
32086 DATA 173,168,161,4
32087 DATA 162,168,161,4
32088 DATA 255,168,161,4
32089 DATA 0,160,160,32
32090 DATA 85,170,162,4
32091 DATA 64,170,162,4
32092 DATA 128,168,161,4
32093 DATA 96,170,162,4
32094 DATA 72,170,162,4
32095 DATA 173,168,161,4
32096 DATA 85,170,162,8
32097 DATA 64,170,162,8
32098 DATA 162,168,161,4
32099 DATA 255,168,161,4
32100 DATA 0,160,160,16
32101 DATA 0,160,160,16
32102 DATA 128,168,161,4
32103 DATA 173,168,161,4
32104 DATA 162,168,161,4
32105 DATA 193,168,161,4
32106 DATA 0,160,160,32
32107 DATA 64,170,162,2
32108 DATA 47,170,162,2
32109 DATA 64,170,162,2
32110 DATA 47,170,162,2
32111 DATA 96,168,161,4
32112 DATA 64,170,162,2
32113 DATA 47,170,162,2
32114 DATA 64,170,162,2
32115 DATA 47,170,162,2
32116 DATA 193,168,161,4
32117 DATA 72,170,162,4
32118 DATA 53,170,162,4
32119 DATA 96,168,161,4
32120 DATA 64,170,162,4
32121 DATA 47,170,162,4
32122 DATA 193,168,161,4
32123 DATA 64,170,162,2
32124 DATA 47,170,162,2
32125 DATA 64,170,162,2
32126 DATA 47,170,162,2
32127 DATA 96,168,161,4
32128 DATA 64,170,162,2
32129 DATA 47,170,162,2
32130 DATA 64,170,162,2
32131 DATA 47,170,162,2
32132 DATA 193,168,161,4
32133 DATA 72,170,162,4
32134 DATA 53,170,162,4
32135 DATA 96,168,161,4
32136 DATA 64,170,162,4
32137 DATA 47,170,162,4
32138 DATA 255,168,161,4
32139 DATA 64,168,160,2
32140 DATA 85,170,162,4
32141 DATA 64,170,162,4
32142 DATA 108,168,160,2
32143 DATA 128,168,161,4
32144 DATA 85,168,160,2
32145 DATA 96,170,162,4
32146 DATA 72,170,162,4
32147 DATA 81,168,160,2
32148 DATA 173,168,161,4
32149 DATA 85,168,160,2
32150 DATA 85,170,162,8
32151 DATA 64,170,162,8
32152 DATA 108,168,160,2
32153 DATA 162,168,161,4
32154 DATA 57,168,160,2
32155 DATA 64,168,160,2
32156 DATA 255,168,161,4
32157 DATA 0,160,160,16
32158 DATA 0,160,160,16
32159 DATA 0,160,160,16
32160 DATA 128,168,161,4
32161 DATA 173,168,161,4
32162 DATA 162,168,161,4
32163 DATA 255,168,161,4
32164 DATA 64,168,160,2
32165 DATA 85,170,162,4
32166 DATA 64,170,162,4
32167 DATA 108,168,160,2
32168 DATA 128,168,161,4
32169 DATA 85,168,160,2
32170 DATA 96,170,162,4
32171 DATA 72,170,162,4
32172 DATA 81,168,160,2
32173 DATA 173,168,161,4
32174 DATA 85,168,160,2
32175 DATA 85,170,162,8
32176 DATA 64,170,162,8
32177 DATA 108,168,160,2
32178 DATA 162,168,161,4
32179 DATA 57,168,160,2
32180 DATA 64,168,160,2
32181 DATA 255,168,161,4
32182 DATA 0,160,160,16
32183 DATA 0,160,160,16
32184 DATA 0,160,160,16
32185 DATA 128,168,161,4
32186 DATA 173,168,161,4
32187 DATA 162,168,161,4
32188 DATA 193,168,161,4
32189 DATA 19,168,160,1
32190 DATA 64,170,162,2
32191 DATA 47,170,162,2
32192 DATA 23,168,160,1
32193 DATA 31,168,160,1
32194 DATA 64,170,162,2
32195 DATA 47,170,162,2
32196 DATA 40,168,160,1
32197 DATA 96,168,161,4
32198 DATA 47,168,160,1
32199 DATA 64,170,162,2
32200 DATA 47,170,162,2
32201 DATA 64,168,160,1
32202 DATA 81,168,160,1
32203 DATA 64,170,162,2
32204 DATA 47,170,162,2
32205 DATA 96,168,160,1
32206 DATA 193,168,161,4
32207 DATA 0,160,160,8
32208 DATA 72,170,162,4
32209 DATA 53,170,162,4
32210 DATA 96,168,161,4
32211 DATA 64,170,162,4
32212 DATA 47,170,162,4
32213 DATA 193,168,161,4
32214 DATA 19,168,160,1
32215 DATA 64,170,162,2
32216 DATA 47,170,162,2
32217 DATA 23,168,160,1
32218 DATA 31,168,160,1
32219 DATA 64,170,162,2
32220 DATA 47,170,162,2
32221 DATA 40,168,160,1
32222 DATA 96,168,161,4
32223 DATA 47,168,160,1
32224 DATA 64,170,162,2
32225 DATA 47,170,162,2
32226 DATA 64,168,160,1
32227 DATA 81,168,160,1
32228 DATA 64,170,162,2
32229 DATA 47,170,162,2
32230 DATA 96,168,160,1
32231 DATA 193,168,161,4
32232 DATA 0,160,160,8
32233 DATA 72,170,162,4
32234 DATA 53,170,162,4
32235 DATA 96,168,161,4
32236 DATA 64,170,162,4
32237 DATA 47,170,162,4
32238 DATA 114,168,161,2
32239 DATA 173,168,161,2
32240 DATA 68,168,162,8
32241 DATA 85,168,162,8
32242 DATA 114,168,161,2
32243 DATA 173,168,161,2
32244 DATA 114,168,161,2
32245 DATA 173,168,161,2
32246 DATA 114,168,161,2
32247 DATA 173,168,161,2
32248 DATA 128,168,161,4
32249 DATA 193,168,161,4
32250 DATA 76,168,162,4
32251 DATA 96,168,162,4
32252 DATA 114,168,161,4
32253 DATA 173,168,161,4
32254 DATA 68,168,162,4
32255 DATA 85,168,162,4
32256 DATA 114,168,161,2
32257 DATA 173,168,161,2
32258 DATA 68,168,162,8
32259 DATA 57,168,162,8
32260 DATA 114,168,161,2
32261 DATA 173,168,161,2
32262 DATA 114,168,161,2
32263 DATA 173,168,161,2
32264 DATA 114,168,161,2
32265 DATA 173,168,161,2
32266 DATA 128,168,161,4
32267 DATA 193,168,161,4
32268 DATA 76,168,162,4
32269 DATA 64,168,162,4
32270 DATA 114,168,161,4
32271 DATA 173,168,161,4
32272 DATA 68,168,162,4
32273 DATA 57,168,162,4
32274 DATA 114,168,161,2
32275 DATA 173,168,160,2
32276 DATA 68,170,162,12
32277 DATA 42,170,162,12
32278 DATA 114,168,161,2
32279 DATA 173,168,160,2
32280 DATA 114,168,161,2
32281 DATA 173,168,160,2
32282 DATA 114,168,161,2
32283 DATA 173,168,160,2
32284 DATA 128,168,161,4
32285 DATA 193,168,160,4
32286 DATA 114,168,161,4
32287 DATA 173,168,160,4
32288 DATA 0,160,160,4
32289 DATA 0,160,160,4
32290 DATA 173,168,161,2
32291 DATA 20,168,160,1
32292 DATA 20,170,162,1
32293 DATA 31,170,162,1
32294 DATA 28,168,160,1
32295 DATA 42,170,162,1
32296 DATA 64,170,162,1
32297 DATA 173,168,161,2
32298 DATA 33,168,160,1
32299 DATA 0,160,160,4
32300 DATA 0,160,160,4
32301 DATA 42,168,160,1
32302 DATA 173,168,161,2
32303 DATA 57,168,160,1
32304 DATA 68,168,160,1
32305 DATA 173,168,161,2
32306 DATA 85,168,160,1
32307 DATA 20,170,162,1
32308 DATA 31,170,162,1
32309 DATA 114,168,160,1
32310 DATA 42,170,162,1
32311 DATA 64,170,162,1
32312 DATA 173,168,161,2
32313 DATA 85,168,160,2
32314 DATA 0,160,160,4
32315 DATA 0,160,160,4
32316 DATA 0,160,160,6
32317 DATA 0,160,160,6
32318 DATA 0,160,160,4
32319 DATA 0,160,160,4
32320 DATA 255,167,161,4
32321 DATA 64,164,160,2
32322 DATA 85,169,162,4
32323 DATA 64,169,162,4
32324 DATA 108,164,160,2
32325 DATA 128,167,161,4
32326 DATA 85,164,160,2
32327 DATA 96,169,162,4
32328 DATA 72,169,162,4
32329 DATA 81,164,160,2
32330 DATA 173,167,161,4
32331 DATA 85,164,160,2
32332 DATA 85,169,162,8
32333 DATA 64,169,162,8
32334 DATA 108,164,160,2
32335 DATA 162,167,161,4
32336 DATA 57,164,160,2
32337 DATA 64,164,160,2
32338 DATA 255,167,161,4
32339 DATA 0,160,160,16
32340 DATA 0,160,160,16
32341 DATA 0,160,160,16
32342 DATA 128,167,161,4
32343 DATA 173,167,161,4
32344 DATA 162,167,161,4
32345 DATA 255,167,161,4
32346 DATA 64,164,160,2
32347 DATA 85,169,162,4
32348 DATA 64,169,162,4
32349 DATA 108,164,160,2
32350 DATA 128,167,161,4
32351 DATA 85,164,160,2
32352 DATA 96,169,162,4
32353 DATA 72,169,162,4
32354 DATA 81,164,160,2
32355 DATA 173,167,161,4
32356 DATA 85,164,160,2
32357 DATA 85,169,162,8
32358 DATA 64,169,162,8
32359 DATA 108,164,160,2
32360 DATA 162,167,161,4
32361 DATA 57,164,160,2
32362 DATA 64,164,160,2
32363 DATA 255,167,161,4
32364 DATA 0,160,160,16
32365 DATA 0,160,160,16
32366 DATA 0,160,160,16
32367 DATA 128,167,161,4
32368 DATA 173,167,161,4
32369 DATA 162,167,161,4
32370 DATA 255,165,161,4
32371 DATA 64,163,160,2
32372 DATA 85,167,162,4
32373 DATA 64,167,162,4
32374 DATA 108,163,160,2
32375 DATA 128,165,161,4
32376 DATA 85,163,160,2
32377 DATA 96,167,162,4
32378 DATA 72,167,162,4
32379 DATA 81,163,160,2
32380 DATA 173,165,161,4
32381 DATA 85,163,160,2
32382 DATA 85,167,162,8
32383 DATA 64,167,162,8
32384 DATA 108,163,160,2
32385 DATA 162,165,161,4
32386 DATA 57,163,160,2
32387 DATA 64,163,160,2
32388 DATA 255,165,161,4
32389 DATA 0,160,160,16
32390 DATA 0,160,160,16
32391 DATA 0,160,160,16
32392 DATA 128,165,161,4
32393 DATA 173,165,161,4
32394 DATA 162,165,161,4
32395 DATA 255,165,161,4
32396 DATA 64,163,160,2
32397 DATA 85,167,162,4
32398 DATA 64,167,162,4
32399 DATA 108,163,160,2
32400 DATA 128,165,161,4
32401 DATA 85,163,160,2
32402 DATA 96,167,162,4
32403 DATA 72,167,162,4
32404 DATA 81,163,160,2
32405 DATA 173,165,161,4
32406 DATA 85,163,160,2
32407 DATA 85,167,162,8
32408 DATA 64,167,162,8
32409 DATA 108,163,160,2
32410 DATA 162,165,161,4
32411 DATA 57,163,160,2
32412 DATA 64,163,160,2
32413 DATA 255,165,161,4
32414 DATA 0,160,160,16
32415 DATA 0,160,160,16
32416 DATA 0,160,160,16
32417 DATA 128,165,161,4
32418 DATA 173,165,161,4
32419 DATA 162,165,161,4
32420 DATA 255,163,161,4
32421 DATA 64,162,160,2
32422 DATA 85,164,161,4
32423 DATA 64,164,161,4
32424 DATA 108,162,160,2
32425 DATA 128,163,161,4
32426 DATA 85,162,160,2
32427 DATA 96,164,161,4
32428 DATA 72,164,161,4
32429 DATA 81,162,160,2
32430 DATA 173,163,161,4
32431 DATA 85,162,160,2
32432 DATA 85,164,161,8
32433 DATA 64,164,161,8
32434 DATA 108,162,160,2
32435 DATA 162,163,161,4
32436 DATA 57,162,160,2
32437 DATA 64,162,160,2
32438 DATA 255,163,161,4
32439 DATA 0,160,160,16
32440 DATA 0,160,160,16
32441 DATA 0,160,160,16
32442 DATA 128,163,161,4
32443 DATA 173,163,161,4
32444 DATA 162,163,161,4
32445 DATA 255,163,161,4
32446 DATA 64,162,160,2
32447 DATA 85,164,161,4
32448 DATA 64,164,161,4
32449 DATA 108,162,160,2
32450 DATA 128,163,161,4
32451 DATA 85,162,160,2
32452 DATA 96,164,161,4
32453 DATA 72,164,161,4
32454 DATA 81,162,160,2
32455 DATA 173,163,161,4
32456 DATA 85,162,160,2
32457 DATA 85,164,161,8
32458 DATA 64,164,161,8
32459 DATA 108,162,160,2
32460 DATA 162,163,161,4
32461 DATA 57,162,160,2
32462 DATA 64,162,160,2
32463 DATA 255,163,161,4
32464 DATA 0,160,160,16
32465 DATA 0,160,160,16
32466 DATA 0,160,160,16
32467 DATA 128,163,161,4
32468 DATA 173,163,161,4
32469 DATA 162,163,161,4
32470 REM -- end of Mono part

32760 REM --
32761 REM PRIMA APRILIS COMPO 2024 BY
32762 REM Mono, Adam Klobukowski, Seban/Slt, Mq, Sikor

Edit: Pozwoliłem sobie przenieść intro Sikora niżej w kodzie. Mam nadzieję, że Sikor się nie pogniewa.

Ostatnio edytowany przez mono (2024-03-31 17:27:46)

Post's attachments

PA2024.LST 12.46 kb, liczba pobrań: 1 (od 2024-03-31)

Tylko zalogowani mogą pobierać załączniki.

hex, code and ror'n'rol
niewiedza buduje, wiedza rujnuje

Sikor · 2024-03-31 18:16:34

Sikor
Naddyskownik
Nieaktywny

Skąd: Warszawa
Zarejestrowany: 2002-06-17
Posty: 10,940

Odp: Prima Aprilis Compo 2024

mono napisał/a:

Mam nadzieję, że Sikor się nie pogniewa.

Sikor się nie gniewa :D

Sikor umarł...

mono · 2024-04-01 00:12:06

mono
Starszy Atarowiec
Nieaktywny

Skąd: inąd
Zarejestrowany: 2007-08-20
Posty: 2,900

Odp: Prima Aprilis Compo 2024

No to jeszcze wywaliłem volume slide downy. Żeby zrobić miejsce na nowe efekty. A pan Romuald Bacza aka BCA dodał koloryzację.

50 GOSUB 30000:GOSUB 32000

10000 POKE 106,PEEK(106)-16:GRAPHICS 9:REM -- set the mode by Adam K.
10010 GOSUB 31900:POKE 20,X:C20=X

11000 T20=PEEK(20):POKE PM0,T20:IF T20<>C20 THEN C20=T20:C=C+1

29800 IF C<4 THEN 11000
29810 C=0

29820 T0=T0-1:IF T0=0THEN P0=PEEK(AM):V0=PEEK(AM+1):T0=PEEK(AM+2):AM=AM+3:POKE PF0,P0:POKE PC0,V0:IF AM=AME THEN AM=AMB
29830 T1=T1-1:IF T1=0THEN P1=PEEK(AM):V1=PEEK(AM+1):T1=PEEK(AM+2):AM=AM+3:POKE PF1,P1:POKE PC1,V1:IF AM=AME THEN AM=AMB
29840 T2=T2-1:IF T2=0THEN P2=PEEK(AM):V2=PEEK(AM+1):T2=PEEK(AM+2):AM=AM+3:POKE PF2,P2:POKE PC2,V2:IF AM=AME THEN AM=AMB
29850 T3=T3-1:IF T3=0THEN P3=PEEK(AM):V3=PEEK(AM+1):T3=PEEK(AM+2):AM=AM+3:POKE PF3,P3:POKE PC3,V3:IF AM=AME THEN AM=AMB

29895 SETCOLOR 4,15,T0:REM BCA

29980 IF PEEK(53279)=7 THEN 11000
29990 POKE 53277,0:POKE 53261,0:END

30000 REM SOME INFO BEFORE DEMO MODE BY SIKOR
30010 GRAPHICS 0:POKE 710,0:POKE 709,15:POKE 755,0
30020 ? "Another year, another PA compo...":? "------------------------------------"
30030 ? "Take it easy..."
30040 ? :? :? "This year they had their fingers:"
30050 ? "Mono, Adam K, Seban, Mq, Sikor, BCA"
30060 RETURN

31900 REM -- let's start by Seban/Slt -- +sound by Mq
31901 DL=PEEK(560)+256*PEEK(561)
31902 RESTORE 31914:FOR I=1536 TO 1548:READ A:POKE I,A:NEXT I:POKE DL+134,143:POKE 512,0:POKE 513,6:POKE 54286,192
31903 FOR Y=128 TO 191
31904 COLOR Y/4:PLOT 0,Y:DRAWTO 79,Y
31905 R=RND(0)*79:COLOR R
31906 PLOT R,RND(0)*127
31907 SOUND 0,4,5,Y:NEXT Y
31908 FOR X=60 TO 76
31909 COLOR X+3:PLOT X/1.5,128:DRAWTO X,191
31910 SOUND 0,7,8,X:NEXT X
31911 FOR X=0 TO 31
31912 COLOR X/2:PLOT 30,12:DRAWTO X+14,51:DRAWTO 30,91
31913 SOUND 0,1,2,X:NEXT X:SOUND 0,0,0,0
31914 DATA 72,169,192,141,27,208,169,4,141,26,208,104,64
31915 REM -- end of let's start --
31920 REM -- PMG init --
31921 X=48:PM0=53248:POKE 54279,PEEK(106):POKE 559,58:POKE 704,56:POKE 53277,2:POKE 53256,1:POKE PM0,X
31922 DIM T$(32):T$="BEHIND JAGGI LINES!":PM0A=(PEEK(106)+4)*256+32
31923 FOR I=1 TO LEN(T$)
31924 A=57344+(ASC(T$(I))-32)*8
31925 FOR J=0 TO 7:POKE PM0A+J,PEEK(A+J)
31926 SOUND Z0,I*RND(Z0),12,J*RND(Z0):NEXT J:PM0A=PM0A+8:NEXT I
31927 RETURN 

32000 REM -- Mono part
32010 T0=1:T1=1:T2=1:T3=1
32020 P=53760:PF0=P+0:PC0=P+1:PF1=P+2:PC1=P+3:PF2=P+4:PC2=P+5:PF3=P+6:PC3=P+7
32030 E=3*410:DIM M$(E):RESTORE 32060
32040 FOR I=1 TO E STEP 3:SOUND 0,2,10,6*RND(0):READ P,D,T:M$(I)=CHR$(P):M$(I+1)=CHR$(D):M$(I+2)=CHR$(T):NEXT I
32050 AMB=ADR(M$):AME=AMB+E:AM=AMB:C=0:RETURN
32060 DATA 255,168,4
32061 DATA 0,160,32
32062 DATA 0,160,32
32063 DATA 0,160,32
32064 DATA 128,168,4
32065 DATA 173,168,4
32066 DATA 162,168,4
32067 DATA 255,168,4
32068 DATA 128,168,4
32069 DATA 173,168,4
32070 DATA 162,168,4
32071 DATA 255,168,4
32072 DATA 0,160,32
32073 DATA 85,170,4
32074 DATA 64,170,4
32075 DATA 128,168,4
32076 DATA 96,170,4
32077 DATA 72,170,4
32078 DATA 173,168,4
32079 DATA 85,170,8
32080 DATA 64,170,8
32081 DATA 162,168,4
32082 DATA 255,168,4
32083 DATA 0,160,16
32084 DATA 0,160,16
32085 DATA 128,168,4
32086 DATA 173,168,4
32087 DATA 162,168,4
32088 DATA 255,168,4
32089 DATA 0,160,32
32090 DATA 85,170,4
32091 DATA 64,170,4
32092 DATA 128,168,4
32093 DATA 96,170,4
32094 DATA 72,170,4
32095 DATA 173,168,4
32096 DATA 85,170,8
32097 DATA 64,170,8
32098 DATA 162,168,4
32099 DATA 255,168,4
32100 DATA 0,160,16
32101 DATA 0,160,16
32102 DATA 128,168,4
32103 DATA 173,168,4
32104 DATA 162,168,4
32105 DATA 193,168,4
32106 DATA 0,160,32
32107 DATA 64,170,2
32108 DATA 47,170,2
32109 DATA 64,170,2
32110 DATA 47,170,2
32111 DATA 96,168,4
32112 DATA 64,170,2
32113 DATA 47,170,2
32114 DATA 64,170,2
32115 DATA 47,170,2
32116 DATA 193,168,4
32117 DATA 72,170,4
32118 DATA 53,170,4
32119 DATA 96,168,4
32120 DATA 64,170,4
32121 DATA 47,170,4
32122 DATA 193,168,4
32123 DATA 64,170,2
32124 DATA 47,170,2
32125 DATA 64,170,2
32126 DATA 47,170,2
32127 DATA 96,168,4
32128 DATA 64,170,2
32129 DATA 47,170,2
32130 DATA 64,170,2
32131 DATA 47,170,2
32132 DATA 193,168,4
32133 DATA 72,170,4
32134 DATA 53,170,4
32135 DATA 96,168,4
32136 DATA 64,170,4
32137 DATA 47,170,4
32138 DATA 255,168,4
32139 DATA 64,168,2
32140 DATA 85,170,4
32141 DATA 64,170,4
32142 DATA 108,168,2
32143 DATA 128,168,4
32144 DATA 85,168,2
32145 DATA 96,170,4
32146 DATA 72,170,4
32147 DATA 81,168,2
32148 DATA 173,168,4
32149 DATA 85,168,2
32150 DATA 85,170,8
32151 DATA 64,170,8
32152 DATA 108,168,2
32153 DATA 162,168,4
32154 DATA 57,168,2
32155 DATA 64,168,2
32156 DATA 255,168,4
32157 DATA 0,160,16
32158 DATA 0,160,16
32159 DATA 0,160,16
32160 DATA 128,168,4
32161 DATA 173,168,4
32162 DATA 162,168,4
32163 DATA 255,168,4
32164 DATA 64,168,2
32165 DATA 85,170,4
32166 DATA 64,170,4
32167 DATA 108,168,2
32168 DATA 128,168,4
32169 DATA 85,168,2
32170 DATA 96,170,4
32171 DATA 72,170,4
32172 DATA 81,168,2
32173 DATA 173,168,4
32174 DATA 85,168,2
32175 DATA 85,170,8
32176 DATA 64,170,8
32177 DATA 108,168,2
32178 DATA 162,168,4
32179 DATA 57,168,2
32180 DATA 64,168,2
32181 DATA 255,168,4
32182 DATA 0,160,16
32183 DATA 0,160,16
32184 DATA 0,160,16
32185 DATA 128,168,4
32186 DATA 173,168,4
32187 DATA 162,168,4
32188 DATA 193,168,4
32189 DATA 19,168,1
32190 DATA 64,170,2
32191 DATA 47,170,2
32192 DATA 23,168,1
32193 DATA 31,168,1
32194 DATA 64,170,2
32195 DATA 47,170,2
32196 DATA 40,168,1
32197 DATA 96,168,4
32198 DATA 47,168,1
32199 DATA 64,170,2
32200 DATA 47,170,2
32201 DATA 64,168,1
32202 DATA 81,168,1
32203 DATA 64,170,2
32204 DATA 47,170,2
32205 DATA 96,168,1
32206 DATA 193,168,4
32207 DATA 0,160,8
32208 DATA 72,170,4
32209 DATA 53,170,4
32210 DATA 96,168,4
32211 DATA 64,170,4
32212 DATA 47,170,4
32213 DATA 193,168,4
32214 DATA 19,168,1
32215 DATA 64,170,2
32216 DATA 47,170,2
32217 DATA 23,168,1
32218 DATA 31,168,1
32219 DATA 64,170,2
32220 DATA 47,170,2
32221 DATA 40,168,1
32222 DATA 96,168,4
32223 DATA 47,168,1
32224 DATA 64,170,2
32225 DATA 47,170,2
32226 DATA 64,168,1
32227 DATA 81,168,1
32228 DATA 64,170,2
32229 DATA 47,170,2
32230 DATA 96,168,1
32231 DATA 193,168,4
32232 DATA 0,160,8
32233 DATA 72,170,4
32234 DATA 53,170,4
32235 DATA 96,168,4
32236 DATA 64,170,4
32237 DATA 47,170,4
32238 DATA 114,168,2
32239 DATA 173,168,2
32240 DATA 68,168,8
32241 DATA 85,168,8
32242 DATA 114,168,2
32243 DATA 173,168,2
32244 DATA 114,168,2
32245 DATA 173,168,2
32246 DATA 114,168,2
32247 DATA 173,168,2
32248 DATA 128,168,4
32249 DATA 193,168,4
32250 DATA 76,168,4
32251 DATA 96,168,4
32252 DATA 114,168,4
32253 DATA 173,168,4
32254 DATA 68,168,4
32255 DATA 85,168,4
32256 DATA 114,168,2
32257 DATA 173,168,2
32258 DATA 68,168,8
32259 DATA 57,168,8
32260 DATA 114,168,2
32261 DATA 173,168,2
32262 DATA 114,168,2
32263 DATA 173,168,2
32264 DATA 114,168,2
32265 DATA 173,168,2
32266 DATA 128,168,4
32267 DATA 193,168,4
32268 DATA 76,168,4
32269 DATA 64,168,4
32270 DATA 114,168,4
32271 DATA 173,168,4
32272 DATA 68,168,4
32273 DATA 57,168,4
32274 DATA 114,168,2
32275 DATA 173,168,2
32276 DATA 68,170,12
32277 DATA 42,170,12
32278 DATA 114,168,2
32279 DATA 173,168,2
32280 DATA 114,168,2
32281 DATA 173,168,2
32282 DATA 114,168,2
32283 DATA 173,168,2
32284 DATA 128,168,4
32285 DATA 193,168,4
32286 DATA 114,168,4
32287 DATA 173,168,4
32288 DATA 0,160,4
32289 DATA 0,160,4
32290 DATA 173,168,2
32291 DATA 20,168,1
32292 DATA 20,170,1
32293 DATA 31,170,1
32294 DATA 28,168,1
32295 DATA 42,170,1
32296 DATA 64,170,1
32297 DATA 173,168,2
32298 DATA 33,168,1
32299 DATA 0,160,4
32300 DATA 0,160,4
32301 DATA 42,168,1
32302 DATA 173,168,2
32303 DATA 57,168,1
32304 DATA 68,168,1
32305 DATA 173,168,2
32306 DATA 85,168,1
32307 DATA 20,170,1
32308 DATA 31,170,1
32309 DATA 114,168,1
32310 DATA 42,170,1
32311 DATA 64,170,1
32312 DATA 173,168,2
32313 DATA 85,168,2
32314 DATA 0,160,4
32315 DATA 0,160,4
32316 DATA 0,160,6
32317 DATA 0,160,6
32318 DATA 0,160,4
32319 DATA 0,160,4
32320 DATA 255,167,4
32321 DATA 64,164,2
32322 DATA 85,169,4
32323 DATA 64,169,4
32324 DATA 108,164,2
32325 DATA 128,167,4
32326 DATA 85,164,2
32327 DATA 96,169,4
32328 DATA 72,169,4
32329 DATA 81,164,2
32330 DATA 173,167,4
32331 DATA 85,164,2
32332 DATA 85,169,8
32333 DATA 64,169,8
32334 DATA 108,164,2
32335 DATA 162,167,4
32336 DATA 57,164,2
32337 DATA 64,164,2
32338 DATA 255,167,4
32339 DATA 0,160,16
32340 DATA 0,160,16
32341 DATA 0,160,16
32342 DATA 128,167,4
32343 DATA 173,167,4
32344 DATA 162,167,4
32345 DATA 255,167,4
32346 DATA 64,164,2
32347 DATA 85,169,4
32348 DATA 64,169,4
32349 DATA 108,164,2
32350 DATA 128,167,4
32351 DATA 85,164,2
32352 DATA 96,169,4
32353 DATA 72,169,4
32354 DATA 81,164,2
32355 DATA 173,167,4
32356 DATA 85,164,2
32357 DATA 85,169,8
32358 DATA 64,169,8
32359 DATA 108,164,2
32360 DATA 162,167,4
32361 DATA 57,164,2
32362 DATA 64,164,2
32363 DATA 255,167,4
32364 DATA 0,160,16
32365 DATA 0,160,16
32366 DATA 0,160,16
32367 DATA 128,167,4
32368 DATA 173,167,4
32369 DATA 162,167,4
32370 DATA 255,165,4
32371 DATA 64,163,2
32372 DATA 85,167,4
32373 DATA 64,167,4
32374 DATA 108,163,2
32375 DATA 128,165,4
32376 DATA 85,163,2
32377 DATA 96,167,4
32378 DATA 72,167,4
32379 DATA 81,163,2
32380 DATA 173,165,4
32381 DATA 85,163,2
32382 DATA 85,167,8
32383 DATA 64,167,8
32384 DATA 108,163,2
32385 DATA 162,165,4
32386 DATA 57,163,2
32387 DATA 64,163,2
32388 DATA 255,165,4
32389 DATA 0,160,16
32390 DATA 0,160,16
32391 DATA 0,160,16
32392 DATA 128,165,4
32393 DATA 173,165,4
32394 DATA 162,165,4
32395 DATA 255,165,4
32396 DATA 64,163,2
32397 DATA 85,167,4
32398 DATA 64,167,4
32399 DATA 108,163,2
32400 DATA 128,165,4
32401 DATA 85,163,2
32402 DATA 96,167,4
32403 DATA 72,167,4
32404 DATA 81,163,2
32405 DATA 173,165,4
32406 DATA 85,163,2
32407 DATA 85,167,8
32408 DATA 64,167,8
32409 DATA 108,163,2
32410 DATA 162,165,4
32411 DATA 57,163,2
32412 DATA 64,163,2
32413 DATA 255,165,4
32414 DATA 0,160,16
32415 DATA 0,160,16
32416 DATA 0,160,16
32417 DATA 128,165,4
32418 DATA 173,165,4
32419 DATA 162,165,4
32420 DATA 255,163,4
32421 DATA 64,162,2
32422 DATA 85,164,4
32423 DATA 64,164,4
32424 DATA 108,162,2
32425 DATA 128,163,4
32426 DATA 85,162,2
32427 DATA 96,164,4
32428 DATA 72,164,4
32429 DATA 81,162,2
32430 DATA 173,163,4
32431 DATA 85,162,2
32432 DATA 85,164,8
32433 DATA 64,164,8
32434 DATA 108,162,2
32435 DATA 162,163,4
32436 DATA 57,162,2
32437 DATA 64,162,2
32438 DATA 255,163,4
32439 DATA 0,160,16
32440 DATA 0,160,16
32441 DATA 0,160,16
32442 DATA 128,163,4
32443 DATA 173,163,4
32444 DATA 162,163,4
32445 DATA 255,163,4
32446 DATA 64,162,2
32447 DATA 85,164,4
32448 DATA 64,164,4
32449 DATA 108,162,2
32450 DATA 128,163,4
32451 DATA 85,162,2
32452 DATA 96,164,4
32453 DATA 72,164,4
32454 DATA 81,162,2
32455 DATA 173,163,4
32456 DATA 85,162,2
32457 DATA 85,164,8
32458 DATA 64,164,8
32459 DATA 108,162,2
32460 DATA 162,163,4
32461 DATA 57,162,2
32462 DATA 64,162,2
32463 DATA 255,163,4
32464 DATA 0,160,16
32465 DATA 0,160,16
32466 DATA 0,160,16
32467 DATA 128,163,4
32468 DATA 173,163,4
32469 DATA 162,163,4
32470 REM -- end of Mono part

32760 REM --
32761 REM PRIMA APRILIS COMPO 2024 BY
32762 REM Mono, Adam Klobukowski, Seban/Slt, Mq, Sikor, BCA

Ostatnio edytowany przez mono (2024-04-01 00:33:45)

Post's attachments

PA2024.LST 10.7 kb, liczba pobrań: 3 (od 2024-04-01)

Tylko zalogowani mogą pobierać załączniki.

hex, code and ror'n'rol
niewiedza buduje, wiedza rujnuje

maw · 2024-04-01 20:47:49

maw
Młodszy Atarowiec
Nieaktywny

Skąd: Siem-ce
Zarejestrowany: 2008-01-08
Posty: 766

Odp: Prima Aprilis Compo 2024

Hej, dołączam kolejne modyfikacje:

30000 REM SOME INFO BEFORE DEMO MODE BY SIKOR +texts stairs MaW
30010 GRAPHICS 0:POKE 710,0:POKE 709,15:POKE 752,1
30020 ? "Another year, another PA compo...":? "------------------------------------"
30030 ? "Take it easy...": ? :? :? "This year they had their fingers:"
                         
30040 DIM A$(20):DIM DOT$(3):DOT$="...":DATA Mono,Adam K,Seban,Mq,Sikor,BCA,MaW,...
30041 LINE=PEEK(84) 
30050 LINE=LINE+1:COL=PEEK(85):READ A$: IF (COL+LEN(A$)+3)>39 THEN COL=0
30051 POS. COL,LINE:? #6;A$;DOT$;CHR$(21);:IF A$=DOT$ THEN RETURN
30060 GOTO 30050

32000 REM -- Mono part -- +progress bar MaW, sounds peaks BCA
32010 T0=1:T1=1:T2=1:T3=1:SCR0=PEEK(88)+PEEK(89)*256:SCR1=SCR0+119
32020 P=53760:PF0=P+0:PC0=P+1:PF1=P+2:PC1=P+3:PF2=P+4:PC2=P+5:PF3=P+6:PC3=P+7
32030 POS=SCR0:E=3*410:DIM M$(E):RESTORE 32060
32040 FOR I=1 TO E STEP 3:V=PEEK(POS)
32041 POKE POS,V+128*((V<128)*1+(V>127)*-1):V=PEEK(POS+1):POKE POS+1,V+128*((V<128)*1+(V>127)-1)
32042 POS=POS+1:IF POS>SCR1 then POS=SCR0
32043 SOUND 0,2,10,P:READ P,D,T:M$(I)=CHR$(P):M$(I+1)=CHR$(D):M$(I+2)=CHR$(T):NEXT I
32050 AMB=ADR(M$):AME=AMB+E:AM=AMB:C=0:RETURN

...przy współpracy Romualda.

Ostatnio edytowany przez maw (2024-04-01 21:14:35)

___
Press play on tape...

Mq · 2024-04-01 21:08:50

Mq
Starszy Atarowiec
Nieaktywny

Skąd: Poznań
Zarejestrowany: 2016-10-13
Posty: 2,927

Odp: Prima Aprilis Compo 2024

@mono: proszę popraw linie, żeby nie były za długie do normalnego Basica:
29820
29830
29840
29850

Z czego to wynika, że takie długie linie robicie? I w czym to robicie właściwie? Ja do PA compo korzystam z czystego Basica Atari.

A tak swoją drogą, to praca robiona niby dla jaj i dla zabawy bardzo na szybko, a w tym roku np. na Forever Party był tak beznadziejny poziom prac, że z tym programem moglibyśmy zająć miejsce na podium prawie w każdej kategorii:-)

Dzięki wszystkim za udział, było bardzo miło obok Was uczestniczyć w tym roku w PA compo! :-)

Ostatnio edytowany przez Mq (2024-04-01 21:09:32)

maw · 2024-04-01 21:16:06

maw
Młodszy Atarowiec
Nieaktywny

Skąd: Siem-ce
Zarejestrowany: 2008-01-08
Posty: 766

Odp: Prima Aprilis Compo 2024

Hej Mq, za długie linie wprowadzasz z POKE 82,0
plus skróty:

29820 T0=T0-1:IF T0=0THEN P0=PEEK(AM):V0=PEEK(AM+1):T0=PEEK(AM+2):AM=AM+3:POK.PF0,P0:POK.PC0,V0:IF AM=AME THEN AM=AMB
29830 T1=T1-1:IF T1=0THEN P1=PEEK(AM):V1=PEEK(AM+1):T1=PEEK(AM+2):AM=AM+3:POK.PF1,P1:POK.PC1,V1:IF AM=AME THEN AM=AMB
29840 T2=T2-1:IF T2=0THEN P2=PEEK(AM):V2=PEEK(AM+1):T2=PEEK(AM+2):AM=AM+3:POK.PF2,P2:POK.PC2,V2:IF AM=AME THEN AM=AMB
29850 T3=T3-1:IF T3=0THEN P3=PEEK(AM):V3=PEEK(AM+1):T3=PEEK(AM+2):AM=AM+3:POK.PF3,P3:POK.PC3,V3:IF AM=AME THEN AM=AMB

PS. Zmiany pod bacznym okiem Santyago na Złoomie ;)

pa2024.lst - obecna wersja, listing BASIC

PA2024_post24.txt - obecna wersja, text UTF+8

Ostatnio edytowany przez maw (2024-04-01 21:34:11)

Post's attachments

pa2024.lst 11.47 kb, liczba pobrań: 3 (od 2024-04-01)

PA2024_post24.txt 11.6 kb, liczba pobrań: 1 (od 2024-04-01)

Tylko zalogowani mogą pobierać załączniki.

___
Press play on tape...

maw · 2024-04-01 21:38:37

maw
Młodszy Atarowiec
Nieaktywny

Skąd: Siem-ce
Zarejestrowany: 2008-01-08
Posty: 766

Odp: Prima Aprilis Compo 2024

Zmiana dorzucona przez BCA:

29895 SETCOLOR 4,T20,T0:REM BCA

+aktualizacja LST

Ostatnio edytowany przez maw (2024-04-01 22:41:13)

Post's attachments

PA2024_P26.LST 11.22 kb, liczba pobrań: 2 (od 2024-04-01)

PA2024_post26+.txt 11.68 kb, liczba pobrań: 1 (od 2024-04-01)

Tylko zalogowani mogą pobierać załączniki.

___
Press play on tape...

Aktualności ze świata Atari

Prima Aprilis Compo 2024 (Strona 1 z 2)

Posty [ 1 do 25 z 30 ]

1 Temat przez mono 2024-03-29 19:02:47

Temat: Prima Aprilis Compo 2024

2 Odpowiedź przez Adam Klobukowski 2024-03-30 09:47:58

Odp: Prima Aprilis Compo 2024

3 Odpowiedź przez seban 2024-03-30 11:15:08

Odp: Prima Aprilis Compo 2024

4 Odpowiedź przez Mq 2024-03-30 11:55:54

Odp: Prima Aprilis Compo 2024

5 Odpowiedź przez mono 2024-03-30 11:56:20

Odp: Prima Aprilis Compo 2024

6 Odpowiedź przez Mq 2024-03-30 12:14:59

Odp: Prima Aprilis Compo 2024

7 Odpowiedź przez mono 2024-03-30 12:15:34

Odp: Prima Aprilis Compo 2024

8 Odpowiedź przez Mq 2024-03-30 12:23:14

Odp: Prima Aprilis Compo 2024

9 Odpowiedź przez mono 2024-03-30 12:32:47

Odp: Prima Aprilis Compo 2024

10 Odpowiedź przez Mq 2024-03-30 12:41:41

Odp: Prima Aprilis Compo 2024

11 Odpowiedź przez mono 2024-03-30 12:49:53

Odp: Prima Aprilis Compo 2024

12 Odpowiedź przez Sikor 2024-03-30 19:57:19

Odp: Prima Aprilis Compo 2024

13 Odpowiedź przez mono 2024-03-30 20:30:25

Odp: Prima Aprilis Compo 2024

14 Odpowiedź przez seban 2024-03-30 20:39:11

Odp: Prima Aprilis Compo 2024

15 Odpowiedź przez mono 2024-03-30 20:54:26

Odp: Prima Aprilis Compo 2024

16 Odpowiedź przez Sikor 2024-03-30 21:25:05

Odp: Prima Aprilis Compo 2024

17 Odpowiedź przez mono 2024-03-30 22:33:37

Odp: Prima Aprilis Compo 2024

18 Odpowiedź przez Mq 2024-03-30 23:40:26

Odp: Prima Aprilis Compo 2024

19 Odpowiedź przez mono 2024-03-31 17:26:29

Odp: Prima Aprilis Compo 2024

20 Odpowiedź przez Sikor 2024-03-31 18:16:34

Odp: Prima Aprilis Compo 2024

21 Odpowiedź przez mono 2024-04-01 00:12:06

Odp: Prima Aprilis Compo 2024

22 Odpowiedź przez maw 2024-04-01 20:47:49

Odp: Prima Aprilis Compo 2024

23 Odpowiedź przez Mq 2024-04-01 21:08:50

Odp: Prima Aprilis Compo 2024

24 Odpowiedź przez maw 2024-04-01 21:16:06

Odp: Prima Aprilis Compo 2024

25 Odpowiedź przez maw 2024-04-01 21:38:37

Odp: Prima Aprilis Compo 2024

Posty [ 1 do 25 z 30 ]