00000000: 39 30 30 30 20 46 55 4E 43 20 42 49 54 27 4D 4C |9000 FUNC BIT'ML|
00000010: 28 4E 2C 4D 2C 4F 29 20 43 4C 4F 53 45 44 0D 39 |(N,M,O) CLOSED.9|
00000020: 30 31 30 20 50 4F 4B 45 20 32 30 34 35 2C 31 36 |010 POKE 2045,16|
00000030: 39 0D 39 30 32 30 20 50 4F 4B 45 20 32 30 34 36 |9.9020 POKE 2046|
00000040: 2C 4E 0D 39 30 33 30 20 50 4F 4B 45 20 32 30 34 |,N.9030 POKE 204|
00000050: 37 2C 4F 0D 39 30 34 30 20 50 4F 4B 45 20 32 30 |7,O.9040 POKE 20|
00000060: 34 38 2C 4D 0D 39 30 35 30 20 50 4F 4B 45 20 32 |48,M.9050 POKE 2|
00000070: 30 34 39 2C 31 34 31 0D 39 30 36 30 20 50 4F 4B |049,141.9060 POK|
00000080: 45 20 32 30 35 30 2C 32 33 32 0D 39 30 37 30 20 |E 2050,232.9070 |
00000090: 50 4F 4B 45 20 32 30 35 31 2C 37 0D 39 30 38 30 |POKE 2051,7.9080|
000000A0: 20 50 4F 4B 45 20 32 30 35 32 2C 39 36 0D 39 30 | POKE 2052,96.90|
000000B0: 39 30 20 53 59 53 20 32 30 34 35 0D 39 31 30 30 |90 SYS 2045.9100|
000000C0: 20 52 45 54 55 52 4E 20 50 45 45 4B 28 32 30 32 | RETURN PEEK(202|
000000D0: 34 29 0D 39 31 31 30 20 45 4E 44 46 55 4E 43 20 |4).9110 ENDFUNC |
000000E0: 42 49 54 27 4D 4C 0D |BIT'ML. |
9000 FUNC BIT'ML(N,M,O) CLOSED.9010 POKE
2045,169.9020 POKE 2046,N.9030 POKE 204
7,O.9040 POKE 2048,M.9050 POKE 2049,141.
9060 POKE 2050,232.9070 POKE 2051,7.9080
POKE 2052,96.9090 SYS 2045.9100 RETURN
PEEK(2024).9110 ENDFUNC BIT'ML.
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL