00000000: 01 1C 31 1C 60 EA 8F 20 22 43 4F 50 59 52 49 47 |..1.`.. "COPYRIG|
00000010: 48 54 20 31 39 38 38 2D 31 39 39 30 20 42 59 20 |HT 1988-1990 BY |
00000020: 4D 49 43 48 41 45 4C 20 52 2E 20 4D 49 4C 4C 45 |MICHAEL R. MILLE|
00000030: 52 00 5E 1C 6A EA 8F 20 22 54 48 49 53 20 50 52 |R.^.j.. "THIS PR|
00000040: 4F 47 52 41 4D 20 57 4F 52 4B 53 20 4F 4E 20 54 |OGRAM WORKS ON T|
00000050: 48 45 20 43 2D 31 32 38 20 4F 4E 4C 59 21 00 A6 |HE C-128 ONLY!..|
00000060: 1C 74 EA 8F 20 22 55 53 45 20 54 48 49 53 20 50 |.t.. "USE THIS P|
00000070: 52 4F 47 52 41 4D 20 54 4F 20 43 48 41 4E 47 45 |ROGRAM TO CHANGE|
00000080: 20 41 20 47 57 2D 42 41 53 49 43 20 27 41 53 43 | A GW-BASIC 'ASC|
00000090: 49 49 27 20 46 49 4C 45 20 28 4C 49 53 54 45 44 |II' FILE (LISTED|
000000A0: 20 54 59 50 45 29 00 EF 1C 7E EA 8F 20 22 54 4F | TYPE)...~.. "TO|
000000B0: 20 41 20 43 4F 4D 4D 4F 44 4F 52 45 20 42 41 53 | A COMMODORE BAS|
000000C0: 49 43 20 50 52 4F 47 52 41 4D 3B 20 57 48 49 43 |IC PROGRAM; WHIC|
000000D0: 48 20 4D 55 53 54 20 42 45 20 2A 53 41 56 45 44 |H MUST BE *SAVED|
000000E0: 2A 20 41 4E 44 20 2D 45 44 49 54 45 44 2D 21 00 |* AND -EDITED-!.|
000000F0: 37 1D 88 EA 8F 20 22 49 4D 50 4F 52 54 41 4E 54 |7.... "IMPORTANT|
00000100: 21 20 20 44 4F 20 4E 4F 54 20 55 53 45 20 54 48 |! DO NOT USE TH|
00000110: 45 20 42 42 52 20 41 53 43 49 49 20 54 52 41 4E |E BBR ASCII TRAN|
00000120: 53 4C 41 54 49 4F 4E 20 53 49 4E 43 45 20 43 4F |SLATION SINCE CO|
00000130: 4D 4D 4F 44 4F 52 45 00 80 1D 92 EA 8F 20 22 42 |MMODORE...... "B|
00000140: 41 53 49 43 20 45 58 50 45 43 54 53 20 4C 4F 57 |ASIC EXPECTS LOW|
00000150: 45 52 20 43 41 53 45 20 4B 45 59 57 4F 52 44 53 |ER CASE KEYWORDS|
00000160: 20 2D 41 4E 44 2D 20 54 48 49 53 20 50 52 4F 47 | -AND- THIS PROG|
00000170: 52 41 4D 20 50 52 4F 56 49 44 45 53 20 54 48 45 |RAM PROVIDES THE|
00000180: 00 BF 1D 9C EA 8F 20 22 43 4F 4E 56 45 52 53 49 |...... "CONVERSI|
00000190: 4F 4E 20 4F 46 20 54 45 58 54 20 57 49 54 48 49 |ON OF TEXT WITHI|
000001A0: 4E 20 51 55 4F 54 45 53 20 4F 46 20 41 20 47 57 |N QUOTES OF A GW|
000001B0: 2D 42 41 53 49 43 20 50 52 4F 47 52 41 4D 2E 00 |-BASIC PROGRAM..|
000001C0: C5 1D A6 EA 3A 00 E8 1D B0 EA 55 4E 49 54 B2 38 |....:.....UNIT.8|
000001D0: 3A FE 02 20 31 35 3A 8B 20 C2 28 32 31 35 29 B2 |:.. 15:. .(215).|
000001E0: 31 32 38 20 A7 20 FE 25 00 21 1E BA EA 8B 20 C2 |128 . .%.!.... .|
000001F0: 28 33 38 35 32 29 B3 B1 31 32 20 B0 20 C2 28 33 |(3852)..12 . .(3|
00000200: 38 35 33 29 B3 B1 31 33 20 A7 20 FE 11 22 4E 4F |853)..13 . .."NO|
00000210: 52 4D 41 4C 20 41 53 43 49 49 22 2C 55 28 55 4E |RMAL ASCII",U(UN|
00000220: 29 00 55 1E C4 EA E8 3A EE 20 55 28 55 4E 29 3A |).U....:. U(UN):|
00000230: 85 20 22 4E 41 4D 45 20 4F 46 20 46 49 4C 45 22 |. "NAME OF FILE"|
00000240: 3B 4E 24 3A 20 20 FE 0D 23 31 2C 28 4E 24 29 2C |;N$: ..#1,(N$),|
00000250: 55 28 55 4E 29 00 5B 1E CE EA 3A 00 99 1E D8 EA |U(UN).[...:.....|
00000260: 46 4C B2 30 3A 99 20 22 93 11 11 22 3A 8F 20 22 |FL.0:. "...":. "|
00000270: 54 48 49 53 20 50 52 4F 47 52 41 4D 20 44 45 4C |THIS PROGRAM DEL|
00000280: 45 54 45 53 20 49 54 53 45 4C 46 20 57 48 45 4E |ETES ITSELF WHEN|
00000290: 20 46 49 4E 49 53 48 45 44 00 CE 1E E2 EA 8B 20 | FINISHED...... |
000002A0: 53 54 20 A7 20 A0 20 31 3A E8 3A 99 20 22 11 11 |ST . . 1:.:. "..|
000002B0: 11 11 44 45 4C 45 54 45 20 36 30 30 30 30 2D 3A |..DELETE 60000-:|
000002C0: 4C 49 53 54 13 22 3A 89 20 36 30 31 39 30 00 EC |LIST.":. 60190..|
000002D0: 1E EC EA A1 23 31 2C 58 24 3A 8B 20 58 24 B2 C7 |....#1,X$:. X$..|
000002E0: 28 31 33 29 20 A7 20 36 30 31 38 30 00 08 1F F6 |(13) . 60180....|
000002F0: EA 8B 20 58 24 B2 C7 28 33 34 29 20 A7 20 46 4C |.. X$..(34) . FL|
00000300: B2 AB 28 46 4C B2 30 29 00 23 1F 00 EB 8B 20 46 |..(FL.0).#.... F|
00000310: 4C B2 30 20 A7 20 99 20 58 24 3B 3A 89 20 36 30 |L.0 . . X$;:. 60|
00000320: 31 33 30 00 43 1F 0A EB 99 20 C7 28 C2 28 33 38 |130.C.... .(.(38|
00000330: 34 30 AA C6 28 58 24 29 29 29 3B 3A 89 20 36 30 |40..(X$)));:. 60|
00000340: 31 33 30 00 5B 1F 14 EB 99 3A 99 3A 99 20 22 47 |130.[....:.:. "G|
00000350: 4F 54 4F 20 36 30 31 32 30 13 22 00 80 1F 1E EB |OTO 60120.".....|
00000360: 97 20 32 30 38 2C 31 30 3A 81 20 49 B2 31 20 A4 |. 208,10:. I.1 .|
00000370: 20 31 30 3A 97 20 38 34 31 AA 49 2C 31 33 3A 82 | 10:. 841.I,13:.|
00000380: 00 86 1F 28 EB 80 00 00 00 |...(..... |
..1.`.. "COPYRIGHT 1988-1990 BY MICHAEL
R. MILLER.^.J.. "THIS PROGRAM WORKS ON T
HE C-128 ONLY!...T.. "USE THIS PROGRAM T
O CHANGE A GW-BASIC 'ASCII' FILE (LISTED
TYPE)...~.. "TO A COMMODORE BASIC PROGR
AM; WHICH MUST BE *SAVED* AND -EDITED-!.
7.... "IMPORTANT! DO NOT USE THE BBR AS
CII TRANSLATION SINCE COMMODORE...... "B
ASIC EXPECTS LOWER CASE KEYWORDS -AND- T
HIS PROGRAM PROVIDES THE...... "CONVERSI
ON OF TEXT WITHIN QUOTES OF A GW-BASIC P
ROGRAM..E...:.....UNIT.8:.. 15:. B(215).
128 . .%.!.... B(3852)..12 . B(3853)..13
. .."NORMAL ASCII",U(UN).U.D..:. U(UN):
. "NAME OF FILE";N$: ..#1,(N$),U(UN).[.
N.:...X.FL.0:. "...":. "THIS PROGRAM DEL
ETES ITSELF WHEN FINISHED.N.... ST . 1
:.:. "....DELETE 60000-:LIST.":. 60190..
....#1,X$:. X$.G(13) . 60180...... X$.G(
34) . FL..(FL.0).#.... FL.0 . . X$;:. 60
130.C.... G(B(3840.F(X$)));:. 60130.[...
.:.:. "GOTO 60120."...... 208,10:. I.1 .
10:. 841.I,13:....(.....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL