Forums
New posts
Articles
Product Reviews
Policies
FAQ
Log in
Register
What's new
Search
Search
Search titles only
By:
New posts
Menu
Log in
Register
Install the app
Install
Forums
macOS & iOS Developer Playground
macOS - Development and Darwin
Old programming on New Mac ?
JavaScript is disabled. For a better experience, please enable JavaScript in your browser before proceeding.
You are using an out of date browser. It may not display this or other websites correctly.
You should upgrade or use an
alternative browser
.
Reply to thread
Message
<blockquote data-quote="TattooedMac" data-source="post: 975036" data-attributes="member: 101749"><p>Can anyone tell me if it can be done and what app i would need to run this code, considering if its even possible Cheers <img src="data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="smilie smilie--sprite smilie--sprite1" alt=":)" title="Smile :)" loading="lazy" data-shortname=":)" /></p><p>Written in BASIC </p><p>I am NOT a programmer but i found a old book and it bought back memories from my Commodore 64 days .... I think lol</p><p></p><p>[CODE]10 PRINT "ALIENS SQUARE ALONG"</p><p>20 INPUT A</p><p>30 PRINT "ALIENS SQUARE UP"</p><p>40 INPUT B</p><p>50 CLS</p><p>60 PRINT "COMMANDO'S SQUARE ALONG"</p><p>70 INPUT C</p><p>80 PRINT "COMMANDO'S SQUARE UP"</p><p>90 INPUT D</p><p>100 CLS</p><p>110 LET X=SQR((A-C)*(A-C)+(B-D)*(B-D))</p><p>120 PRINT "YOU ARE NOW"</p><p>130 PRINT X;"SPACE UNITS APART""</p><p>140 IF X<1.5 THEN PRINT "ALIEN FOUND"</p><p>150 IF X<1.5 THEN STOP</p><p>155 PRINT "WHAT ARE THERE NEW POSITIONS"</p><p>160 GOTO 10</p><p>170 END[/CODE]</p><p></p><p>Anything would help... Thanks</p></blockquote><p></p>
[QUOTE="TattooedMac, post: 975036, member: 101749"] Can anyone tell me if it can be done and what app i would need to run this code, considering if its even possible Cheers :) Written in BASIC I am NOT a programmer but i found a old book and it bought back memories from my Commodore 64 days .... I think lol [CODE]10 PRINT "ALIENS SQUARE ALONG" 20 INPUT A 30 PRINT "ALIENS SQUARE UP" 40 INPUT B 50 CLS 60 PRINT "COMMANDO'S SQUARE ALONG" 70 INPUT C 80 PRINT "COMMANDO'S SQUARE UP" 90 INPUT D 100 CLS 110 LET X=SQR((A-C)*(A-C)+(B-D)*(B-D)) 120 PRINT "YOU ARE NOW" 130 PRINT X;"SPACE UNITS APART"" 140 IF X<1.5 THEN PRINT "ALIEN FOUND" 150 IF X<1.5 THEN STOP 155 PRINT "WHAT ARE THERE NEW POSITIONS" 160 GOTO 10 170 END[/CODE] Anything would help... Thanks [/QUOTE]
Verification
Post reply
Forums
macOS & iOS Developer Playground
macOS - Development and Darwin
Old programming on New Mac ?
Top