BASIC TRANS
FILE INFORMATION
FILENAME(S): BASIC TRANS
FILE TYPE(S): PRG
FILE SIZE: 1.4K
FIRST SEEN: 2025-12-01 19:06:57
APPEARS ON: 1 disk(s)
FILE HASH
9524085cb69552e600fcd27c97161d3e8ccd103bba7463cdc24ed6de308b3047
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| ICE | BASIC TRANS | PRG | Icebreaker | 7 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 1C 25 1C 64 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |..%.d.. ********| 00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000020: 2A 2A 2A 2A 2A 00 2B 1C 6E 00 8F 00 48 1C 78 00 |*****.+.n...H.x.| 00000030: 8F 20 20 20 20 20 20 20 42 41 53 49 43 20 54 52 |. BASIC TR| 00000040: 41 4E 53 4C 41 54 4F 52 00 67 1C 82 00 8F 20 20 |ANSLATOR.g.... | 00000050: 20 20 20 20 42 59 3A 20 52 4F 42 45 52 54 20 57 | BY: ROBERT W| 00000060: 2E 20 42 41 4B 45 52 00 6D 1C 8C 00 8F 00 91 1C |. BAKER.m.......| 00000070: 8F 00 8F 20 46 52 4F 4D 20 54 48 45 20 4D 41 52 |... FROM THE MAR| 00000080: 43 48 2F 41 50 52 49 4C 20 49 53 53 55 45 20 4F |CH/APRIL ISSUE O| 00000090: 46 00 B2 1C 90 00 8F 20 20 20 20 43 4F 4D 4D 4F |F...... COMMO| 000000A0: 44 4F 52 45 20 4D 49 43 52 4F 43 4F 4D 50 55 54 |DORE MICROCOMPUT| 000000B0: 45 52 00 B8 1C 96 00 8F 00 DC 1C A0 00 8F 20 2A |ER............ *| 000000C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000000D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 E2 1C AA |************....| 000000E0: 00 3A 00 05 1D B4 00 99 22 93 22 3B A6 31 32 29 |.:......".";.12)| 000000F0: 3B 22 42 41 53 49 43 20 54 52 41 4E 53 4C 41 54 |;"BASIC TRANSLAT| 00000100: 4F 52 11 11 22 00 33 1D BE 00 99 22 54 48 49 53 |OR..".3...."THIS| 00000110: 20 50 52 4F 47 52 41 4D 20 43 4F 4E 56 45 52 54 | PROGRAM CONVERT| 00000120: 53 20 42 41 53 49 43 20 54 4F 4B 45 4E 53 20 46 |S BASIC TOKENS F| 00000130: 4F 52 22 00 61 1D C8 00 99 22 42 41 53 49 43 20 |OR".a...."BASIC | 00000140: 34 2E 30 20 44 49 53 4B 20 43 4F 4D 4D 41 4E 44 |4.0 DISK COMMAND| 00000150: 53 20 54 4F 20 54 48 45 20 43 4F 52 52 45 43 54 |S TO THE CORRECT| 00000160: 22 00 89 1D D2 00 99 22 56 41 4C 55 45 53 20 46 |"......"VALUES F| 00000170: 4F 52 20 54 48 45 20 43 2D 31 32 38 20 42 41 53 |OR THE C-128 BAS| 00000180: 49 43 20 37 2E 30 11 11 22 00 BE 1D DC 00 86 20 |IC 7.0.."...... | 00000190: 54 24 28 31 35 29 3A 20 54 24 28 31 29 B2 C7 28 |T$(15): T$(1)..(| 000001A0: 32 35 34 29 AA C7 28 31 39 29 3A 20 54 24 28 32 |254)..(19): T$(2| 000001B0: 29 B2 C7 28 32 35 34 29 AA C7 28 31 33 29 00 E9 |)..(254)..(13)..| 000001C0: 1D E6 00 54 24 28 33 29 B2 C7 28 32 35 34 29 AA |...T$(3)..(254).| 000001D0: C7 28 31 35 29 3A 20 54 24 28 34 29 B2 C7 28 32 |.(15): T$(4)..(2| 000001E0: 35 34 29 AA C7 28 31 38 29 00 24 1E F0 00 54 24 |54)..(18).$...T$| 000001F0: 28 35 29 B2 C7 28 32 34 31 29 3A 20 54 24 28 36 |(5)..(241): T$(6| 00000200: 29 B2 C7 28 32 34 33 29 3A 20 54 24 28 37 29 B2 |)..(243): T$(7).| 00000210: C7 28 32 34 36 29 3A 20 54 24 28 38 29 B2 C7 28 |.(246): T$(8)..(| 00000220: 32 34 34 29 00 59 1E FA 00 54 24 28 39 29 B2 C7 |244).Y...T$(9)..| 00000230: 28 32 35 34 29 AA C7 28 31 34 29 3A 20 54 24 28 |(254)..(14): T$(| 00000240: 31 30 29 B2 C7 28 32 33 39 29 3A 20 54 24 28 31 |10)..(239): T$(1| 00000250: 31 29 B2 C7 28 32 34 30 29 00 8F 1E 04 01 54 24 |1)..(240).....T$| 00000260: 28 31 32 29 B2 C7 28 32 35 34 29 AA C7 28 31 32 |(12)..(254)..(12| 00000270: 29 3A 20 54 24 28 31 33 29 B2 C7 28 32 34 35 29 |): T$(13)..(245)| 00000280: 3A 20 54 24 28 31 34 29 B2 C7 28 32 34 32 29 00 |: T$(14)..(242).| 00000290: B2 1E 0E 01 54 24 28 31 35 29 B2 C7 28 32 33 38 |....T$(15)..(238| 000002A0: 29 3A 20 A0 20 31 35 3A 20 9F 20 31 35 2C 38 2C |): . 15: . 15,8,| 000002B0: 31 35 00 D0 1E 18 01 99 22 11 49 4E 50 55 54 20 |15......".INPUT | 000002C0: 46 49 4C 45 4E 41 4D 45 22 3A 20 85 20 46 31 24 |FILENAME": . F1$| 000002D0: 00 F3 1E 22 01 9F 20 35 2C 38 2C 35 2C 22 30 3A |...".. 5,8,5,"0:| 000002E0: 22 AA 46 31 24 AA 22 2C 50 2C 52 22 3A 20 8D 20 |".F1$.",P,R": . | 000002F0: 35 30 30 00 12 1F 2C 01 99 22 11 4F 55 54 50 55 |500...,..".OUTPU| 00000300: 54 20 46 49 4C 45 4E 41 4D 45 22 3A 20 85 20 46 |T FILENAME": . F| 00000310: 32 24 00 35 1F 36 01 9F 20 36 2C 38 2C 36 2C 22 |2$.5.6.. 6,8,6,"| 00000320: 30 3A 22 AA 46 32 24 AA 22 2C 50 2C 57 22 3A 20 |0:".F2$.",P,W": | 00000330: 8D 20 35 30 30 00 65 1F 40 01 99 22 11 53 43 41 |. 500.e.@..".SCA| 00000340: 4E 4E 49 4E 47 20 50 52 4F 47 52 41 4D 20 46 4F |NNING PROGRAM FO| 00000350: 52 20 54 4F 4B 45 4E 53 20 54 4F 20 43 4F 4E 56 |R TOKENS TO CONV| 00000360: 45 52 54 2C 22 00 85 1F 4A 01 99 22 4E 4F 57 20 |ERT,"...J.."NOW | 00000370: 41 54 20 4C 49 4E 45 20 4E 55 4D 42 45 52 2E 2E |AT LINE NUMBER..| 00000380: 2E 2E 2E 11 22 00 AF 1F 54 01 8D 20 34 37 30 3A |...."...T.. 470:| 00000390: 20 98 36 2C C7 28 31 29 3B C7 28 32 38 29 3B 3A | .6,.(1);.(28);:| 000003A0: 20 4C 41 B2 37 31 36 39 3A 20 89 20 34 35 30 00 | LA.7169: . 450.| 000003B0: E9 1F 5E 01 8D 20 34 37 30 3A 20 4C 4E B2 56 31 |..^.. 470: LN.V1| 000003C0: AA 28 32 35 36 AC 56 29 3A 20 99 20 4C 4E 3B 22 |.(256.V): . LN;"| 000003D0: 20 20 20 20 20 20 20 22 3A 20 99 22 91 22 3B 3A | ": .".";:| 000003E0: 20 4C 24 B2 C7 28 56 31 29 00 F8 1F 68 01 4C 24 | L$..(V1)...h.L$| 000003F0: B2 4C 24 AA C7 28 56 29 00 0F 20 72 01 8D 20 34 |.L$..(V).. r.. 4| 00000400: 38 30 3A 20 8B 20 56 B2 30 20 A7 20 34 33 30 00 |80: . V.0 . 430.| 00000410: 20 20 7C 01 8B 20 56 B2 33 34 20 A7 20 34 31 30 | |.. V.34 . 410| 00000420: 00 3E 20 86 01 8B 20 28 56 B3 32 30 34 29 20 B0 |.> ... (V.204) .| 00000430: 20 28 56 B1 32 31 38 29 20 A7 20 33 36 30 00 59 | (V.218) . 360.Y| 00000440: 20 90 01 4C 24 B2 4C 24 AA 54 24 28 56 AB 32 30 | ..L$.L$.T$(V.20| 00000450: 33 29 3A 20 89 20 33 37 30 00 7D 20 9A 01 4C 24 |3): . 370.} ..L$| 00000460: B2 4C 24 AA C7 28 56 29 3A 20 8D 20 34 38 30 3A |.L$..(V): . 480:| 00000470: 20 8B 20 56 B2 33 34 20 A7 20 33 36 30 00 8D 20 | . V.34 . 360.. | 00000480: A4 01 8B 20 56 B1 30 20 A7 20 34 31 30 00 BD 20 |... V.0 . 410.. | 00000490: AE 01 4C 41 B2 4C 41 AA C3 28 4C 24 29 AA 33 3A |..LA.LA..(L$).3:| 000004A0: 20 41 31 B2 B5 28 4C 41 AD 32 35 36 29 3A 20 41 | A1..(LA.256): A| 000004B0: 32 B2 4C 41 AB 28 41 31 AC 32 35 36 29 00 D9 20 |2.LA.(A1.256).. | 000004C0: B8 01 98 36 2C C7 28 41 32 29 3B C7 28 41 31 29 |...6,.(A2);.(A1)| 000004D0: 3B 4C 24 3B C7 28 30 29 3B 00 FA 20 C2 01 4C 24 |;L$;.(0);.. ..L$| 000004E0: B2 22 22 3A 20 8D 20 34 37 30 3A 20 8B 20 56 AA |."": . 470: . V.| 000004F0: 56 31 B1 30 20 A7 20 33 35 30 00 26 21 CC 01 98 |V1.0 . 350.&!...| 00000500: 36 2C C7 28 30 29 3B C7 28 30 29 3B 3A 20 99 20 |6,.(0);.(0);: . | 00000510: A3 31 30 29 3B 22 3C 20 44 4F 4E 45 20 3E 22 3A |.10);"< DONE >":| 00000520: 20 89 20 35 32 30 00 36 21 D6 01 8D 20 34 38 30 | . 520.6!... 480| 00000530: 3A 20 56 31 B2 56 00 61 21 E0 01 A1 23 35 2C 43 |: V1.V.a!...#5,C| 00000540: 24 3A 20 8D 20 35 30 30 3A 20 56 B2 30 3A 20 8B |$: . 500: V.0: .| 00000550: 20 43 24 B3 B1 22 22 20 A7 20 56 B2 C6 28 43 24 | C$.."" . V..(C$| 00000560: 29 00 67 21 EA 01 8E 00 88 21 F4 01 84 31 35 2C |).g!.....!...15,| 00000570: 45 4E 2C 45 4D 24 2C 45 54 2C 45 53 3A 20 8B 20 |EN,EM$,ET,ES: . | 00000580: 45 4E B2 30 20 A7 20 8E 00 AC 21 FE 01 99 22 11 |EN.0 . ...!...".| 00000590: 44 49 53 4B 20 45 52 52 4F 52 11 22 3A 20 99 20 |DISK ERROR.": . | 000005A0: 45 4E 3B 45 4D 24 3B 45 54 3B 45 53 00 BF 21 08 |EN;EM$;ET;ES..!.| 000005B0: 02 A0 20 35 3A 20 A0 20 36 3A 20 A0 20 31 35 00 |.. 5: . 6: . 15.| 000005C0: 00 00 |.. |
..%.D.. *****************************.+.
N...H.X.. BASIC TRANSLATOR.G....
BY: ROBERT W. BAKER.M.......... FROM
THE MARCH/APRIL ISSUE OF...... COMMO
DORE MICROCOMPUTER......... .. *********
********************.....:......".";.12)
;"BASIC TRANSLATOR..".3...."THIS PROGRAM
CONVERTS BASIC TOKENS FOR".A.H.."BASIC
4.0 DISK COMMANDS TO THE CORRECT"...R.."
VALUES FOR THE C-128 BASIC 7.0.."......
T$(15): T$(1).G(254).G(19): T$(2).G(254)
.G(13).....T$(3).G(254).G(15): T$(4).G(2
54).G(18).$...T$(5).G(241): T$(6).G(243)
: T$(7).G(246): T$(8).G(244).Y...T$(9).G
(254).G(14): T$(10).G(239): T$(11).G(240
).....T$(12).G(254).G(12): T$(13).G(245)
: T$(14).G(242).....T$(15).G(238): 15:
. 15,8,15.P....".INPUT FILENAME": . F1$
...".. 5,8,5,"0:".F1$.",P,R": . 500...,.
.".OUTPUT FILENAME": . F2$.5.6.. 6,8,6,"
0:".F2$.",P,W": . 500.E.@..".SCANNING PR
OGRAM FOR TOKENS TO CONVERT,"...J.."NOW
AT LINE NUMBER......"...T.. 470: .6,G(1)
;G(28);: LA.7169: . 450...^.. 470: LN.V1
.(256.V): . LN;" ": .".";: L$.G(V1
)...H.L$.L$.G(V).. R.. 480: . V.0 . 430.
|.. V.34 . 410.> ... (V.204) . (V.218)
. 360.Y ..L$.L$.T$(V.203): . 370.} ..L$
.L$.G(V): . 480: . V.34 . 360.. ... V.0
. 410.. ..LA.LA.C(L$).3: A1..(LA.256): A
2.LA.(A1.256).Y ...6,G(A2);G(A1);L$;G(0)
;.. B.L$."": . 470: . V.V1.0 . 350.&!L..
6,G(0);G(0);: . .10);"< DONE >": . 520.6
!V.. 480: V1.V.A!...#5,C$: . 500: V.0: .
C$.."" . V.F(C$).G!.....!...15,EN,EM$,E
T,ES: . EN.0 . ...!...".DISK ERROR.": .
EN;EM$;ET;ES..!.. 5: 6: 15...
> CLICK IMAGE PREVIEW FOR FULL MODAL