From helens!shelby!rutgers!apple!usc!zaphod.mps.ohio-state.edu!sol.ctr.columbia.edu!emory!mephisto!prism!gt3398b Tue May 15 16:33:56 PDT 1990
Status: RO

Article 1635 of comp.sys.handhelds:
Path: helens!shelby!rutgers!apple!usc!zaphod.mps.ohio-state.edu!sol.ctr.columbia.edu!emory!mephisto!prism!gt3398b
>From: gt3398b@prism.gatech.EDU (DELANO,ANDREW DOUGLAS)
Newsgroups: comp.sys.handhelds
Subject: INCO ON THE 48sx
Message-ID: <9331@hydra.gatech.EDU>
Date: 15 May 90 19:24:25 GMT
Organization: Georgia Institute of Technology
Lines: 161



I just finished converting the game INCO to work on the 48sx.  It is a
simple little game, but it does'nt take up much memory, and I like it.
I got the 28s copy from the ftp site funic.funet.fi.  I had to add one
program of my own (K->STR) and make a few minor changes.  It works great
on the 48 and is in ready to download form.  NOTE!!: Joachim Isaksson
wrote this program for the 28s, and all credit for it should go to him.
All I have done is convert it to work on the 48sx.  I have included 
Joachim's original instructions followed by the program in ready to
download form.  My thanks to Joachim for creating this fun little
game that helps me get through some of my boring classes.

                               Andy Delano
________________________________________________________________________________  
I have just finished a little game for the HP28, but as I have no write access
to the comp.sys.handhelds I thought I'd send it to somebody who can check it
out and 'News' it if it's any good. Feel free to make a better version, as this
one is no 'masterpiece'. 

						Joachim Isaksson
					      (d89-jin@sm.luth.se)

Instructions and program following...

-------------------------------------------------------------------------------

The game of 'INCO'

This is a game based on a 'simple' idea. When you enter a number and press the
'INCO' button the HP28 will start with a 3 by 3 array containing only nines,
mixing it the number of times you entered by picking a row and a column in
which it will decrease all numbers by one. It will then display the resulting
array and your objective is to get the array containing only nines back by
pressing a digit, thereby increasing all numbers in the row/column you picked.
(Hard to explain, but you'll soon pick up the idea)
It isn't very well programmed, but I haven't had my HP28 for more than 3 weeks
so I hope I am excused. If anyone makes a better version, please post it to me
or even better to the net.


%%HP: T(3)A(D)F(.);
DIR
  INCO
    \<< \-> dif
      \<< CLLCD { 3 3
} 9 CON 1 dif
        FOR j RAND
9 * 1 + IP \->ARR -
        NEXT \->ADJ 0
SWAP
        DO SWAP 1 +
SWAP DUP \->DSP 0
          DO DROP
            DO
            UNTIL
KEY
            END
          UNTIL
K\->STR DUP DUP "1" \>=
SWAP "9" \<= AND
          END STR\->
\->ARR + \->ADJ 100 .01
BEEP
        UNTIL DUP {
3 3 } 9 CON SAME
        END \->DSP
10000 .01 BEEP \->STR
"   Well done "
SWAP + " Moves" + 4
DISP 0 FREEZE
      \>>
    \>>
  \->DSP
    \<< \->STR
"         " \-> arr
spc
      \<< spc arr 4 8
SUB + 1 DISP spc
arr 15 19 SUB + 2
DISP spc arr 26 30
SUB + 3 DISP "" 4
DISP
      \>>
    \>>
  \->ARR
    \<< DUP 1 - 3 MOD
1 + SWAP 9 SWAP - 3
/ 1 + IP \-> y x
      \<< { 3 3 } 0
CON 1 3
        FOR j { x j
} 1 PUT { j y } 1
PUT
        NEXT
      \>>
    \>>
  \->ADJ
    \<< ARRY\-> DROP 1
9
      FOR j 9 ROLL
10 MOD
      NEXT { 3 3 }
\->ARRY
    \>>
  K\->STR
    \<<
      CASE
        IF DUP 82
==
        THEN DROP
"1"
        END
        IF DUP 83
==
        THEN DROP
"2"
        END
        IF DUP 84
==
        THEN DROP
"3"
        END
        IF DUP 72
==
        THEN DROP
"4"
        END
        IF DUP 73
==
        THEN DROP
"5"
        END
        IF DUP 74
==
        THEN DROP
"6"
        END
        IF DUP 62
==
        THEN DROP
"7"
        END
        IF DUP 63
==
        THEN DROP
"8"
        END
        IF DUP 64
==
        THEN DROP
"9"
        END
      END
    \>>
END
-- 
DELANO,ANDREW DOUGLAS
Georgia Institute of Technology, Atlanta Georgia, 30332
uucp:	  ...!{decvax,hplabs,ncar,purdue,rutgers}!gatech!prism!gt3398b
Internet: gt3398b@prism.gatech.edu