Aktualności ze świata Atari

2022-04-05 15:02:44

Jeszcze dla uściślenia - BASIC wbudowany w serii XL/XE to nie jest BASIC XL, tylko Atari BASIC :) Popraw tytuł wątku, żeby nie wprowadzać potomnych w błąd :)

Edit: Uzupełniłem jeszcze pierwszy post o załączniki.

2022-04-05 12:38:57

Nie ma. Najlepiej to chyba zrobić USR-em:

FP0 = $D4

  pla    ;ilosc argumentow ignorujemy

  pla    ;pierwszy argument
  sta FP0+1
  pla
  sta FP0

  pla    ;drugi argument
  AND/EOR/ORA FP0+1
  sta FP0+1
  pla
  AND/EOR/ORA FP0
  sta FP0
  rts

Wywołujemy

X=USR(ADR("powyzszy_kod"),A,B)

Edit: Załączniki.

2022-04-03 17:19:35

Super! Dzięki! :)

2022-04-02 09:36:46

TVN: cała prawda całą dobę
TVP: nieprzerwany dostęp do wiarygodnej i rzetelnej informacji
Polsat: włącz emocje

Jak tu im nie wierzyć? :D

Edit: Nie oglądam za często, ale ponoć motto TV TRWAM to "a means of social communication, not mediamanipulation" https://wiki2.org/en/Telewizja_Trwam

2022-04-02 08:57:10

Rewelacja! Pozwoliłem sobie:
- naprawić błędy z zapętlaniem muzyki (zmiana z TRAP:RESTORE na IF:RESTORE),
- docyklować nieco żeby muzyka nie przyspieszała kiedy ramka przechodzi z dołu na górę (X=RND(0)),
- dodać wyjście na wciśnięcie klawisza konsoli (PEEK(53279)),
- zlikwidować mój kod synchronizujący i wpleść kod do perkusji (POKE PC3,0) w kod Cypriana,
- dodać info o edycji i autorach w oknie tekstowym GR.8.

100 PF1=53760:PC1=PF1+1:PF2=PF1+2:PC2=PF1+3:PF3=PF1+4:PC3=PF1+5:PC=PF1+8:POKE PC,0

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

117 ? "Prima Aprilis Compo 2022 W.A.R.":? "by Mono & Cyprian";

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 K=RND(0):K=RND(0):GOTO 133
132 POKE N,255:POKE N+256,255:POKE N+512,255:POKE N+768,255:POKE N+1024,255

133 POKE PC3,0

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:IF F1<0 THEN RESTORE:GOTO 140
141 POKE PF1,F1:POKE PC1,C1:POKE PF2,F2:POKE PC2,C2:POKE PF3,F3:POKE PC3,C3

145 IF PEEK(53279)<>7 THEN END

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
1124 DATA -1,-1,-1,-1,-1,-1

32760 REM ---
32761 REM Prima Aprilis Compo 2022 W.A.R.
32762 REM by Mono & Cyprian

W załączniku .atr. Zaktualizowana też jest strona w Atariki.

Dzięki Cyprian za uczestnictwo! Może w następnym roku skusisz się na priorytet 0 w hiresie? :>

Edit: Jeszcze w kwestii wyjaśnienia. Na początku zabawy wstawiłem linijki z copyrightem na sam koniec kodu BASIC-a, bo wszystkie GOTO i GOSUB są obliczane w Atari BASIC-u począwszy od początku programu, więc te REM-y zawsze spowalniają kod. Ale okazało się że w zasadzie u nas mogły być na początku bo finalnie nie mamy procedur które wymagałyby szybkiego wykonania (a nawet trzeba było spowalniać). Nie zmieniałem jednak i zostało jak było na początku.

2022-04-01 23:30:17

@Cyprian: Efekt jest świetny. Spróbuj to włączyć w mój kod.
W linii 110 jest cała pętla grająca muzykę.
Procedura w liniach 10-60 czeka 6 ramek, przy czym w drugiej ramce zeruje AUDC3 (używane do perkusji).
Możesz to spokojnie zreorganizować i nie przejmuj się tym czy będzie chodzić szybciej, czy wolniej.
Twój efekt warto włączyć i chętnie poczekam.
A compo chyba już skończone bo jest 0:28 CEST :)

2022-03-31 18:07:32

Kłopot polega na tym, że linia 110 była wpisywana skrótami i w listingu jest za długa.

110 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:G.110

Poniżej listing ze skorygowaną linią:

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 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:G.110
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

2022-03-31 17:30:50

A na dobry początek muzyczka :)

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 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:GOSUB 10:GOTO 110
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

2022-03-31 17:24:37

Kontynuując tradycję z lat ubiegłych http://www.atari.org.pl/forum/viewtopic.php?id=16625 niniejszym ogłaszam, że zabawę czas zacząć.

32760 REM ---
32761 REM Prima Aprilis Compo 2022 W.A.R.
32762 REM by Mono

Compo kończy się dokładnie o godzinie 0:00 2 IV 2022 CEST. Zapraszam do udziału.

