Image Map Image Map
Results 1 to 10 of 31

Thread: TI-74 Basic programs?

Hybrid View

Previous Post Previous Post   Next Post Next Post
  1. #1

    Default TI-74 Basic programs?

    I'm not sure if this the proper place to post this, but does anyone have any TI-74 Basic language programs they'd like to share?

    Like I've said, I'm no programmer, but I have couple that might be useful. The more I play with the 74, the more I'm fascinated by it. I'm finding more and more reasons to use it; from storing readily available passwords offline to helping me do my bills. Nobody can peek or poke around in this machine or track me while I'm using it. As best I can tell, it's totally secure.

    If you do have any programs, just post them here so all can benefit.

    The 74 may be old, but it's a great little machine....and puts us completely in charge.

    Thanks.

  2. #2

    Default

    Like said, I'm no programmer. But here's a program to calculate the gearing of your bicycle in 'gear inches'. (check my math

    100 PRINT "Gear Inches": PAUSE 1
    110 PRINT EQA;"> wheel dia,in. ";: ACCEPT NULL(EQA),EQA
    120 PRINT EQB;"> rear tooth #,fw. ";: ACCEPT NULL(EQB),EQB
    130 PRINT EQC;"> front tooth #,crank ";: ACCEPT NULL(EQC),EQC
    140 EQX=(PI*EQA)/(EQB/EQC): EQY=(EQX/12): EQZ=EQC/EQB*EQA

    150 PRINT USING "dist crank rev,in. ###.###";EQX: PAUSE
    160 PRINT USING "dist crank rev,ft. ###.###";EQY: PAUSE
    170 PRINT USING "wheel dia equiv,in ###.###";EQZ: PAUSE
    180 GOTO 100



    WHEEL DIAMETER, inches, overall rear rim/tire diameter (26")

    REAR TOOTH COUNT, tooth count of desired free wheel/cassette sprocket (34t)

    FRONT TOOTH COUNT, tooth count of desired crank sprocket (28t)

    DISTANCE, CRANK REVOLUTION, inches, distance bicycle travels in one crank revolution (67.267")

    DISTANCE, CRANK REVOLUTION, feet, distance bicycle travels in one crank revolution (5.606')

    GEAR INCHES, inches, the gearing effect wheel diameter equivalent in inches (21.412" whl/dia)

  3. #3

    Default

    Pretty cool, Thumbs. I've got a bicycle dynamometer program somewhere -

    I'll see if I can find it.

    Jack

  4. Default

    I have a difficult time keeping track of passwords. I don't like leaving passwords around on scraps of paper. And I don't leave important information in any device that has access to the outside world. Here's a program that I use on my 74 to keep track of my passwords.


    1 Z$="": PRINT "Usernames Passwords": PAUSE 1: GOTO 18000

    1000 DATA 1,<retail username password>
    1010 DATA ABCD aaaa 1234a5,ABCD bbbb 2345b6
    1020 DATA ABCD cccc 3456c7,eof

    1100 DATA 2,<automotive username password>
    1110 DATA ABCD xxxx 1234x5,ABCD yyyy 2345y6
    1120 DATA ABCD zzzz 3456z7,eof


    18000 PRINT Z$;" > ";: ACCEPT NULL(Z$),Z$: PRINT ">..";: RESTORE
    18005 IF Z$="" THEN Z$="1"
    18010 IF Z$="0" THEN PRINT: GOTO 1
    18015 READ A$: IF A$=Z$ THEN 18040
    18020 IF A$="end" THEN PRINT Z$;" not found": Z$="": PAUSE: GOTO 18000
    18030 GOTO 18015
    18040 IF A$="eof" THEN PRINT "> end..": PAUSE 1: GOTO 18000
    18050 PRINT A$: PAUSE: READ A$: GOTO 18040


    32000 DATA eof
    32010 DATA end
    Last edited by thumbs; March 3rd, 2018 at 05:01 AM.

  5. #5

    Default

    Have not played enough with my TI-74 and I need to!

    One of the first things I did when I got it back in Dec '16 was benchmark it calculating the factorial of a given number, the TI-74 fared better than the portable Tandy PC-6 and I made a short video of it -> https://youtu.be/Kv8epjcPcKk

    The program is by all means simple and straight forward...

    100 ! Factorial
    110 INPUT "Number to Factorial? ";N
    120 IF N=0 THEN PRINT 0:PAUSE:STOP
    130 F=1
    140 FOR I=1 TO N
    150 F=F*I
    160 NEXT I
    170 PRINT N;"!=";F=PAUSE
    180 END

    Completely agree that this portable is a joy to use. As I said, there is a LOT more to do with it. Cheers!
    --
    Rogelio Perea

  6. Default

    Here are some miles per gallon programs I use. My old cars only have speedometers in MPH, so the input distances are in miles. I've used the first program when I've traveled through Canada. The second program is more direct using inputs. The third program I use when I have the 74 with me and don't wish to write info on paper. Since the 74 doesn't seem to store program variable info, I enter the variable info directly into the program for storage.

    (edited to correct for undesired emojis -- no space in line 2400, RM$="")


    2000 PRINT "Gas Mileage":PAUSE 1
    2010 PRINT "Clear y-n ";AM$;" ";:ACCEPT NULL(AM$),AM$
    2015 PRINT "Fill tank now...":PAUSE
    2020 IF AM$="y"THEN 2400
    2030 PRINT "Start mileage";BM;:ACCEPT NULL(BM),BM
    2040 PRINT "Drive..refilled tank? y-n ";CM$;" ";:ACCEPT NULL(CM$),CMS
    2041 IF CM$="y"THEN 2045
    2042 PRINT "Drive..then refill tank":PAUSE :GOTO 2040
    2045 PRINT "End mileage";DM;:ACCEPT NULL(DM),DM
    2050 PRINT "Refill (g)al or (l)iter ";EM$;" ";:ACCEPT NULL(EM$),EM$
    2060 IF EM$="g"THEN 2100
    2070 IF EM$="l"THEN 2200
    2080 PRINT "g or l...":PAUSE :GOTO 2050

    2100 PRINT "Gallons added";FM;:ACCEPT NULL(FM),FM
    2110 WM=(DM-BM)/FM:XM=((DM-BM)*1.6093472)/FM
    2120 YM=(DM-BM)/(FM*3.785332):ZM=((DM-BM)*1.6093472)/(FM*3.785332)
    2130 GOTO 2300

    2200 PRINT "Liters added";GM;:ACCEPT NULL(GM),GM
    2210 WM=(DM-BM)/(GM*.26417):XM=((DM-BM)*1.6093472)/(GM*.26417)
    2220 YM=(DM-BM)/GM:ZM=((DM-BM)*1.6093472)/GM
    2230 GOTO 2300

    2300 PRINT USING"mi/gal ###.##";WM:PAUSE
    2305 PRINT USING"km/gal ###.##";XM:PAUSE
    2310 PRINT USING"mi/liter ###.##";YM:PAUSE
    2315 PRINT USING"km/liter ###.##";ZM:PAUSE
    2320 PRINT "Again y-n ";RM$;" ";:ACCEPT NULL(RM$),RM$
    2330 IF RM$="y"THEN 2000 ELSE 2300

    2400 BM=0:dM=0:WM=0:XM=0:YM=0:ZM=0:FM=0:CM$="":EM$="":R M$="":GOTO 2030


    Example:

    Clear y-n y
    Start mileage 1000
    Drive..refilled tank y-n y
    End mileage 1100
    Refill (g)al or (l)iter g
    gallons added 10 (10 gal = 37.85 liter)

    mi/gal 10
    km/gal 16.09
    mi/liter 2.64
    km/liter 4.25

    .................................................. ....

    2000 REM RUN 2000
    2010 PRINT "Start miles";START;:INPUT "";START
    2020 PRINT "End miles";ENDM;:INPUT "";ENDM
    2030 PRINT "Gals added";GALS;:INPUT "";GALS
    2040 MPG=(ENDM-START)/GALS
    2050 PRINT "MPG =";MPG:PAUSE:GOTO 2010

    .................................................. ....

    2000 REM RUN 2000
    2010 START=1000
    2020 ENDM=1100
    2030 GALS=10
    2040 MPG=(ENDM-START)/GALS
    2050 PRINT "MPG =";MPG:PAUSE:END
    Last edited by thumbs; March 5th, 2018 at 09:14 PM.

  7. #7

    Default

    Hi Thumbs - It's possible to store data above the high memory pointer

    (assuming you have RAM above the high memory pointer), & it will sur-

    vive power cycling, & (usually) crashes.

  8. Default

    Thanks Jack.

    That's good to know. I'm stilling trying to get deeper into the 74.....it may take a while

  9. #9

    Default

    My cardiologist said I should lose weight. So, I went online to find information on calories so I could do something on my TI-74. I found this website,

    http://www.seacoastonline.com/articl...TAIN/704120346

    Read their website for more details and complete information. They have information on maintaining calories. If I understand it correctly, anything over your desired weight maintaining calories, you gain weight and anything under you lose weight. Below are several routines I made using their math and examples. The routines seem to yield the example results they gave. I'm no programmer or dietition, so double check any results.

    The first two routines are short and direct. The third is more descriptive.


    20000 REM (for men) AL=activity level 1.2 1.375 1.55 1.725 1.9
    20010 LBS=175:HTIN=72:AGE=30:AL=1.55
    20020 PRINT "INT((66+(6.23*LBS)+(12.7*HTIN)-(6.8*AGE))*AL)":PAUSE:END


    To use the above routine (for men), seed the variables on line 20010; LBS=desired weight in pounds, HTIN=height in inches, AGE=age in years, AL=activity level, sedentary 1.2 to extra active 1.9

    Then, RUN 20000, press [ENTER], press [SHIFT] [PB] [ENTER] for maintaining calories (2893).

    Do similar to use the (for women) routine below.


    20100 REM (for women) AL=activity level 1.2 1.375 1.55 1.725 1.9
    20110 LBS=140:HTIN=66:AGE=30:AL=1.55
    20120 PRINT "INT((655+(4.35*LBS)+(4.7*HTIN)-(4.7*AGE))*AL)":PAUSE:END

    ..............................


    For a more menu driven routine, type in the routine below and RUN 20500.

    20500 PRINT "Maintain Calories":PAUSE 1
    20505 PRINT MW$;" (m)an or (w)oman ";:ACCEPT NULL(MW$),MW$
    20510 PRINT LBS;"desired lbs ";:ACCEPT NULL(LBS),LBS
    20520 PRINT HTIN;"height inches ";:ACCEPT NULL(HTIN),HTIN
    20530 PRINT AGE;"age ";:ACCEPT NULL(AGE),AGE
    20540 PRINT "1=sedentary 2=lightly active":PAUSE
    20550 PRINT "3=moderately 4=very active":PAUSE
    20560 PRINT "5=extra active":PAUSE
    20570 PRINT AL$;" activity level 1-5 ";:ACCEPT NULL(AL$),AL$
    20580 IF AL$="1"THEN AL=1.2:GOTO 20640
    20590 IF AL$="2"THEN AL=1.375:GOTO 20640
    20600 IF AL$="3"THEN AL=1.55:GOTO 20640
    20610 IF AL$="4"THEN AL=1.725:GOTO 20640
    20620 IF AL$="5"THEN AL=1.9:GOTO 20640
    20630 PRINT "error..1-5":PAUSE:GOTO 20540
    20640 IF MW$="m"THEN 20670
    20650 IF MW$="w"THEN 20690
    20660 PRINT "error..m w":PAUSE:GOTO 20505

    20670 SCM=(66+(6.23*LBS)+(12.7*HTIN)-(6.8*AGE))*AL
    20680 PRINT "Maintain calories";INT(SCM);"@";LBS:PAUSE:GOTO 20500

    20690 SCW=(655+(4.35*LBS)+(4.7*HTIN)-(4.7*AGE))*AL
    20700 PRINT "Maintain calories";INT(SCW);"@";LBS:PAUSE:GOTO 20500


    Examples for 20500 routine:

    Man, LBS=175 HTIN=72 AGE=30 AL=3, Maintain calories=2893

    Woman, LBS=140 HTIN=66 AGE=30 AL=3, Maintain calories=2221

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •