download PDF (41MB) - Mike Schilli
download PDF (41MB) - Mike Schilli
download PDF (41MB) - Mike Schilli
Sie wollen auch ein ePaper? Erhöhen Sie die Reichweite Ihrer Titel.
YUMPU macht aus Druck-PDFs automatisch weboptimierte ePaper, die Google liebt.
BASUM BASIC 888 Bytes, HP-71B, PBLIST INDENT 2<br />
Basis - Umwandlungsprogramm<br />
Wandelt beliebige ganze Zahlen zur Basis n in Zahlen zur Basis m um.<br />
n und m: zwischen 2 und 16<br />
Benoetigt Lexfile STRUC2 (oder JPCROM)<br />
20 LOOP<br />
30 INPUT ' /?';!$<br />
40 FOR I=LEN(I$) TO 1 STEP -1<br />
50 IF I$[I,I]>='A' THEN<br />
60 'SETBAS':<br />
70 B$=I$[I]<br />
80 SELECT UPRC$(B$)<br />
90 CASE 'H'<br />
100<br />
B=16<br />
110 CASE 'D'<br />
120<br />
B=10<br />
130<br />
CASE 'O'<br />
140 B=8<br />
150<br />
CASE 'B'<br />
160 B=2<br />
170<br />
CASE ELSE<br />
180<br />
190<br />
IF B$[2]16 OR B1 THEN<br />
260 •EINUM':<br />
270 D=0<br />
280 FOR J=0 TO LEN(I$)-1<br />
290 G=HTD(I$[LEN(I$)-J] [1,1])<br />
300 IF G>=B THEN DISP HTD('X')<br />
310<br />
320 NEXT J<br />
330<br />
I=-7<br />
340<br />
ELSE<br />
D=D+BAJ*G<br />
350<br />
'AUSUM':<br />
360 0$='' @ D1=D<br />
370<br />
WHILE Dl<br />
380 D1=D1/B @ G=FP(D1)*B<br />
390 O$[l,0]=DTH$(G)[5]<br />
400 D1=IP(D1)<br />
410<br />
END WHILE<br />
420<br />
-<br />
I=-8<br />
430 END IF<br />
440 END IF<br />
450 NEXT I<br />
460 'AUSGABE' :<br />
470 SELECT I<br />
480 CASE -9<br />
490 DISPO$;' ';CHR$(NUM(UPRC$(B$))+32);B$[2];'<br />
500 CASE -8<br />
510 DISP D;<br />
520 CASE ELSE<br />
530 IF LEN(I$) THEN D=VAL(I$)<br />
540 DISP D;<br />
550 END SELECT<br />
560 END LOOP<br />
Computerclub Deutschland e.V.<br />
SERIE 70<br />
PRISMA 6/89 19
Change language