TURBO BOOTMAKER

00000000: 01 09 1F 09 01 00 8F 20  53 41 56 45 22 54 55 52  |....... SAVE"TUR|
00000010: 42 4F 20 42 4F 4F 54 4D  41 4B 45 52 22 2C 38 00  |BO BOOTMAKER",8.|
00000020: 58 09 64 00 99 22 93 11  11 05 22 C7 28 38 29 C7  |X.d.."....".(8).|
00000030: 28 31 34 29 3A 99 A3 31  30 29 22 2A 2A 20 D4 55  |(14):..10)"** .U|
00000040: 52 42 4F C2 4F 4F 54 4D  41 4B 45 52 20 2A 2A 22  |RBO.OOTMAKER **"|
00000050: 3A 5A 24 B2 C7 28 30 29  00 8D 09 6E 00 81 41 44  |:Z$..(0)...n..AD|
00000060: B2 38 32 32 A4 39 31 35  3A 87 20 42 59 3A 43 4B  |.822.915:. BY:CK|
00000070: B2 43 4B AA 42 59 3A 97  41 44 2C 42 59 3A 82 3A  |.CK.BY:.AD,BY:.:|
00000080: 8B 43 4B B2 31 31 35 39  37 A7 31 33 30 00 B3 09  |.CK.11597.130...|
00000090: 78 00 99 22 11 11 12 C5  52 52 4F 52 20 49 4E 20  |x.."....RROR IN |
000000A0: C4 C1 D4 C1 20 53 54 41  54 45 4D 45 4E 54 53 21  |.... STATEMENTS!|
000000B0: 22 3A 90 00 E1 09 82 00  99 22 11 20 20 C9 4E 53  |":.......".  .NS|
000000C0: 45 52 54 20 41 20 44 49  53 4B 20 43 4F 4E 54 41  |ERT A DISK CONTA|
000000D0: 49 4E 49 4E 47 20 D4 55  52 42 4F C4 49 53 4B 2E  |INING .URBO.ISK.|
000000E0: 22 00 08 0A 8C 00 99 A3  37 29 22 D0 52 45 53 53  |".......7)".RESS|
000000F0: 20 12 20 D2 C5 D4 D5 D2  CE 20 92 20 57 48 45 4E  | . ...... . WHEN|
00000100: 20 52 45 41 44 59 2E 22  00 20 0A 96 00 A1 4B 24  | READY.". ....K$|
00000110: 3A 8B 4B 24 B3 B1 C7 28  31 33 29 20 A7 31 35 30  |:.K$...(13) .150|
00000120: 00 46 0A A0 00 A0 20 31  35 3A 9F 20 31 35 2C 38  |.F.... 15:. 15,8|
00000130: 2C 31 35 2C 22 49 30 22  3A 8D 20 35 30 30 3A 8B  |,15,"I0":. 500:.|
00000140: 20 45 A7 36 30 30 00 7B  0A AA 00 54 24 B2 22 22  | E.600.{...T$.""|
00000150: 3A 99 22 11 CE 41 4D 45  20 4F 46 20 D4 55 52 42  |:."..AME OF .URB|
00000160: 4F C4 49 53 4B 20 46 49  4C 45 3A 22 3A 85 54 24  |O.ISK FILE:":.T$|
00000170: 3A 8B 54 24 B2 22 22 A7  31 37 30 00 AA 0A B4 00  |:.T$."".170.....|
00000180: 9F 31 2C 38 2C 38 2C 22  30 3A 22 AA 54 24 AA 22  |.1,8,8,"0:".T$."|
00000190: 50 2C 52 22 3A A1 23 31  2C 41 24 2C 42 24 3A 8D  |P,R":.#1,A$,B$:.|
000001A0: 35 30 30 3A 8B 45 A7 36  30 30 00 E6 0A BE 00 54  |500:.E.600.....T|
000001B0: 4C B2 C6 28 41 24 AA 5A  24 29 3A 54 48 B2 C6 28  |L..(A$.Z$):TH..(|
000001C0: 42 24 AA 5A 24 29 3A 97  38 33 34 2C 54 4C 3A 97  |B$.Z$):.834,TL:.|
000001D0: 38 33 36 2C 54 48 3A 97  38 36 31 2C 54 4C 3A 97  |836,TH:.861,TL:.|
000001E0: 38 36 32 2C 54 48 00 0C  0B C8 00 54 53 B2 34 39  |862,TH.....TS.49|
000001F0: 31 35 32 3A 54 45 B2 54  53 3A 99 A3 37 29 22 11  |152:TE.TS:..7)".|
00000200: D2 45 41 44 49 4E 47 3A  20 22 54 24 00 3C 0B D2  |.EADING: "T$.<..|
00000210: 00 81 53 53 B2 30 A4 31  3A A1 23 31 2C 41 24 3A  |..SS.0.1:.#1,A$:|
00000220: 53 53 B2 53 54 3A 97 54  45 2C C6 28 41 24 AA 5A  |SS.ST:.TE,.(A$.Z|
00000230: 24 29 3A 54 45 B2 54 45  AA 31 3A 82 00 72 0B DC  |$):TE.TE.1:..r..|
00000240: 00 A0 31 3A 8B 53 54 B3  B1 36 34 A7 20 99 22 11  |..1:.ST..64. .".|
00000250: 11 12 C5 52 52 4F 52 20  52 45 41 44 49 4E 47 20  |...RROR READING |
00000260: D4 55 52 42 4F C4 49 53  4B 20 46 49 4C 45 2E 22  |.URBO.ISK FILE."|
00000270: 3A 90 00 BA 0B E6 00 99  22 11 20 C9 4E 53 45 52  |:.......". .NSER|
00000280: 54 20 54 48 45 20 44 49  53 4B 20 4F 4E 20 57 48  |T THE DISK ON WH|
00000290: 49 43 48 20 59 4F 55 20  57 49 53 48 20 54 4F 22  |ICH YOU WISH TO"|
000002A0: 3A 99 22 20 43 52 45 41  54 45 20 54 48 45 20 42  |:." CREATE THE B|
000002B0: 4F 4F 54 20 46 49 4C 45  2E 22 00 E1 0B F0 00 99  |OOT FILE."......|
000002C0: A3 37 29 22 D0 52 45 53  53 20 12 20 D2 C5 D4 D5  |.7)".RESS . ....|
000002D0: D2 CE 20 92 20 57 48 45  4E 20 52 45 41 44 59 2E  |.. . WHEN READY.|
000002E0: 22 00 F9 0B FA 00 A1 4B  24 3A 8B 4B 24 B3 B1 C7  |"......K$:.K$...|
000002F0: 28 31 33 29 20 A7 32 35  30 00 12 0C 04 01 98 31  |(13) .250......1|
00000300: 35 2C 22 49 30 22 3A 8D  35 30 30 3A 8B 45 A7 36  |5,"I0":.500:.E.6|
00000310: 30 30 00 4D 0C 0E 01 50  24 B2 22 22 3A 99 22 11  |00.M...P$."":.".|
00000320: CE 41 4D 45 20 4F 46 20  50 52 4F 47 52 41 4D 20  |.AME OF PROGRAM |
00000330: 54 4F 20 D4 55 52 42 4F  C2 4F 4F 54 3A 22 3A 85  |TO .URBO.OOT:":.|
00000340: 50 24 3A 8B 50 24 B2 22  22 A7 32 39 30 00 7B 0C  |P$:.P$."".290.{.|
00000350: 18 01 50 B2 C3 28 50 24  29 3A 97 38 37 34 2C 50  |..P..(P$):.874,P|
00000360: 3A 81 49 B2 31 A4 50 3A  97 38 39 39 AA 49 2C C6  |:.I.1.P:.899.I,.|
00000370: 28 CA 28 50 24 2C 49 29  29 3A 82 00 A6 0C 22 01  |(.(P$,I)):....".|
00000380: 9F 31 2C 38 2C 38 2C 22  30 3A 22 AA 50 24 AA 22  |.1,8,8,"0:".P$."|
00000390: 2C 50 2C 52 22 3A 8D 35  30 30 3A A0 31 3A 8B 45  |,P,R":.500:.1:.E|
000003A0: B2 30 A7 33 31 30 00 E4  0C 2C 01 8B 45 B2 36 32  |.0.310...,..E.62|
000003B0: A7 99 22 11 20 D2 45 4D  45 4D 42 45 52 20 54 4F  |..". .EMEMBER TO|
000003C0: 20 50 55 54 20 41 20 43  4F 50 59 20 4F 46 20 22  | PUT A COPY OF "|
000003D0: 50 24 3A 99 22 20 4F 4E  20 54 48 49 53 20 44 49  |P$:." ON THIS DI|
000003E0: 53 4B 2E 22 00 26 0D 36  01 99 A3 35 29 22 11 C9  |SK.".&.6...5)"..|
000003F0: 53 20 54 48 45 20 50 52  4F 47 52 41 4D 20 C2 C1  |S THE PROGRAM ..|
00000400: D3 C9 C3 20 4F 52 20 CD  CC 3F 22 3A 99 A3 39 29  |... OR ..?":..9)|
00000410: 22 D0 52 45 53 53 20 12  20 C2 20 92 20 4F 52 20  |".RESS . . . OR |
00000420: 12 20 CD 20 92 22 00 3A  0D 40 01 A1 4B 24 3A 8B  |. . .".:.@..K$:.|
00000430: 4B 24 B2 22 42 22 A7 33  38 30 00 4C 0D 4A 01 8B  |K$."B".380.L.J..|
00000440: 20 4B 24 B3 B1 22 4D 22  A7 33 32 30 00 79 0D 54  | K$.."M".320.y.T|
00000450: 01 41 24 B2 22 22 3A 85  22 11 D3 54 41 52 54 49  |.A$."":."..TARTI|
00000460: 4E 47 20 41 44 44 52 45  53 53 22 3B 41 24 3A 8B  |NG ADDRESS";A$:.|
00000470: 41 24 B2 22 22 A7 33 34  30 00 9E 0D 5E 01 44 B2  |A$."".340...^.D.|
00000480: 30 3A 8B C8 28 41 24 2C  31 29 B3 B1 22 24 22 20  |0:..(A$,1).."$" |
00000490: A7 20 44 B2 C5 28 41 24  29 3A 89 33 37 30 00 DD  |. D..(A$):.370..|
000004A0: 0D 68 01 81 20 49 B2 32  A4 20 C3 28 41 24 29 3A  |.h.. I.2. .(A$):|
000004B0: 41 B2 28 C6 28 CA 28 41  24 2C 49 29 29 AF 20 31  |A.(.(.(A$,I)). 1|
000004C0: 32 37 29 AB 34 38 3A 44  B2 28 31 36 AC 44 29 AA  |27).48:D.(16.D).|
000004D0: 41 AA 28 37 AC 28 41 B1  39 29 29 3A 82 00 13 0E  |A.(7.(A.9)):....|
000004E0: 72 01 44 48 B2 B5 28 44  AD 32 35 36 29 3A 44 4C  |r.DH..(D.256):DL|
000004F0: B2 44 AB 28 32 35 36 AC  44 48 29 3A 97 38 39 31  |.D.(256.DH):.891|
00000500: 2C 37 36 3A 97 38 39 32  2C 44 4C 3A 97 38 39 33  |,76:.892,DL:.893|
00000510: 2C 44 48 00 4C 0E 7C 01  42 24 B2 22 22 3A 99 22  |,DH.L.|.B$."":."|
00000520: 11 CE 41 4D 45 20 46 4F  52 20 D4 55 52 42 4F C2  |..AME FOR .URBO.|
00000530: 4F 4F 54 49 4E 47 20 46  49 4C 45 3A 22 3A 85 42  |OOTING FILE:":.B|
00000540: 24 3A 8B 42 24 B2 22 22  A7 33 38 30 00 73 0E 86  |$:.B$."".380.s..|
00000550: 01 9F 31 2C 38 2C 38 2C  22 30 3A 22 AA 42 24 AA  |..1,8,8,"0:".B$.|
00000560: 22 2C 50 2C 57 22 3A 8D  35 30 30 3A 8B 45 20 A7  |",P,W":.500:.E .|
00000570: 36 30 30 00 8A 0E 90 01  99 A3 37 29 22 11 D7 52  |600.......7)"..R|
00000580: 49 54 49 4E 47 3A 20 22  42 24 00 A8 0E 9A 01 98  |ITING: "B$......|
00000590: 31 2C C7 28 33 38 29 3B  C7 28 33 29 3B C7 28 35  |1,.(38);.(3);.(5|
000005A0: 34 29 3B C7 28 33 29 3B  00 C7 0E A4 01 81 41 44  |4);.(3);......AD|
000005B0: B2 38 30 38 A4 39 31 35  3A 98 31 2C C7 28 C2 28  |.808.915:.1,.(.(|
000005C0: 41 44 29 29 3B 3A 82 00  E4 0E AE 01 81 41 44 B2  |AD));:.......AD.|
000005D0: 54 53 A4 54 45 3A 98 31  2C C7 28 C2 28 41 44 29  |TS.TE:.1,.(.(AD)|
000005E0: 29 3B 3A 82 00 F7 0E B8  01 A0 31 3A 8D 35 30 30  |);:.......1:.500|
000005F0: 3A 8B 45 A7 36 30 30 00  20 0F C2 01 A0 31 35 3A  |:.E.600. ....15:|
00000600: 99 22 11 11 22 42 24 22  20 57 49 4C 4C 20 4E 4F  |.".."B$" WILL NO|
00000610: 57 20 54 55 52 42 4F 42  4F 4F 54 22 50 24 3A 80  |W TURBOBOOT"P$:.|
00000620: 00 2F 0F F4 01 84 31 35  2C 45 2C 45 24 3A 8E 00  |./....15,E,E$:..|
00000630: 3D 0F 58 02 A0 31 3A 99  22 11 12 22 3B 00 75 0F  |=.X..1:."..";.u.|
00000640: 62 02 8B 20 45 B2 36 32  A7 99 22 CE 4F 20 46 49  |b.. E.62..".O FI|
00000650: 4C 45 20 57 49 54 48 20  54 48 41 54 20 4E 41 4D  |LE WITH THAT NAM|
00000660: 45 20 4F 4E 20 54 48 49  53 20 44 49 53 4B 2E 22  |E ON THIS DISK."|
00000670: 3A 89 31 37 30 00 B0 0F  6C 02 8B 20 45 B2 36 33  |:.170...l.. E.63|
00000680: A7 99 22 D4 48 41 54 20  4E 41 4D 45 20 49 53 20  |..".HAT NAME IS |
00000690: 41 4C 52 45 41 44 59 20  55 53 45 44 20 4F 4E 20  |ALREADY USED ON |
000006A0: 54 48 49 53 20 44 49 53  4B 2E 22 3A 89 33 38 30  |THIS DISK.":.380|
000006B0: 00 CE 0F 76 02 A0 31 35  3A 99 22 C4 49 53 4B 20  |...v..15:.".ISK |
000006C0: C5 52 52 4F 52 3A 22 3B  45 3B 45 24 3A 80 00 F8  |.RROR:";E;E$:...|
000006D0: 0F 36 03 83 33 32 2C 31  33 38 2C 32 35 35 2C 31  |.6..32,138,255,1|
000006E0: 36 39 2C 31 34 38 2C 31  36 30 2C 33 2C 31 33 33  |69,148,160,3,133|
000006F0: 2C 32 35 31 2C 31 33 32  00 23 10 40 03 83 32 35  |,251,132.#.@..25|
00000700: 32 2C 31 36 39 2C 30 2C  31 36 30 2C 31 39 32 2C  |2,169,0,160,192,|
00000710: 31 33 33 2C 32 35 33 2C  31 33 32 2C 32 35 34 2C  |133,253,132,254,|
00000720: 31 36 30 00 4E 10 4A 03  83 30 2C 31 37 37 2C 32  |160.N.J..0,177,2|
00000730: 35 31 2C 31 34 35 2C 32  35 33 2C 32 30 30 2C 32  |51,145,253,200,2|
00000740: 30 38 2C 32 34 39 2C 32  33 30 2C 32 35 32 00 78  |08,249,230,252.x|
00000750: 10 54 03 83 32 33 30 2C  32 35 34 2C 31 36 35 2C  |.T..230,254,165,|
00000760: 32 35 34 2C 32 30 31 2C  31 39 36 2C 32 30 38 2C  |254,201,196,208,|
00000770: 32 33 39 2C 33 32 2C 30  00 A0 10 5E 03 83 31 39  |239,32,0...^..19|
00000780: 32 2C 33 32 2C 36 38 2C  32 32 39 2C 31 36 36 2C  |2,32,68,229,166,|
00000790: 31 38 36 2C 31 36 30 2C  31 2C 33 32 2C 31 38 36  |186,160,1,32,186|
000007A0: 00 C8 10 68 03 83 32 35  35 2C 31 36 39 2C 31 2C  |...h..255,169,1,|
000007B0: 31 36 32 2C 31 33 32 2C  31 36 30 2C 33 2C 33 32  |162,132,160,3,32|
000007C0: 2C 31 38 39 2C 32 35 35  00 EF 10 72 03 83 31 36  |,189,255...r..16|
000007D0: 39 2C 30 2C 33 32 2C 32  31 33 2C 32 35 35 2C 31  |9,0,32,213,255,1|
000007E0: 33 34 2C 34 35 2C 31 33  32 2C 34 36 2C 33 32 00  |34,45,132,46,32.|
000007F0: 32 11 7C 03 83 39 34 2C  31 36 36 2C 33 32 2C 31  |2.|..94,166,32,1|
00000800: 34 32 2C 31 36 36 2C 37  36 2C 31 37 34 2C 31 36  |42,166,76,174,16|
00000810: 37 2C 34 32 2C 30 2C 30  2C 30 2C 30 2C 30 2C 30  |7,42,0,0,0,0,0,0|
00000820: 2C 30 2C 30 2C 30 2C 30  2C 30 2C 30 2C 30 2C 30  |,0,0,0,0,0,0,0,0|
00000830: 2C 30 00 00 00                                    |,0...           |