Edit: Myślę też że można by dopuścić możliwość renumeracji linii i reorganizacji kodu w razie potrzeby.

2022-03-24 11:23:45

O tak, chętnie bym przeczytał taką książeczkę w papierze.

1. xxl - 1 sztuka
2. tOri - 1 sztuka
3. Mono - 1 szt.

2022-03-18 20:26:09

$ uname -a
Linux ox 5.4.0-104-generic #118~18.04.1-Ubuntu SMP Thu Mar 3 13:53:15 UTC 2022 x86_64 x86_64 x86_64 GNU/Linux

$ fpc -h|head -2
Free Pascal Compiler version 3.0.4+dfsg-18ubuntu2 [2018/08/29] for x86_64
Copyright (c) 1993-2017 by Florian Klaempfl and others

2022-03-18 16:54:48

MADS 2.1.3. Taka konstrukcja

value = $20 % %111

powoduje

Runtime error 216 at $0000000000440A58
  $0000000000440A58

Po poprawce

value = $20 % [%111]

kompiluje się poprawnie.

2022-03-17 12:47:04

Zdaje się, że wtedy nie było jeszcze syntezy subtraktywnej i to były eksperymenty.

2022-03-16 14:21:41

http://atariki.krap.pl/index.php/AMY

2022-03-16 14:00:19

http://atariki.krap.pl/images/7/73/Amysnd.zip

2022-03-06 11:16:29

@xxl: To jest z samej gry, czy może coś dorabiałeś?

2022-03-02 16:27:01

Nic się nie wyczerpało. Za niecały miesiąc następna edycja!

2022-02-28 13:03:46

"... has been created using ... skype" :)
A na dodatek tym https://bocianu.gitlab.io/spred/ można robić całe filmy.

2022-02-27 15:34:57

Nie wiem skąd to przekonanie że mało osób ma VBXE. Wiem o co najmniej 200 sprzedanych egzemplarzach, a ta liczba jest obawiam się mocno zaniżona. Szacuję że realnych posiadaczy jest ok. 500.

Edit: Poza tym pełna zgoda z xxl :)

2022-02-16 11:24:37

Olej cat :)

2022-02-14 16:42:07

Z jaką częstotliwością ten strumień jest renderowany?

2022-02-14 16:40:02

Fajna sztuczka.

2022-02-14 16:11:13

Nie 10*8 tylko 10*10. Traktujesz bity startu i stopu jak bity danych, ale takich które MOGĄ BYĆ przekłamane bo nie masz na nie wpływu.
Załóżmy że generujesz poziom stały więc masz strumień:
0101010101 0101010101 0101010101
czyli wysyłasz $55 $55 $55 - gdzie tu masz jakiś pisk i jakieś błędy?
Może inny schemat np:
0111111111 0111111111 0111111111
czyli wysyłasz $FF $FF $FF - tu też widzisz jakieś błędy?
No dobrze - jak chcesz wygenerować:
0001110011 1100001010 0000111110
to wysyłasz $9C $A1 $F8 ale strumień bitów generowany jest tak:
0001110011 0100001011 0000111111
wtedy dostaniesz w drugim bajcie 2 błędne bity a w trzecim bajcie 1. Przy częstotliwości 44.3kHz to nawet nie wskoczy w próg słyszalności.

Edit: Poza tym jak masz dwa błędy w bajcie (w miejscu bitu startu powinna być 1 a w miejscu bitu stopu 0), to nie wiem czy to w ogóle będzie miało znaczenie. Znaczenie myślę będą miały kumulowane pojedyncze błędy w bajcie. Ale te może dałoby się skompensować celowymi przekłamaniami w bitach danych? Tak sobie fantazjuję.

2022-02-14 13:33:44

Ale poza zakresem słyszalności :) Więc niech se szumi.

2022-02-14 02:08:58

A czemu chcesz to wyłączać? Dostaniesz falę o wypełnieniu 1/10 do 9/10. Przy wystarczająco wysokiej częstotliwości to nawet nie usłyszysz nośnej.

Edit: Ustawiając 1.77MHz jako główny zegar i 10 w generatorze potrzeba wysłać bajt co 110 cykli (16,1kHz nośna). To nie lepiej użyć 7-bitowego PWM-a bo i tak generator masz zajęty (chyba że taktowanie transmisji miałbyś z zewnątrz to masz 5-ty kanał w POKEY-u o rozdzielczości 3-bit)?
Można by próbować też traktować to jako strumień bitów i traktować bit startu i stopu jako bity danych, tyle że czasem byłyby one błędne. Może w ogóle nie będzie to mieć znaczenia np przy 4 w generatorze czyli nośnej 44,3kHz (bajt co 50 cykli)?

Edit 2: Ale możesz taktować z zewnątrz i dostać 5-ty kanał w POKEY-u wrzucając z zewnątrz dowolny strumień bitów nie martwiąc się w ogóle ramkami i bitami start/stop. Ale czemu wtedy nie wprowadzić tego na linię audio zamiast kombinować z datain?

