{"id":14965,"date":"2018-06-10T11:13:20","date_gmt":"2018-06-10T15:13:20","guid":{"rendered":"http:\/\/scruss.com\/blog\/?p=14965"},"modified":"2018-06-11T21:48:53","modified_gmt":"2018-06-12T01:48:53","slug":"rob-manuels-british-council-tile-bus-fabric-sim","status":"publish","type":"post","link":"https:\/\/scruss.com\/blog\/2018\/06\/10\/rob-manuels-british-council-tile-bus-fabric-sim\/","title":{"rendered":"Rob Manuel’s British Council Tile \/ Bus Fabric Sim"},"content":{"rendered":"

Rob’s British Council Tile \/ Bus Fabric Sim<\/em> \u00e2\u20ac\u201d described here:\u00c2\u00a0Amstrad BASIC that approximates the tiling schemes that a local council might have used for a municipal building in the 1970s<\/a> \u00e2\u20ac\u201d is a joy. So few colours!<\/p>\n

\"\"<\/a>
No, really: this *was* the seat pattern on Western SMT buses circa 1979<\/figcaption><\/figure>\n

\"\"<\/a> \"\"<\/a> \"\"<\/a> \"\"<\/a> \"\"<\/a> \"\"<\/a> Because I care (and don’t if you don’t), here’s the Locomotive BASIC source, lovingly typed into the Caprice32 emulator then extracted as text using iDsk:<\/p>\n


\n10 ' British Council Tile \/ Bus Fabric Sim
\n20 ' by Rob Manuel 2018
\n30 '
\n40 ' z\/x - change char up\/down (ascii)
\n50 ' space - random palette
\n60 ' c - show ascii val, inks & pause
\n70 ' v - random character (128+ ascii)
\n80 ' b - random char and cols
\n90 ' n - fill with same line & pause
\n100 'i - input ascii value
\n110 '
\n120 ON BREAK GOSUB 260:MODE 1:LOCATE 1,26
\n130 DEF FNs=INT(RND*255)
\n140 SYMBOL 255,FNs,FNs,FNs,FNs,FNs,FNs,FNs,FNs
\n150 DEF FNp=INT(RND*4)
\n160 DEF FNi=INT(RND*26)
\n170 GOSUB 470
\n180 GOSUB 270
\n190 o$=\"\":i$=INKEY$
\n200 IF i$<>\"\" THEN GOSUB 380
\n210 FOR i=1 TO 40
\n220 w$=CHR$(14)+CHR$(FNp)+CHR$(15)+CHR$(FNp)
\n230 w$=w$+CHR$(c):o$=o$+w$:NEXT i
\n240 store$=o$
\n250 PRINT o$;:GOTO 190
\n260 CALL &BC02:PAPER 0:PEN 1:END
\n270 aa=FNi:bb=FNi:cc=FNi:dd=FNi
\n280 INK 0,aa:INK 1,bb:INK 2,cc:INK 3,dd
\n290 BORDER aa
\n300 GOSUB 320:RETURN
\n310 IF c>255 THEN c=32:IF c<32 THEN c=255
\n320 LOCATE 1,1:PAPER 0:PEN 1
\n330 PRINT \"C:\"c;
\n340 PRINT CHR$(c);
\n350 PRINT \" \";
\n360 PRINT \"I:\"aa;bb;cc;dd;
\n370 LOCATE 1,26:RETURN
\n380 IF i$=\" \" THEN GOSUB 270:RETURN
\n390 IF i$=\"z\" THEN c=c-1:GOSUB 310:RETURN
\n400 IF i$=\"x\" THEN c=c+1:GOSUB 310:RETURN
\n410 IF i$=\"c\" THEN GOSUB 310:CALL &BB18:RETURN
\n420 IF i$=\"i\" THEN LOCATE 1,1:INPUT \"ASCII?\",c:GOSUB 310:RETURN
\n430 IF i$=\"v\" THEN GOSUB 470:GOSUB 310:RETURN
\n440 IF i$=\"b\" THEN GOSUB 270:GOSUB 470:GOSUB 310:RETURN
\n450 IF i$=\"n\" THEN FOR i=1 TO 25:PRINT store$;:NEXT:CALL &BB18:RETURN
\n460 RETURN
\n470 c=INT(RND*128)+127:RETURN
\n<\/code>
\nAnd if you really<\/em> care, here’s an emulator snapshot \u00e2\u20ac\u201d BritishCouncilTileSim.zip<\/a><\/p>\n

Update<\/strong>: I modified the code slightly (essentially, all INT(RND*n)<\/strong> to RND MOD n<\/strong>) so it would compile with Hisoft Turbo Basic<\/a>. It works! It’s faster!<\/p>\n

\"\"<\/a>Snapshot: BritishCouncilTileSimCompiled.zip<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"

Rob’s British Council Tile \/ Bus Fabric Sim \u00e2\u20ac\u201d described here:\u00c2\u00a0Amstrad BASIC that approximates the tiling schemes that a local council might have used for a municipal building in the 1970s \u00e2\u20ac\u201d is a joy. So few colours! Because I care (and don’t if you don’t), here’s the Locomotive BASIC source, lovingly typed into the […]<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_jetpack_memberships_contains_paid_content":false,"footnotes":"","jetpack_publicize_message":"","jetpack_publicize_feature_enabled":true,"jetpack_social_post_already_shared":true,"jetpack_social_options":{"image_generator_settings":{"template":"highway","default_image_id":0,"font":"","enabled":false},"version":2}},"categories":[7],"tags":[2604,641,2062,2556],"class_list":["post-14965","post","type-post","status-publish","format-standard","hentry","category-computers-suck","tag-10print","tag-amstrad","tag-basic","tag-retrocomputing"],"jetpack_publicize_connections":[],"jetpack_featured_media_url":"","jetpack_shortlink":"https:\/\/wp.me\/pQNZZ-3Tn","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/scruss.com\/blog\/wp-json\/wp\/v2\/posts\/14965","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/scruss.com\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/scruss.com\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/scruss.com\/blog\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/scruss.com\/blog\/wp-json\/wp\/v2\/comments?post=14965"}],"version-history":[{"count":3,"href":"https:\/\/scruss.com\/blog\/wp-json\/wp\/v2\/posts\/14965\/revisions"}],"predecessor-version":[{"id":14984,"href":"https:\/\/scruss.com\/blog\/wp-json\/wp\/v2\/posts\/14965\/revisions\/14984"}],"wp:attachment":[{"href":"https:\/\/scruss.com\/blog\/wp-json\/wp\/v2\/media?parent=14965"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/scruss.com\/blog\/wp-json\/wp\/v2\/categories?post=14965"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/scruss.com\/blog\/wp-json\/wp\/v2\/tags?post=14965"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}