....... SAVE"TURBO BOOTMAKER",8.X.D.."..
.."G(8)G(14):..10)"** TURBOBOOTMAKER **"
:Z$.G(0)...N..AD.822.915:. BY:CK.CK.BY:.
AD,BY:.:.CK.11597.130...X.."...ERROR IN 
DATA STATEMENTS!":.......".  INSERT A DI
SK CONTAINING TURBODISK.".......7)"PRESS
 . RETURN . WHEN READY.". ....K$:.K$..G(
13) .150.F. .  15:. 15,8,15,"I0":. 500:.
 E.600.{...T$."":.".NAME OF TURBODISK FI
LE:":.T$:.T$."".170......1,8,8,"0:".T$."
P,R":.#1,A$,B$:.500:.E.600.....TL.F(A$.Z
$):TH.F(B$.Z$):.834,TL:.836,TH:.861,TL:.
862,TH...H.TS.49152:TE.TS:..7)".READING:
 "T$.<.R..SS.0.1:.#1,A$:SS.ST:.TE,F(A$.Z
$):TE.TE.1:..R... 1:.ST..64. ."...ERROR 
READING TURBODISK FILE.":.......". INSER
T THE DISK ON WHICH YOU WISH TO":." CREA
TE THE BOOT FILE.".......7)"PRESS . RETU
RN . WHEN READY."......K$:.K$..G(13) .25
0......15,"I0":.500:.E.600.M...P$."":.".
NAME OF PROGRAM TO TURBOBOOT:":.P$:.P$."
".290.{...P.C(P$):.874,P:.I.1.P:.899.I,F
(J(P$,I)):...."..1,8,8,"0:".P$.",P,R":.5
00: 1:.E.0.310...,..E.62..". REMEMBER TO
 PUT A COPY OF "P$:." ON THIS DISK.".&.6
