INPN & INPA

FILE INFORMATION

FILENAME(S): INPN & INPA

FILE TYPE(S): PRG

FILE SIZE: 1.7K

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

APPEARS ON: 2 disk(s)

FILE HASH

69a91b14e264d3684042a6db5d90c3e658d0e6bc0500612b8e1f93575e7c1be3

FOUND ON DISKS (2 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
RANS ISK1	INPN & INPA	PRG	DuncanTwain	7	17	DOWNLOAD FILE
RANS ISK2	INPN & INPA	PRG	DuncanTwain	29	1	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

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

00000000: 01 08 29 08 00 00 8F 20  49 4E 50 41 20 26 20 49  |..).... INPA & I|
00000010: 4E 50 4E 20 28 57 2E 48  41 50 50 2C 20 31 39 38  |NPN (W.HAPP, 198|
00000020: 35 29 20 20 20 20 20 20  3A 00 2F 08 01 00 3A 00  |5)      :./...:.|
00000030: 4F 08 02 00 8F 20 32 20  53 54 41 54 45 4D 45 4E  |O.... 2 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: 20 38 00 78 08 05 00 3A  00 9F 08 06 00 8F 20 4B  | 8.x...:...... K|
00000080: 45 59 57 4F 52 44 20 20  20 20 20 52 4F 55 54 49  |EYWORD     ROUTI|
00000090: 4E 45 20 20 4C 49 4E 45  20 20 53 45 52 20 23 00  |NE  LINE  SER #.|
000000A0: C5 08 07 00 8F 20 53 2F  49 4E 50 41 20 20 20 20  |..... S/INPA    |
000000B0: 20 20 4E 50 41 20 20 20  20 20 31 30 32 31 38 20  |  NPA     10218 |
000000C0: 20 20 31 34 33 00 EB 08  08 00 8F 20 53 2F 49 4E  |  143...... S/IN|
000000D0: 50 4E 20 20 20 20 20 20  4E 50 4E 20 20 20 20 20  |PN      NPN     |
000000E0: 31 30 32 32 34 20 20 20  31 34 34 00 F1 08 09 00  |10224   144.....|
000000F0: 3A 00 18 09 0A 00 8F 3D  3D 3D 3D 3D 3D 3D 3D 3D  |:......=========|
00000100: 3D 3D 3D 3D 3D 3D 3D 3D  3D 3D 3D 3D 3D 3D 3D 3D  |================|
00000110: 3D 3D 3D 3D 3D 3D 3D 3D  00 1E 09 0B 00 3A 00 30  |========.....:.0|
00000120: 09 8E 00 2E C6 20 22 49  4E 50 C1 49 4E 50 CE 22  |..... "INP.INP."|
00000130: 00 45 09 A2 05 2E 57 B0  44 20 4E 50 41 AB 31 2C  |.E....W.D NPA.1,|
00000140: 4E 50 4E AB 31 00 58 09  96 0D 49 4E 4C 32 20 4A  |NPN.1.X...INL2 J|
00000150: 53 52 20 24 41 44 38 46  00 64 09 98 0D 53 54 41  |SR $AD8F.d...STA|
00000160: 20 24 34 39 00 70 09 9A  0D 53 54 59 20 24 34 41  | $49.p...STY $4A|
00000170: 00 7C 09 9C 0D 4C 44 41  20 24 37 41 00 88 09 9E  |.|...LDA $7A....|
00000180: 0D 4C 44 59 20 24 37 42  00 94 09 A0 0D 53 54 41  |.LDY $7B.....STA|
00000190: 20 24 34 42 00 A0 09 A2  0D 53 54 59 20 24 34 43  | $4B.....STY $4C|
000001A0: 00 AC 09 A4 0D 4C 44 58  20 24 34 33 00 B8 09 A6  |.....LDX $43....|
000001B0: 0D 4C 44 59 20 24 34 34  00 C4 09 A8 0D 53 54 58  |.LDY $44.....STX|
000001C0: 20 24 37 41 00 D0 09 AA  0D 53 54 59 20 24 37 42  | $7A.....STY $7B|
000001D0: 00 DC 09 AC 0D 4A 53 52  20 24 37 33 00 E7 09 AE  |.....JSR $73....|
000001E0: 0D 4C 44 41 20 23 30 00  F3 09 B0 0D 53 54 41 20  |.LDA #0.....STA |
000001F0: 24 30 37 00 FF 09 B2 0D  53 54 41 20 24 30 38 00  |$07.....STA $08.|
00000200: 0B 0A B4 0D 4C 44 41 20  24 37 41 00 17 0A B6 0D  |....LDA $7A.....|
00000210: 4C 44 59 20 24 37 42 00  25 0A B8 0D 4A 53 52 20  |LDY $7B.%...JSR |
00000220: 24 42 34 38 44 00 33 0A  BA 0D 4A 53 52 20 24 42  |$B48D.3...JSR $B|
00000230: 37 45 32 00 41 0A BC 0D  4A 53 52 20 24 41 39 44  |7E2.A...JSR $A9D|
00000240: 41 00 4D 0A BE 0D 4C 44  41 20 24 34 42 00 59 0A  |A.M...LDA $4B.Y.|
00000250: C0 0D 4C 44 59 20 24 34  43 00 65 0A C2 0D 53 54  |..LDY $4C.e...ST|
00000260: 41 20 24 37 41 00 71 0A  C4 0D 53 54 59 20 24 37  |A $7A.q...STY $7|
00000270: 42 00 79 0A C6 0D 52 54  53 00 7F 0A C8 0D 3B 00  |B.y...RTS.....;.|
00000280: 90 0A EA 27 4E 50 41 20  4C 44 41 20 23 22 5B 22  |...'NPA LDA #"["|
00000290: 00 9E 0A EC 27 2E 42 59  54 45 20 24 32 43 00 A4  |....'.BYTE $2C..|
000002A0: 0A EE 27 3B 00 B5 0A F0  27 4E 50 4E 20 4C 44 41  |..';....'NPN LDA|
000002B0: 20 23 22 3A 22 00 C0 0A  F2 27 53 54 41 20 54 32  | #":"....'STA T2|
000002C0: 00 CC 0A F4 27 4A 53 52  20 24 37 39 00 D8 0A F6  |....'JSR $79....|
000002D0: 27 42 4E 45 20 4E 50 31  00 E6 0A F8 27 4A 4D 50  |'BNE NP1....'JMP|
000002E0: 20 24 41 46 30 38 00 F7  0A FA 27 4E 50 31 20 43  | $AF08....'NP1 C|
000002F0: 4D 50 20 23 24 32 32 00  03 0B FC 27 42 4E 45 20  |MP #$22....'BNE |
00000300: 4E 50 32 00 11 0B FE 27  4A 53 52 20 24 41 45 42  |NP2....'JSR $AEB|
00000310: 44 00 1E 0B 00 28 4C 44  41 20 23 22 3B 22 00 2C  |D....(LDA #";".,|
00000320: 0B 02 28 4A 53 52 20 24  41 45 46 46 00 3A 0B 04  |..(JSR $AEFF.:..|
00000330: 28 4A 53 52 20 24 41 42  32 31 00 4C 0B 06 28 4E  |(JSR $AB21.L..(N|
00000340: 50 32 20 4A 53 52 20 24  42 33 41 36 00 59 0B 08  |P2 JSR $B3A6.Y..|
00000350: 28 4C 44 41 20 23 22 2C  22 00 67 0B 0A 28 53 54  |(LDA #",".g..(ST|
00000360: 41 20 24 30 31 46 46 00  72 0B 0C 28 4C 44 58 20  |A $01FF.r..(LDX |
00000370: 23 30 00 7D 0B 0E 28 53  54 58 20 54 33 00 89 0B  |#0.}..(STX T3...|
00000380: 10 28 53 54 58 20 24 31  31 00 9A 0B 12 28 4E 50  |.(STX $11....(NP|
00000390: 33 20 4C 44 41 20 23 24  41 34 00 A8 0B 14 28 4A  |3 LDA #$A4....(J|
000003A0: 53 52 20 24 46 46 44 32  00 BA 0B 16 28 4E 50 34  |SR $FFD2....(NP4|
000003B0: 20 4A 53 52 20 24 46 46  45 34 00 C7 0B 18 28 43  | JSR $FFE4....(C|
000003C0: 4D 50 20 23 24 30 44 00  D3 0B 1A 28 42 45 51 20  |MP #$0D....(BEQ |
000003D0: 4E 50 38 00 E0 0B 1C 28  43 4D 50 20 23 24 31 34  |NP8....(CMP #$14|
000003E0: 00 EC 0B 1E 28 42 45 51  20 4E 50 37 00 F9 0B 20  |....(BEQ NP7... |
000003F0: 28 43 4D 50 20 23 24 32  30 00 05 0C 22 28 42 45  |(CMP #$20..."(BE|
00000400: 51 20 4E 50 36 00 12 0C  24 28 43 4D 50 20 23 22  |Q NP6...$(CMP #"|
00000410: 2E 22 00 1E 0C 26 28 42  45 51 20 4E 50 36 00 2B  |."...&(BEQ NP6.+|
00000420: 0C 28 28 43 4D 50 20 23  22 2B 22 00 37 0C 2A 28  |.((CMP #"+".7.*(|
00000430: 42 45 51 20 4E 50 36 00  44 0C 2C 28 43 4D 50 20  |BEQ NP6.D.,(CMP |
00000440: 23 22 2D 22 00 50 0C 2E  28 42 45 51 20 4E 50 36  |#"-".P..(BEQ NP6|
00000450: 00 5B 0C 30 28 4C 44 58  20 54 32 00 68 0C 32 28  |.[.0(LDX T2.h.2(|
00000460: 43 50 58 20 23 22 5B 22  00 74 0C 34 28 42 4E 45  |CPX #"[".t.4(BNE|
00000470: 20 4E 50 35 00 81 0C 36  28 43 4D 50 20 23 22 C1  | NP5...6(CMP #".|
00000480: 22 00 8D 0C 38 28 42 43  43 20 4E 50 35 00 9A 0C  |"...8(BCC NP5...|
00000490: 3A 28 43 4D 50 20 23 24  44 42 00 A6 0C 3C 28 42  |:(CMP #$DB...<(B|
000004A0: 43 43 20 4E 50 36 00 B7  0C 3E 28 4E 50 35 20 43  |CC NP6...>(NP5 C|
000004B0: 4D 50 20 23 22 30 22 00  C3 0C 40 28 42 43 43 20  |MP #"0"...@(BCC |
000004C0: 4E 50 34 00 CE 0C 42 28  43 4D 50 20 54 32 00 DA  |NP4...B(CMP T2..|
000004D0: 0C 44 28 42 43 53 20 4E  50 34 00 EA 0C 46 28 4E  |.D(BCS NP4...F(N|
000004E0: 50 36 20 4C 44 58 20 24  44 33 00 F7 0C 48 28 43  |P6 LDX $D3...H(C|
000004F0: 50 58 20 23 24 34 46 00  03 0D 4A 28 42 43 53 20  |PX #$4F...J(BCS |
00000500: 4E 50 34 00 0B 0D 4C 28  50 48 41 00 18 0D 4E 28  |NP4...L(PHA...N(|
00000510: 4C 44 41 20 23 24 39 44  00 26 0D 50 28 4A 53 52  |LDA #$9D.&.P(JSR|
00000520: 20 24 46 46 44 32 00 2E  0D 52 28 50 4C 41 00 3C  | $FFD2...R(PLA.<|
00000530: 0D 54 28 4A 53 52 20 24  46 46 44 32 00 47 0D 56  |.T(JSR $FFD2.G.V|
00000540: 28 4C 44 58 20 54 33 00  57 0D 58 28 53 54 41 20  |(LDX T3.W.X(STA |
00000550: 24 30 32 30 30 2C 58 00  62 0D 5A 28 49 4E 43 20  |$0200,X.b.Z(INC |
00000560: 54 33 00 6E 0D 5C 28 42  4E 45 20 4E 50 33 00 7D  |T3.n.\(BNE NP3.}|
00000570: 0D 5E 28 4E 50 37 20 4C  44 58 20 54 33 00 89 0D  |.^(NP7 LDX T3...|
00000580: 60 28 42 45 51 20 4E 50  34 00 97 0D 62 28 4A 53  |`(BEQ NP4...b(JS|
00000590: 52 20 24 46 46 44 32 00  A5 0D 64 28 4A 53 52 20  |R $FFD2...d(JSR |
000005A0: 24 46 46 44 32 00 B0 0D  66 28 44 45 43 20 54 33  |$FFD2...f(DEC T3|
000005B0: 00 BC 0D 68 28 42 50 4C  20 4E 50 33 00 CD 0D 6A  |...h(BPL NP3...j|
000005C0: 28 4E 50 38 20 4C 44 41  20 23 24 31 34 00 DB 0D  |(NP8 LDA #$14...|
000005D0: 6C 28 4A 53 52 20 24 46  46 44 32 00 E6 0D 6E 28  |l(JSR $FFD2...n(|
000005E0: 4C 44 58 20 54 33 00 F4  0D 70 28 4A 53 52 20 24  |LDX T3...p(JSR $|
000005F0: 41 41 43 41 00 00 0E 72  28 53 54 58 20 24 34 33  |AACA...r(STX $43|
00000600: 00 0C 0E 74 28 53 54 59  20 24 34 34 00 17 0E 76  |...t(STY $44...v|
00000610: 28 4C 44 58 20 54 33 00  23 0E 78 28 42 4E 45 20  |(LDX T3.#.x(BNE |
00000620: 4E 50 39 00 31 0E 7A 28  4A 4D 50 20 24 41 42 46  |NP9.1.z(JMP $ABF|
00000630: 33 00 43 0E 7C 28 4E 50  39 20 4A 53 52 20 24 42  |3.C.|(NP9 JSR $B|
00000640: 30 38 42 00 4B 0E 7E 28  50 48 41 00 57 0E 80 28  |08B.K.~(PHA.W..(|
00000650: 4A 53 52 20 24 37 39 00  64 0E 82 28 42 45 51 20  |JSR $79.d..(BEQ |
00000660: 4E 50 31 30 00 72 0E 84  28 4A 4D 50 20 24 41 46  |NP10.r..(JMP $AF|
00000670: 30 38 00 7F 0E 86 28 4E  50 31 30 20 50 4C 41 00  |08....(NP10 PLA.|
00000680: 8A 0E 88 28 4C 44 58 20  54 32 00 97 0E 8A 28 43  |...(LDX T2....(C|
00000690: 50 58 20 23 22 5B 22 00  A4 0E 8C 28 42 4E 45 20  |PX #"["....(BNE |
000006A0: 4E 50 31 31 00 B1 0E 8E  28 4A 4D 50 20 49 4E 4C  |NP11....(JMP INL|
000006B0: 32 00 C4 0E 90 28 4E 50  31 31 20 4A 4D 50 20 24  |2....(NP11 JMP $|
000006C0: 41 43 31 38 00 CA 0E 92  28 3B 00 00 00           |AC18....(;...   |

..).... INPA & INPN (W.HAPP, 1985)      
:./...:.O.... 2 STATEMENTS, 0 FUNCTIONS.
U...:.R.... KEYWORD CHARACTERS:  8.X...:
...... KEYWORD     ROUTINE  LINE  SER #.
E.... S/INPA      NPA     10218   143...
... S/INPN      NPN     10224   144.....
:......=================================
.....:.0....F "INPAINPN".E....W.D NPA.1,
NPN.1.X...INL2 JSR $AD8F.D...STA $49.P..
.STY $4A.|...LDA $7A.....LDY $7B... .STA
 $4B. ...STY $4C.....LDX $43.....LDY $44
.D...STX $7A.P...STY $7B.....JSR $73....
.LDA #0.....STA $07.....STA $08.....LDA 
$7A.....LDY $7B.%...JSR $B48D.3...JSR $B
7E2.A...JSR $A9DA.M...LDA $4B.Y...LDY $4
C.E.B.STA $7A.Q.D.STY $7B.Y.F.RTS..H.;.
...'NPA LDA #"["....'.BYTE $2C....';....
'NPN LDA #":"....'STA T2.L..'JSR $79.X..
'BNE NP1....'JMP $AF08....'NP1 CMP #$22.
...'BNE NP2....'JSR $AEBD....(LDA #";".,
..(JSR $AEFF.:..(JSR $AB21.L..(NP2 JSR $
B3A6.Y..(LDA #",".G..(STA $01FF.R..(LDX 
#0.}..(STX T3....(STX $11....(NP3 LDA #$
A4....(JSR $FFD2....(NP4 JSR $FFE4.G..(C
MP #$0D.S..(BEQ NP8....(CMP #$14....(BEQ
 NP7... (CMP #$20..."(BEQ NP6...$(CMP #"
."...&(BEQ NP6.+.((CMP #"+".7.*(BEQ NP6.
D.,(CMP #"-".P..(BEQ NP6.[.0(LDX T2.H.2(
CPX #"[".T.4(BNE NP5...6(CMP #"A"...8(BC
C NP5...:(CMP #$DB...<(BCC NP6...>(NP5 C
MP #"0".C.@(BCC NP4.N.B(CMP T2.Z.D(BCS N
P4...F(NP6 LDX $D3...H(CPX #$4F...J(BCS 
NP4...L(PHA...N(LDA #$9D.&.P(JSR $FFD2..
.R(PLA.<.T(JSR $FFD2.G.V(LDX T3.W.X(STA 
$0200,X.B.Z(INC T3.N.\(BNE NP3.}.^(NP7 L
DX T3...`(BEQ NP4...B(JSR $FFD2...D(JSR 
$FFD2...F(DEC T3...H(BPL NP3.M.J(NP8 LDA
 #$14...L(JSR $FFD2...N(LDX T3...P(JSR $
AACA...R(STX $43...T(STY $44...V(LDX T3.
#.X(BNE NP9.1.Z(JMP $ABF3.C.|(NP9 JSR $B
08B.K.~(PHA.W..(JSR $79.D..(BEQ NP10.R..
(JMP $AF08...(NP10 PLA....(LDX T2....(C
PX #"["....(BNE NP11....(JMP INL2.D..(NP
11 JMP $AC18.J..(;...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL