00000000: 36 32 31 30 39 22 2C 22 32 31 30 31 32 31 30 34 |62109","21012104|
00000010: 32 31 30 37 22 00 E7 37 0A 69 83 22 32 31 30 32 |2107"..7.i."2102|
00000020: 32 31 30 35 32 31 30 38 22 2C 22 32 31 30 33 32 |21052108","21032|
00000030: 31 30 36 32 31 30 39 22 2C 22 32 31 30 31 32 31 |1062109","210121|
00000040: 30 34 32 31 30 37 22 00 19 38 14 69 83 22 32 31 |042107"..8.i."21|
00000050: 30 32 32 31 30 35 32 31 30 38 22 2C 22 32 31 30 |0221052108","210|
00000060: 33 32 31 30 36 32 31 30 39 22 2C 22 32 31 30 31 |321062109","2101|
00000070: 32 31 30 34 32 31 30 37 22 00 4B 38 1E 69 83 22 |21042107".K8.i."|
00000080: 32 31 30 32 32 31 30 35 32 31 30 38 22 2C 22 32 |210221052108","2|
00000090: 31 30 33 32 31 30 36 32 31 30 39 22 2C 22 32 31 |10321062109","21|
000000A0: 30 31 32 31 30 34 32 31 30 37 22 00 5C 38 28 69 |0121042107".\8(i|
000000B0: 8F 20 41 55 47 55 4D 45 4E 54 45 44 00 8D 38 32 |. AUGUMENTED..82|
000000C0: 69 83 22 32 32 30 32 32 32 30 36 22 2C 22 32 32 |i."22022206","22|
000000D0: 30 33 32 32 30 37 22 2C 22 32 32 30 34 32 32 30 |032207","2204220|
000000E0: 38 22 2C 22 32 32 30 31 32 32 30 35 22 00 BE 38 |8","22012205"..8|
000000F0: 3C 69 83 22 32 32 30 32 32 32 30 36 22 2C 22 32 |<i."22022206","2|
00000100: 32 30 33 32 32 30 37 22 2C 22 32 32 30 34 32 32 |2032207","220422|
00000110: 30 38 22 2C 22 32 32 30 31 32 32 30 35 22 00 EF |08","22012205"..|
00000120: 38 46 69 83 22 32 32 30 32 32 32 30 36 22 2C 22 |8Fi."22022206","|
00000130: 32 32 30 33 32 32 30 37 22 2C 22 32 32 30 34 32 |22032207","22042|
00000140: 32 30 38 22 2C 22 32 32 30 31 32 32 30 35 22 00 |208","22012205".|
00000150: 21 39 50 69 83 22 41 22 2C 22 41 49 53 2F 42 45 |!9Pi."A","AIS/BE|
00000160: 53 22 2C 22 42 22 2C 22 43 22 2C 22 43 49 53 2F |S","B","C","CIS/|
00000170: 44 45 53 22 2C 22 44 22 2C 22 44 49 53 2F 45 53 |DES","D","DIS/ES|
00000180: 22 00 45 39 5A 69 83 22 45 22 2C 22 46 22 2C 22 |".E9Zi."E","F","|
00000190: 46 49 53 2F 47 45 53 22 2C 22 47 22 2C 22 47 49 |FIS/GES","G","GI|
000001A0: 53 2F 41 53 22 00 77 39 64 69 83 22 4D 41 4A 22 |S/AS".w9di."MAJ"|
000001B0: 2C 22 4D 49 4E 22 2C 22 36 22 2C 22 37 22 2C 22 |,"MIN","6","7","|
000001C0: 39 22 2C 22 4D 41 4A 37 22 2C 22 4D 49 4E 36 22 |9","MAJ7","MIN6"|
000001D0: 2C 22 4D 49 4E 37 22 00 97 39 6E 69 83 22 53 55 |,"MIN7"..9ni."SU|
000001E0: 53 34 22 2C 22 37 53 55 53 34 22 2C 22 44 49 4D |S4","7SUS4","DIM|
000001F0: 22 2C 22 41 55 47 22 00 B8 39 30 75 8F 20 43 48 |","AUG"..90u. CH|
00000200: 4F 52 44 53 20 46 4F 52 20 54 48 45 20 47 55 49 |ORDS FOR THE GUI|
00000210: 54 41 52 20 42 59 20 3A 00 D4 39 3A 75 8F 20 2B |TAR BY :..9:u. +|
00000220: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000230: 2D 2D 2D 2B 00 F0 39 44 75 8F 20 21 20 57 4F 55 |---+..9Du. ! WOU|
00000240: 54 20 56 41 4E 20 48 41 41 53 54 45 52 20 20 21 |T VAN HAASTER !|
00000250: 00 0C 3A 4E 75 8F 20 21 20 48 4F 47 45 57 45 47 |..:Nu. ! HOGEWEG|
00000260: 20 33 38 20 20 20 20 20 20 20 20 21 00 28 3A 58 | 38 !.(:X|
00000270: 75 8F 20 21 20 31 39 31 31 20 47 48 20 55 49 54 |u. ! 1911 GH UIT|
00000280: 47 45 45 53 54 20 20 21 00 44 3A 62 75 8F 20 21 |GEEST !.D:bu. !|
00000290: 20 54 48 45 20 4E 45 54 48 45 52 4C 41 4E 44 53 | THE NETHERLANDS|
000002A0: 20 20 20 21 00 60 3A 6C 75 8F 20 21 20 50 48 4F | !.`:lu. ! PHO|
000002B0: 4E 45 20 30 32 35 31 33 2D 31 31 34 38 30 20 21 |NE 02513-11480 !|
000002C0: 00 7C 3A 76 75 8F 20 2B 2D 2D 2D 2D 2D 2D 2D 2D |.|:vu. +--------|
000002D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2B 00 97 3A 80 |-----------+..:.|
000002E0: 75 8F 20 53 48 41 52 50 20 4D 5A 2D 38 30 4B 2C |u. SHARP MZ-80K,|
000002F0: 34 38 4B 20 52 41 4D 00 B7 3A 8A 75 8F 20 43 4F |48K RAM..:.u. CO|
00000300: 4D 41 53 54 2D 42 41 53 49 43 20 53 50 2D 35 30 |MAST-BASIC SP-50|
00000310: 32 35 2F 36 30 31 35 00 DA 3A 94 75 8F 20 30 35 |25/6015..:.u. 05|
00000320: 2E 31 39 38 33 20 42 41 53 49 43 4F 44 45 2D 32 |.1983 BASICODE-2|
00000330: 20 56 45 52 53 49 4F 4E 20 31 00 FD 3A 99 75 8F | VERSION 1..:.u.|
00000340: 20 30 35 2E 31 39 38 34 20 42 41 53 49 43 4F 44 | 05.1984 BASICOD|
00000350: 45 2D 32 20 56 45 52 53 49 4F 4E 20 32 00 1A 3B |E-2 VERSION 2..;|
00000360: 9E 75 8F 20 52 45 46 45 52 45 4E 43 45 20 22 48 |.u. REFERENCE "H|
00000370: 45 52 45 27 53 20 48 4F 57 22 00 36 3B A8 75 8F |ERE'S HOW".6;.u.|
00000380: 20 20 20 20 20 20 20 20 20 20 20 20 42 59 20 44 | BY D|
00000390: 41 4E 20 46 4F 58 00 53 3B E4 75 8F 20 42 41 53 |AN FOX.S;.u. BAS|
000003A0: 49 43 4F 44 45 2D 32 20 53 55 42 52 4F 55 54 49 |ICODE-2 SUBROUTI|
000003B0: 4E 45 53 00 70 3B EE 75 8F 20 55 53 45 44 20 49 |NES.p;.u. USED I|
000003C0: 4E 20 54 48 49 53 20 50 52 4F 47 52 41 4D 20 3A |N THIS PROGRAM :|
000003D0: 00 92 3B F8 75 8F 20 31 30 30 20 43 4C 45 41 52 |..;.u. 100 CLEAR|
000003E0: 20 53 43 52 45 45 4E 20 43 55 52 53 4F 52 20 30 | SCREEN CURSOR 0|
000003F0: 2C 30 00 B4 3B 02 76 8F 20 31 31 30 20 43 55 52 |,0..;.v. 110 CUR|
00000400: 53 4F 52 20 41 54 20 48 4F 3D 48 4F 52 49 5A 4F |SOR AT HO=HORIZO|
00000410: 4E 54 41 4C 00 D4 3B 0C 76 8F 20 20 20 20 20 20 |NTAL..;.v. |
00000420: 20 20 20 20 20 20 20 20 20 56 45 3D 56 45 52 54 | VE=VERT|
00000430: 49 43 41 4C 00 F6 3B 16 76 8F 20 32 31 30 20 47 |ICAL..;.v. 210 G|
00000440: 45 54 49 4E 24 3A 49 46 20 49 4E 24 3D 22 22 54 |ETIN$:IF IN$=""T|
00000450: 48 45 4E 32 31 30 00 05 3C 20 76 8F 20 32 35 30 |HEN210..< v. 250|
00000460: 20 42 45 4C 4C 00 1C 3C 2A 76 8F 20 33 30 30 20 | BELL..<*v. 300 |
00000470: 53 52 24 3D 53 54 52 24 28 53 52 29 00 3C 3C 34 |SR$=STR$(SR).<<4|
00000480: 76 8F 20 33 35 30 20 50 52 49 4E 54 20 53 52 24 |v. 350 PRINT SR$|
00000490: 3B 20 54 4F 20 50 52 49 4E 54 45 52 00 5B 3C 3E |; TO PRINTER.[<>|
000004A0: 76 8F 20 33 36 30 20 4C 49 4E 45 20 46 45 45 44 |v. 360 LINE FEED|
000004B0: 20 4F 4E 20 50 52 49 4E 54 45 52 00 61 3C 48 76 | ON PRINTER.a<Hv|
000004C0: 8F 00 80 3C 52 76 8F 20 43 4F 50 59 52 49 47 48 |...<Rv. COPYRIGH|
000004D0: 54 20 20 4E 4F 53 20 48 49 4C 56 45 52 53 55 4D |T NOS HILVERSUM|
000004E0: 00 00 00 |... |
62109","210121042107"..7.I."210221052108
","210321062109","210121042107"..8.I."21
0221052108","210321062109","210121042107
".K8.I."210221052108","210321062109","21
0121042107".\8(I. AUGUMENTED..82I."22022
206","22032207","22042208","22012205"..8
<I."22022206","22032207","22042208","220
12205"..8FI."22022206","22032207","22042
208","22012205".!9PI."A","AIS/BES","B","
C","CIS/DES","D","DIS/ES".E9ZI."E","F","
FIS/GES","G","GIS/AS".W9DI."MAJ","MIN","
6","7","9","MAJ7","MIN6","MIN7"..9NI."SU
S4","7SUS4","DIM","AUG"..90U. CHORDS FOR
THE GUITAR BY :.T9:U. +----------------
---+..9DU. ! WOUT VAN HAASTER !..:NU. !
HOGEWEG 38 !.(:XU. ! 1911 GH UIT
GEEST !.D:BU. ! THE NETHERLANDS !.`:L
U. ! PHONE 02513-11480 !.|:VU. +--------
-----------+..:.U. SHARP MZ-80K,48K RAM.
.:.U. COMAST-BASIC SP-5025/6015.Z:.U. 05
.1983 BASICODE-2 VERSION 1..:.U. 05.1984
BASICODE-2 VERSION 2..;.U. REFERENCE "H
ERE'S HOW".6;.U. BY DAN FOX.S
;.U. BASICODE-2 SUBROUTINES.P;.U. USED I
N THIS PROGRAM :..;.U. 100 CLEAR SCREEN
CURSOR 0,0..;.V. 110 CURSOR AT HO=HORIZO
NTAL.T;.V. VE=VERTICAL..;.
V. 210 GETIN$:IF IN$=""THEN210..< V. 250
BELL..<*V. 300 SR$=STR$(SR).<<4V. 350 P
RINT SR$; TO PRINTER.[<>V. 360 LINE FEED
ON PRINTER.A<HV...<RV. COPYRIGHT NOS H
ILVERSUM...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL