—————————————————————————————-<\/p>\n
UPDATE: December 01, 2024<\/p>\n
I have posted here the AppleSoft code listing for Mileage Converter, removing the old listing from the basic app I had on my iPad, as that app doesn’t seem to work any longer, so I converted that code AppleSoft, and it appears to run properly.<\/p>\n
—————————————————————————————-<\/p>\n
Howdy folks! Recently I started to re-dable (now that’s a funny word, if in fact it is a real word) with BASIC programming. Programming in BASIC, for me, goes all the way back to being twelve to fourteen years old, somewhere in the early 80’s. That’s when the Apple ][+ ruled the personal computer world!<\/p>\n
I am including the code to what I’ve written so far if you’d like to try it out. Be aware that not all versions of BASIC use exactly the same syntax or commands but if your willing to give this a go, you probably already know that.<\/p>\n
10 REM Convert l\/100 to us & i
\nmp and back
\n12 REM by Wayne Goldsmith
\n13 HOME
\n15 GOSUB 500
\n35 PRINT
\n40 PRINT “1) L\/100 TO IMPERIAL
\nMPG”
\n45 PRINT “2) IMPERIAL MPG TO L\/
\n100”
\n50 PRINT “3) L\/100 TO US MPG”
\n55 PRINT “4) US MPG TO L\/100”
\n57 PRINT “5) QUIT”
\n60 PRINT
\n65 INPUT “PLEASE ENTER YOUR CHO
\nICE “;C
\n70 IF C = 1 THEN GOSUB 135
\n80 IF C = 2 THEN GOSUB 180
\n90 IF C = 3 THEN GOSUB 250
\n100 IF C = 4 THEN GOSUB 320
\n110 IF C = 5 THEN HOME : GOSUB
\n400
\n120 GOTO 13
\n135 REM l\/100 to imp mpg
\n136 PRINT
\n140 INPUT “PLEASE ENTER YOUR L\/
\n100 TO CONVERT “;L
\n150 MPG = 282.48 \/ L
\n155 PRINT
\n157 PRINT
\n160 PRINT “YOUR L\/100 EQUALS “M
\nPG” IMPERIAL MPG”
\n165 PRINT
\n166 PRINT
\n168 GOSUB 450
\n170 RETURN
\n180 REM imp mpg to l\/100
\n181 PRINT
\n190 INPUT “PLEASE ENTER YOUR IM
\nPERIAL MPG. “;MPG
\n200 L = 282.48 \/ MPG
\n210 PRINT
\n220 PRINT
\n230 PRINT “YOUR IMPERIAL MPG EQ
\nUALS “L” L\/100″
\n235 PRINT
\n236 PRINT
\n238 GOSUB 450
\n240 RETURN
\n250 REM l\/100 to us mpg
\n251 PRINT
\n260 INPUT “PLEASE ENTER YOUR L\/
\n100 “;L
\n270 MPG = 235.2 \/ L
\n280 PRINT
\n290 PRINT
\n300 PRINT “YOUR “L” L\/100 EQUAL
\nS “MPG” US MPG”
\n305 PRINT
\n306 PRINT
\n308 GOSUB 450
\n310 RETURN
\n320 REM US MPG to L\/100
\n321 PRINT
\n330 INPUT “PLEASE ENTER YOUR US
\nMPG “;MPG
\n340 L = 235.2 \/ MPG
\n350 PRINT
\n360 PRINT
\n370 PRINT “YOUR “MPG” US MPG EQ
\nUALS “L” L\/100″
\n375 PRINT
\n376 PRINT
\n378 GOSUB 450
\n380 RETURN
\n390 GOTO 20
\n400 PRINT
\n415 GOSUB 500
\n420 HTAB 15: PRINT “THANK YOU”
\n423 HTAB 13: PRINT “FOR USING T
\nHE”
\n425 HTAB 8: PRINT “MULTI-MILEAG
\nE CONVERTER”
\n430 END
\n450 INPUT “PRESS C TO CONTINUE,
\nOR Q TO QUIT. “;D$
\n460 IF D$ = “C” THEN RETURN
\n470 IF D$ = “Q” THEN HOME : GOTO
\n400
\n480 GOTO 450
\n500 PRINT “********************
\n********************”
\n510 PRINT : HTAB 6: PRINT “THE
\nMULTI-MILEAGE CONVERTER”
\n515 PRINT : PRINT : HTAB 10: PRINT
\n“WAYNE GOLDSMITH 2023”
\n520 PRINT : PRINT “************
\n****************************
\n”
\n530 RETURN<\/p>\n
<\/p>\n","protected":false},"excerpt":{"rendered":"
—————————————————————————————- UPDATE: December 01, 2024 I have posted here the AppleSoft code listing for Mileage Converter, removing the old listing from the basic app I had on my iPad, as […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[37,2],"tags":[49,48,50],"class_list":["post-128","post","type-post","status-publish","format-standard","hentry","category-applesoft","category-online-with-the-techie-guy","tag-apple","tag-applesoft","tag-basic"],"_links":{"self":[{"href":"https:\/\/goldtek.ca\/index.php?rest_route=\/wp\/v2\/posts\/128","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/goldtek.ca\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/goldtek.ca\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/goldtek.ca\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/goldtek.ca\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=128"}],"version-history":[{"count":4,"href":"https:\/\/goldtek.ca\/index.php?rest_route=\/wp\/v2\/posts\/128\/revisions"}],"predecessor-version":[{"id":185,"href":"https:\/\/goldtek.ca\/index.php?rest_route=\/wp\/v2\/posts\/128\/revisions\/185"}],"wp:attachment":[{"href":"https:\/\/goldtek.ca\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=128"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/goldtek.ca\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=128"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/goldtek.ca\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=128"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}