start tok64 d64-D3yt06
1 FORq=49152TO49554:READw:POKE q,w:ch=ch+w:NEXT:IFch<>31055THENw=1
2 DATA169,127,141,13,220,169,51,141,1,0,162,8,169,0,133,251,169,56,133,252,169
3 DATA0,133,253,169,208,133,254,160,0,177,253,145,251,200,208,249,230,252,230
4 DATA254,202,208,242,169,55,141,1,0,169,129,141,13,220,169,30,141,24,208,162
5 DATA241,189,81,192,157,255,55,202,208,247,162,81,189,65,193,157,127,57
6 DATA202,208,247,96,24,60,24,255,24,60,36,102,0,60,36,36,126,102,102,0,0,124
7 DATA68,126,98,98,126,0,0,126,70,64,64,66,126,0,0,126,66,66,98,98,126,0,0,126
8 DATA64,126,96,96,126,0,0,126,64,126,96,96,96,0,0,126,66,64,102,98,126,0,0,36
9 DATA36,60,102,102,102,0,0,16,16,16,24,24,24,0,0,4,4,4,76,76,126,0,0,34,34,60
10 DATA98,98,98,0,0,32,32,32,96,96,126,0,0,126,74,74,106,106,106,0,0,66,98,82
11 DATA74,102,98,0,0,126,66,66,70,70,126,0,0,126,66,66,126,96,96,0,0,126,66,66
12 DATA74,78,126,2,0,124,68,68,126,98,98,0,0,126,64,126,6,6,126,0,0,62,14,8,8,8
13 DATA8,0,0,66,66,66,98,98,126,0,0,66,66,66,102,36,24,0,0,74,74,74,106,106,126
14 DATA0,0,70,36,24,24,36,98,0,0,66,66,126,24,24,24,0,0,126,66,28,48,98,126,0
15 DATA52,0,60,36,126,102,102,0,52,0,126,66,66,70,126,0,24,0,60,36,126,102,102
16 DATA0,0,126,70,74,82,98,126,0,0,48,16,16,16,56,56,0,0,126,2,126,96,96,126,0
17 DATA0,120,8,124,12,12,124,0,0,96,96,96,102,126,6,0,0,126,64,126,6,70,126,0
18 DATA0,124,64,126,98,98,126,0,0,126,66,12,24,48,32,0,0,60,36,60,102,102,126,0
19 DATA0,126,66,126,6,6,6,0,0
20 IF w=1 THEN PRINT"datafel!":STOP
21 SYS 49152:CLR
22 REM talomvandlare
23 PRINT"{light blue}{clear}{reverse on}talomvandlare{space*27}{reverse off}":POKE53280,6:POKE53281,6
24 PRINT "hexadecimala tal: h {?*4}"
25 PRINT "decimala tal:{space*5}d {?*4}"
26 PRINT "bin[ra tal:{space*7}b {?*4}"
27 PRINT "oktala tal:{space*7}o {?*4}"
28 PRINT "avsluta:{space*10}*"
29 REM h[mta indata
30 INPUT "{down}";t$
31 IF t$="*" THEN PRINT"hej d]":END
32 s$=LEFT$(t$,2):n$=MID$(t$,3):b=0
33 IF s$="h " THENb=16
34 IF s$="d " THENb=10
35 IF s$="b " THENb=2
36 IF s$="o " THENb=8
37 IF b=0 THEN 23
38 REM omvandla till decimal
39 IF b=10 THEN d=VAL(n$):GOTO49
40 a$=LEFT$("0123456789abcdef",b):k=1:d=0
41 FOR i=LEN(n$) TO 1 STEP -1
42 nn$=MID$(n$,i,1)
43 REM kolla om tecknet finns
44 FOR j=0 TO LEN(a$)-1
45 IF nn$<>MID$(a$,j+1,1) THEN NEXT:GOTO 23
46 REM r[kna ut decimaltal
47 d=d+(j*k):k=k*b
48 NEXT i
49 REM omvandla fr]n decimal
50 PRINT "{light blue}{clear}{reverse on}talomvandlare{space*27}{reverse off}"
51 IF d>1e9 THEN PRINT"felr[kningar kan f{pound}rekomma!"
52 IF d>1e9 THEN PRINT"[ven p] den bas du matade in fr]n!{down}"
53 REM till bas 2 (bin[r)
54 PRINT"bin[r:"
55 tb=2 : GOSUB 74 : b2$=s$
56 PRINT b2$
57 REM till bas 8 (oktal)
58 PRINT"{down}oktal:"
59 tb=8 : GOSUB 74 : b8$=s$
60 PRINT b8$
61 REM till bas 10(decimal)
62 PRINT"{down}decimal:"
63 tb=10: GOSUB 74 : bt$=s$
64 PRINT bt$
65 REM till bas 16(hexadecimal)
66 PRINT"{down}hexadecimal:"
67 tb=16: GOSUB 74 : bs$=s$
68 PRINT bs$
69 PRINT "{down}tryck space:"
70 GET z$:IFz$<>" "THEN 70
71 CLR:GOTO 22
72 REM subrutin talkonvertering
73 REM svar i s$
74 a$=LEFT$("0123456789abcdef",tb):s$=""
75 i1=d:j=1
76 q=INT(i1/tb):r=i1-q*tb
77 i1=q:s$=MID$(a$,r+1,1)+s$
78 j=j+1:IF q>=tb THEN 76
79 s$=MID$(a$,q+1,1)+s$:RETURN
80 REM datatecken: (c) daniel marcus'
81 REM talomvandlare: (c) mr.p.
stop tok64
(bastext 1.0)