...5)".IS THE PROGRAM BASIC OR ML?":..9)
"PRESS . B . OR . M .".:.@..K$:.K$."B".3
80.L.J.. K$.."M".320.Y.T.A$."":.".STARTI
NG ADDRESS";A$:.A$."".340...^.D.0:.H(A$,
1).."$" . D.E(A$):.370...H.. I.2. C(A$):
A.(F(J(A$,I)). 127).48:D.(16.D).A.(7.(A.
9)):....R.DH..(D.256):DL.D.(256.DH):.891
,76:.892,DL:.893,DH.L.|.B$."":.".NAME FO
R TURBOBOOTING FILE:":.B$:.B$."".380.S..
..1,8,8,"0:".B$.",P,W":.500:.E .600.....
..7)".WRITING: "B$......1,G(38);G(3);G(5
4);G(3);.G....AD.808.915:.1,G(B(AD));:..
.....AD.TS.TE:.1,G(B(AD));:...... 1:.500
:.E.600. .B. 15:.".."B$" WILL NOW TURBOB
OOT"P$:../....15,E,E$:..=.X. 1:."..";.U.
B.. E.62.."NO FILE WITH THAT NAME ON THI
S DISK.":.170...L.. E.63.."THAT NAME IS 
ALREADY USED ON THIS DISK.":.380.N.V. 15
:."DISK ERROR:";E;E$:....6..32,138,255,1
69,148,160,3,133,251,132.#.@..252,169,0,
160,192,133,253,132,254,160.N.J..0,177,2
51,145,253,200,208,249,230,252.X.T..230,
254,165,254,201,196,208,239,32,0. .^..19
2,32,68,229,166,186,160,1,32,186.H.H..25
5,169,1,162,132,160,3,32,189,255...R..16
9,0,32,213,255,134,45,132,46,32.2.|..94,
166,32,142,166,76,174,167,42,0,0,0,0,0,0
,0,0,0,0,0,0,0,0,0...

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL