-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathsound_note.bas
60 lines (51 loc) · 1.41 KB
/
sound_note.bas
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
rem Základy Batari BASICu
rem
rem Použito v článcích:
rem
rem Tvorba her pro Atari 2600 v Batari BASICu: úkol pro hardcode programátory
rem https://www.root.cz/clanky/tvorba-her-pro-atari-2600-v-batari-basicu-ukol-pro-hardcode-programatory/
rem
rem Tvorba her pro Atari 2600 v Batari BASICu: ovládání čipu TIA
rem https://www.root.cz/clanky/tvorba-her-pro-atari-2600-v-batari-basicu-ovladani-cipu-tia/
rem
rem Tvorba her pro Atari 2600 v Batari BASICu: standardní kernel a zvuky
rem https://www.root.cz/clanky/tvorba-her-pro-atari-2600-v-batari-basicu-standardni-kernel-a-zvuky/
playfield:
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
................................
................................
................................
................................
................................
................................
................................
................................
................................
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
end
player0:
%01000010
%10000001
%01011010
%11111111
%11011011
%01111110
%00111100
%00011000
end
player0x = 20
player0y = 20
rem Hlasitost
AUDV0 = 0
rem Tvar zvukove vlny
AUDC0 = 4
rem Frekvence: A4
AUDF0 = 11
mainloop
rem Barvy pozadi i hrace
COLUPF = 14
COLUP0 = $1E
if joy0fire then COLUP0 = $48:AUDV0 = 15
if !joy0fire then AUDV0 = 0
drawscreen
goto mainloop