1000  REM  BASE, PROGRAMED BY ZONTAR MOUSE
1010  DIM A$[72],N$[36],A[239],C[73]
1020  LET N$="0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
1030  MAT A=ZER
1035  MAT C=ZER
1040  PRINT '13'10"BASE";
1050  INPUT X
1060  PRINT '10"NUMBER";
1070  INPUT A$
1080  PRINT '10'10
1085  LET A=LEN(A$)
1088  LET B=1
1090  FOR I=1 TO A
1100  FOR J=1 TO 36
1110  IF A$[I,I]=N$[J,J] THEN 1140
1120  NEXT J
1130  GOTO 1030
1140  LET C[I]=J-1
1150  NEXT I
1155  FOR I=1 TO 239
1160  FOR J=B TO A
1170  LET C[J+1]=INT(C[J+1]+10*X*(C[J]/X-INT(C[J]/X)))
1180  LET C[J]=INT(C[J]/X)
1190  NEXT J
1200  LET A[I]=C[A+1]/10
1210  LET C[A+1]=0
1220  FOR B=1 TO 73
1230  IF C[B] THEN 1250
1240  NEXT B
1245  GOTO 1260
1250  NEXT I
1260  FOR I=239 TO 1 STEP -1
1270  IF A[I] THEN 1300
1280  NEXT I
1290  STOP 
1300  FOR J=I TO 1 STEP -1
1310  PRINT N$[A[J]+1,A[J]+1];
1320  NEXT J
1330  GOTO 1030
9999  END 
