{"id":5123,"date":"2010-02-02T22:11:40","date_gmt":"2010-02-03T03:11:40","guid":{"rendered":"http:\/\/scruss.com\/blog\/?p=5123"},"modified":"2018-07-05T19:56:32","modified_gmt":"2018-07-05T23:56:32","slug":"my-juvenalia-2d-star-dodge-stardodger","status":"publish","type":"post","link":"https:\/\/scruss.com\/blog\/2010\/02\/02\/my-juvenalia-2d-star-dodge-stardodger\/","title":{"rendered":"my juvenalia: 2D Star Dodge \/ Stardodger"},"content":{"rendered":"<p>Oh dear:<\/p>\n<p><a href=\"http:\/\/scruss.com\/wordpress\/wp-content\/uploads\/2010\/02\/untitled.png\"><img loading=\"lazy\" decoding=\"async\" class=\"aligncenter size-full wp-image-5124\" title=\"2D Star Dodge\" src=\"http:\/\/scruss.com\/wordpress\/wp-content\/uploads\/2010\/02\/untitled.png\" alt=\"\" width=\"384\" height=\"272\" srcset=\"https:\/\/scruss.com\/wordpress\/wp-content\/uploads\/2010\/02\/untitled.png 384w, https:\/\/scruss.com\/wordpress\/wp-content\/uploads\/2010\/02\/untitled-160x113.png 160w, https:\/\/scruss.com\/wordpress\/wp-content\/uploads\/2010\/02\/untitled-320x226.png 320w\" sizes=\"auto, (max-width: 384px) 100vw, 384px\" \/><\/a>And here&#8217;s the Locomotive BASIC version, as published in Amstrad Computer User:<\/p>\n<pre class=\"brush: vb; title: ; notranslate\" title=\"\">\r\n10 ' ** Initialise **\r\n20 MODE 1\r\n30 INK 0,0\r\n40 BORDER 0\r\n50 INK 1,26\r\n60 INK 3,0\r\n70 q=5\r\n90 LOCATE 16,1\r\n100 PRINT&quot;Stardodger&quot;\r\n110 LOCATE 1,5\r\n120 PRINT&quot;Avoid the killer Asterisqs, and seek the&quot;\r\n130 LOCATE 9,6\r\n140 PRINT&quot;wondrous Nextscreen Gap.&quot;\r\n150 LOCATE 12,13\r\n160 PRINT&quot;Use SHIFT to climb&quot;\r\n170 GOSUB 700\r\n190 MODE 1\r\n200 DRAWR 629,0\r\n210 DRAWR 0,170\r\n220 MOVER 0,60\r\n230 DRAWR 0,169\r\n240 DRAWR -629,0\r\n250 DRAWR 0,-399\r\n260 DRAWR 0,2\r\n270 DRAWR 627,0\r\n280 DRAWR 0,168\r\n290 MOVER 0,60\r\n300 DRAWR 0,167\r\n310 DRAWR -625,0\r\n320 DRAWR 0,-399\r\n330 MOVE 636,0\r\n340 DRAW 636,399,3\r\n350 MOVE 638,0\r\n360 DRAW 638,399\r\n370 PLOT -1,-1,1\r\n380 TAG\r\n390 FOR s=1 TO q\r\n400 MOVE 50+RND*561,20+RND*361\r\n410 PRINT&quot;*&quot;;\r\n420 NEXT\r\n430 TAGOFF\r\n440 MOVE 0,200\r\n450 dy=4\r\n470 DRAWR 4,dy\r\n480 IF INKEY(21)&lt;&gt;-1 THEN dy=4 ELSE dy=-4\r\n490 t=TESTR(2,dy\/2)\r\n500 IF t=1 GOTO 550  \r\n510 IF t=3 GOTO 620\r\n520 MOVER -2,-dy\/2\r\n530 GOTO 470\r\n550 MODE 1\r\n560 PRINT TAB(16);&quot;YOU GOOFED&quot;\r\n570 LOCATE 5,13\r\n580 PRINT&quot;Number of Screens completed = &quot;+STR$((q\/5)-1)\r\n590 GOSUB 700\r\n600 RUN\r\n620 MODE 1 \r\n630 PRINT TAB(16);&quot;WELL DONE&quot;\r\n640 LOCATE 10,13\r\n650 PRINT&quot;Stand by for Screen &quot;+STR$((q\/5)+1)\r\n660 GOSUB 700\r\n670 q=q+5\r\n680 GOTO 190\r\n700 LOCATE 8,25\r\n710 PRINT&quot;Press any key to continue&quot;\r\n720 WHILE INKEY$&lt;&gt;&quot;&quot;\r\n730 WEND\r\n740 WHILE INKEY$=&quot;&quot;\r\n750 WEND\r\n760 RETURN\r\n<\/pre>\n<p>Here&#8217;s <a href=\"http:\/\/scruss.com\/blog\/2018\/07\/05\/space-acid-poisoning\/\">Asterisk Tracker<\/a>, the original inspiration from 1984<\/p>\n","protected":false},"excerpt":{"rendered":"<p>Oh dear: And here&#8217;s the Locomotive BASIC version, as published in Amstrad Computer User: 10 &#8216; ** Initialise ** 20 MODE 1 30 INK 0,0 40 BORDER 0 50 INK 1,26 60 INK 3,0 70 q=5 90 LOCATE 16,1 100 PRINT&quot;Stardodger&quot; 110 LOCATE 1,5 120 PRINT&quot;Avoid the killer Asterisqs, and seek the&quot; 130 LOCATE 9,6 [&hellip;]<\/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":false,"jetpack_social_options":{"image_generator_settings":{"template":"highway","default_image_id":0,"font":"","enabled":false},"version":2}},"categories":[2],"tags":[3142,641,2062,2063,2061],"class_list":["post-5123","post","type-post","status-publish","format-standard","hentry","category-goatee-stroking-musing-or-something","tag-2dstardodge","tag-amstrad","tag-basic","tag-bcpl","tag-cpc"],"jetpack_publicize_connections":[],"jetpack_featured_media_url":"","jetpack_shortlink":"https:\/\/wp.me\/pQNZZ-1kD","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/scruss.com\/blog\/wp-json\/wp\/v2\/posts\/5123","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=5123"}],"version-history":[{"count":5,"href":"https:\/\/scruss.com\/blog\/wp-json\/wp\/v2\/posts\/5123\/revisions"}],"predecessor-version":[{"id":15043,"href":"https:\/\/scruss.com\/blog\/wp-json\/wp\/v2\/posts\/5123\/revisions\/15043"}],"wp:attachment":[{"href":"https:\/\/scruss.com\/blog\/wp-json\/wp\/v2\/media?parent=5123"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/scruss.com\/blog\/wp-json\/wp\/v2\/categories?post=5123"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/scruss.com\/blog\/wp-json\/wp\/v2\/tags?post=5123"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}