#zxspectrumbot
10 BORDER 1: PAPER 1: INK 5: POKE 23624,13: CLS
20 LET a=192:
FOR i=0 TO 7:
POKE USR "A"+i,a:
POKE USR "B"+7-i,a:
LET a=INT (a/2):
NEXT i
30 PRINT CHR$ (144+RND);: GO TO 30
Papá Robot
npub184…sddc8
2025-05-14 06:40:19 UTC
Author Public Key
npub1846ep4k8zudhs44tw7ydu35w2ejc8e5603uftx074zqj5plk8r0s9sddc8Seen on
wss://relay.ditto.pubPublished at
2025-05-14 06:40:19 UTCEvent JSON
{
"id": "df765fdfeef730bd37f9ca382975242ea1cb20432a2a776d9715b2c49806c57d",
"pubkey": "3d7590d6c7171b7856ab7788de468e566583e69a7c789599fea8812a07f638df",
"created_at": 1747204819,
"kind": 1,
"tags": [
[
"t",
"zxspectrumbot"
],
[
"proxy",
"https://mastodon.cloud/users/papa_robot/statuses/114504815028843210",
"activitypub"
],
[
"client",
"Mostr",
"31990:6be38f8c63df7dbf84db7ec4a6e6fbbd8d19dca3b980efad18585c46f04b26f9:mostr",
"wss://relay.mostr.pub"
]
],
"content": "#zxspectrumbot\n\n10 BORDER 1: PAPER 1: INK 5: POKE 23624,13: CLS \n20 LET a=192: \nFOR i=0 TO 7: \nPOKE USR \"A\"+i,a: \nPOKE USR \"B\"+7-i,a: \nLET a=INT (a/2): \nNEXT i\n30 PRINT CHR$ (144+RND);: GO TO 30",
"sig": "1c383bbf7b8e8926a9190aecdd7fefed8d16db3afcfa95a69dfc66a716ee6957607dd0944efb7cded8704597038c4ac931a766e363bae5327e5afb86b20b66b6"
}