TOKEN TRANS.128

FILE INFORMATION

FILENAME(S): TOKEN TRANS.128

FILE TYPE(S): PRG

FILE SIZE: 1.2K

FIRST SEEN: 2025-11-30 18:12:04

APPEARS ON: 2 disk(s)

FILE HASH

42b9d7cec91673b385e3533a140fac1baa4c26c1425cfeb844a8502f1edddc38

FOUND ON DISKS (2 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
LOADSTAR 22 S 2	TOKEN TRANS.128	PRG	Sailor, Ganheden	28	0	DOWNLOAD FILE
LOADSTAR 22 S 2	TOKEN TRANS.128	PRG	Curtcool, Frank	28	0	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 01 1C 24 1C B4 00 99 22  93 22 3B A6 31 32 29 3B  |..$....".";.12);|
00000010: 22 42 41 53 49 43 20 54  52 41 4E 53 4C 41 54 4F  |"BASIC TRANSLATO|
00000020: 52 11 11 22 00 52 1C BE  00 99 22 54 48 49 53 20  |R..".R...."THIS |
00000030: 50 52 4F 47 52 41 4D 20  43 4F 4E 56 45 52 54 53  |PROGRAM CONVERTS|
00000040: 20 42 41 53 49 43 20 54  4F 4B 45 4E 53 20 46 4F  | BASIC TOKENS FO|
00000050: 52 22 00 80 1C C8 00 99  22 42 41 53 49 43 20 34  |R"......"BASIC 4|
00000060: 2E 30 20 44 49 53 4B 20  43 4F 4D 4D 41 4E 44 53  |.0 DISK COMMANDS|
00000070: 20 54 4F 20 54 48 45 20  43 4F 52 52 45 43 54 22  | TO THE CORRECT"|
00000080: 00 A8 1C D2 00 99 22 56  41 4C 55 45 53 20 46 4F  |......"VALUES FO|
00000090: 52 20 54 48 45 20 43 2D  31 32 38 20 42 41 53 49  |R THE C-128 BASI|
000000A0: 43 20 37 2E 30 11 11 22  00 DD 1C DC 00 86 20 54  |C 7.0.."...... T|
000000B0: 24 28 31 35 29 3A 20 54  24 28 31 29 B2 C7 28 32  |$(15): T$(1)..(2|
000000C0: 35 34 29 AA C7 28 31 39  29 3A 20 54 24 28 32 29  |54)..(19): T$(2)|
000000D0: B2 C7 28 32 35 34 29 AA  C7 28 31 33 29 00 08 1D  |..(254)..(13)...|
000000E0: E6 00 54 24 28 33 29 B2  C7 28 32 35 34 29 AA C7  |..T$(3)..(254)..|
000000F0: 28 31 35 29 3A 20 54 24  28 34 29 B2 C7 28 32 35  |(15): T$(4)..(25|
00000100: 34 29 AA C7 28 31 38 29  00 43 1D F0 00 54 24 28  |4)..(18).C...T$(|
00000110: 35 29 B2 C7 28 32 34 31  29 3A 20 54 24 28 36 29  |5)..(241): T$(6)|
00000120: B2 C7 28 32 34 33 29 3A  20 54 24 28 37 29 B2 C7  |..(243): T$(7)..|
00000130: 28 32 34 36 29 3A 20 54  24 28 38 29 B2 C7 28 32  |(246): T$(8)..(2|
00000140: 34 34 29 00 78 1D FA 00  54 24 28 39 29 B2 C7 28  |44).x...T$(9)..(|
00000150: 32 35 34 29 AA C7 28 31  34 29 3A 20 54 24 28 31  |254)..(14): T$(1|
00000160: 30 29 B2 C7 28 32 33 39  29 3A 20 54 24 28 31 31  |0)..(239): T$(11|
00000170: 29 B2 C7 28 32 34 30 29  00 AE 1D 04 01 54 24 28  |)..(240).....T$(|
00000180: 31 32 29 B2 C7 28 32 35  34 29 AA C7 28 31 32 29  |12)..(254)..(12)|
00000190: 3A 20 54 24 28 31 33 29  B2 C7 28 32 34 35 29 3A  |: T$(13)..(245):|
000001A0: 20 54 24 28 31 34 29 B2  C7 28 32 34 32 29 00 D1  | T$(14)..(242)..|
000001B0: 1D 0E 01 54 24 28 31 35  29 B2 C7 28 32 33 38 29  |...T$(15)..(238)|
000001C0: 3A 20 A0 20 31 35 3A 20  9F 20 31 35 2C 38 2C 31  |: . 15: . 15,8,1|
000001D0: 35 00 EF 1D 18 01 99 22  11 49 4E 50 55 54 20 46  |5......".INPUT F|
000001E0: 49 4C 45 4E 41 4D 45 22  3A 20 85 20 46 31 24 00  |ILENAME": . F1$.|
000001F0: 12 1E 22 01 9F 20 35 2C  38 2C 35 2C 22 30 3A 22  |..".. 5,8,5,"0:"|
00000200: AA 46 31 24 AA 22 2C 50  2C 52 22 3A 20 8D 20 35  |.F1$.",P,R": . 5|
00000210: 30 30 00 31 1E 2C 01 99  22 11 4F 55 54 50 55 54  |00.1.,..".OUTPUT|
00000220: 20 46 49 4C 45 4E 41 4D  45 22 3A 20 85 20 46 32  | FILENAME": . F2|
00000230: 24 00 54 1E 36 01 9F 20  36 2C 38 2C 36 2C 22 30  |$.T.6.. 6,8,6,"0|
00000240: 3A 22 AA 46 32 24 AA 22  2C 50 2C 57 22 3A 20 8D  |:".F2$.",P,W": .|
00000250: 20 35 30 30 00 84 1E 40  01 99 22 11 53 43 41 4E  | 500...@..".SCAN|
00000260: 4E 49 4E 47 20 50 52 4F  47 52 41 4D 20 46 4F 52  |NING PROGRAM FOR|
00000270: 20 54 4F 4B 45 4E 53 20  54 4F 20 43 4F 4E 56 45  | TOKENS TO CONVE|
00000280: 52 54 2C 22 00 A4 1E 4A  01 99 22 4E 4F 57 20 41  |RT,"...J.."NOW A|
00000290: 54 20 4C 49 4E 45 20 4E  55 4D 42 45 52 2E 2E 2E  |T LINE NUMBER...|
000002A0: 2E 2E 11 22 00 CE 1E 54  01 8D 20 34 37 30 3A 20  |..."...T.. 470: |
000002B0: 98 36 2C C7 28 31 29 3B  C7 28 32 38 29 3B 3A 20  |.6,.(1);.(28);: |
000002C0: 4C 41 B2 37 31 36 39 3A  20 89 20 34 35 30 00 08  |LA.7169: . 450..|
000002D0: 1F 5E 01 8D 20 34 37 30  3A 20 4C 4E B2 56 31 AA  |.^.. 470: LN.V1.|
000002E0: 28 32 35 36 AC 56 29 3A  20 99 20 4C 4E 3B 22 20  |(256.V): . LN;" |
000002F0: 20 20 20 20 20 20 22 3A  20 99 22 91 22 3B 3A 20  |      ": .".";: |
00000300: 4C 24 B2 C7 28 56 31 29  00 17 1F 68 01 4C 24 B2  |L$..(V1)...h.L$.|
00000310: 4C 24 AA C7 28 56 29 00  2E 1F 72 01 8D 20 34 38  |L$..(V)...r.. 48|
00000320: 30 3A 20 8B 20 56 B2 30  20 A7 20 34 33 30 00 3F  |0: . V.0 . 430.?|
00000330: 1F 7C 01 8B 20 56 B2 33  34 20 A7 20 34 31 30 00  |.|.. V.34 . 410.|
00000340: 5D 1F 86 01 8B 20 28 56  B3 32 30 34 29 20 B0 20  |].... (V.204) . |
00000350: 28 56 B1 32 31 38 29 20  A7 20 33 36 30 00 78 1F  |(V.218) . 360.x.|
00000360: 90 01 4C 24 B2 4C 24 AA  54 24 28 56 AB 32 30 33  |..L$.L$.T$(V.203|
00000370: 29 3A 20 89 20 33 37 30  00 9C 1F 9A 01 4C 24 B2  |): . 370.....L$.|
00000380: 4C 24 AA C7 28 56 29 3A  20 8D 20 34 38 30 3A 20  |L$..(V): . 480: |
00000390: 8B 20 56 B2 33 34 20 A7  20 33 36 30 00 AC 1F A4  |. V.34 . 360....|
000003A0: 01 8B 20 56 B1 30 20 A7  20 34 31 30 00 DC 1F AE  |.. V.0 . 410....|
000003B0: 01 4C 41 B2 4C 41 AA C3  28 4C 24 29 AA 33 3A 20  |.LA.LA..(L$).3: |
000003C0: 41 31 B2 B5 28 4C 41 AD  32 35 36 29 3A 20 41 32  |A1..(LA.256): A2|
000003D0: B2 4C 41 AB 28 41 31 AC  32 35 36 29 00 F8 1F B8  |.LA.(A1.256)....|
000003E0: 01 98 36 2C C7 28 41 32  29 3B C7 28 41 31 29 3B  |..6,.(A2);.(A1);|
000003F0: 4C 24 3B C7 28 30 29 3B  00 19 20 C2 01 4C 24 B2  |L$;.(0);.. ..L$.|
00000400: 22 22 3A 20 8D 20 34 37  30 3A 20 8B 20 56 AA 56  |"": . 470: . V.V|
00000410: 31 B1 30 20 A7 20 33 35  30 00 45 20 CC 01 98 36  |1.0 . 350.E ...6|
00000420: 2C C7 28 30 29 3B C7 28  30 29 3B 3A 20 99 20 A3  |,.(0);.(0);: . .|
00000430: 31 30 29 3B 22 3C 20 44  4F 4E 45 20 3E 22 3A 20  |10);"< DONE >": |
00000440: 89 20 35 32 30 00 55 20  D6 01 8D 20 34 38 30 3A  |. 520.U ... 480:|
00000450: 20 56 31 B2 56 00 80 20  E0 01 A1 23 35 2C 43 24  | V1.V.. ...#5,C$|
00000460: 3A 20 8D 20 35 30 30 3A  20 56 B2 30 3A 20 8B 20  |: . 500: V.0: . |
00000470: 43 24 B3 B1 22 22 20 A7  20 56 B2 C6 28 43 24 29  |C$.."" . V..(C$)|
00000480: 00 86 20 EA 01 8E 00 A7  20 F4 01 84 31 35 2C 45  |.. ..... ...15,E|
00000490: 4E 2C 45 4D 24 2C 45 54  2C 45 53 3A 20 8B 20 45  |N,EM$,ET,ES: . E|
000004A0: 4E B2 30 20 A7 20 8E 00  CB 20 FE 01 99 22 11 44  |N.0 . ... ...".D|
000004B0: 49 53 4B 20 45 52 52 4F  52 11 22 3A 20 99 20 45  |ISK ERROR.": . E|
000004C0: 4E 3B 45 4D 24 3B 45 54  3B 45 53 00 DE 20 08 02  |N;EM$;ET;ES.. ..|
000004D0: A0 20 35 3A 20 A0 20 36  3A 20 A0 20 31 35 00 00  |. 5: . 6: . 15..|
000004E0: 00                                                |.               |

