home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 43
/
043.d81
/
auto-con
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
3KB
|
61 lines
5 s=52000:b=0:printchr$(14)
10 poke53280,.:poke53281,.
12 print"[147][159] [215]here would you like this routine"
13 print" loaded ";s:print"[145]";
15 inputa$:s=val(a$)
18 ifs>2048ands<62000then30
20 print"[158][206]ot a good location, try again":fort=1to1000:next:goto12
30 print"[208]lease wait ... [208][207][203][197]ing routine"
50 reada:ifa<0then80
60 pokes+b,a
70 b=b+1:goto50
80 print"[154][212]he routine has been loaded."
90 print"sys"s"[154]to make conversions..."
100 print"[159][210]emember...."
105 print"#255 - [196]ecimal to hex and binary"
107 print"$033[195] - [200]ex to decimal and binary"
109 print"%01101101 - [194]inary to hex and decimal"
111 print""chr$(34)"x - [193][211][195][201][201] of the character"
115 end
130 data169,13,32,210,255,32,210,255,169,0,162,133
140 data160,4,133,97,133,253,134,139,132,2,132,252
150 data153,139,0,136,208,250,160,32,153,0,2,136
160 data16,250,169,1,208,43,201,34,208,8,162,1
170 data134,2,208,28,240,210,201,35,208,4,230,2
180 data208,18,201,36,240,14,201,37,208,224,162,16
190 data160,130,134,2,134,252,132,139,32,210,255,169
200 data0,133,251,169,175,32,210,255,198,211,32,225
210 data255,208,5,169,32,76,210,255,32,228,255,240
220 data251,166,251,208,185,164,253,201,13,208,8,192
230 data0,240,227,208,91,240,129,201,20,208,11,32
240 data210,255,136,16,250,200,132,212,240,166,196,2
250 data176,204,166,2,224,1,240,30,201,48,144,194
260 data224,16,208,6,201,50,144,18,176,184,201,58
270 data144,12,224,5,240,176,201,65,144,172,201,71
280 data176,168,32,210,255,224,1,240,18,224,5,240
290 data14,201,65,176,4,56,233,48,44,233,55,164
300 data252,198,252,153,0,2,230,253,208,129,240,165
310 data166,2,224,1,208,11,173,0,2,133,20,169
320 data0,133,21,240,85,224,5,208,29,169,0,162
330 data2,133,122,134,123,32,138,173,165,97,201,145
340 data176,3,184,80,58,169,63,32,210,255,169,0
350 data240,204,232,134,251,162,1,134,252,198,251,240
360 data29,230,252,166,251,189,0,2,32,126,189,166
370 data253,224,2,144,22,169,139,160,0,32,40,186
380 data166,252,228,253,144,223,166,251,202,189,0,2
390 data32,126,189,32,247,183,169,32,32,210,255,162
400 data35,208,11,165,21,166,20,32,205,189,169,0
410 data162,36,72,169,13,32,210,255,138,32,210,255
420 data104,133,251,224,35,240,228,224,37,240,78,133
430 data252,165,21,208,4,230,252,165,20,162,0,134
440 data254,201,16,176,12,72,169,48,32,210,255,104
450 data184,80,23,240,131,230,254,56,233,16,201,16
460 data176,247,72,198,251,208,5,104,230,251,240,2
470 data165,254,201,10,144,4,24,105,55,44,105,48
480 data32,210,255,165,251,208,232,165,252,240,190,165
490 data20,162,37,208,157,160,0,165,21,240,16,133
500 data252,169,18,32,210,255,200,208,6,169,146,32
510 data210,255,136,169,128,133,2,185,251,0,37,2
520 data197,2,176,3,169,48,44,169,49,32,210,255
530 data70,2,208,235,192,0,240,155,208,219,72,65,-1