1 Temat przez mono Ostatnio edytowany przez mono (2022-03-31 17:34:12)

  • mono
  • Starszy Atarowiec
  • Nieaktywny
  • Skąd: inąd
  • Zarejestrowany: 2007-08-20
  • Posty: 2,940

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.

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

mono's Strona

2 Odpowiedź przez mono Ostatnio edytowany przez mono (2022-03-31 17:36:25)

  • mono
  • Starszy Atarowiec
  • Nieaktywny
  • Skąd: inąd
  • Zarejestrowany: 2007-08-20
  • Posty: 2,940

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
Post's attachments

PA2022.LST 10.72 kb, liczba pobrań: 1 (od 2022-03-31) 

Tylko zalogowani mogą pobierać załączniki.
hex, code and ror'n'rol
niewiedza buduje, wiedza rujnuje

mono's Strona

3 Odpowiedź przez Cyprian

  • Skąd: Warszawa
  • Zarejestrowany: 2002-03-09
  • Posty: 4,524

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

Lynx I / Mega ST 1 / 7800 / Portfolio / Lynx II / Jaguar / TT030 / Mega STe / 800 XL / 1040 STe / Falcon030 / 65 XE / 520 STm / SM124 / SC1435
DDD HDD / AT Speed C16 / TF536 / SDrive / PAK68/3 / Lynx Multi Card / LDW Super 2000 / XCA12 / SkunkBoard / CosmosEx / SatanDisk / UltraSatan / USB Floppy Drive Emulator / Eiffel / SIO2PC / Crazy Dots / PAM Net
http://260ste.atari.org

4 Odpowiedź przez mono Ostatnio edytowany przez mono (2022-03-31 18:08:54)

  • mono
  • Starszy Atarowiec
  • Nieaktywny
  • Skąd: inąd
  • Zarejestrowany: 2007-08-20
  • Posty: 2,940

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
hex, code and ror'n'rol
niewiedza buduje, wiedza rujnuje

mono's Strona

5 Odpowiedź przez Cyprian

  • Skąd: Warszawa
  • Zarejestrowany: 2002-03-09
  • Posty: 4,524

teraz jest git
gra muzyka

Lynx I / Mega ST 1 / 7800 / Portfolio / Lynx II / Jaguar / TT030 / Mega STe / 800 XL / 1040 STe / Falcon030 / 65 XE / 520 STm / SM124 / SC1435
DDD HDD / AT Speed C16 / TF536 / SDrive / PAK68/3 / Lynx Multi Card / LDW Super 2000 / XCA12 / SkunkBoard / CosmosEx / SatanDisk / UltraSatan / USB Floppy Drive Emulator / Eiffel / SIO2PC / Crazy Dots / PAM Net
http://260ste.atari.org

6 Odpowiedź przez Cyprian

  • Skąd: Warszawa
  • Zarejestrowany: 2002-03-09
  • Posty: 4,524

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
Lynx I / Mega ST 1 / 7800 / Portfolio / Lynx II / Jaguar / TT030 / Mega STe / 800 XL / 1040 STe / Falcon030 / 65 XE / 520 STm / SM124 / SC1435
DDD HDD / AT Speed C16 / TF536 / SDrive / PAK68/3 / Lynx Multi Card / LDW Super 2000 / XCA12 / SkunkBoard / CosmosEx / SatanDisk / UltraSatan / USB Floppy Drive Emulator / Eiffel / SIO2PC / Crazy Dots / PAM Net
http://260ste.atari.org

7 Odpowiedź przez Sikor

  • Sikor
  • Sikor
  • Naddyskownik
  • Nieaktywny
  • Skąd: Warszawa
  • Zarejestrowany: 2002-06-17
  • Posty: 11,122

Cyprian, kod masz wpleść w poprzedni, na tym to polega.

Sikor umarł...

Sikor's Strona

8 Odpowiedź przez Cyprian

  • Skąd: Warszawa
  • Zarejestrowany: 2002-03-09
  • Posty: 4,524

Sikor, mam dodać do kodu Mono?

Lynx I / Mega ST 1 / 7800 / Portfolio / Lynx II / Jaguar / TT030 / Mega STe / 800 XL / 1040 STe / Falcon030 / 65 XE / 520 STm / SM124 / SC1435
DDD HDD / AT Speed C16 / TF536 / SDrive / PAK68/3 / Lynx Multi Card / LDW Super 2000 / XCA12 / SkunkBoard / CosmosEx / SatanDisk / UltraSatan / USB Floppy Drive Emulator / Eiffel / SIO2PC / Crazy Dots / PAM Net
http://260ste.atari.org

9 Odpowiedź przez sun

  • sun
  • sun
  • Młodszy Atarowiec
  • Nieaktywny
  • Skąd: Piotrków Trybunalski
  • Zarejestrowany: 2003-06-26
  • Posty: 809

dokładnie.

Cuda wianki i nie tylko :) POKEY 4ever ;)

10 Odpowiedź przez mono

  • mono
  • Starszy Atarowiec
  • Nieaktywny
  • Skąd: inąd
  • Zarejestrowany: 2007-08-20
  • Posty: 2,940

@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 :)

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

mono's Strona