..$....".";.12);"BASIC TRANSLATOR..".R..
.."THIS PROGRAM CONVERTS BASIC TOKENS FO
R"...H.."BASIC 4.0 DISK COMMANDS TO THE 
CORRECT"...R.."VALUES FOR THE C-128 BASI
C 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(254).G(18).C...T$(5).G(241
): T$(6).G(243): T$(7).G(246): T$(8).G(2
44).X...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).Q...T$(15
).G(238):   15: . 15,8,15......".INPUT F
ILENAME": . F1$...".. 5,8,5,"0:".F1$.",P
,R": . 500.1.,..".OUTPUT FILENAME": . F2
$.T.6.. 6,8,6,"0:".F2$.",P,W": . 500...@
..".SCANNING PROGRAM FOR TOKENS TO CONVE
RT,"...J.."NOW AT LINE NUMBER......".N.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.. 48
0: . V.0 . 430.?.|.. V.34 . 410.].... (V
.204) . (V.218) . 360.X...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): A2.LA.(A1.256)......6,G(A2
);G(A1);L$;G(0);.. B.L$."": . 470: . V.V
1.0 . 350.E L..6,G(0);G(0);: . .10);"< D
ONE >": . 520.U V.. 480: V1.V.. ...#5,C$
: . 500: V.0: . C$.."" . V.F(C$).. .....
 ...15,EN,EM$,ET,ES: . EN.0 . ..K ...".D
ISK ERROR.": . EN;EM$;ET;ES.. ..  5:   6
:   15...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL