00000000: 01 1C 26 1C 64 00 8F 20 41 20 31 33 35 31 20 4D |..&.d.. A 1351 M|
00000010: 4F 55 53 45 20 44 45 4D 4F 20 46 4F 52 20 54 48 |OUSE DEMO FOR TH|
00000020: 45 20 43 31 32 38 00 41 1C 6E 00 8F 20 20 31 30 |E C128.A.n.. 10|
00000030: 2F 31 36 2F 38 36 20 46 52 45 44 20 42 4F 57 45 |/16/86 FRED BOWE|
00000040: 4E 00 47 1C 78 00 8F 00 5C 1C 82 00 FE 11 22 53 |N.G.x...\....."S|
00000050: 50 52 49 54 45 53 2E 30 45 30 30 22 00 71 1C 8C |PRITES.0E00".q..|
00000060: 00 FE 11 22 4D 4F 55 53 45 31 32 38 2E 42 49 4E |..."MOUSE128.BIN|
00000070: 22 00 98 1C 96 00 9E D1 28 22 31 38 30 30 22 29 |".......("1800")|
00000080: 3A 20 8F 20 54 55 52 4E 20 4F 4E 20 4D 4F 55 53 |: . TURN ON MOUS|
00000090: 45 20 44 52 49 56 45 52 00 9E 1C A0 00 3A 00 AA |E DRIVER.....:..|
000000A0: 1C AA 00 DE 30 2C 31 3A 20 8C 00 C6 1C B4 00 81 |....0,1: .......|
000000B0: 49 B2 31 A4 38 3A 20 87 20 58 2C 59 2C 43 2C 45 |I.1.8: . X,Y,C,E|
000000C0: 2C 53 24 28 49 29 00 E4 1C BE 00 3A 20 20 20 FE |,S$(I).....: .|
000000D0: 06 49 2C 58 2C 59 3A 20 FE 07 49 2C 31 2C 43 2C |.I,X,Y: ..I,1,C,|
000000E0: 2C 45 2C 45 00 EE 1C C8 00 3A 20 20 20 82 00 F6 |,E,E.....: ...|
000000F0: 1C D2 00 54 B2 30 00 1B 1D DC 00 EB 3A 20 53 B2 |...T.0......: S.|
00000100: B5 28 BB 28 31 29 AC 37 AA 32 29 3A 20 50 B2 B5 |.(.(1).7.2): P..|
00000110: 28 32 AE 28 53 AB 31 29 AA 31 29 00 58 1D E6 00 |(2.(S.1).1).X...|
00000120: 3A 20 20 20 E0 20 2C 35 2C 32 31 2C 22 9B 57 48 |: . ,5,21,".WH|
00000130: 49 43 48 20 4F 46 20 54 48 45 53 45 20 49 53 20 |ICH OF THESE IS |
00000140: 41 20 05 22 AA 53 24 28 53 29 AA 22 3F 22 AA C7 |A .".S$(S)."?"..|
00000150: 28 32 37 29 AA 22 40 22 00 83 1D F0 00 3A 20 20 |(27)."@".....: |
00000160: 20 EB 3A A1 41 24 3A 20 58 B2 CE 03 28 31 29 3A | .:.A$: X...(1):|
00000170: 20 EC 20 FC 20 CF 28 31 29 B2 31 32 38 20 AF 20 | . . .(1).128 . |
00000180: 58 B1 30 00 B3 1D FA 00 3A 20 20 20 20 20 20 8B |X.0.....: .|
00000190: 20 58 B3 B1 50 20 A7 20 8D 33 39 30 3A 20 58 B2 | X..P . .390: X.|
000001A0: CE 03 28 31 29 3A 20 89 32 34 30 3A 20 D5 20 8D |..(1): .240: . .|
000001B0: 34 31 30 00 CD 1D 04 01 3A 20 20 20 20 20 20 54 |410.....: T|
000001C0: B2 54 AA 31 3A 20 EC 20 FC 54 B1 31 35 00 D3 1D |.T.1: . .T.15...|
000001D0: 0E 01 3A 00 EE 1D 18 01 DE 30 2C 31 3A 20 81 49 |..:......0,1: .I|
000001E0: B2 32 A4 38 3A 20 FE 07 49 2C 30 3A 20 82 00 04 |.2.8: ..I,0: ...|
000001F0: 1E 22 01 81 49 B2 30 A4 39 3A 20 87 53 24 28 49 |."..I.0.9: .S$(I|
00000200: 29 3A 20 82 00 33 1E 2C 01 54 B2 30 3A 20 E0 2C |): ..3.,.T.0: .,|
00000210: 36 2C 36 2C 22 9E 30 20 20 31 20 20 32 20 20 33 |6,6,".0 1 2 3|
00000220: 20 20 34 20 20 35 20 20 36 20 20 37 20 20 38 20 | 4 5 6 7 8 |
00000230: 20 39 22 00 4F 1E 36 01 EB 3A 20 53 B2 B5 28 BB | 9".O.6..: S..(.|
00000240: 28 31 29 AC 31 30 29 3A 20 50 B2 53 AA 34 38 00 |(1).10): P.S.48.|
00000250: 8F 1E 40 01 3A 20 20 20 E0 2C 34 2C 32 31 2C 22 |..@.: .,4,21,"|
00000260: 9B 50 4F 49 4E 54 20 26 20 43 4C 49 43 4B 20 4F |.POINT & CLICK O|
00000270: 4E 20 54 48 45 20 4E 55 4D 42 45 52 20 05 22 AA |N THE NUMBER .".|
00000280: 53 24 28 53 29 AA C7 28 32 37 29 AA 22 40 22 00 |S$(S)..(27)."@".|
00000290: AB 1E 4A 01 3A 20 20 20 EB 3A A1 41 24 3A 20 EC |..J.: .:.A$: .|
000002A0: 20 FC 20 CF 28 31 29 B2 31 32 38 00 E4 1E 54 01 | . .(1).128...T.|
000002B0: 3A 20 20 20 20 20 20 58 B2 31 30 32 34 AA 28 CE |: X.1024.(.|
000002C0: 05 28 31 2C 30 29 AB 32 34 29 AD 38 3A 20 59 B2 |.(1,0).24).8: Y.|
000002D0: B5 28 28 CE 05 28 31 2C 31 29 AB 35 30 29 AD 38 |.((..(1,1).50).8|
000002E0: 29 AC 34 30 00 10 1F 5E 01 3A 20 20 20 20 20 20 |).40...^.: |
000002F0: 8B 20 C2 28 58 AA 59 29 B3 B1 50 20 A7 20 8D 33 |. .(X.Y)..P . .3|
00000300: 39 30 3A 20 89 33 33 30 3A 20 D5 20 8D 34 31 30 |90: .330: . .410|
00000310: 00 2A 1F 68 01 3A 20 20 20 20 20 20 54 B2 54 AA |.*.h.: T.T.|
00000320: 31 3A 20 EC 20 FC 54 B1 31 35 00 66 1F 72 01 89 |1: . .T.15.f.r..|
00000330: 31 37 30 3A 20 20 20 20 20 20 20 20 20 20 20 20 |170: |
00000340: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000350: 20 20 20 FE 18 20 57 49 54 48 20 54 45 53 54 31 | .. WITH TEST1|
00000360: 20 41 47 41 49 4E 00 6C 1F 7C 01 3A 00 9E 1F 86 | AGAIN.l.|.:....|
00000370: 01 E0 2C 31 37 2C 32 33 2C 22 9E 57 52 4F 4E 47 |..,17,23,".WRONG|
00000380: 21 9B 22 3A 20 DA 31 2C 35 30 30 2C 35 30 3A 20 |!.": .1,500,50: |
00000390: FE 0B 31 3A 20 99 C7 28 32 37 29 22 44 22 00 A4 |..1: ..(27)"D"..|
000003A0: 1F 8B 01 8E 00 AA 1F 90 01 3A 00 C5 1F 9A 01 DA |.........:......|
000003B0: 31 2C 31 38 30 30 30 2C 35 30 2C 32 2C 33 32 30 |1,18000,50,2,320|
000003C0: 30 30 2C 31 30 00 F1 1F A4 01 81 49 B2 30 A4 33 |00,10......I.0.3|
000003D0: 31 3A E7 35 2C 28 49 AF 31 35 29 AA 31 3A E0 2C |1:.5,(I.15).1:.,|
000003E0: 31 37 2C 32 33 2C 22 52 49 47 48 54 21 9B 22 3A |17,23,"RIGHT!.":|
000003F0: 82 00 F7 1F AE 01 8E 00 FD 1F B8 01 3A 00 39 20 |............:.9 |
00000400: E8 03 83 20 31 30 30 2C 31 30 30 2C 32 20 2C 30 |... 100,100,2 ,0|
00000410: 2C 50 4F 49 4E 54 45 52 20 20 3A 8F 20 20 58 2C |,POINTER :. X,|
00000420: 59 2C 43 4F 4C 4F 52 2C 45 58 50 41 4E 44 2C 53 |Y,COLOR,EXPAND,S|
00000430: 48 41 50 45 20 4E 41 4D 45 00 53 20 F2 03 83 20 |HAPE NAME.S ... |
00000440: 36 30 20 2C 36 30 20 2C 31 31 2C 31 2C 43 49 52 |60 ,60 ,11,1,CIR|
00000450: 43 4C 45 00 6F 20 FC 03 83 20 31 36 30 2C 36 32 |CLE.o ... 160,62|
00000460: 20 2C 35 20 2C 31 2C 54 52 49 41 4E 47 4C 45 00 | ,5 ,1,TRIANGLE.|
00000470: 89 20 06 04 83 20 32 35 35 2C 36 32 20 2C 31 34 |. ... 255,62 ,14|
00000480: 2C 31 2C 45 4C 49 50 53 45 00 A3 20 10 04 83 20 |,1,ELIPSE.. ... |
00000490: 31 36 30 2C 31 31 30 2C 38 20 2C 31 2C 53 51 55 |160,110,8 ,1,SQU|
000004A0: 41 52 45 00 C0 20 1A 04 83 20 36 30 20 2C 31 36 |ARE.. ... 60 ,16|
000004B0: 30 2C 36 20 2C 31 2C 52 45 43 54 41 4E 47 4C 45 |0,6 ,1,RECTANGLE|
000004C0: 00 DB 20 24 04 83 20 31 36 30 2C 31 36 30 2C 34 |.. $.. 160,160,4|
000004D0: 20 2C 31 2C 44 49 41 4D 4F 4E 44 00 F4 20 2E 04 | ,1,DIAMOND.. ..|
000004E0: 83 20 32 35 35 2C 31 36 30 2C 31 35 2C 31 2C 43 |. 255,160,15,1,C|
000004F0: 52 4F 53 53 00 2C 21 38 04 83 20 5A 45 52 4F 2C |ROSS.,!8.. ZERO,|
00000500: 4F 4E 45 2C 54 57 4F 2C 54 48 52 45 45 2C 46 4F |ONE,TWO,THREE,FO|
00000510: 55 52 2C 46 49 56 45 2C 53 49 58 2C 53 45 56 45 |UR,FIVE,SIX,SEVE|
00000520: 4E 2C 45 49 47 48 54 2C 4E 49 4E 45 00 00 00 |N,EIGHT,NINE... |
..&.D.. A 1351 MOUSE DEMO FOR THE C128.A
.N.. 10/16/86 FRED BOWEN.G.X...\....."S
PRITES.0E00".Q....."MOUSE128.BIN"......Q
("1800"): . TURN ON MOUSE DRIVER... .:..
....0,1: ..F....I.1.8: . X,Y,C,E,S$(I)..
...: ..I,X,Y: ..I,1,C,,E,E...H.: ...
.R.T.0......: S..(.(1).7.2): P..(2.(S.1)
.1).X...: . ,5,21,".WHICH OF THESE IS
A .".S$(S)."?".G(27)."@".....: .:.A$:
X.N.(1): . . O(1).128 . X.0.....: .
X..P . .390: X.N.(1): .240: U .410.M...
: T.T.1: . .T.15.S...:......0,1: .I
.2.8: ..I,0: ...."..I.0.9: .S$(I): ..3.,
.T.0: .,6,6,".0 1 2 3 4 5 6 7 8
9".O.6..: S..(.(1).10): P.S.48...@.:
.,4,21,".POINT & CLICK ON THE NUMBER .".
S$(S).G(27)."@"...J.: .:.A$: . . O(1).
128...T.: X.1024.(N.(1,0).24).8: Y.
.((N.(1,1).50).8).40...^.: . B(X.Y)
..P . .390: .330: U .410.*.H.: T.T.
1: . .T.15.F.R..170:
.. WITH TEST1 AGAIN.L.|.:....
..,17,23,".WRONG!.": Z1,500,50: ..1: .G(
27)"D"...........:.E...Z1,18000,50,2,320
00,10......I.0.31:.5,(I.15).1:.,17,23,"R
IGHT!.":............:.9 ... 100,100,2 ,0
,POINTER :. X,Y,COLOR,EXPAND,SHAPE NAM
E.S ... 60 ,60 ,11,1,CIRCLE.O ... 160,62
,5 ,1,TRIANGLE.. ... 255,62 ,14,1,ELIPS
E.. ... 160,110,8 ,1,SQUARE.. ... 60 ,16
0,6 ,1,RECTANGLE.. $.. 160,160,4 ,1,DIAM
OND.. ... 255,160,15,1,CROSS.,!8.. ZERO,
ONE,TWO,THREE,FOUR,FIVE,SIX,SEVEN,EIGHT,
NINE...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL