This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
-- | |
-- Read only | |
-- | |
-- Create a group | |
CREATE ROLE postgres_ro_group; | |
-- Grant access to existing tables | |
GRANT USAGE ON SCHEMA public TO postgres_ro_group; | |
GRANT SELECT ON ALL TABLES IN SCHEMA public TO postgres_ro_group; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
0 gosub 10: print chr$(147)chr$(5):sys59749 | |
1 print chr$(19)chr$(13)chr$(13)spc(rnd(.)*38)"*"; | |
2 print chr$(19):sys59777:goto 1 | |
10 print chr$(147): poke53280,0: poke 53281,0 | |
20 v=53248 | |
30 poke v+37,5: rem multicolor 1 | |
40 poke v+38,1: rem multicolor 2 | |
50 poke v+21,255 : rem set all 8 sprites visible | |
60 for x=12800 to 12800+63: read y: poke x,y: next x: rem sprite generation |