start tok64 d64-3ZfS0G
10 REM"{delete}UDIomputer{space*10}U{sh asterisk}(c)1992I
11 REM"{delete}G{space*2}{cm a}DIase{space*10}U{sh +}{sh asterisk*2}peter{sh asterisk}{sh +}I
12 REM"{delete}G{space*2}{sh -} HUDIonverter U{sh +*2}karlsson{sh +*2}I
13 REM"{delete}G{sh asterisk*2}{cm q}{sh asterisk}{cm w}G{sh asterisk*11}{sh +*3}{sh asterisk*7}I{sh -*3}
14 REM"{delete}JFK{sh -}{sh asterisk}HG{sh asterisk*11}{sh +*3}{sh asterisk*7}{sh +*3}K
15 REM"{delete}U{sh asterisk*2}{cm z}FKG{sh asterisk*11}{sh +*3}{sh asterisk*7}{sh +*2}K
16 REM"{delete}{cm q}{sh asterisk*5}JFK{sh asterisk*9}{sh +*3}{sh asterisk*7}{sh +}K
17 REM"{delete}{sh -}converts numbers {sh -*3}between{sh -}
18 REM"{delete}{sh -}bits/bytes and so{sh -*3}on {.*3} {sh -}
19 REM"{delete}J{sh asterisk*17}{cm e*3}{sh asterisk*7}K
30 FORi=1TO5:READu$(i):NEXT
50 DATAbit(s),byte(s),kilobit(s),kilobyte(s),megabyte(s)
70 POKE53280,.:POKE53281,.:POKE650,128
90 PRINT"{clear}{gray}{cm @*25}{orange}(c)1992 peter
110 PRINT"{dark gray}{reverse on} computer base converter {orange}{reverse off}{space*3}karlsson
130 PRINT"{down*2}{green}please input {light green}value
150 INPUT"{cyan}--";v:IFv<.THEN150
170 PRINT"{down*2}{green}please choose a {light green}unit
190 PRINT"{cyan}-- {white}1 {cyan}for {light blue}bits {cyan}-- {white}2 {cyan}for {light blue}bytes {cyan}-- {white}3{cyan} for
210 PRINT"{light blue}{space*3}kilobits {cyan}-- {white}4 {cyan}for {light blue}kilobytes {cyan}-- {white}5 {cyan}for
230 PRINT"{light blue}{space*3}megabytes ";
250 INPUT"{cyan}--";u
270 PRINT"{down*2}{white}{left}"v"{light blue}"u$(u)"{green} is equal to:
290 ONuGOTO310,330,350,370,390
310 b=v:GOTO410
330 b=v*8:GOTO410
350 b=v*1024:GOTO410
370 b=v*8192:GOTO410
390 b=v*8388608
410 IFu<>1THENPRINT:PRINT"{white}"MID$(STR$(b),2)" {light blue}bit(s) {green}and";
430 a=INT(b/8):IFu<>2THENPRINT:PRINT"{white}"MID$(STR$(a),2)" {light blue}"u$(2)" {green}and";
450 a=INT(b/1024):IFu<>3THENPRINT:PRINT"{white}"MID$(STR$(a),2)" {light blue}"u$(3)" {green}and";
470 a=INT(b/8192):IFu<>4THENPRINT:PRINT"{white}"MID$(STR$(a),2)" {light blue}"u$(4)" {green}and";
490 a=INT(b/8388608):IFu<>5THENPRINT:PRINT"{white}"MID$(STR$(a),2)" {light blue}"u$(5)"{space*4}";
510 PRINT"{left*4}{light green}.{space*3}"
530 PRINT"{white}{down}n.b {green}all values are shorted off to the
550 PRINT"nearest {light green}lower {green}whole number.
570 PRINT"{down}{orange}do you want to calculate another?
590 POKE198,.:WAIT198,1:GETa$:IFa$="y"THEN130
stop tok64
(bastext 1.0)