Nie jesteś zalogowany. Proszę się zalogować lub zarejestrować.
TURGEN 9.3.0 Kolejna wersja multiplatformowego narzędzia do zarządzania obrazami taśm.
SV 2024 WE - program imprezy Już za tydzień odbędzie się zimowa edycja Silly Venture
Nowa obudowa dla 800XL - zostało 36 dni Niewiele ponad miesiąc do końca kampanii.
Zmarł twórca języka BASIC Zmarł Thomas E. Kurtz twórca języka BASIC
Zmiana serwera atari.area Serwis przeszedł właśnie ważną aktualizację infrastruktury
atari.area forum » Posty przez Cyprian
@pajero no tak, ale przy większej ilości bitów do sprawdzenia to IFami można się ...
6) różne stare karty do PC - dźwiękowe, graficzne, komunikacyjne - różne, pytać
jakie karty graficzne? jeśli ISA z układem ET4000 to biorę
dzięki
poprawiłem
ok, dzięki
Czy Basic wbudowany w 800XL/65XE ma możliwość gaszenia/zapalania konkretnych bitów? Albo AND/OR/XOR?
fajny materiał
cena jest dobra
rób sztaba Sikor
fajne, dodatkowy plus za efekty w overscanie
no dobra
teraz do brzegu
jakie są nagrody
80pln
dzięki @mono za inspirację (no i @Sikor za pomysł) i optymalizację.
jeśli chodzi o Priorytet to na zoomie muszę Ciebie wypytać o detale bo teraz w hiresie wygląda on dziwnie
dzięki, przeoczyłem linka bo na telefonie jest nieklikalny
ok,takie coś wyszło:
0 PF1=53760:PC1=PF1+1:PF2=PF1+2:PC2=PF1+3:PF3=PF1+4:PC3=PF1+5:PC=PF1+8:POKE PC,0:GOTO 100
10 T=PEEK(20)+2:IF T>255 THEN T=T-256
20 IF T<>PEEK(20) THEN 20
30 POKE PC3,0
40 T=PEEK(20)+4:IF T>255 THEN T=T-256
50 IF T<>PEEK(20) THEN 50
60 RETURN
100 RESTORE 1000:TRAP 100
110 GR.8
111 Z=1024*2:DIM P$(Z*2):X=(INT(ADR(P$)/Z)+1)*Z:L=X+32+768
112 POKE 54279,X/256:POKE 53277,3:POKE 559,62:POKE 623,1+16
113 FOR K=0 TO 3:POKE 704+K,0:NEXT K:POKE 710,2:POKE 711,0
114 FOR K=0 TO 3:POKE 53248+K,48+K*32:POKE 53252+K,176+K*8:NEXT K
115 FOR K=0 TO 4:POKE 53256+K,255:NEXT K
120 FOR N=L TO L+192+40
130 POKE N-40,0:POKE N+256-40,0:POKE N+512-40,0:POKE N+768-40,0:POKE N+1024-40,0
131 IF N-L>191 THEN GOTO 133
132 POKE N,255:POKE N+256,255:POKE N+512,255:POKE N+768,255:POKE N+1024,255
133 REM
134 XNEW=32+PEEK(53770):YNEW=PEEK(53770):IF YNEW>128 THEN YNEW=YNEW-128
135 YNEW=YNEW+32:COLOR 1:PLOT XNEW,YNEW:COLOR 0:PLOT XOLD,YOLD
136 XOLD=XTMP:YOLD=YTMP:XTMP=XNEW:YTMP=YNEW
140 READ F1,C1,F2,C2,F3,C3:POKE PF1,F1:POKE PC1,C1:POKE PF2,F2:POKE PC2,C2:POKE PF3,F3:POKE PC3,C3:GOS.10
150 NEXT N
160 GOTO 120
1000 DATA 173,168,0,160,9,0,173,166,0,160,9,0,173,164,0,160,9,0,173,162,0,160,9,0
1001 DATA 230,168,0,160,9,0,230,166,0,160,9,0,230,164,0,160,9,0,230,162,0,160,9,0
1002 DATA 173,168,0,160,9,0,173,166,0,160,9,0,173,164,0,160,9,0,173,162,0,160,9,0
1003 DATA 144,168,0,160,9,0,144,166,0,160,9,0,144,164,0,160,9,0,153,168,0,160,9,0
1004 DATA 173,168,0,160,9,0,173,166,0,160,9,0,173,164,0,160,9,0,173,162,0,160,9,0
1005 DATA 230,168,0,160,9,0,230,166,0,160,9,0,230,164,0,160,9,0,230,162,0,160,9,0
1006 DATA 173,168,0,160,9,0,173,166,0,160,9,0,173,164,0,160,9,0,173,162,0,160,9,0
1007 DATA 144,168,0,160,9,0,144,166,0,160,9,0,144,164,0,160,9,0,153,168,0,160,9,0
1008 DATA 173,168,68,170,9,0,173,166,68,168,9,0,173,164,57,170,9,0,173,162,57,168,9,0
1009 DATA 230,168,57,166,9,0,230,166,57,164,9,0,230,164,57,162,9,0,230,162,57,160,9,0
1010 DATA 173,168,57,160,9,0,173,166,57,160,9,0,173,164,57,170,9,0,173,162,57,168,9,0
1011 DATA 136,168,33,170,9,0,136,166,33,168,9,0,136,164,33,166,9,0,136,162,37,170,9,0
1012 DATA 128,168,42,170,9,0,128,166,42,168,9,0,128,164,50,170,9,0,128,162,50,168,9,0
1013 DATA 136,168,50,166,9,0,136,166,50,164,9,0,136,164,50,162,9,0,136,162,50,160,9,0
1014 DATA 153,168,50,160,9,0,153,166,50,160,9,0,153,164,50,160,9,0,153,162,50,160,9,0
1015 DATA 128,168,50,160,9,0,128,166,50,160,9,0,128,164,50,160,9,0,128,162,50,160,9,0
1016 DATA 114,168,37,170,9,0,114,166,0,160,9,0,114,164,37,170,9,0,114,162,37,168,9,0
1017 DATA 102,168,37,166,9,0,102,166,37,164,9,0,102,164,42,170,9,0,102,162,42,168,9,0
1018 DATA 91,168,45,170,9,0,91,166,45,168,9,0,91,164,45,166,9,0,91,162,42,170,9,0
1019 DATA 114,168,45,170,9,0,114,166,45,168,9,0,114,164,50,170,9,0,114,162,50,168,9,0
1020 DATA 173,168,57,170,9,0,173,166,57,168,9,0,173,164,68,170,9,0,173,162,68,168,9,0
1021 DATA 153,168,68,166,9,0,153,166,68,164,9,0,153,164,68,162,9,0,153,162,68,160,9,0
1022 DATA 136,168,68,160,9,0,136,166,68,160,9,0,136,164,68,170,9,0,136,162,68,168,9,0
1023 DATA 128,168,64,170,9,0,128,166,64,168,9,0,128,164,60,170,9,0,128,162,60,168,9,0
1024 DATA 173,168,57,170,9,0,173,166,57,168,9,0,173,164,42,170,9,0,173,162,42,168,9,0
1025 DATA 230,168,42,166,9,0,230,166,42,164,9,0,230,164,42,162,9,0,230,162,42,160,9,0
1026 DATA 173,168,42,160,9,0,173,166,42,160,9,0,173,164,42,170,9,0,173,162,42,168,9,0
1027 DATA 136,168,33,170,9,0,136,166,33,168,9,0,136,164,33,166,9,0,136,162,37,170,9,0
1028 DATA 128,168,42,170,9,0,128,166,42,168,9,0,128,164,50,170,9,0,128,162,50,168,9,0
1029 DATA 136,168,50,166,9,0,136,166,50,164,9,0,136,164,50,162,9,0,136,162,50,160,9,0
1030 DATA 153,168,50,160,9,0,153,166,50,160,9,0,153,164,50,160,9,0,153,162,50,160,9,0
1031 DATA 128,168,50,160,9,0,128,166,50,160,9,0,128,164,50,160,9,0,128,162,50,160,9,0
1032 DATA 114,168,37,170,9,0,114,166,0,160,9,0,114,164,37,170,9,0,114,162,37,168,9,0
1033 DATA 102,168,37,166,9,0,102,166,37,164,9,0,102,164,42,170,9,0,102,162,42,168,9,0
1034 DATA 91,168,45,170,9,0,91,166,45,168,9,0,91,164,57,170,9,0,91,162,57,168,9,0
1035 DATA 114,168,57,166,9,0,114,166,57,164,9,0,114,164,37,170,9,0,114,162,37,168,9,0
1036 DATA 173,168,42,170,9,0,173,166,42,168,9,0,173,164,42,166,9,0,173,162,42,164,9,0
1037 DATA 230,168,42,162,9,0,230,166,42,160,9,0,230,164,42,160,9,0,230,162,42,160,9,0
1038 DATA 173,168,42,160,9,0,173,166,42,160,9,0,173,164,42,160,9,0,173,162,42,160,9,0
1039 DATA 0,160,42,160,9,0,0,160,42,160,9,0,0,160,42,160,9,0,0,160,42,160,9,0
1040 DATA 173,168,68,170,1,5,173,166,68,168,1,0,173,164,57,170,1,0,173,162,57,168,1,0
1041 DATA 230,168,57,166,0,5,230,166,57,164,0,5,230,164,57,162,0,5,230,162,57,160,0,5
1042 DATA 173,168,57,160,1,5,173,166,57,160,1,0,173,164,57,170,1,0,173,162,57,168,1,0
1043 DATA 136,168,33,170,1,5,136,166,33,168,1,0,136,164,33,166,1,0,136,162,37,170,1,0
1044 DATA 128,168,42,170,1,5,128,166,42,168,1,0,128,164,50,170,1,0,128,162,50,168,1,0
1045 DATA 136,168,50,166,0,5,136,166,50,164,0,5,136,164,50,162,0,5,136,162,50,160,0,5
1046 DATA 153,168,50,160,1,5,153,166,50,160,1,0,153,164,50,160,1,0,153,162,50,160,1,0
1047 DATA 128,168,50,160,1,5,128,166,50,160,1,0,128,164,50,160,1,0,128,162,50,160,1,0
1048 DATA 114,168,37,170,1,5,114,166,0,160,1,0,114,164,37,170,1,0,114,162,37,168,1,0
1049 DATA 102,168,37,166,0,5,102,166,37,164,0,5,102,164,42,170,0,5,102,162,42,168,0,5
1050 DATA 91,168,45,170,1,5,91,166,45,168,1,0,91,164,45,166,1,0,91,162,42,170,1,0
1051 DATA 114,168,45,170,1,5,114,166,45,168,1,0,114,164,50,170,1,0,114,162,50,168,1,0
1052 DATA 173,168,57,170,1,5,173,166,57,168,1,0,173,164,68,170,1,0,173,162,68,168,1,0
1053 DATA 153,168,68,166,0,5,153,166,68,164,0,5,153,164,68,162,0,5,153,162,68,160,0,5
1054 DATA 136,168,68,160,1,5,136,166,68,160,1,0,136,164,68,170,1,0,136,162,68,168,1,0
1055 DATA 128,168,64,170,1,5,128,166,64,168,1,0,128,164,60,170,1,0,128,162,60,168,1,0
1056 DATA 173,168,57,170,1,5,173,166,57,168,1,0,173,164,42,170,1,0,173,162,42,168,1,0
1057 DATA 230,168,42,166,0,5,230,166,42,164,0,5,230,164,42,162,0,5,230,162,42,160,0,5
1058 DATA 173,168,42,160,1,5,173,166,42,160,1,0,173,164,42,170,1,0,173,162,42,168,1,0
1059 DATA 136,168,33,170,1,5,136,166,33,168,1,0,136,164,33,166,1,0,136,162,37,170,1,0
1060 DATA 128,168,42,170,1,5,128,166,42,168,1,0,128,164,50,170,1,0,128,162,50,168,1,0
1061 DATA 136,168,50,166,0,5,136,166,50,164,0,5,136,164,50,162,0,5,136,162,50,160,0,5
1062 DATA 153,168,50,160,1,5,153,166,50,160,1,0,153,164,50,160,1,0,153,162,50,160,1,0
1063 DATA 128,168,50,160,1,5,128,166,50,160,1,0,128,164,50,160,1,0,128,162,50,160,1,0
1064 DATA 114,168,37,170,1,5,114,166,0,160,1,0,114,164,37,170,1,0,114,162,37,168,1,0
1065 DATA 102,168,37,166,0,5,102,166,37,164,0,5,102,164,42,170,0,5,102,162,42,168,0,5
1066 DATA 91,168,45,170,1,5,91,166,45,168,1,0,91,164,57,170,1,0,91,162,57,168,1,0
1067 DATA 114,168,57,166,1,5,114,166,57,164,1,0,114,164,37,170,1,0,114,162,37,168,1,0
1068 DATA 173,168,42,170,1,5,173,166,42,168,1,0,173,164,42,166,1,5,173,162,42,164,1,0
1069 DATA 230,168,42,162,0,5,230,166,42,160,0,5,230,164,42,160,0,5,230,162,42,160,0,5
1070 DATA 173,168,42,160,1,5,173,166,42,160,1,0,173,164,42,160,1,0,173,162,42,160,1,0
1071 DATA 0,160,42,160,9,0,0,160,42,160,9,0,0,160,42,160,9,0,0,160,42,160,9,0
1072 DATA 0,160,57,170,9,0,0,160,0,160,9,0,0,160,57,170,9,0,0,160,57,168,9,0
1073 DATA 173,168,57,166,9,0,173,166,57,164,9,0,173,164,50,170,9,0,173,162,50,168,9,0
1074 DATA 173,162,57,170,9,0,173,162,57,168,9,0,173,162,57,166,9,0,173,162,57,164,9,0
1075 DATA 153,168,42,170,5,5,153,166,42,168,5,0,153,164,42,166,5,0,153,162,37,170,5,0
1076 DATA 173,168,33,170,1,5,173,166,0,160,1,0,173,164,33,170,0,5,173,162,33,168,0,5
1077 DATA 230,168,33,166,0,5,230,166,33,164,0,0,230,164,37,170,1,5,230,162,37,168,1,0
1078 DATA 173,168,33,170,0,5,173,166,33,168,0,5,173,164,37,170,1,5,173,162,37,168,1,0
1079 DATA 136,168,42,170,1,5,136,166,42,168,1,0,136,164,42,166,1,0,136,162,42,164,1,0
1080 DATA 128,168,50,170,1,5,128,166,0,160,1,0,128,164,50,170,0,5,128,162,50,168,0,5
1081 DATA 173,168,50,166,0,5,173,166,50,164,0,0,173,164,57,170,1,5,173,162,57,168,1,0
1082 DATA 128,168,50,170,0,5,128,166,50,168,0,5,128,164,50,166,1,5,128,162,50,164,1,0
1083 DATA 153,168,42,170,1,5,153,166,42,168,1,0,153,164,42,166,1,0,153,162,37,170,1,0
1084 DATA 173,168,33,170,1,5,173,166,0,160,1,0,173,164,33,170,0,5,173,162,33,168,0,5
1085 DATA 230,168,33,166,0,5,230,166,33,164,0,0,230,164,37,170,1,5,230,162,37,168,1,0
1086 DATA 173,168,33,170,0,5,173,166,33,168,0,5,173,164,37,170,1,5,173,162,37,168,1,0
1087 DATA 153,168,42,170,1,5,153,166,42,168,1,0,153,164,42,166,1,0,153,162,42,164,1,0
1088 DATA 0,160,57,170,1,5,0,160,0,160,1,0,0,160,57,170,0,5,0,160,57,168,0,5
1089 DATA 173,168,57,166,0,5,173,166,57,164,0,0,173,164,50,170,1,5,173,162,50,168,1,0
1090 DATA 173,162,57,170,0,5,173,162,57,168,0,5,173,162,57,166,1,5,173,162,57,164,1,0
1091 DATA 153,168,42,170,1,5,153,166,42,168,1,0,153,164,42,166,1,0,153,162,37,170,1,0
1092 DATA 173,168,33,170,1,5,173,166,0,160,1,0,173,164,33,170,0,5,173,162,33,168,0,5
1093 DATA 230,168,33,166,0,5,230,166,33,164,0,0,230,164,37,170,1,5,230,162,37,168,1,0
1094 DATA 173,168,33,170,0,5,173,166,33,168,0,5,173,164,37,170,1,5,173,162,37,168,1,0
1095 DATA 136,168,42,170,1,5,136,166,42,168,1,0,136,164,42,166,1,0,136,162,42,164,1,0
1096 DATA 128,168,50,170,1,5,128,166,50,168,1,0,128,164,37,170,0,5,128,162,37,168,0,5
1097 DATA 128,168,37,166,0,5,128,166,37,164,0,0,128,164,42,170,1,5,128,162,42,168,1,0
1098 DATA 114,168,45,170,0,5,114,166,45,168,0,5,114,164,57,170,1,5,114,162,57,168,1,0
1099 DATA 114,168,57,166,1,5,114,166,57,164,1,0,114,164,37,170,1,0,114,162,37,168,1,0
1100 DATA 173,168,42,170,1,5,173,166,42,168,1,0,173,164,42,166,1,5,173,162,42,164,1,0
1101 DATA 173,162,42,162,0,5,173,162,42,160,0,5,173,162,42,160,0,5,173,162,42,160,0,5
1102 DATA 0,160,42,160,1,5,0,160,42,160,1,0,0,160,42,160,1,0,0,160,42,160,1,0
1103 DATA 0,160,42,160,9,0,0,160,42,160,9,0,0,160,42,160,9,0,0,160,42,160,9,0
1104 DATA 204,168,68,170,9,0,204,166,68,168,9,0,204,164,68,166,9,0,204,162,68,164,9,0
1105 DATA 204,162,50,170,9,0,204,162,50,168,9,0,204,162,50,166,9,0,204,162,45,170,9,0
1106 DATA 204,162,33,170,9,0,204,162,33,168,9,0,204,162,33,166,0,5,204,162,33,164,0,5
1107 DATA 204,162,33,162,0,5,204,162,33,160,0,5,204,162,33,160,0,5,204,162,33,160,0,5
1108 DATA 182,168,35,170,1,5,182,166,35,168,1,0,182,164,35,166,0,5,182,162,40,170,0,5
1109 DATA 182,162,45,170,1,5,182,162,45,168,1,0,182,162,35,170,1,5,182,162,35,168,1,0
1110 DATA 182,162,40,170,1,5,182,162,40,168,1,0,182,162,40,166,0,5,182,162,40,164,0,5
1111 DATA 182,162,50,170,0,5,182,162,50,168,0,5,182,162,50,166,0,5,182,162,50,164,0,5
1112 DATA 204,168,68,170,9,0,204,166,68,168,9,0,204,164,68,166,9,0,204,162,68,164,9,0
1113 DATA 204,162,50,170,9,0,204,162,50,168,9,0,204,162,50,166,9,0,204,162,45,170,9,0
1114 DATA 204,162,29,170,9,0,204,162,29,168,9,0,204,162,40,170,0,5,204,162,40,168,0,5
1115 DATA 204,162,40,166,0,5,204,162,40,164,0,5,204,162,40,162,0,5,204,162,40,160,0,5
1116 DATA 144,168,35,170,1,5,144,166,35,168,1,0,144,164,35,166,1,0,0,160,0,160,1,0
1117 DATA 144,168,35,170,1,5,144,166,35,168,1,0,144,164,35,166,1,0,0,160,0,160,1,0
1118 DATA 0,160,0,160,1,0,0,160,0,160,1,0,0,160,0,160,1,0,0,160,0,160,1,0
1119 DATA 144,168,35,170,1,5,144,166,35,168,1,0,144,164,35,166,1,0,0,160,0,160,1,0
1120 DATA 0,160,0,160,9,0,0,160,0,160,9,0,0,160,0,160,9,0,0,160,0,160,9,0
1121 DATA 144,168,35,170,1,5,144,166,35,168,1,0,144,164,35,166,1,0,0,160,0,160,1,0
1122 DATA 0,160,0,160,1,0,0,160,0,160,1,0,182,168,45,170,1,5,182,166,45,168,1,0
1123 DATA 173,168,42,170,1,5,173,166,42,168,1,0,173,164,42,166,1,0,173,162,42,164,1,0
32760 REM ---
32761 REM Prima Aprilis Compo 2022 W.A.R.
32762 REM by Mono & Cypriantak, muza
brzmi trochę jak kraftwerk
Film niedostępny
Właściciel filmu wyłączył możliwość odtwarzania na innych stronach
Obejrzyj w YouTubepodoba mi się ta srebrna/metalizowana myszka na początku nagrania
co leci na początku
Sikor, mam dodać do kodu Mono?
szum ode mnie:
0 GR.8
1 Z=1024*2:DIM P$(Z*2):X=(INT(ADR(P$)/Z)+1)*Z:L=X+32+768
2 POKE 54279,X/256:POKE 53277,3:POKE 559,62:POKE 623,1+16
3 FOR K=0 TO 3:POKE 704+K,0:NEXT K:POKE 710,2:POKE 711,0
4 FOR K=0 TO 3:POKE 53248+K,48+K*32:POKE 53252+K,176+K*8:NEXT K
5 FOR K=0 TO 4:POKE 53256+K,255:NEXT K
20 FOR N=L TO L+192+40
30 POKE N-40,0:POKE N+256-40,0:POKE N+512-40,0:POKE N+768-40,0:POKE N+1024-40,0
31 IF N-L>191 THEN GOTO 33
32 POKE N,255:POKE N+256,255:POKE N+512,255:POKE N+768,255:POKE N+1024,255
33 REM
34 XNEW=32+PEEK(53770):YNEW=PEEK(53770):IF YNEW>128 THEN YNEW=YNEW-128
35 YNEW=YNEW+32:COLOR 1:PLOT XNEW,YNEW:COLOR 0:PLOT XOLD,YOLD
36 XOLD=XTMP:YOLD=YTMP:XTMP=XNEW:YTMP=YNEW
37 A=PEEK(53770):B=14:SOUND 0,A,8,5:SOUND 1,A+6,B,9:SOUND 2,A+12,B,12:SOUND 3,A+18,B,15
40 NEXT N
50 GOTO 20
RUNładna taka
Mało stabilne Atari, oraz problem z kontaktem w DragonCart w którym już kolejny raz musiałem cynować pady. Dlatego jestem przeciwnikiem produkowania cartów w tej technologii
wiadomix, tylko złote
złote, a skromne!
to już rok minął...
czemu serwer nie działał?
teraz jest git
gra muzyka
wkleiłem w Altirze, słyszę tylko jeden dźwięk i nic się nie dzieje.
sprawdziłem z 64K i 320K RAMBO, system 65XEm OS ver2, Basic rev C
@maw dzięki
podsumowując dla HiRes i Priorytetu 0:
Tło (piksel zgaszony) - duszek zawsze przykrywa je swoim kolorem i jasnością.
Znaki (piksel zapalony) - duszek przykrywa znak swoim kolorem ale z jasnością znaku. Więc jeśli oba mają tą samą jasność, to znak jest przykryty duszkiem.
@Fox ok, dzięki
@tebe no tak, z tym że dla dużej ilości kolorów sięgam po Falcona.
atari.area forum » Posty przez Cyprian
Wygenerowano w 0.130 sekund, wykonano 13 zapytań