Jump to content

Switch1995

Members
  • Posts

    148
  • Joined

  • Last visited

Posts posted by Switch1995

  1. Any interest in selling a bag of capacitors to recap a 99/4A (main board and power supply) Having populated a SAMS card myself, I’m left with a bunch of extra components as a result of minimum buy quantities.  Just a thought.  Perhaps variations in the 99/4A design (QI, etc.) wouldn’t make the juice worth the squeeze.

  2. 21 hours ago, Appeelicious said:

    I will also follow a YouTube series or equivalent if one exists

    NEWLINE99 made some very high quality YouTube videos on ASSM Introduction/Fundamentals and Integer/Floating Point.   I'm hoping he gets back into the hobby and continues the series.

     

     

    • Like 2
    • Thanks 2
  3. 8 hours ago, TheBF said:

     

    I have a question. Do you have a reason for not using  ."   to type text?

    I've just started learning FORTH this year and could be wrong, but it seems like using S" TYPE gives more flexibility than ."  and so I'm trying to get into the habit of "always" using it for strings.   For example:  

     

    : test S" Hello World!"

    ;

     

    test 2DUP TYPE TYPE

     

    btw, In my top post, I neglected to thank @Willsy and @Lee Stewart for their fantastic FORTH products and, more importantly, taking the time to document and teach those that follow.

    • Like 3
    • Thanks 2
  4. My favorite Christmas movie is Trading Places and I love the 80s tech in the movie.   Using this picture of the Telerate monitors that were in the back of the Duke's limo and in Eddie Murphy/Dan Akroyd's office for inspiration, I put together a holiday program in Turboforth 40 column mode.  I'll attach the code.  To run in Classic99, just copy the text and paste in TF after selecting option 2.  Happy Holidays!!

     

     

     

     

     

    image.png

    Trading Places.txt

    • Like 5
    • Thanks 1
  5. On 11/30/2023 at 2:23 PM, FarmerPotato said:

    Vintage electronics toolbox.

     

    Literally.  There is a fuse and AC cord coming out the back.   It seems the power supply, breadboard, and ammeter are permanently mounted inside.

     

    https://www.ebay.com/itm/266449527569?hash=item3e09a12311:g:PisAAOSw8EZlJZ2c

     

    $84.99.  TTL Compatible!

     

     

    image.thumb.jpeg.ad7429b52f7a09802ac48154587ae171.jpeg                            image.thumb.jpeg.efaf3b2b313f6e4df2ec395f4733f42e.jpeg             

     

    It looks like a lie detector test for fishermen.   How big was the catch?  Liar!!!

    • Like 1
    • Haha 5
  6. On 2/3/2020 at 8:49 PM, GDMike said:

    Just fyi for anyone else, reverse color characters are already defined in Turboforth. Wilsy included them..

     

    THANK YOU!  I'm so happy I ran across this.  I was just about to start from scratch on inverse characters in TF.  Saves me hours!!

    • Like 3
  7. Question about Classic 99 emulation of TurboForth for @Tursi and/or @Willsy.   When I create a 80K BLOCKS file on DSK1, I can go into 1 EDIT and the 1st Block displays fine.  However, every subsequent block edit appears with the character field all in white (pics below).   Any way to get 2 EDIT to display the same as 1 EDIT?  thanks! 

     

    Note:  Other than MKBLK, FLUSH, COLD and EDIT, I haven't used any other words of note to display the pics below.

     

     

     

    image.thumb.png.ec36f5bb889222cbc048ef0a192bfcd4.png

    image.thumb.png.95ff2af744623fcde770056e5360dae6.png

    image.thumb.png.7c94f3c2de74266abb1ad6294d66b7ca.png

    • Like 1
  8. On 7/6/2017 at 2:18 PM, Tursi said:

     

    We don't have TI LOGO in there, anyone want to try that one? ;)

    It has been over 6 years since you asked....and my TI LOGO II code has finally finished running (ok, ok, it only felt like 6 years):

     

    //DEFINE PROCEDURES FOR EACH SIDE OF SCREEN

    TO TOP :NUM
    IF :NUM = 116 THEN STOP
    SX :NUM
    TOP :NUM + 1
    END

     

    TO RGT :NUM
    IF :NUM = -81 THEN STOP
    SY :NUM
    RGT :NUM - 1
    END

     

    TO BTM :NUM
    IF :NUM = -128 THEN STOP
    SX :NUM
    BTM :NUM - 1
    END

     

    TO LFT :NUM
    IF :NUM = 96 THEN STOP
    SY :NUM
    LFT :NUM + 1
    END

     

    //USE GRAPHICS EDITOR TO CREATE 16X16 ASTERISK

    MAKESHAPE 6

     

    //INITIALIZE SPRITE IN UPPER LEFT CORNER OF SCREEN

    TELL SPRITE
    CARRY 6
    SC :BLACK
    SXY -128 96

     

    //CLEAR SCREEN AND LOOP 100 TIMES

    CS
    REPEAT 100 [TOP -128 RGT 96 BTM 116 LFT -81]

     

     

     

    Updated standings:

    On 7/26/2017 at 12:11 PM, TheBF said:
    Language   First Pass     Optimized
    GCC           15 sec         5 sec
    Assembly      17 sec         5 sec
    TurboForth    48 sec        29 sec
    CAMEL99 DTC   49 sec        27 sec
    Compiled XB   51 sec        37 sec
    CAMEL99 ITC   55 sec        29 sec
    FbForth       70 sec        26 sec
    GPL           80 sec       none yet
    ABASIC       490 sec       none yet
    LOGO II	    1920 sec       none yet
    XB          2000 sec       none yet
    UCSD Pascal 7300 sec       273 sec

     

     

    Logo II.jpeg

    • Like 2
  9. On 6/22/2023 at 1:37 PM, Switch1995 said:

    I just ordered this video chess XB auto load floppy from Buddybear on eBay.  I’ll be trying it in my PEB system (Corcomp DSDD, SAMS, TIPI, F18a).  Curious to see if I experience the same issues.  Will report back.

    Floppy version works great.  I'm not going to pursue this "issue" any further since I have several options available to play.  Thanks to everyone who offered help.

    • Like 1
×
×
  • Create New...