Raw files for these HP 67 program listings ?

[Dieter]

(09-09-2016 05:29 PM)Gene Wrote:  Post it when you can.

It's now down to 182 bytes in 88 lines, and SIZE 012 is sufficient. Some parts of the code have been removed because they appeared twice, more or less identically. I hope I did not throw out too much. ;-)

The attachment contains the resulting listing and raw file. I think this is close to the final version:

  TTT.zip (Size: 800 bytes / Downloads: 6)

HP67/97 users: here is a listing of the streamlined version for you as well. Try it and see how it compares to the original program in the Games Pac. Hint: line 070 ff (LBL a) can be removed completely if a (single track) data card for R0...R9 is prepared. Since the remaining program (merely 69 lines) fits on a single track as well, the complete program and its data can still be stored on just one card.

For both versions:

Initialize program: XEQ "TTT" or [Shift] [A] resp. [f] [A]
Start a new game: [A]
Enter move: 1...9 [B] or [R/S]
Review board: [C]

HP67/97 listing:

Code:

001 LBL A
002 FIX
003 CLX
004 STO 0
005 STO A
006 SF 2
007 2
008 LBL 3
009 STO I
010 1
011 STO+0
012 GSB 5
013 LBL C
014 EEX
015 6
016 GSB 1
017 EEX
018 3
019 GSB 1
020 1
021 GSB 1
022 SPACE
023 RCL I
024 RCL A
025 +
026 DSP 9
027 R/S
028 LBL B
029 STO I
030 2
031 GSB 5
032 F? 2
033 GTO 2
034 RCL I
035 GSB 4
036 X=Y?
037 GSB 4
038 GTO 3
039 LBL 2
040 RCL(i)
041 STO B
042 GSB 4
043 GTO 3
044 LBL 4
045 RCL B
046 FRAC
047 1
048 0
049 *
050 STO B
051 INT
052 RTN
053 LBL 5
054 RCL I
055 10^X
056 /
057 RCL A
058 +
059 STO A
060 RTN
061 LBL 1
062 DSP 3
063 RCL A
064 *
065 FRAC
066 RCL 0
067 +
068 PAUSE / PRTX
069 RTN

070 LBL a
071 .
072 5
073 8
074 7
075 3
076 6
077 4
078 9
079 STO 1
080 .
081 5
082 8
083 9
084 1
085 4
086 6
087 7
088 STO 3
089 .
090 1
091 3
092 5
093 9
094 8
095 STO 4
096 .
097 1
098 3
099 7
100 4
101 6
102 9
103 8
104 STO 5
105 .
106 3
107 1
108 5
109 7
110 8
111 STO 6
112 .
113 1
114 3
115 5
116 8
117 9
118 STO 7
119 .
120 3
121 1
122 7
123 5
124 9
125 6
126 4
127 STO 8
128 .
129 3
130 1
131 5
132 8
133 7
134 STO 9
135 CLX
136 RTN

Dieter