Aktualności ze świata Atari

Opcje wyszukiwania (Strona 17 z 122)

Znalezione posty [ 401 do 425 z 3,049 ]

401 Odpowiedź przez mono 2022-04-05 15:02:44

Odp: Atari BASIC - ustawianie/gaszenie bitu (23 odpowiedzi, napisanych Programowanie - 8 bit)

402 Odpowiedź przez mono 2022-04-05 12:38:57

Odp: Atari BASIC - ustawianie/gaszenie bitu (23 odpowiedzi, napisanych Programowanie - 8 bit)

403 Odpowiedź przez mono 2022-04-03 17:19:35

Odp: Gacek (WIP) (15 odpowiedzi, napisanych Fabryka - 8bit)

404 Odpowiedź przez mono 2022-04-02 09:36:46

Odp: Kiepska sytuacja w kraju a będzie gorzej. (10,043 odpowiedzi, napisanych Bałagan)

405 Odpowiedź przez mono 2022-04-02 08:57:10

Odp: Prima Aprilis Compo 2022 - W.A.R. (19 odpowiedzi, napisanych Różne)

406 Odpowiedź przez mono 2022-04-01 23:30:17

Odp: Prima Aprilis Compo 2022 - W.A.R. (19 odpowiedzi, napisanych Różne)

407 Odpowiedź przez mono 2022-03-31 18:07:32

Odp: Prima Aprilis Compo 2022 - W.A.R. (19 odpowiedzi, napisanych Różne)

408 Odpowiedź przez mono 2022-03-31 17:30:50

Odp: Prima Aprilis Compo 2022 - W.A.R. (19 odpowiedzi, napisanych Różne)

409 Temat przez mono 2022-03-31 17:24:37

Temat: Prima Aprilis Compo 2022 - W.A.R. (19 odpowiedzi, napisanych Różne)

410 Odpowiedź przez mono 2022-03-24 11:23:45

Odp: Seban i jego niezdrowe zainteresowania - petycja (28 odpowiedzi, napisanych Sprzęt - 8bit)

411 Odpowiedź przez mono 2022-03-18 20:26:09

Odp: To Tebe: MADS Runtime error (13 odpowiedzi, napisanych Software, Gry - 8bit)

412 Odpowiedź przez mono 2022-03-18 16:54:48

Odp: To Tebe: MADS Runtime error (13 odpowiedzi, napisanych Software, Gry - 8bit)

413 Odpowiedź przez mono 2022-03-17 12:47:04

Odp: Świeży wywiad z programistą układu dzwiękowego Atari AMY (11 odpowiedzi, napisanych Miejsca w sieci)

414 Odpowiedź przez mono 2022-03-16 14:21:41

Odp: Świeży wywiad z programistą układu dzwiękowego Atari AMY (11 odpowiedzi, napisanych Miejsca w sieci)

415 Odpowiedź przez mono 2022-03-16 14:00:19

Odp: Świeży wywiad z programistą układu dzwiękowego Atari AMY (11 odpowiedzi, napisanych Miejsca w sieci)

416 Odpowiedź przez mono 2022-03-06 11:16:29

Odp: Gramy na Gazie (4 odpowiedzi, napisanych Bałagan)

417 Odpowiedź przez mono 2022-03-02 16:27:01

Odp: Prima Aprilis Compo 2020 - Coronavirus Reaction (12 odpowiedzi, napisanych Różne)

418 Odpowiedź przez mono 2022-02-28 13:03:46

Odp: Pomysł - Duszki kompo (5 odpowiedzi, napisanych Scena - 8bit)

419 Odpowiedź przez mono 2022-02-27 15:34:57

Odp: Gacek (WIP) (15 odpowiedzi, napisanych Fabryka - 8bit)

420 Odpowiedź przez mono 2022-02-16 11:24:37

Odp: SprEd - edytor do sprzętowych sprajtów (81 odpowiedzi, napisanych Programowanie - 8 bit)

421 Odpowiedź przez mono 2022-02-14 16:42:07

Odp: POKEY stereo (MAX) (8 odpowiedzi, napisanych Sprzęt - 8bit)

422 Odpowiedź przez mono 2022-02-14 16:40:02

Odp: Nowy (chyba) sposób generowania pseudo sinusów i cosinusów (9 odpowiedzi, napisanych Programowanie - 8 bit)

423 Odpowiedź przez mono 2022-02-14 16:11:13

Odp: POKEY stereo (MAX) (8 odpowiedzi, napisanych Sprzęt - 8bit)

424 Odpowiedź przez mono 2022-02-14 13:33:44

Odp: POKEY stereo (MAX) (8 odpowiedzi, napisanych Sprzęt - 8bit)

425 Odpowiedź przez mono 2022-02-14 02:08:58

Odp: POKEY stereo (MAX) (8 odpowiedzi, napisanych Sprzęt - 8bit)

Znalezione posty [ 401 do 425 z 3,049 ]