Post APru4VDJJ0FJcmjg9I by rockyd@aus.social
 (DIR) More posts by rockyd@aus.social
 (DIR) Post #APru4UfzItahxR94D2 by rheolism@mastodon.nz
       2022-11-21T22:37:20Z
       
       0 likes, 0 repeats
       
       !584=3:DIMZ@%,A%Z:F.L=1TO@%S.2:A%!L=L MOD1E3+H.:C=32:IFL MOD4=3IFL<960C=ASCM."i  i    &nh s b o tir abtncr henceeoomendml-ddaoi ieleuslglcti ctimorenrtosavoxeeidmtebtruoo iso ssnn c t  e",L/4MOD10+L DIV80*9+1)L?&7C01=RND(91)A.C=32ORC:N.:F.L=0TO42:?(L*40+H.)=13:L?99=RND:N.:F.D=0TO24:F.L=1TO19:X=X+4:Z!X=L*2+(D+L?99)MOD25*40-1:N.,:REP.F.J=Z+4TOZ+X S.76:OS."FX19":F.I%=0TO72S.4:P%=J!I%:P%?H.=23:?A%!(P%+360)=24:?A%!(P%+640)=4:?A%!(P%+960)=6:N.,:U.0#bbcmicrobot #introduction
       
 (DIR) Post #APru4VDJJ0FJcmjg9I by rockyd@aus.social
       2022-11-22T06:52:27Z
       
       0 likes, 0 repeats
       
       @rheolism Is there a way to decode that into the conventional basic format?
       
 (DIR) Post #APru4VZHzHpKix1EPI by EdS@mastodon.sdf.org
       2022-11-22T17:13:14Z
       
       0 likes, 0 repeats
       
       It's #BBCBasic so may not be the #basic you're used to. (It uses ? and ! for memory access, has REPEAT..UNTIL for loops)But also it's directly accessing a teletext-mode screen so it's specific to the #bbcmicro hardware and memory map.That said this version should be a little more readable:https://bbcmic.ro/#%7B%22v%22%3A1%2C%22program%22%3A%22100%20!584%3D3%5Cn110%20DIM%20Z%40%25%2CA%25Z%5Cn120%20FOR%20L%3D1%20TO%20%40%25%20STEP%202%5Cn130%20%20%20A%25!L%3DL%20MOD%201E3%20%2B%20HIMEM%5Cn140%20%20%20C%3D32%5Cn150%20%20%20IF%20L%20MOD4%3D3%20IF%20L%3C960%20C%3DASCMID%24%28%5C%22i%20%20i%20%20%20%20%26nh%20s%20b%20o%20tir%20abtncr%20henceeoomendml-ddaoi%20ieleuslglcti%20ctimorenrtosavoxeeidmtebtruoo%20iso%20ssnn%20c%20t%20%20e%5C%22%2CL%2F4MOD10%2BL%20DIV80*9%2B1%29%5Cn160%20%20%20L%3F%267C01%3DRND%2891%29ANDC%3D32ORC%5Cn170%20NEXT%5Cn180%20FOR%20L%3D0%20TO%2042%5Cn190%20%20%20%3F%28L*40%2BHIMEM%29%3D13%5Cn200%20%20%20L%3F99%3DRND%5Cn210%20NEXT%5Cn220%20FOR%20D%3D0%20TO%2024%5Cn230%20%20%20FOR%20L%3D1%20TO%2019%5Cn240%20%20%20%20%20X%3DX%2B4%5Cn250%20%20%20%20%20Z!X%3DL*2%2B%28D%2BL%3F99%29MOD25*40-1%5Cn260%20NEXT%2C%5Cn270%20REPEAT%5Cn280%20%20%20FOR%20J%3DZ%2B4%20TO%20Z%2BX%20STEP%2076%5Cn290%20%20%20%20%20OSCLI%5C%22FX19%5C%22%5Cn300%20%20%20%20%20FOR%20I%25%3D0%20TO%2072%20STEP%204%5Cn310%20%20%20%20%20%20%20P%25%3DJ!I%25%5Cn320%20%20%20%20%20%20%20P%25%3FHIMEM%3D23%5Cn330%20%20%20%20%20%20%20%3FA%25!%28P%25%2B360%29%3D24%5Cn340%20%20%20%20%20%20%20%3FA%25!%28P%25%2B640%29%3D4%5Cn350%20%20%20%20%20%20%20%3FA%25!%28P%25%2B960%29%3D6%5Cn360%20%20%20NEXT%2C%5Cn370%20UNTIL%200%22%7D@rockyd @rheolism