SELECT

FILE INFORMATION

FILENAME(S): SELECT

FILE TYPE(S): PRG

FILE SIZE: 1K

FIRST SEEN: 2025-11-30 21:12:21

APPEARS ON: 2 disk(s)

FILE HASH

ed0d16ccd80af9804781f7054a5356b98a0eafb3431ea1324be229a6f689a67a

FOUND ON DISKS (2 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
RANS ISK1	SELECT	PRG	DuncanTwain	29	0	DOWNLOAD FILE
RANS ISK2	SELECT	PRG	DuncanTwain	29	7	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 29 08 00 00 8F 20  53 45 4C 45 43 54 20 28  |..).... SELECT (|
00000010: 57 41 59 4E 45 20 48 41  50 50 2C 20 31 39 38 35  |WAYNE HAPP, 1985|
00000020: 29 20 20 20 20 20 20 20  3A 00 2F 08 01 00 3A 00  |)       :./...:.|
00000030: 4F 08 02 00 8F 20 34 20  53 54 41 54 45 4D 45 4E  |O.... 4 STATEMEN|
00000040: 54 53 2C 20 30 20 46 55  4E 43 54 49 4F 4E 53 00  |TS, 0 FUNCTIONS.|
00000050: 55 08 03 00 3A 00 72 08  04 00 8F 20 4B 45 59 57  |U...:.r.... KEYW|
00000060: 4F 52 44 20 43 48 41 52  41 43 54 45 52 53 3A 20  |ORD CHARACTERS: |
00000070: 32 38 00 78 08 05 00 3A  00 A0 08 06 00 8F 20 4B  |28.x...:...... K|
00000080: 45 59 57 4F 52 44 20 20  20 20 20 20 52 4F 55 54  |EYWORD      ROUT|
00000090: 49 4E 45 20 20 4C 49 4E  45 20 20 53 45 52 20 23  |INE  LINE  SER #|
000000A0: 00 C7 08 07 00 8F 20 53  2F 53 45 4C 45 43 54 20  |...... S/SELECT |
000000B0: 20 20 20 20 53 45 4C 20  20 20 20 20 31 30 33 38  |    SEL     1038|
000000C0: 38 20 20 20 31 34 35 00  EE 08 08 00 8F 20 53 2F  |8   145...... S/|
000000D0: 57 48 45 4E 20 20 20 20  20 20 20 57 48 4E 20 20  |WHEN       WHN  |
000000E0: 20 20 20 31 30 34 31 32  20 20 20 31 34 36 00 15  |   10412   146..|
000000F0: 09 09 00 8F 20 53 2F 4F  54 48 45 52 57 49 53 45  |.... S/OTHERWISE|
00000100: 20 20 4F 54 48 20 20 20  20 20 31 30 34 34 38 20  |  OTH     10448 |
00000110: 20 20 31 34 37 00 3B 09  0A 00 8F 20 53 2F 45 4E  |  147.;.... S/EN|
00000120: 44 53 45 4C 45 43 54 20  57 4E 33 20 20 20 20 20  |DSELECT WN3     |
00000130: 31 30 34 33 38 20 20 20  31 34 38 00 41 09 0B 00  |10438   148.A...|
00000140: 3A 00 68 09 0C 00 8F 20  3D 3D 3D 3D 3D 3D 3D 3D  |:.h.... ========|
00000150: 3D 3D 3D 3D 3D 3D 3D 3D  3D 3D 3D 3D 3D 3D 3D 3D  |================|
00000160: 3D 3D 3D 3D 3D 3D 3D 3D  00 6E 09 0D 00 3A 00 82  |========.n...:..|
00000170: 09 8F 00 2E C6 20 22 53  45 4C 45 43 D4 57 48 45  |..... "SELEC.WHE|
00000180: CE 22 00 9E 09 90 00 2E  C6 20 22 4F 54 48 45 52  |."....... "OTHER|
00000190: 57 49 53 C5 45 4E 44 53  45 4C 45 43 D4 22 00 B3  |WIS.ENDSELEC."..|
000001A0: 09 77 04 2E 57 B0 44 20  53 45 4C AB 31 2C 57 48  |.w..W.D SEL.1,WH|
000001B0: 4E AB 31 00 C8 09 78 04  2E 57 B0 44 20 4F 54 48  |N.1...x..W.D OTH|
000001C0: AB 31 2C 57 4E 33 AB 31  00 D9 09 94 28 53 45 4C  |.1,WN3.1....(SEL|
000001D0: 20 42 4E 45 20 53 45 4C  31 00 E4 09 96 28 4C 44  | BNE SEL1....(LD|
000001E0: 41 20 23 30 00 F7 09 98  28 53 45 4C 31 20 53 54  |A #0....(SEL1 ST|
000001F0: 41 20 53 46 4C 47 32 00  04 0A 9A 28 42 45 51 20  |A SFLG2....(BEQ |
00000200: 53 45 4C 32 00 12 0A 9C  28 4A 53 52 20 24 41 44  |SEL2....(JSR $AD|
00000210: 38 41 00 23 0A 9E 28 4C  44 58 20 23 B3 53 45 4C  |8A.#..(LDX #.SEL|
00000220: 54 53 54 00 34 0A A0 28  4C 44 59 20 23 B1 53 45  |TST.4..(LDY #.SE|
00000230: 4C 54 53 54 00 42 0A A2  28 4A 53 52 20 24 42 42  |LTST.B..(JSR $BB|
00000240: 44 34 00 52 0A A4 28 53  45 4C 32 20 4C 44 41 20  |D4.R..(SEL2 LDA |
00000250: 23 31 00 60 0A A6 28 53  54 41 20 53 46 4C 47 31  |#1.`..(STA SFLG1|
00000260: 00 68 0A A8 28 52 54 53  00 6E 0A AA 28 3B 00 7F  |.h..(RTS.n..(;..|
00000270: 0A AC 28 57 48 4E 20 42  45 51 20 4F 54 48 31 00  |..(WHN BEQ OTH1.|
00000280: 8D 0A AE 28 4A 53 52 20  24 41 44 38 41 00 9B 0A  |...(JSR $AD8A...|
00000290: B0 28 4C 44 41 20 53 46  4C 47 31 00 A7 0A B2 28  |.(LDA SFLG1....(|
000002A0: 42 45 51 20 57 4E 31 00  B5 0A B4 28 4C 44 41 20  |BEQ WN1....(LDA |
000002B0: 53 46 4C 47 32 00 C1 0A  B6 28 42 4E 45 20 57 4E  |SFLG2....(BNE WN|
000002C0: 32 00 CD 0A B8 28 4C 44  41 20 24 36 31 00 D9 0A  |2....(LDA $61...|
000002D0: BA 28 42 4E 45 20 57 4E  33 00 EB 0A BC 28 57 4E  |.(BNE WN3....(WN|
000002E0: 31 20 4A 4D 50 20 24 41  39 33 42 00 00 0B BE 28  |1 JMP $A93B....(|
000002F0: 57 4E 32 20 4C 44 41 20  23 B3 53 45 4C 54 53 54  |WN2 LDA #.SELTST|
00000300: 00 11 0B C0 28 4C 44 59  20 23 B1 53 45 4C 54 53  |....(LDY #.SELTS|
00000310: 54 00 1F 0B C2 28 4A 53  52 20 24 42 43 35 42 00  |T....(JSR $BC5B.|
00000320: 2B 0B C4 28 42 4E 45 20  57 4E 31 00 3A 0B C6 28  |+..(BNE WN1.:..(|
00000330: 57 4E 33 20 4C 44 41 20  23 30 00 48 0B C8 28 53  |WN3 LDA #0.H..(S|
00000340: 54 41 20 53 46 4C 47 31  00 54 0B CA 28 4A 53 52  |TA SFLG1.T..(JSR|
00000350: 20 24 37 39 00 62 0B CC  28 4A 4D 50 20 24 41 39  | $79.b..(JMP $A9|
00000360: 34 30 00 68 0B CE 28 3B  00 79 0B D0 28 4F 54 48  |40.h..(;.y..(OTH|
00000370: 20 42 45 51 20 4F 54 48  31 00 87 0B D2 28 4C 44  | BEQ OTH1....(LD|
00000380: 41 20 53 46 4C 47 31 00  93 0B D4 28 42 4E 45 20  |A SFLG1....(BNE |
00000390: 57 4E 33 00 9F 0B D6 28  42 45 51 20 57 4E 31 00  |WN3....(BEQ WN1.|
000003A0: B2 0B D8 28 4F 54 48 31  20 4A 4D 50 20 24 41 46  |...(OTH1 JMP $AF|
000003B0: 30 38 00 B8 0B DA 28 3B  00 CB 0B DC 28 53 46 4C  |08....(;....(SFL|
000003C0: 47 31 20 20 2E 42 59 54  45 20 30 00 D1 0B DE 28  |G1  .BYTE 0....(|
000003D0: 3B 00 E4 0B E0 28 53 46  4C 47 32 20 20 2E 42 59  |;....(SFLG2  .BY|
000003E0: 54 45 20 30 00 EA 0B E2  28 3B 00 FB 0B E4 28 53  |TE 0....(;....(S|
000003F0: 45 4C 54 53 54 20 AC B2  AC AA 35 00 01 0C E6 28  |ELTST ....5....(|
00000400: 3B 00 00 00                                       |;...            |

..).... SELECT (WAYNE HAPP, 1985)       
:./...:.O.... 4 STATEMENTS, 0 FUNCTIONS.
U...:.R.... KEYWORD CHARACTERS: 28.X...:
. .... KEYWORD      ROUTINE  LINE  SER #
.G.... S/SELECT     SEL     10388   145.
..... S/WHEN       WHN     10412   146..
.... S/OTHERWISE  OTH     10448   147.;.
... S/ENDSELECT WN3     10438   148.A...
:.H.... ================================
.N...:......F "SELECTWHEN"......F "OTHER
WISEENDSELECT"...W..W.D SEL.1,WHN.1.H.X.
.W.D OTH.1,WN3.1.Y..(SEL BNE SEL1....(LD
A #0....(SEL1 STA SFLG2....(BEQ SEL2....
(JSR $AD8A.#..(LDX #.SELTST.4. (LDY #.SE
LTST.B..(JSR $BBD4.R..(SEL2 LDA #1.`..(S
TA SFLG1.H..(RTS.N..(;...(WHN BEQ OTH1.
...(JSR $AD8A....(LDA SFLG1....(BEQ WN1.
...(LDA SFLG2.A..(BNE WN2.M..(LDA $61.Y.
.(BNE WN3....(WN1 JMP $A93B....(WN2 LDA 
#.SELTST....(LDY #.SELTST...B(JSR $BC5B.
+.D(BNE WN1.:.F(WN3 LDA #0.H.H(STA SFLG1
.T.J(JSR $79.B.L(JMP $A940.H.N(;.Y.P(OTH
 BEQ OTH1...R(LDA SFLG1...T(BNE WN3...V(
BEQ WN1...X(OTH1 JMP $AF08...Z(;.K..(SFL
G1  .BYTE 0.Q..(;....(SFLG2  .BYTE 0....
(;....(SELTST ....5....(;...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL