M1351.128.BAS

FILE INFORMATION

FILENAME(S): M1351.128.BAS

FILE TYPE(S): PRG

FILE SIZE: 826b

FIRST SEEN: 2025-10-20 14:30:19

APPEARS ON: 6 disk(s)

FILE HASH

1493884194ed5ce369ec4afb2ebff9d4be02a46dc01e843aeb78d6dbe9640cfc

FOUND ON DISKS (6 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	ACTIONS
1351 MOUSE DEMOS	M1351.128.BAS	PRG	DuncanTwain, Sailor, Pbv, Treasure Chest - Klaus Der Suhler	20	DOWNLOAD FILE
DISK 50 SEITE A	M1351.128.BAS	PRG	Treasure Chest - Klaus Der Suhler	20	DOWNLOAD FILE
1351 MOUSE DEMOS	M1351.128.BAS	PRG	BrainSkull, Thomas Marosits	20	DOWNLOAD FILE
1351 MOUSE DEMO	M1351.128.BAS	PRG	Sailor, Pbv	16	DOWNLOAD FILE
1351 MOUSE DEMOS	M1351.128.BAS	PRG	DuncanTwain	20	DOWNLOAD FILE
1351 MOUSE DEMOS	M1351.128.BAS	PRG	DuncanTwain	20	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 01 1C 30 1C 0A 00 8F 20  46 24 3D 22 4D 31 33 35  |..0.... F$="M135|
00000010: 31 2E 31 32 38 2E 42 41  53 22 3A 53 43 52 41 54  |1.128.BAS":SCRAT|
00000020: 43 48 28 46 24 29 3A 44  53 41 56 45 28 46 24 29  |CH(F$):DSAVE(F$)|
00000030: 00 65 1C 14 00 99 22 50  4F 52 54 20 28 31 2F 32  |.e...."PORT (1/2|
00000040: 29 20 3F 20 22 3B 3A EB  3A A1 50 24 3A 50 B2 C5  |) ? ";:.:.P$:P..|
00000050: 28 50 24 29 AB 31 3A EC  FC 50 B2 30 B0 50 B2 31  |(P$).1:..P.0.P.1|
00000060: 3A 99 50 AA 31 00 9D 1C  1E 00 97 D1 28 22 46 45  |:.P.1.......("FE|
00000070: 22 29 2C 50 3A 20 20 20  20 20 20 20 20 20 20 20  |"),P:           |
00000080: 20 20 20 20 20 20 20 20  20 20 8F 20 20 53 41 56  |          .  SAV|
00000090: 45 20 50 4F 52 54 20 43  48 4F 49 53 45 00 D7 1C  |E PORT CHOISE...|
000000A0: 28 00 FE 11 20 22 4D 4F  55 53 45 2E 50 4F 49 4E  |(... "MOUSE.POIN|
000000B0: 54 45 52 22 3A 20 20 20  20 20 20 20 20 20 20 20  |TER":           |
000000C0: 20 20 20 20 8F 20 20 4C  4F 41 44 20 53 50 52 49  |    .  LOAD SPRI|
000000D0: 54 45 20 44 41 54 41 00  12 1D 32 00 FE 11 20 22  |TE DATA...2... "|
000000E0: 4D 31 33 35 31 2E 31 32  38 2E 42 49 4E 22 3A 20  |M1351.128.BIN": |
000000F0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 8F 20  |              . |
00000100: 20 4C 4F 41 44 20 4D 4F  55 53 45 20 44 52 49 56  | LOAD MOUSE DRIV|
00000110: 45 52 00 48 1D 3C 00 FE  07 20 31 2C 31 2C 32 3A  |ER.H.<... 1,1,2:|
00000120: FE 06 31 2C 31 30 30 2C  31 30 30 3A 20 20 20 20  |..1,100,100:    |
00000130: 20 20 20 20 8F 20 20 54  55 52 4E 20 4F 4E 20 53  |    .  TURN ON S|
00000140: 50 52 49 54 45 20 23 31  00 89 1D 46 00 9E 20 D1  |PRITE #1...F.. .|
00000150: 28 22 31 38 30 30 22 29  AA 50 AC 33 3A 20 20 20  |("1800").P.3:   |
00000160: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 8F 20  |              . |
00000170: 20 49 4E 53 54 41 4C 4C  20 4D 4F 55 53 45 20 49  | INSTALL MOUSE I|
00000180: 52 51 20 44 52 49 56 45  52 00 B2 1D 50 00 58 46  |RQ DRIVER...P.XF|
00000190: B2 32 35 3A 59 46 B2 35  31 3A 55 B2 31 3A 50 B2  |.25:YF.51:U.1:P.|
000001A0: C2 28 D1 28 22 46 45 22  29 29 AA 31 3A D7 20 39  |.(.("FE")).1:. 9|
000001B0: 30 30 00 DB 1D 5A 00 DE  31 2C 31 3A E0 2C 38 2C  |00...Z..1,1:.,8,|
000001C0: 31 2C 22 42 41 53 49 43  20 43 48 45 41 50 4F 20  |1,"BASIC CHEAPO |
000001D0: 50 41 49 4E 54 20 28 54  4D 29 22 00 E1 1D 64 00  |PAINT (TM)"...d.|
000001E0: EB 00 14 1E 6E 00 EB 3A  A1 41 24 3A EC FC CF 28  |....n..:.A$:...(|
000001F0: 50 29 B0 41 24 B2 22 20  22 3A 8B CF 28 50 29 B2  |P).A$." ":..(P).|
00000200: 31 32 38 A7 31 33 30 3A  D5 8B CF 28 50 29 B2 55  |128.130:...(P).U|
00000210: A7 8A 38 30 00 31 1E 78  00 E7 31 2C 28 CD 28 31  |..80.1.x..1,(.(1|
00000220: 29 AF 31 35 29 AA 31 3A  E7 34 2C CD 28 31 29 3A  |).15).1:.4,.(1):|
00000230: EC 00 58 1E 82 00 E6 CE  05 28 55 2C 2E 29 AB 58  |..X......(U,.).X|
00000240: 46 2C CE 05 28 55 2C 55  29 AB 59 46 3A 43 B2 A8  |F,..(U,U).YF:C..|
00000250: 28 D0 28 32 29 29 AF 31  00 80 1E 8C 00 EB 3A E5  |(.(2)).1......:.|
00000260: 43 A4 CE 05 28 55 2C 2E  29 AB 58 46 2C CE 05 28  |C...(U,.).XF,..(|
00000270: 55 2C 55 29 AB 59 46 3A  EC FD CF 28 50 29 3A EC  |U,U).YF:...(P):.|
00000280: 00 86 1E 96 00 3A 00 BF  1E 84 03 8B 45 52 B2 31  |.....:......ER.1|
00000290: 34 A7 D6 3A 20 20 20 20  20 20 20 20 20 20 20 20  |4..:            |
000002A0: 20 20 20 20 20 20 8F 20  20 49 47 4E 4F 52 45 20  |      .  IGNORE |
000002B0: 4E 45 47 41 54 49 56 45  20 43 4F 4F 52 44 53 00  |NEGATIVE COORDS.|
000002C0: FD 1E 8E 03 9E D1 28 22  31 38 30 36 22 29 3A 20  |......("1806"): |
000002D0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000002E0: 20 20 20 20 8F 20 20 52  45 4D 4F 56 45 20 4D 4F  |    .  REMOVE MO|
000002F0: 55 53 45 20 49 52 51 20  57 45 44 47 45 00 2F 1F  |USE IRQ WEDGE./.|
00000300: 98 03 EB 3A A1 41 24 3A  EC FC 41 24 B2 22 22 3A  |...:.A$:..A$."":|
00000310: 20 20 20 20 20 20 20 20  20 20 20 20 8F 20 20 45  |            .  E|
00000320: 4D 50 54 59 20 4B 45 59  20 42 55 46 46 45 52 00  |MPTY KEY BUFFER.|
00000330: 37 1F A2 03 D7 3A 80 00  00 00                    |7....:....      |

..0.... F$="M1351.128.BAS":SCRATCH(F$):D
SAVE(F$).E...."PORT (1/2) ? ";:.:.P$:P.E
(P$).1:..P.0.P.1:.P.1......Q("FE"),P:   
                  .  SAVE PORT CHOISE.W.
(... "MOUSE.POINTER":               .  L
OAD SPRITE DATA...2... "M1351.128.BIN": 
              .  LOAD MOUSE DRIVER.H.<..
. 1,1,2:..1,100,100:        .  TURN ON S
PRITE #1...F.. Q("1800").P.3:           
      .  INSTALL MOUSE IRQ DRIVER...P.XF
.25:YF.51:U.1:P.B(Q("FE")).1:W 900...Z..
1,1:.,8,1,"BASIC CHEAPO PAINT (TM)"...D.
....N..:.A$:..O(P).A$." ":.O(P).128.130:
U.O(P).U..80.1.X..1,(M(1).15).1:.4,M(1):
..X....N.(U,.).XF,N.(U,U).YF:C..(P(2)).1
......:.C.N.(U,.).XF,N.(U,U).YF:..O(P):.
.....:......ER.14.V:                  . 
 IGNORE NEGATIVE COORDS......Q("1806"): 
                    .  REMOVE MOUSE IRQ 
WEDGE./....:.A$:..A$."":            .  E
MPTY KEY BUFFER.7...W:....

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL