What does it mean...

Discussion in 'Computers' started by April, Apr 26, 2018.

  1. miketx
    Offline

    miketx Diamond Member

    Joined:
    Dec 25, 2015
    Messages:
    53,401
    Thanks Received:
    6,037
    Trophy Points:
    1,870
    Ratings:
    +60,970
    I still use it to run the automotive shop software i wrote in the 90's.
     
  2. Moonglow
    Offline

    Moonglow Diamond Member

    Joined:
    Jun 27, 2011
    Messages:
    122,334
    Thanks Received:
    10,893
    Trophy Points:
    2,070
    Location:
    sw mizzouri
    Ratings:
    +51,748
    No it was an Irish model....
     
  3. Moonglow
    Offline

    Moonglow Diamond Member

    Joined:
    Jun 27, 2011
    Messages:
    122,334
    Thanks Received:
    10,893
    Trophy Points:
    2,070
    Location:
    sw mizzouri
    Ratings:
    +51,748
    I was doing electronic engineering so we used FORTRAN.
     
    • Agree Agree x 1
  4. miketx
    Offline

    miketx Diamond Member

    Joined:
    Dec 25, 2015
    Messages:
    53,401
    Thanks Received:
    6,037
    Trophy Points:
    1,870
    Ratings:
    +60,970
    I wrote this program using Power Basic.
     
    • Funny Funny x 1
  5. Moonglow
    Offline

    Moonglow Diamond Member

    Joined:
    Jun 27, 2011
    Messages:
    122,334
    Thanks Received:
    10,893
    Trophy Points:
    2,070
    Location:
    sw mizzouri
    Ratings:
    +51,748
    Holy shit(Pop poop)...

    Have you coded your own game with Scratch?
     
  6. April
    Offline

    April ♐❤️AngelsNDemons❤️♑ Gold Supporting Member

    Joined:
    Oct 18, 2012
    Messages:
    29,117
    Thanks Received:
    16,941
    Trophy Points:
    1,445
    Ratings:
    +35,027
    This is hawt...
     
  7. miketx
    Offline

    miketx Diamond Member

    Joined:
    Dec 25, 2015
    Messages:
    53,401
    Thanks Received:
    6,037
    Trophy Points:
    1,870
    Ratings:
    +60,970
    No, Just business software. Just for fun I wrote one that took word used as phone numbers and translated it into numbers. Here is the code.

    $COMPILE EXE

    DEFINT a-z

    clp$ = COMMAND$

    IF RTRIM$(clp$) = "" THEN

    CLS

    PRINT

    PRINT "USAGE:"

    PRINT "PHONLTR + The letters or words comprising the phone number."

    PRINT "EXAMPLE: PHONLTR deliver"

    PRINT

    END

    END IF




    strlen% = LEN(clp$)

    IF LEFT$(clp$,1) = "1" THEN clp$ = RIGHT$(clp$,strlen%-1)


    FOR j% = 1 TO LEN(clp$)

    letter$ = MID$(clp$,j%,1)

    get_number letter$

    NEXT


    result$ = RTRIM$(result$)


    SELECT CASE LEN(result$)

    CASE 7

    result$ = LEFT$(result$,3)+"-"+RIGHT$(result$,4)

    CASE 10

    result$ ="1-"+ LEFT$(result$,3)+"-"+MID$(result$,4,3)+"-"+RIGHT$(result$,4)

    CASE ELSE

    FOR j% = 1 TO LEN(result$)

    t$ = MID$(result$,j%,1)

    IF j% <> LEN(result$) THEN

    target$ = target$+t$+"-"

    ELSE

    target$ = target$+t$

    END IF

    NEXT

    result$ = target$

    PRINT "The phone letters used generate a non-standard phone number length."

    END SELECT


    PRINT

    PRINT "The number is ";result$

    PRINT "--------------"+STRING$(LEN(result$),"-")


    END


    SUB get_number(letter$)


    SHARED result$

    letter$ = UCASE$(letter$)


    SELECT CASE letter$

    CASE "-"

    EXIT SUB

    CASE "1","2","3","4","5","6","7","8","9","0"

    number$ = letter$

    CASE "A","B","C"

    number$ = "2"

    CASE "D","E","F"

    number$ = "3"

    CASE "G","H","I"

    number$ = "4"

    CASE "J","K","L"

    number$ = "5"

    CASE "M","N","O"

    number$ = "6"

    CASE "P","Q","R","S"

    number$ = "7"

    CASE "T","U","V"

    number$ = "8"

    CASE "W","X","Y","Z"

    number$ = "9"

    CASE ELSE

    number$ = number$

    END SELECT

    result$ = result$ + number$

    EXIT SUB


    END SUB
     
  8. Moonglow
    Offline

    Moonglow Diamond Member

    Joined:
    Jun 27, 2011
    Messages:
    122,334
    Thanks Received:
    10,893
    Trophy Points:
    2,070
    Location:
    sw mizzouri
    Ratings:
    +51,748
    Put it in the fridge..
     
    • Funny Funny x 1
  9. Moonglow
    Offline

    Moonglow Diamond Member

    Joined:
    Jun 27, 2011
    Messages:
    122,334
    Thanks Received:
    10,893
    Trophy Points:
    2,070
    Location:
    sw mizzouri
    Ratings:
    +51,748
    Just use Excel..
     
  10. miketx
    Offline

    miketx Diamond Member

    Joined:
    Dec 25, 2015
    Messages:
    53,401
    Thanks Received:
    6,037
    Trophy Points:
    1,870
    Ratings:
    +60,970
    The automotive shop software took a while, as it contained somewhere around 40,000 lines of code.
     

Share This Page