Playing With A 1980′s IBM PS/2

Playing With A 1980′s IBM PS/2
Playing With A 1980′s IBM PS/2
Playing With A 1980′s IBM PS/2
Playing With A 1980′s IBM PS/2

Playing with a 1980′s IBM PS/2

I found an old IBM this weekend, and I learned the Pascal language just to play with it. The IBM is a 1989 PS/2 (so far as I can tell, but it may be older), or Personal System 2. These computers first came out in 1987 as IBM’s third generation of personal computers, you can read more about their history here.

Programming the IBM

While poking around on this computer’s DOS prompt I found a directory that contained all of the previous user’s programs - the most recent of which was edited in 1992. I noticed that the programs were written in the Pascal programming language and that I could make new programs with the included turbo IDE (Integrated Development Environment):

image

After downloading the free pascal compiler on my Mac, I started learning the language. I began writing pascal programs on my Mac to transfer to the IBM, but when I tried to load the programs into turbo I found that they were corrupted because I had not accounted for the carriage return character in DOS. In UNIX systems only the newline character (denoted by ‘\n’) is needed for newlines, but in DOS the carriage return character is also needed (denoted by ‘\r’, then ‘\r\n’ together). So I wrote a quick bash script to solve my problem:

image

I then proceeded to write Conway’s game of life in pascal - which is the seen running in the second gif above ( I have the source code here if you would like to read over it). The game of life is a simple simulation game that populates and repopulates a grid of cells based on simple rules. If a cell is filled it is considered “alive”, if it is not it is considered “dead”. Here is an example of an interesting configuration - known as a Glider Gun - in the game of life:

image

Making Life

I created two arrays, one to store the current state of the grid and another to store the temporary grid that helps calculate the next “generation” of cells.

image

For each “generation” - or step as I have called it here - I fill the grid with cells based on the following rules:

Any live cell with fewer than two live neighbors dies, as if caused by under-population.

Any live cell with two or three live neighbors lives on to the next generation.

Any live cell with more than three live neighbors dies, as if by over-population.

Any dead cell with exactly three live neighbors becomes a live cell, as if by reproduction.

image

While looking at the gif above, you may have noticed that there are some cells that seem to pop into existence randomly. This is because I randomly turn 4% of cells in the grid ‘alive’ during each step. I do this to insure that the grid does not empty, because I like to have this programming running in the background as I do other things.

I am currently trying to install old DOS games onto the system. My goal is to get the old elder scrolls arena - the first elder scrolls game - onto the system. Because the file is big (9MB, well… big for 1980′s computing) I will have to break apart and transfer over multiple floppies. I currently have a script to split the executable and I am working on a pascal program to reconstruct the partial files on the IBM.

The Source Code:

To view the source code for this project, or to fork it, check out the github repo:

https://github.com/piepieninja/IBM-DOS-GAMES/

extra: How did I move the programs from my Mac to the IBM? well I had an old computer - now running puppy linux - that could take my files from a USB and put them onto a floppy disk!

More Posts from Flo-was-here and Others

8 years ago
Animals Who Want To Be Photographers

Animals Who Want To Be Photographers

8 years ago
“those Who Deny Freedom To Others Deserve It Not For Themselves.” -Eabraham Lincoln [1600x1078] MORE

“those who deny freedom to others deserve it not for themselves.” -Eabraham lincoln [1600x1078] MORE COOL QUOTES!

8 years ago
The Reason Roadwork Takes So Much Time

The Reason Roadwork Takes So Much Time

8 years ago
The Homeless Musician And His Cat

The Homeless Musician And His Cat

8 years ago
It Would Have Been A Great Name

It Would Have Been A Great Name

8 years ago
This Has To Be The Greatest Idea Ever

This Has To Be The Greatest Idea Ever

8 years ago
Dog Is Not A Giver Of Cat F*cks.

Dog is not a giver of cat f*cks.

7 years ago
Sony Made A Cassette Tape That Can Store 185TB Of Data In 2014. Photo : Hans Haase/wikimedia

Sony made a cassette tape that can store 185TB of data in 2014. Photo : Hans Haase/wikimedia

8 years ago
When You Hose Off Your Entire Deck And Your Dog Never Notices

When You Hose off Your Entire Deck and Your Dog Never Notices

  • lessswarexatin
    lessswarexatin liked this · 1 year ago
  • inaeva
    inaeva liked this · 1 year ago
  • gs455
    gs455 liked this · 2 years ago
  • shirleyholt
    shirleyholt liked this · 6 years ago
  • homelesslookingchick
    homelesslookingchick liked this · 6 years ago
  • do-not-disturb-me
    do-not-disturb-me liked this · 7 years ago
  • what-life-ha-blog
    what-life-ha-blog liked this · 7 years ago
  • hypro
    hypro liked this · 7 years ago
  • give-me-back-my-legions
    give-me-back-my-legions liked this · 7 years ago
  • 56k-modem
    56k-modem liked this · 7 years ago
  • drdjo
    drdjo reblogged this · 7 years ago
  • drdjo
    drdjo liked this · 7 years ago
  • hackr
    hackr reblogged this · 7 years ago
  • hackr
    hackr liked this · 7 years ago
  • lucian-drace
    lucian-drace reblogged this · 7 years ago
  • lucian-drace
    lucian-drace liked this · 7 years ago
  • abbelbabbel
    abbelbabbel liked this · 7 years ago
  • cherry-pop-99
    cherry-pop-99 reblogged this · 7 years ago
  • cherry-pop-99
    cherry-pop-99 liked this · 7 years ago
  • coredumpproject
    coredumpproject reblogged this · 7 years ago
  • falloutoverhaulproject
    falloutoverhaulproject liked this · 7 years ago
  • quaternonion-blog
    quaternonion-blog liked this · 7 years ago
  • neuro-sys
    neuro-sys liked this · 7 years ago
  • procrastinatingdraggun
    procrastinatingdraggun reblogged this · 7 years ago
  • tokenspony
    tokenspony reblogged this · 7 years ago
  • maxx-palermo
    maxx-palermo liked this · 7 years ago
  • dabney
    dabney liked this · 7 years ago
  • fishmech
    fishmech liked this · 7 years ago
  • kaijuu
    kaijuu liked this · 7 years ago
  • chaoticgeniu5
    chaoticgeniu5 liked this · 7 years ago
  • idreaminpixels
    idreaminpixels reblogged this · 7 years ago
  • idreaminpixels
    idreaminpixels liked this · 7 years ago
flo-was-here - flo was here, but will he come back?
flo was here, but will he come back?

You are free to choose, but you are not free from the consequence of your choice. - a Universal Paradox

195 posts

Explore Tumblr Blog
Search Through Tumblr Tags