11 Odpowiedź przez Cyprian

  • Skąd: Warszawa
  • Zarejestrowany: 2002-03-09
  • Posty: 4,524

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 & Cyprian
Lynx I / Mega ST 1 / 7800 / Portfolio / Lynx II / Jaguar / TT030 / Mega STe / 800 XL / 1040 STe / Falcon030 / 65 XE / 520 STm / SM124 / SC1435
DDD HDD / AT Speed C16 / TF536 / SDrive / PAK68/3 / Lynx Multi Card / LDW Super 2000 / XCA12 / SkunkBoard / CosmosEx / SatanDisk / UltraSatan / USB Floppy Drive Emulator / Eiffel / SIO2PC / Crazy Dots / PAM Net
http://260ste.atari.org

12 Odpowiedź przez mono Ostatnio edytowany przez mono (2022-04-02 08:57:57)

  • mono
  • Starszy Atarowiec
  • Nieaktywny
  • Skąd: inąd
  • Zarejestrowany: 2007-08-20
  • Posty: 2,940

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.

Post's attachments

pa2022(bas).atr 90.02 kb, liczba pobrań: 10 (od 2022-04-02) 

Tylko zalogowani mogą pobierać załączniki.
hex, code and ror'n'rol
niewiedza buduje, wiedza rujnuje

mono's Strona

13 Odpowiedź przez Cyprian

  • Skąd: Warszawa
  • Zarejestrowany: 2002-03-09
  • Posty: 4,524

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

Lynx I / Mega ST 1 / 7800 / Portfolio / Lynx II / Jaguar / TT030 / Mega STe / 800 XL / 1040 STe / Falcon030 / 65 XE / 520 STm / SM124 / SC1435
DDD HDD / AT Speed C16 / TF536 / SDrive / PAK68/3 / Lynx Multi Card / LDW Super 2000 / XCA12 / SkunkBoard / CosmosEx / SatanDisk / UltraSatan / USB Floppy Drive Emulator / Eiffel / SIO2PC / Crazy Dots / PAM Net
http://260ste.atari.org

14 Odpowiedź przez Sikor

  • Sikor
  • Sikor
  • Naddyskownik
  • Nieaktywny
  • Skąd: Warszawa
  • Zarejestrowany: 2002-06-17
  • Posty: 11,122

Fajnie wyszło ;)

Sikor umarł...

Sikor's Strona

15 Odpowiedź przez Cyprian

  • Skąd: Warszawa
  • Zarejestrowany: 2002-03-09
  • Posty: 4,524

no dobra

teraz do brzegu

jakie są nagrody

Lynx I / Mega ST 1 / 7800 / Portfolio / Lynx II / Jaguar / TT030 / Mega STe / 800 XL / 1040 STe / Falcon030 / 65 XE / 520 STm / SM124 / SC1435
DDD HDD / AT Speed C16 / TF536 / SDrive / PAK68/3 / Lynx Multi Card / LDW Super 2000 / XCA12 / SkunkBoard / CosmosEx / SatanDisk / UltraSatan / USB Floppy Drive Emulator / Eiffel / SIO2PC / Crazy Dots / PAM Net
http://260ste.atari.org

16 Odpowiedź przez Sikor

  • Sikor
  • Sikor
  • Naddyskownik
  • Nieaktywny
  • Skąd: Warszawa
  • Zarejestrowany: 2002-06-17
  • Posty: 11,122
Cyprian napisał/a:

jakie są nagrody

W nagrodę stawiasz piwo na najbliższym sztabie :D

Sikor umarł...

Sikor's Strona

17 Odpowiedź przez maw

  • maw
  • maw
  • Młodszy Atarowiec
  • Nieaktywny
  • Skąd: Siem-ce
  • Zarejestrowany: 2008-01-08
  • Posty: 766

Super chłopaki! Gratulacje!

@Sikor, będzie edycja w postaci multidyskietki, czy miejsca na ateerze już brakło?

___
Press play on tape...

maw's Strona

18 Odpowiedź przez Cyprian

  • Skąd: Warszawa
  • Zarejestrowany: 2002-03-09
  • Posty: 4,524

rób sztaba Sikor

Lynx I / Mega ST 1 / 7800 / Portfolio / Lynx II / Jaguar / TT030 / Mega STe / 800 XL / 1040 STe / Falcon030 / 65 XE / 520 STm / SM124 / SC1435
DDD HDD / AT Speed C16 / TF536 / SDrive / PAK68/3 / Lynx Multi Card / LDW Super 2000 / XCA12 / SkunkBoard / CosmosEx / SatanDisk / UltraSatan / USB Floppy Drive Emulator / Eiffel / SIO2PC / Crazy Dots / PAM Net
http://260ste.atari.org

19 Odpowiedź przez innuendo

  • Skąd: Warszawa
  • Zarejestrowany: 2010-02-22
  • Posty: 1,078
Cyprian napisał/a:

rób sztaba Sikor

Dokładnie! W jakimś fajnym miejscu.

oto koło :r przyp "pole 3,142857 * :r * :r przyp "l 2 * 3,142857 * :r przyp "i l / 360 powtórz 360 [np :i lw 1] już

20 Odpowiedź przez Sikor

  • Sikor
  • Sikor
  • Naddyskownik
  • Nieaktywny
  • Skąd: Warszawa
  • Zarejestrowany: 2002-06-17
  • Posty: 11,122

@Maw: mogę dodać w wolnej chwili, ale to w tygodniu. Dla mnie idea konkursu się wypaliła w zeszłym roku, w tym jak widzę tłumów też nie było. Ale fajnie, że Mono zrobił.
Co do sztaba - nie ten wątek...

Sikor umarł...

Sikor's Strona