00000000: 01 40 21 40 10 27 8F 20 3B 2D 2D 2D 2D 2D 2D 4D |.@!@.'. ;------M|
00000010: 45 4E 55 45 20 52 4F 55 54 49 4E 45 2D 2D 2D 2D |ENUE ROUTINE----|
00000020: 2D 00 36 40 1A 27 99 22 93 05 22 3A 99 3A 4D B2 |-.6@.'."..":.:M.|
00000030: 31 3A 4D 4F B2 31 00 53 40 24 27 21 42 41 52 45 |1:MO.1.S@$'!BARE|
00000040: 4E 42 20 31 3A 21 42 41 52 53 45 54 20 30 2C 31 |NB 1:!BARSET 0,1|
00000050: 2C 31 37 00 6B 40 2E 27 21 42 41 52 4D 4F 56 20 |,17.k@.'!BARMOV |
00000060: 30 3A 21 42 41 52 57 44 45 20 39 00 8C 40 38 27 |0:!BARWDE 9..@8'|
00000070: 21 42 41 52 43 4F 4C 20 30 2C 30 2C 36 3A 21 42 |!BARCOL 0,0,6:!B|
00000080: 41 52 43 4F 4C 20 30 2C 31 2C 31 31 00 AE 40 42 |ARCOL 0,1,11..@B|
00000090: 27 21 42 41 52 43 4F 4C 20 30 2C 32 2C 31 34 3A |'!BARCOL 0,2,14:|
000000A0: 21 42 41 52 43 4F 4C 20 30 2C 33 2C 31 35 00 CF |!BARCOL 0,3,15..|
000000B0: 40 4C 27 21 42 41 52 43 4F 4C 20 30 2C 34 2C 37 |@L'!BARCOL 0,4,7|
000000C0: 3A 21 42 41 52 43 4F 4C 20 30 2C 35 2C 31 35 00 |:!BARCOL 0,5,15.|
000000D0: FF 40 56 27 21 42 41 52 43 4F 4C 20 30 2C 36 2C |.@V'!BARCOL 0,6,|
000000E0: 31 34 3A 21 42 41 52 43 4F 4C 20 30 2C 37 2C 31 |14:!BARCOL 0,7,1|
000000F0: 31 3A 21 42 41 52 43 4F 4C 20 30 2C 38 2C 36 00 |1:!BARCOL 0,8,6.|
00000100: 0D 41 60 27 81 58 B2 31 20 A4 20 4D 5A 00 1C 41 |.A`'.X.1 . MZ..A|
00000110: 6A 27 99 4D 24 28 58 29 3A 99 3A 82 00 3C 41 74 |j'.M$(X):.:..<At|
00000120: 27 4A 4F 59 B2 C2 28 35 36 33 32 30 29 3A 8B 4A |'JOY..(56320):.J|
00000130: 4F 59 B2 31 32 37 A7 31 30 31 30 30 00 5A 41 7E |OY.127.10100.ZA~|
00000140: 27 8B 20 28 4A 4F 59 20 AF 20 31 29 B2 30 A7 52 |'. (JOY . 1).0.R|
00000150: B2 AB 31 3A 89 31 30 31 35 30 00 79 41 88 27 8B |..1:.10150.yA.'.|
00000160: 20 28 4A 4F 59 20 AF 20 32 29 B2 30 20 A7 52 B2 | (JOY . 2).0 .R.|
00000170: AA 31 3A 89 31 30 31 35 30 00 8B 41 92 27 8B 20 |.1:.10150..A.'. |
00000180: 4A 4F 59 B2 31 31 31 20 A7 20 8E 00 97 41 9C 27 |JOY.111 . ...A.'|
00000190: 89 20 31 30 31 30 30 00 B5 41 A6 27 4D B2 4D AA |. 10100..A.'M.M.|
000001A0: 52 3A 8B 20 4D B3 31 20 A7 20 4D B2 31 3A 89 20 |R:. M.1 . M.1:. |
000001B0: 31 30 31 30 30 00 CF 41 B0 27 8B 20 4D B1 4D 5A |10100..A.'. M.MZ|
000001C0: 20 A7 20 4D B2 4D 5A 3A 89 20 31 30 31 30 30 00 | . M.MZ:. 10100.|
000001D0: E8 41 B5 27 8B 20 52 B2 AA 31 20 A7 20 52 B2 30 |.A.'. R..1 . R.0|
000001E0: 3A 89 20 31 30 31 37 30 00 F1 41 B8 27 52 B2 31 |:. 10170..A.'R.1|
000001F0: 3A 00 27 42 BA 27 21 42 41 52 4D 4F 56 30 3A 21 |:.'B.'!BARMOV0:!|
00000200: 4D 4F 56 50 41 52 20 30 2C 31 2C 32 2C 4D AC 31 |MOVPAR 0,1,2,M.1|
00000210: 36 2C 4D AC 31 36 2C 52 2C 4D 4F AC 31 36 3A 21 |6,M.16,R,MO.16:!|
00000220: 42 41 52 4D 4F 56 31 00 38 42 C4 27 4D 4F B2 4D |BARMOV1.8B.'MO.M|
00000230: 3A 89 20 31 30 31 30 30 00 5D 42 CE 27 8F 20 3B |:. 10100.]B.'. ;|
00000240: 2D 2D 2D 2D 2D 20 50 41 52 41 4D 54 45 52 2D 52 |----- PARAMTER-R|
00000250: 45 53 45 54 20 2D 2D 2D 2D 2D 2D 2D 2D 00 73 42 |ESET --------.sB|
00000260: D8 27 21 50 41 52 52 53 54 3A 21 52 4F 55 54 49 |.'!PARRST:!ROUTI|
00000270: 4E 20 31 00 8E 42 E2 27 81 58 B2 30 A4 36 3A 21 |N 1..B.'.X.0.6:!|
00000280: 42 41 52 53 45 54 20 58 2C 30 2C 30 3A 82 00 9D |BARSET X,0,0:...|
00000290: 42 EC 27 97 20 34 37 37 35 2C 32 30 36 00 A3 42 |B.'. 4775,206..B|
000002A0: F6 27 8E 00 C7 42 00 28 8F 20 3B 2D 2D 2D 2D 2D |.'...B.(. ;-----|
000002B0: 20 57 49 4E 44 4F 57 20 4F 50 45 4E 20 2D 2D 2D | WINDOW OPEN ---|
000002C0: 2D 2D 2D 2D 2D 2D 2D 00 E9 42 14 28 21 55 4E 49 |-------..B.(!UNI|
000002D0: 43 50 59 20 30 2C 31 30 32 34 2C 31 30 32 34 AA |CPY 0,1024,1024.|
000002E0: 39 39 39 2C 34 30 39 36 30 00 05 43 1E 28 57 31 |999,40960..C.(W1|
000002F0: 24 B2 22 B0 22 3A 57 32 24 B2 22 DD 22 3A 57 33 |$.".":W2$.".":W3|
00000300: 24 B2 22 AD 22 00 3D 43 28 28 81 58 B2 58 31 AA |$.".".=C((.X.X1.|
00000310: 31 A4 58 32 AB 31 3A 57 31 24 B2 57 31 24 AA 22 |1.X2.1:W1$.W1$."|
00000320: C0 22 3A 57 32 24 B2 57 32 24 AA 22 20 22 3A 57 |.":W2$.W2$." ":W|
00000330: 33 24 B2 57 33 24 AA 22 C0 22 3A 82 58 00 65 43 |3$.W3$.".":.X.eC|
00000340: 32 28 57 31 24 B2 57 31 24 AA 22 AE 22 3A 57 32 |2(W1$.W1$.".":W2|
00000350: 24 B2 57 32 24 AA 22 DD 22 3A 57 33 24 B2 57 33 |$.W2$.".":W3$.W3|
00000360: 24 AA 22 BD 22 00 7B 43 3C 28 21 50 53 50 52 4E |$.".".{C<(!PSPRN|
00000370: 54 20 58 31 2C 59 31 2C 57 31 24 00 9D 43 46 28 |T X1,Y1,W1$..CF(|
00000380: 81 58 B2 59 31 AA 31 A4 59 32 3A 21 50 53 50 52 |.X.Y1.1.Y2:!PSPR|
00000390: 4E 54 20 58 31 2C 58 2C 57 32 24 3A 82 00 B3 43 |NT X1,X,W2$:...C|
000003A0: 50 28 21 50 53 50 52 4E 54 20 58 31 2C 59 32 2C |P(!PSPRNT X1,Y2,|
000003B0: 57 33 24 00 B9 43 5A 28 8E 00 DC 43 64 28 8F 20 |W3$..CZ(...Cd(. |
000003C0: 3B 2D 2D 2D 2D 2D 20 57 49 4E 44 4F 57 20 43 4C |;----- WINDOW CL|
000003D0: 4F 53 45 20 2D 2D 2D 2D 2D 2D 2D 2D 00 FF 43 6E |OSE --------..Cn|
000003E0: 28 21 55 4E 49 43 50 59 20 31 2C 34 30 39 36 30 |(!UNICPY 1,40960|
000003F0: 2C 34 30 39 36 30 AA 39 39 39 2C 31 30 32 34 00 |,40960.999,1024.|
00000400: 05 44 78 28 8E 00 00 00 |.Dx(.... |
.@!@.'. ;------MENUE ROUTINE-----.6@.'."
..":.:M.1:MO.1.S@$'!BARENB 1:!BARSET 0,1
,17.K@.'!BARMOV 0:!BARWDE 9..@8'!BARCOL
0,0,6:!BARCOL 0,1,11..@B'!BARCOL 0,2,14:
!BARCOL 0,3,15.O@L'!BARCOL 0,4,7:!BARCOL
0,5,15..@V'!BARCOL 0,6,14:!BARCOL 0,7,1
1:!BARCOL 0,8,6..A`'.X.1 . MZ..AJ'.M$(X)
:.:..<AT'JOY.B(56320):.JOY.127.10100.ZA~
'. (JOY . 1).0.R..1:.10150.YA.'. (JOY .
2).0 .R..1:.10150..A.'. JOY.111 . ...A.'
. 10100..A.'M.M.R:. M.1 . M.1:. 10100.OA
.'. M.MZ . M.MZ:. 10100..A.'. R..1 . R.0
:. 10170..A.'R.1:.'B.'!BARMOV0:!MOVPAR 0
,1,2,M.16,M.16,R,MO.16:!BARMOV1.8BD'MO.M
:. 10100.]BN'. ;----- PARAMTER-RESET ---
-----.SBX'!PARRST:!ROUTIN 1..B.'.X.0.6:!
BARSET X,0,0:...B.'. 4775,206..B.'..GB.(
. ;----- WINDOW OPEN ----------..B.(!UNI
CPY 0,1024,1024.999,40960..C.(W1$.".":W2
$.".":W3$.".".=C((.X.X1.1.X2.1:W1$.W1$."
.":W2$.W2$." ":W3$.W3$.".":.X.EC2(W1$.W1
$.".":W2$.W2$.".":W3$.W3$.".".{C<(!PSPRN
T X1,Y1,W1$..CF(.X.Y1.1.Y2:!PSPRNT X1,X,
W2$:...CP(!PSPRNT X1,Y2,W3$..CZ(...CD(.
;----- WINDOW CLOSE --------..CN(!UNICPY
1,40960,40960.999,1024..DX(....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL